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

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

الصفحات: 1 2

تنفيذ هذا الكود بوقت أحدده انا - ابو روضة - 10-07-19

السلام عليكم إخوتى
بخصوص موضوعى السابق هنا http://vb4arb.com/vb/showthread.php?tid=30227

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

https://up.top4top.net/downloadf-1286haf9i1-rar.html


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


RE: تنفيذ هذا الكود بوقت أحدده انا - Eng.Ahmed Amen - 10-07-19

السلام عليكم

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




RE: تنفيذ هذا الكود بوقت أحدده انا - ابو روضة - 10-07-19

(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 


RE: تنفيذ هذا الكود بوقت أحدده انا - Eng.Ahmed Amen - 10-07-19

تفضل عدل المتغيرات والشرط فقط

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 


RE: تنفيذ هذا الكود بوقت أحدده انا - ابو روضة - 10-07-19

(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 

لم ينفع أخى شكرا لك

RE: تنفيذ هذا الكود بوقت أحدده انا - ابراهيم ايبو - 10-07-19

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


RE: تنفيذ هذا الكود بوقت أحدده انا - Eng.Ahmed Amen - 11-07-19

(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% , حضرتك اكيد طبقت غلط ,

RE: تنفيذ هذا الكود بوقت أحدده انا - ابو روضة - 11-07-19

(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 مساءا أو أى وقت أنا أحدده يعنى الموضوع مش محتاج
قاعدة بيانات أى أى شيئ أخر على ما أظن

RE: تنفيذ هذا الكود بوقت أحدده انا - ابراهيم ايبو - 11-07-19

اخي ابو روضة
ليست المشكلة كيف يتم التحقق من الشرط وعند تحققه ماذا ينفذ
لنفترض انك تريد تنفيذ كود ما في وقت تحدده وعندما ترغب بهذا سوف تضع قيمة او مجموعة قيم للتحقق منها
السؤال اين ستحفظ هذه القيم  قبل اغلاق البرنامج ؟ لانك عند تشغيل البرنامج مرة ثانية لن تجد تلك القيم 
ولن يجدها البرنامج ليقوم بعملية التحقق فإذا لم ترغب بحفظها قل لي مالحل؟


RE: تنفيذ هذا الكود بوقت أحدده انا - ابو روضة - 11-07-19

(11-07-19, 01:08 AM)ابراهيم ايبو كتب :
اخي ابو روضة
ليست المشكلة كيف يتم التحقق من الشرط وعند تحققه ماذا ينفذ
لنفترض انك تريد تنفيذ كود ما في وقت تحدده وعندما ترغب بهذا سوف تضع قيمة او مجموعة قيم للتحقق منها
السؤال اين ستحفظ هذه القيم  قبل اغلاق البرنامج ؟ لانك عند تشغيل البرنامج مرة ثانية لن تجد تلك القيم 
ولن يجدها البرنامج ليقوم بعملية التحقق فإذا لم ترغب بحفظها قل لي مالحل؟

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