منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] ارجوا الدخول عاجل - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] ارجوا الدخول عاجل (/showthread.php?tid=25155)

ارجوا الدخول عاجل - anoname - 29-05-18

السلام عليكم و رحمة الله و بركاته
اخواني احتاج كود يحاكي ما اقول ( اذا ازداد يوم قم بزيادة 1 الى الابيل 7 )
علما اني استعمل لغة microsoft visual basic .net 2010 Ultimate

و شكرا علما باني احتاجه عاجلا


RE: ارجوا الدخول عاجل - elgokr - 29-05-18

وعليكم السلام ورحمة الله وبركاته

عفواً انا لا اهم :
إقتباس :اخواني احتاج كود يحاكي ما اقول ( اذا ازداد يوم قم بزيادة 1 الى الابيل 7 )

الرجاء التوضيح

تحياتى لك


RE: ارجوا الدخول عاجل - anoname - 29-05-18

اخي يعني كلما يزداد يوم مثل 29 / 05 / 2018 + 1 = 30 / 05 / 2018
تزداد قيمة label6 ب 1 مثلا label6.text = 12 و عندما يمر يوم تصبح 13

RE: ارجوا الدخول عاجل - elgokr - 29-05-18

(29-05-18, 07:16 PM)anoname كتب : اخي يعني كلما يزداد يوم مثل 29 / 05 / 2018 + 1 = 30 / 05 / 2018
تزداد قيمة label6 ب 1 مثلا label6.text = 12 و عندما يمر يوم تصبح 13


حتى الان جميل

ولكن ينقصه ايضاً الكثير من التفاصيل

بحيث اذا كان السؤال والطلب عام
كما لو بقول اريدك ارسال هذا الملف
فبطبيعي ارساله الى اين 

بمعنى يجب ان توضح ان لديك فورم يحتوى على كذا وكذا 
وفى الجزء الخاص بكذا يوجد تاريخ مثلاً واريد كلما يزيد اليوم فى هذا الجزء
يتم احتساب عدد فى المنطة كذا +1 كلما زاد الايام يزيد العدد

لاحظ انا ذكرت كم من كلمة كذا
لان انت لا توضح اى تفاصيل او اى تلميح لما تعمله ليتم افادتك

فكيف يمكن منى ان ان اكتب لك كود من كلمة كذا

اذا كنت اريد ان اختصر فى الرد واغادر الموقع
بامكانى ام اكتب كود لك كاتالى

كود :
If TextBox1.Text = TextBox1.Text + 1 Then
           TextBox2.text += 1
       End If

عملياً ما كتبته يقوم بما تطلبه
ولكن فعلياً هل هذا ما تريده اذا قمت باستخدامه

الرجاء التوضيح ما تريده وتبسيط شرح ما تعمل عليه
ليتم اضافة الكود الصحيح للاستخدام المباشر

تحياتى لك


RE: ارجوا الدخول عاجل - anoname - 29-05-18

[attachment=18234]
و الله شكرا و اعلم انك لا تريد الا ان استفيد من الدرس و لكن ربما ساوضح لك الان
لدي فورم 1 فقط و لدي label1.text = 12 و اريد من البرنامج ان كلما يزداد يوم تزداد قيمة label1 بالعدد 1
فتصبح label1.text = 13 و ذلك حسب مرور كم من يوم و ارجوا ان خفيفا عليك لانني اكثرت عليك و نحن
صائمين
اليوم هو اليوم 12 من رمضان و غدا سيكون اليوم 13 من رمضان و العملية مستمرة .
اذا 12 هي label1 و الغد هو day + 1 فصارت label1 الى 13


RE: ارجوا الدخول عاجل - elgokr - 29-05-18

(29-05-18, 07:42 PM)anoname كتب : و الله شكرا و اعلم انك لا تريد الا ان استفيد من الدرس و لكن ربما ساوضح لك الان
لدي فورم 1 فقط و لدي label1.text = 12 و اريد من البرنامج ان كلما يزداد يوم تزداد قيمة label1 بالعدد 1
فتصبح label1.text = 13 و ذلك حسب مرور كم من يوم و ارجوا ان خفيفا عليك لانني اكثرت عليك و نحن
صائمين
اليوم هو اليوم 12 من رمضان و غدا سيكون اليوم 13 من رمضان و العملية مستمرة .
اذا 12 هي label1 و الغد هو day + 1 فصارت label1 الى 13


الشكر لله

لا عليك اخى الحبيب
فكل هدفى ان تستفاد 
وليس النسخ واللصق فقط

خلينى انا ابسط عليك الفكرة وما تحتاجه لعمل ذلك

فى البداية ستحتاج الى مثلاً مصدر 
ليكون قيمته تاريخ ثابت او بداية العد وليكن 1 رمضان

من ثم عمل مصدر
وهنا يكون وظيفته عرض تاريخ اليوم

من ثم عمل عملية طرق لعدد الايام (الكود كا تشبيه)
كود :
label1.text = textbox2.text - textbox1.text
سيتم توضيح ذلك بالنهاية لعملية الطرح للايام

فاصبح هنا لدينا الشكل النهائي
واللى من المفترض يكتب 14 بناءاً على تاريخ الكمبيوتر

ناتى الان الى الكود
كود :
Dim firstDate As New DateTime(1439, 9, 1)
       Dim secondDate As New DateTime(Now.ToString("yyyy"), Now.ToString("MM"), Now.ToString("dd"))
       TextBox1.Text = Now.ToString("yyyy-MM-dd")
       Dim TotalDay As String = (secondDate - firstDate).TotalDays.ToString()
       label1.text = CInt(TotalDay) + 1


تذكر اذا كان التاريخ بالجهاز هو التاريخ الميلادى
فقم بتعديل الارقام 1 / 9 / 1439 الى 1 / 5 / 2018 
(اى تاريخ لكن عليك باخذ اعتبار تاريخ الجهاز م / هـ)

تحياتى لك
وتمنياتى لك التوفيق


RE: ارجوا الدخول عاجل - عبدالله الدوسري - 29-05-18

استخدم 
label1.text = Now.Day
أو 
label1.text = Now.Day + 1

حسب ما تفكر به , لا اعلم بالضبط ما تعني

RE: ارجوا الدخول عاجل - anoname - 29-05-18

[attachment=18235]
اخي انا مبتدأ و لم افهم من هذه الاكواد شيئا . سوف ارفع لك المشروع و قم بتعديل لي الكود و اعد رفعه
لكي اقوم بفهم خطة العمل . جزاء الله خيرا و ادخلك فساح جنته يا رب العالمين ااااامين
اليوم هو اليوم 12 من رمضان و غدا هو اليوم 13 من رمضان و الى اخره
هذه هي فكرة البرنامج
علما ان label6.text = 12 اذا كيف اجعل قيمة 12 تزداد ب1 كلما زدنا يوما واحدا

RE: ارجوا الدخول عاجل - elgokr - 29-05-18

اخى الكريم اليوم هو 13 من رمضان
وفى الكمبيوتر والمطبوعات ستجد ان اليوم هو 14

فى البداية المشروع مرفق بعد عمل بعض اللمسات عليه
بخصوص اذا كنت عايز تعدل فى كل من
عدد الايام من نقص او الزيادة

تعال عن السطر التالى
كود :
Label6.Text = CInt(TotalDay)

وقم بجعله كما يلى
كود :
Label6.Text = CInt(TotalDay) - 1
Label6.Text = CInt(TotalDay) + 1

اختار ما تريد مع تغيير قم 1 الى العدد المطلوب

ثانياً اذا كنت بحاجة الى تعديل فى التواريخ ايضاَ فى النقص او التزايد

ستجد سطر ما يلى
كود :
Label7.Text = Date.Today.AddDays("-1").ToString("yyyy-MM-dd")

فقط مكان -1 ضح ما تريد اذا كان +999 او بالـ -999
قم بكتابة الارقام التى تريدها

تذكر ما عليك فعله حتى لا تواجه مشكلة 
بان البرنامج لا يعمل على بعض الاجهزة


وهو ان يجب ان يكون الجهاز المستخدم
تاريخ هجري وليس ميلادى

تحياتى لك