تقييم الموضوع :
  • 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 ك ب / التحميلات : 10)
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد }}}
تم الشكر بواسطة: ابو روضة
#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)ابراهيم ايبو كتب :
اخي ابو روضة
ليست المشكلة كيف يتم التحقق من الشرط وعند تحققه ماذا ينفذ
لنفترض انك تريد تنفيذ كود ما في وقت تحدده وعندما ترغب بهذا سوف تضع قيمة او مجموعة قيم للتحقق منها
السؤال اين ستحفظ هذه القيم  قبل اغلاق البرنامج ؟ لانك عند تشغيل البرنامج مرة ثانية لن تجد تلك القيم 
ولن يجدها البرنامج ليقوم بعملية التحقق فإذا لم ترغب بحفظها قل لي مالحل؟

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ممكن حل المشكلة فى الكود التالي - من مشاركة استاذنا القدير / عبدالله الدوسري new_programer 4 169 02-03-24, 07:36 PM
آخر رد: new_programer
  ماهو حل هذا الخطأ في الكود melad2002 7 264 25-02-24, 12:25 AM
آخر رد: justforit
  كيفية تنفيذ امر عند التعليم على checkbox بالداتا جريد فيو heem1986 2 158 21-02-24, 01:37 AM
آخر رد: heem1986
  كيفية انشاء سكريبت لقاعدة بيانات من خلال الكود heem1986 1 193 20-02-24, 12:00 AM
آخر رد: Kamil
  كيفية تنفيذ أمر عرض بيانات من فورم ثان مصمم هاوي 7 329 19-02-24, 12:28 AM
آخر رد: مصمم هاوي
  تنفيذ كود عند حدوث تغيرات فى أحد جداول قاعد بيانات sql heem1986 2 247 16-02-24, 06:37 AM
آخر رد: عبدالله الدوسري
  مشكلة عدم اكتمال تنفيذ بسبب فصل الشبكة او التيار الكهربائي اثناء النتفيذ تناسيم 3 1,840 05-02-24, 10:04 PM
آخر رد: 01AHMED
  [VB.NET] أرغب فى استخدام هذا الكود بالتحديد على الإصدار 10 AmeenRashed 3 206 19-01-24, 12:42 PM
آخر رد: Taha Okla
  [VB.NET] ما الخطأ فى هذا الكود - كود البحث المتعدد Ashraf Elafify 7 464 27-12-23, 10:50 PM
آخر رد: Ashraf Elafify
  [VB.NET] اريد تعديل في الكود عند طباعة DGV abu_hisham7 1 431 03-12-23, 02:40 AM
آخر رد: abu_hisham7

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


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