استفسار بسيط

[المسلم الصغير 1]

السلام عليكم 

 

انا لدى برنامج اريد فى الساعة التاسعة و30 دفيقة مثلا اظهار رسالة فيها "موعد صلاة العشاء"

 

وقمت بادراج هذا الكود فى form تحت الحدث load

 

 

Timer1.Interval = 1000

 

وهذا الكود فى Timer

 

 

("Label1.Caption = Format(Time, "HH:mm:ss AM/PM

 

If Label1.Caption = Format(Time, "09:35:00 PM") Then

 

MsgBox "حان موعد صلاة العشاء"

 

End If

 

لكن الرسالة لاتظهر

 

مع العلم انى لوكتبت الوقت If Label1.Caption = Format(Time, "HH:00:00 PM") Then

 

تظهر الرسالة على راس كل ساعة

 

سؤال آخر

هل استطيع جعل البرنامج يعمل بمجرد بدء الwindows

جزاكم الله خيرا وآسف على الاطالة 

 

 

[المسلم الصغير 1]

 

 

تم تعديل 13 Jun 2014 بواسطه المسلم الصغير

[AGASHE 43]

البرنامج  يعمل  اخي  بشكل  جيد  و  لا  ارى  فيه  اي  مشكلة

 

ما  هي  قيمة  interval   لاداة  التايمر  التي  وضعتها  ؟؟

 

بالنسبة  للتشغيل  مع بداية  windows    فيمكنك  عملها  ببرنامج   setup facrory  

 

او شوف  المثال  في المرفقات

[AGASHE 43]

الملف  في المرفقات

مثال تشغيل.rar

[المسلم الصغير 1]

السلام عليكم

جزاك الله خيرا

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

وقد ارفقت صورة  للاكواد ارجو ان تراجعها وتنبهنى اذا كان بها اخطاء

 

تم تعديل 18 Jun 2014 بواسطه المسلم الصغير

[AGASHE 43]

اخي  الفاضل  بدل  كتابة 

 

format (time,"12:5:20:pm")

 

جرب  تكتب  مباشرة    في    عبارة  الشرط   

 

"12:5:20"

 

و  شوف  الناتج

[المسلم الصغير 1]

جزاك الله خيرا

 

الكود يعمل جيدا بهذه الطريقة