سؤال في الوقت أريد أن تظهر لي رسالة كل ساعة كيف

مرحبا أخي الكريم:

لديك في الفيجوال بيسك أداة تحكم تدعى Timer يمكنها القيام بحدث كل مدة لا تتجاوز الدقيقة و الجزء منها.

لكن يمكننا استخدام هذه الأداة لهذا الغرض الذي طلبته.

نضيف متحول عام(يمكن الوصول إلى محتوياته من أي مكان داخل الفورم),ونضع أداة Timer فيه,ونضبطها

بحيث تعمل كل دقيقة(وذلك عن طريق جعل الخاصية Interval تساوي 60000 لأن كل المدة ممثلة بأجزاء الثانية حيث كل 1000

تساوي ما يقارب الثانية),ونضع داخلها كود يضيف للمتحول العام 1,وإذا كان المتحوال العام يساوي 60 فإنا نعيد قيمته إلى 1 وتظهر لك رسالة تعلمك بأنه قد مرت ساعة.

طريقة الإنشاء:

أنشىء فورم ضع فيه Timer وهو Timer1 واضبط الخاصية Interval واجعلها 60000(كي يعمل التايمر كل دقيقة),

ثم افتح الكود واكتب فيه مايلي:

Dim TS As Integer

Private Sub Form_Load()
On Error GoTo Fisub
Open "C:\tmp.tmp" For Input As 1
Input #1, TS
Close 1
Exit Sub
Fisub:
MsgBox "ربما كانت هذه أول مرة يعمل فيها هذا البيرنامج على هذا الحاسوب,سيبدأ البرنامج بعد الساعات بعد النقر على الزر موافق"
TS = 0
End Sub

Private Sub Form_Unload(Cancel As Integer)
Open "C:\tmp.tmp" For Output As 1
Write #1, TS
Close 1
End Sub

Private Sub Timer1_Timer()
TS = TS + 1
If TS = 60 Then
TS = 1
MsgBox "One hour did pass"
End If
End Sub

تلاحظ أن البرنامج عندما يبدأ يستعيد قيمة المتحول العام من ملف,وعندما ينتهي يخزن القيمة التي وصل إليها المتحول العام في نفس الملف.

ملاحظة: أنا لم أجرب الكود على مدة ساعة.

أثابك الله أخي دريد

بارك الله فيك وجعلة في ميزان حسناتك

هذا هو المطلوب حفظك الله من كل مكروه