Beginner
Date of registration: Mar 24th 2010
Location: Rockford, IL
Occupation: Freelancer, Inventor
Hobbies: Programming, Design, Engineering, Dancing, and anything else I find to be fun...
Source code |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
Timer1.Interval = 10 Label4.Caption = Val(Label4.Caption) + Val(1) If Label4.Caption = 60 Then Label3.Caption = Val(Label3.Caption) + Val(1) Label2.Caption = "0" If Label3.Caption = 60 Then Label2.Caption = Val(Label3.Caption) + Val(1) Label3.Caption = "0" If Label2.Caption = 60 Then Label1.Caption = Val(Label3.Caption) + Val(1) Label1.Caption = "0" End If End If End If |
Intermediate
Date of registration: Jan 1st 2009
Location: Hanover, Germany
Occupation: Software Engineer
Hobbies: Hilbert Curves
Jabaco Source |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 |
Public Sub Timer1_Timer() Debug.Print Now Label4.Caption = CInt(Label4.Caption) + 1 If Label4.Caption = 60 Then Label4.Caption = "0" Label3.Caption = CInt(Label3.Caption) + 1 If Label3.Caption = 60 Then Label3.Caption = "0" Label2.Caption = CInt(Label2.Caption) + 1 If Label2.Caption = 60 Then Label2.Caption = "0" Label1.Caption = CInt(Label1.Caption) + 1 End If End If End If End Sub |