تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تنفيذ هذا الكود بوقت أحدده انا
#1
السلام عليكم إخوتى
بخصوص موضوعى السابق هنا http://vb4arb.com/vb/showthread.php?tid=30227

الاخ ابراهيم حل الموضوع لكن باظهار رسالة ولما جيت اجرب الكود على هذا المشروع المرفق لم يعمل للأسف 
ولا أعلم ما السبب



وظيفة الكود اللى بالمشروع هو اظهار رسالة على الليبول من العناصر التى عليها تشيكد فقط
واريد أن يعمل بوقت أحدده انا من خلال اداة DateTimePicker 
الرد
تم الشكر بواسطة:
#2
السلام عليكم

بكل بساطه 
استخدم 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
والكود هيتفذ في الوقت المطلوب


الرد
#3
(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(rTrue)
 
                   CheckedListBox1.SetItemChecked(rFalse)
 
           
                    If Not 
(CheckedListBox1.Items.CountThen
                        GoTo GoToHere1
                    Else
                        GoTo GoToHere2
                    End 
If
 
               End If

 
           Next
            Button1
.Enabled True
            MsgBox
("DON")
 
           Timer1.Stop()
GoToHere1:
 
           Exit Sub
GoToHere2
:
 
       End If 
الرد
تم الشكر بواسطة:
#4
تفضل عدل المتغيرات والشرط فقط

PHP كود :
        Dim kk As Date DateTimePicker1.Value
        Dim gg 
As Date Now
        Dim result 
As Integer DateTime.Compare(ggkk)

        '  If gg = kk Then 

        If result = 0 Or result = 1 Then
            MsgBox("exx")
        End If 
الرد
تم الشكر بواسطة: ابراهيم ايبو , الرائد
#5
(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(ggkk)

        '  If gg = kk Then 

        If result = 0 Or result = 1 Then
            MsgBox("exx")
        End If 

لم ينفع أخى شكرا لك
الرد
تم الشكر بواسطة:
#6
السلام عليكم ورحمة الله وبركاته
اخي ابو روضة هذا مثال عملته مبدئيا على وجه السرعة فيه بعض الامور بحاجة الى تعديلات اجلتها الى وقت أخر 
وفيه قاعدة بيانات لحفظ  المواقيت (يكفي 7 سجلات  حتى لايطول شرط التحقق)
انتبه الى صيغة الوقت والتاريخ اترك الصيغة كما هي فقط عدل القيم بما تريد واحفظ التعديل (الثواني مطلوبة)
لاتحذف السجلات او اي سجل فقط عدل - واذا اضفت سجلا جديدا تجتاج الى تعريفه ووضعه في شرط التحقق في حدث التايمر .. 
جربه هكذا ثم ضع كود من عندك لتشغيل صوت او فيديو او كود بسيط  وتحقق
وان اعجبك العمل لاتنسني من الدعاء لوالدتي واختي
دمت بخير
ملاحظة: بعد التعدبل قم بالخروج من البرنامج ثم اعد التشغيل لتأخذ المتغيرات القيم الجديدة


الملفات المرفقة
.rar   EventWithTimer.rar (الحجم : 86 ك ب / التحميلات : 3)
الرد
تم الشكر بواسطة: ابو روضة
#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(ggkk)

        '  If gg = kk Then 

        If result = 0 Or result = 1 Then
            MsgBox("exx")
        End If 

لم ينفع أخى شكرا لك
 
الكود شغال 100% , حضرتك اكيد طبقت غلط ,
الرد
تم الشكر بواسطة: ابو روضة
#8
(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(ggkk)

        '  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 مساءا أو أى وقت أنا أحدده يعنى الموضوع مش محتاج
قاعدة بيانات أى أى شيئ أخر على ما أظن
الرد
تم الشكر بواسطة: ابراهيم ايبو
#9
اخي ابو روضة
ليست المشكلة كيف يتم التحقق من الشرط وعند تحققه ماذا ينفذ
لنفترض انك تريد تنفيذ كود ما في وقت تحدده وعندما ترغب بهذا سوف تضع قيمة او مجموعة قيم للتحقق منها
السؤال اين ستحفظ هذه القيم  قبل اغلاق البرنامج ؟ لانك عند تشغيل البرنامج مرة ثانية لن تجد تلك القيم 
ولن يجدها البرنامج ليقوم بعملية التحقق فإذا لم ترغب بحفظها قل لي مالحل؟
الرد
تم الشكر بواسطة: ابو روضة , ابو روضة
#10
(11-07-19, 01:08 AM)ابراهيم ايبو كتب :
اخي ابو روضة
ليست المشكلة كيف يتم التحقق من الشرط وعند تحققه ماذا ينفذ
لنفترض انك تريد تنفيذ كود ما في وقت تحدده وعندما ترغب بهذا سوف تضع قيمة او مجموعة قيم للتحقق منها
السؤال اين ستحفظ هذه القيم  قبل اغلاق البرنامج ؟ لانك عند تشغيل البرنامج مرة ثانية لن تجد تلك القيم 
ولن يجدها البرنامج ليقوم بعملية التحقق فإذا لم ترغب بحفظها قل لي مالحل؟

خلاص مش مهم يقوم بالحفظ أخى ابراهيم أريد فقط يتم نشره بوقت أحدده أنا
وجزاك الله كل خير
الرد
تم الشكر بواسطة: ابراهيم ايبو , ابراهيم ايبو



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


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