ساعة توقيت

[علي المصري]

السلام عليكم ورحمة الله وبركاته

اريد فورم به ساعة توقيت عد تنازلي

أي يتم ضبطها مثلا على ساعة تبدأ في العد التنازلي مع اصدار صوت اخر نصف ساعة وربع ساعة

شكرا

[علي المصري]

up

[ابوخليل]

تفضل

صنعت لك ساعة بسيطة باسطر قليلة ومفهومة

Private Sub Form_Timer()
Label3.Caption = Label3.Caption - 1
If Label3.Caption = 0 Then
Label2.Caption = Label2.Caption - 1
Label3.Caption = 60
ElseIf Label2.Caption = 0 Then
Label1.Caption = Label1.Caption - 1
Label2.Caption = 60
ElseIf Label1.Caption = 0 Then
Me.TimerInterval = 0
End If
End Sub

بالنسبة للاحداث يمكنك وضعها ذاخل  كود المؤقت

لاحظ الشرط  الاخير  وهو حين يصل حقل الدقائق الى صفر  يقف المؤقت

ElseIf Label1.Caption = 0 Then
Me.TimerInterval = 0

يمكنك وضع شروط اخرى مثلا :  حين يصل حقل الدقائق الى رقم معين  يحدث صوت معين

عداد تنازلي.rar

[صالح حمادي]

جزاك الله كل خير يا أستاذ الأكسس كلها.

 

[علي المصري]

شكرا جزيلا اخي أبوخليل

جزاك الله خيرا وكل عام انتم بخير