[anoname]

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

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

[elgokr]

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

عفواً انا لا اهم :

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

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

تحياتى لك

[anoname]

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

[elgokr]

(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

عملياً ما كتبته يقوم بما تطلبه

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

الرجاء التوضيح ما تريده وتبسيط شرح ما تعمل عليه

ليتم اضافة الكود الصحيح للاستخدام المباشر

تحياتى لك

[anoname]

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

---

اليوم هو اليوم 12 من رمضان و غدا سيكون اليوم 13 من رمضان و العملية مستمرة .
اذا 12 هي label1 و الغد هو day + 1 فصارت label1 الى 13

[elgokr]

(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 

(اى تاريخ لكن عليك باخذ اعتبار تاريخ الجهاز م / هـ)

تحياتى لك

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

[عبدالله الدوسري]

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

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

[anoname]

  Ramadan Fator.rar (الحجم : 116.23 ك ب / التحميلات : 29)
اخي انا مبتدأ و لم افهم من هذه الاكواد شيئا . سوف ارفع لك المشروع و قم بتعديل لي الكود و اعد رفعه
لكي اقوم بفهم خطة العمل . جزاء الله خيرا و ادخلك فساح جنته يا رب العالمين ااااامين

---

اليوم هو اليوم 12 من رمضان و غدا هو اليوم 13 من رمضان و الى اخره
هذه هي فكرة البرنامج
علما ان label6.text = 12 اذا كيف اجعل قيمة 12 تزداد ب1 كلما زدنا يوما واحدا

[elgokr]

اخى الكريم اليوم هو 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

قم بكتابة الارقام التى تريدها

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

بان البرنامج لا يعمل على بعض الاجهزة

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

تاريخ هجري وليس ميلادى

تحياتى لك