أهلا وسهلا بخطوة خطوة سنتعلم كيفية إنشاء ساعة توقيت بسيطة ..... سنقوم بفتح مشروع جديد ثم نضع عليها ادوات و ذلك عن طريق الخطوات التالية:

1. إنشاء 3 أداة تسمية  Label1 , Label2, Label3 .
2. تغيير نص هذه التسميات إلى الرقم 0.
3. إنشاء زر بدء / إيقاف يسمى btnStart.
4. إنشاء زر خروج يسمىbtnExit.
5. وأخيرا، وضع أداة توقيت باسم tmrTime. وتأكد من تغيير الفاصل الزمني الموقت إلى 1000 لتمثيل 1 ثانية.

ثم نقوم بكتابة الاكواد التالية :

 أول كود سيكون فى زر بدء / إيقاف. هذا الرمز يعني إذا لم يتم تشغيل الموقت تلقائيا، وهذا بدء تشغيله.....على النحو التالى :

الكود:

Private Sub btnStart_Click()
If tmrTime.Enabled = False Then
tmrTime.Enabled = True
Else
tmrTime.Enabled = False
End If
End Sub

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

الكود:

Private Sub tmrTime_timer()
Label3.Caption = Val(Label3.Caption) + Val(1)
If Label3.Caption = 60 Then
Label2.Caption = Val(Label2.Caption) + Val(1)
Label3.Caption = 0
ElseIf Label2.Caption = 60 Then
Label1.Caption = Val(Label1.Caption) + Val(1)
Label2.Caption = 0
End If
End Sub

والهدف من الكود السابق تغير الوقت تدريجي بمعنى إضافة تدريجيا على 1 ثانية وعندما يصل إلى 60 ثانية، سوف تبدأ التسمية دقيقة. هذا هو نفسه بالنسبة لتسمية ساعة.
فى حدث التحميل للنافذة نكتب الكود التالى :

الكود:

Private Sub Form_Load()
tmrTime.Enabled = False
End Sub

جزاك الله خيرا...........ولكنك نسيت كود زر الخروج.