السلام عليكم إخوتى
الاخ ابراهيم حل الموضوع لكن باظهار رسالة ولما جيت اجرب الكود على هذا المشروع المرفق لم يعمل للأسف
ولا أعلم ما السبب
وظيفة الكود اللى بالمشروع هو اظهار رسالة على الليبول من العناصر التى عليها تشيكد فقط
واريد أن يعمل بوقت أحدده انا من خلال اداة DateTimePicker
(10-07-19, 08:19 PM)Eng.Ahmed Amen كتب : [ -> ]السلام عليكم
بكل بساطه
استخدم DateTime Compare
PHP كود :
Dim date1 As Date = #10/7/2019 6:08PM#
Dim date2 As Date = Now ' التاريخ والوقت الحالي
Dim result As Integer = DateTime.Compare(date1, date2)
MsgBox(result)
شرح الكود
الداله Compare تقارن بين تاريخين.
وتعطي النتيجه علي هئيه Integer Number
اذا كانت النتيحه
اكبر من الصفر = يعني ان التاريخ الاول متأخر عن التاريخ الثاني <Earlier>
تساوي صفر = يعني ان التاريجين متساويين <Same>
اقل من الصفر = يعني ان التاريخ الاول متقدم عن التاريخ الثاني <Later>
..
نضع شرط if
والكود هيتفذ في الوقت المطلوب
بصراحة لم أفهم أخى معذررة
فأنا أريد تنفذه على هذا الكود أى لا يتم تنفيذه الا فى الوقت المحدد من خلال
DateTimePicker وهذه تجربتى
وللأسف لم تنجح
PHP كود :
Dim kk As String = DateTimePicker1.Value
Dim gg As Date = Now.ToString()
If gg = kk Then
For r As Integer = 0 To CheckedListBox1.Items.Count - 1
If CheckedListBox1.GetItemChecked(r) = True Then
CheckedListBox1.SetSelected(r, True)
CheckedListBox1.SetItemChecked(r, False)
If Not (r = CheckedListBox1.Items.Count) Then
GoTo GoToHere1
Else
GoTo GoToHere2
End If
End If
Next
Button1.Enabled = True
MsgBox("DON")
Timer1.Stop()
GoToHere1:
Exit Sub
GoToHere2:
End If
تفضل عدل المتغيرات والشرط فقط
PHP كود :
Dim kk As Date = DateTimePicker1.Value
Dim gg As Date = Now
Dim result As Integer = DateTime.Compare(gg, kk)
' If gg = kk Then
If result = 0 Or result = 1 Then
MsgBox("exx")
End If
السلام عليكم ورحمة الله وبركاته
اخي ابو روضة هذا مثال عملته مبدئيا على وجه السرعة فيه بعض الامور بحاجة الى تعديلات اجلتها الى وقت أخر
وفيه قاعدة بيانات لحفظ المواقيت (يكفي 7 سجلات حتى لايطول شرط التحقق)
انتبه الى صيغة الوقت والتاريخ اترك الصيغة كما هي فقط عدل القيم بما تريد واحفظ التعديل (الثواني مطلوبة)
لاتحذف السجلات او اي سجل فقط عدل - واذا اضفت سجلا جديدا تجتاج الى تعريفه ووضعه في شرط التحقق في حدث التايمر ..
جربه هكذا ثم ضع كود من عندك لتشغيل صوت او فيديو او كود بسيط وتحقق
وان اعجبك العمل لاتنسني من الدعاء لوالدتي واختي
دمت بخير
ملاحظة: بعد التعدبل قم بالخروج من البرنامج ثم اعد التشغيل لتأخذ المتغيرات القيم الجديدة
(10-07-19, 11:19 PM)ابو روضة كتب : [ -> ] (10-07-19, 10:54 PM)Eng.Ahmed Amen كتب : [ -> ]تفضل عدل المتغيرات والشرط فقط
PHP كود :
Dim kk As Date = DateTimePicker1.Value
Dim gg As Date = Now
Dim result As Integer = DateTime.Compare(gg, kk)
' If gg = kk Then
If result = 0 Or result = 1 Then
MsgBox("exx")
End If
لم ينفع أخى شكرا لك
الكود شغال 100% , حضرتك اكيد طبقت غلط ,
(10-07-19, 11:29 PM)ابراهيم ايبو كتب : [ -> ]السلام عليكم ورحمة الله وبركاته
اخي ابو روضة هذا مثال عملته مبدئيا على وجه السرعة فيه بعض الامور بحاجة الى تعديلات اجلتها الى وقت أخر
وفيه قاعدة بيانات لحفظ المواقيت (يكفي 7 سجلات حتى لايطول شرط التحقق)
انتبه الى صيغة الوقت والتاريخ اترك الصيغة كما هي فقط عدل القيم بما تريد واحفظ التعديل (الثواني مطلوبة)
لاتحذف السجلات او اي سجل فقط عدل - واذا اضفت سجلا جديدا تجتاج الى تعريفه ووضعه في شرط التحقق في حدث التايمر ..
جربه هكذا ثم ضع كود من عندك لتشغيل صوت او فيديو او كود بسيط وتحقق
وان اعجبك العمل لاتنسني من الدعاء لوالدتي واختي
دمت بخير
ملاحظة: بعد التعدبل قم بالخروج من البرنامج ثم اعد التشغيل لتأخذ المتغيرات القيم الجديدة
(11-07-19, 12:29 AM)Eng.Ahmed Amen كتب : [ -> ] (10-07-19, 11:19 PM)ابو روضة كتب : [ -> ] (10-07-19, 10:54 PM)Eng.Ahmed Amen كتب : [ -> ]تفضل عدل المتغيرات والشرط فقط
PHP كود :
Dim kk As Date = DateTimePicker1.Value
Dim gg As Date = Now
Dim result As Integer = DateTime.Compare(gg, kk)
' If gg = kk Then
If result = 0 Or result = 1 Then
MsgBox("exx")
End If
لم ينفع أخى شكرا لك
الكود شغال 100% , حضرتك اكيد طبقت غلط ,
جزاكم الله كل الخير إخوتى الكرام لكن انا فقط اريد تنفيذ هذا الكود بوقت أحدده انا
فهذا الكود موجود داخل التايمر أصلاً...
كود :
For r As Integer = 0 To CheckedListBox1.Items.Count - 1
If CheckedListBox1.GetItemChecked(r) = True Then
CheckedListBox1.SetSelected(r, True)
CheckedListBox1.SetItemChecked(r, False)
If Not (r = CheckedListBox1.Items.Count) Then
GoTo GoToHere1
Else
GoTo GoToHere2
End If
End If
Next
Button1.Enabled = True
MsgBox("DON")
Timer1.Stop()
GoToHere1:
Exit Sub
GoToHere2:
فقط أريد هذا الكود يعمل مثلا الساعة 11 مساءا أو أى وقت أنا أحدده يعنى الموضوع مش محتاج
قاعدة بيانات أى أى شيئ أخر على ما أظن
اخي ابو روضة
ليست المشكلة كيف يتم التحقق من الشرط وعند تحققه ماذا ينفذ
لنفترض انك تريد تنفيذ كود ما في وقت تحدده وعندما ترغب بهذا سوف تضع قيمة او مجموعة قيم للتحقق منها
السؤال اين ستحفظ هذه القيم قبل اغلاق البرنامج ؟ لانك عند تشغيل البرنامج مرة ثانية لن تجد تلك القيم
ولن يجدها البرنامج ليقوم بعملية التحقق فإذا لم ترغب بحفظها قل لي مالحل؟
(11-07-19, 01:08 AM)ابراهيم ايبو كتب : [ -> ]اخي ابو روضة
ليست المشكلة كيف يتم التحقق من الشرط وعند تحققه ماذا ينفذ
لنفترض انك تريد تنفيذ كود ما في وقت تحدده وعندما ترغب بهذا سوف تضع قيمة او مجموعة قيم للتحقق منها
السؤال اين ستحفظ هذه القيم قبل اغلاق البرنامج ؟ لانك عند تشغيل البرنامج مرة ثانية لن تجد تلك القيم
ولن يجدها البرنامج ليقوم بعملية التحقق فإذا لم ترغب بحفظها قل لي مالحل؟
خلاص مش مهم يقوم بالحفظ أخى ابراهيم أريد فقط يتم نشره بوقت أحدده أنا
وجزاك الله كل خير