اقتباس المشاركة الأصلية كتبت بواسطة AMYM مشاهدة المشاركة
سؤال جديد

الان كنت ببرمج برنامج الساعه المؤقته ... ابرمجه بطريقه مبتداه المهم ...

لكن هناك شئ خاطئ ... فالبرنامج لا يعمل


لذا هذه هي الاكواد ... اخبروني اين الخطأ
أضف هذا الكود بداخل حدث تحميل الفورم Form Load
كود:
Private Sub Form_Load()
Label1.Caption = "0"
Label2.Caption = "0"
Label3.Caption = "0"
End Sub
وإستبدل كود الـ Timer الخاص بك بهذا الكود بعد التعديل ^_^
كود:
Private Sub Timer1_Timer()
If Not Timer1.Interval = 0 Then Label3.Caption = Val(Label3.Caption) + 1
        If Label3.Caption = "60" Then
            Label3.Caption = "0"
            Label2.Caption = Val(Label2.Caption) + 1
        ElseIf Label2.Caption = "60" Then
                Label2.Caption = "0"
                Label1.Caption = Val(Label1.Caption) + 1
        End If
End Sub