تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] ارجوا الدخول عاجل
#1
Exclamation 
السلام عليكم و رحمة الله و بركاته
اخواني احتاج كود يحاكي ما اقول ( اذا ازداد يوم قم بزيادة 1 الى الابيل 7 )
علما اني استعمل لغة microsoft visual basic .net 2010 Ultimate

و شكرا علما باني احتاجه عاجلا
الرد }}}
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله وبركاته

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

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

تحياتى لك
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة: anoname , anoname
#3
اخي يعني كلما يزداد يوم مثل 29 / 05 / 2018 + 1 = 30 / 05 / 2018
تزداد قيمة label6 ب 1 مثلا label6.text = 12 و عندما يمر يوم تصبح 13
الرد }}}
تم الشكر بواسطة:
#4
(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
#5
   
و الله شكرا و اعلم انك لا تريد الا ان استفيد من الدرس و لكن ربما ساوضح لك الان
لدي فورم 1 فقط و لدي label1.text = 12 و اريد من البرنامج ان كلما يزداد يوم تزداد قيمة label1 بالعدد 1
فتصبح label1.text = 13 و ذلك حسب مرور كم من يوم و ارجوا ان خفيفا عليك لانني اكثرت عليك و نحن
صائمين

اليوم هو اليوم 12 من رمضان و غدا سيكون اليوم 13 من رمضان و العملية مستمرة .
اذا 12 هي label1 و الغد هو day + 1 فصارت label1 الى 13
الرد }}}
تم الشكر بواسطة: عبد الرؤوف
#6
(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 
(اى تاريخ لكن عليك باخذ اعتبار تاريخ الجهاز م / هـ)

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة: anoname
#7
استخدم 
label1.text = Now.Day
أو 
label1.text = Now.Day + 1

حسب ما تفكر به , لا اعلم بالضبط ما تعني
الرد }}}
تم الشكر بواسطة: anoname
#8

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

اليوم هو اليوم 12 من رمضان و غدا هو اليوم 13 من رمضان و الى اخره
هذه هي فكرة البرنامج
علما ان label6.text = 12 اذا كيف اجعل قيمة 12 تزداد ب1 كلما زدنا يوما واحدا
الرد }}}
تم الشكر بواسطة:
#9
اخى الكريم اليوم هو 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
قم بكتابة الارقام التى تريدها

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


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

تحياتى لك


الملفات المرفقة
.zip   Ramadan Fator.zip (الحجم : 141.55 ك ب / التحميلات : 28)
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة: anoname , anoname , sendbad100



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم