by Anonymous (267 Submissions)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Tue 3rd December 2002
Date Added: Mon 8th February 2021
Rating: (1 Votes)
This code has one timer, three labels, three lines and one command button. This code runs a one minute timer exactly.
Dim k As Integer
Dim h(1 To 6) As Integer
Dim started As Boolean
Private Sub Command1_Click()
If started = False Then
k = 0
h(1) = 810
h(2) = 690
h(3) = 930
h(4) = 375 + 960
h(5) = 735 + 960
h(6) = 975 + 960
Timer1.Enabled = True
started = True
Command1.Caption = "&Stop"
Else
Timer1.Enabled = False
started = False
Command1.Caption = "&Start"
End If
End Sub
Private Sub Form_Load()
Line1.Y1 = 810
Line1.Y2 = 690
Line1.x1 = 375
Line1.x2 = 735
Line2.Y1 = 810
Line2.Y2 = 930
Line2.x1 = 375
Line2.x2 = 735
Line3.Y1 = 810
Line3.Y2 = 810
Line3.x1 = 375
Line3.x2 = 975
Command1.Left = 180
Command1.Top = 120
Label1.Top = 720
Label1.Left = 120
Label2.Top = 720
Label2.Left = 1080
Label3.Top = 6960
Label3.Left = -120
k = 0
h(1) = Line1.Y1
h(2) = Line1.Y2
h(3) = Line2.Y2
h(4) = Line1.x1 + 960
h(5) = Line1.x2 + 960
h(6) = Line3.x2 + 960
started = False
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Label3.Caption = k
If k = 0 Then
Line1.Y1 = h(1)
Line1.Y2 = h(2)
Line2.Y1 = h(1)
Line2.Y2 = h(3)
Line3.Y1 = h(1)
Line3.Y2 = h(1)
h(1) = h(1) + 210
h(2) = h(2) + 210
h(3) = h(3) + 210
ElseIf k = 1 Then
Line1.Y1 = h(1)
Line1.Y2 = h(2)
Line2.Y1 = h(1)
Line2.Y2 = h(3)
Line3.Y1 = h(1)
Line3.Y2 = h(1)
h(1) = h(1) + 210
h(2) = h(2) + 210
h(3) = h(3) + 210
ElseIf k = 2 Then
Line1.Y1 = h(1)
Line1.Y2 = h(2)
Line2.Y1 = h(1)
Line2.Y2 = h(3)
Line3.Y1 = h(1)
Line3.Y2 = h(1)
h(1) = h(1) + 210
h(2) = h(2) + 210
h(3) = h(3) + 210
ElseIf k = 3 Then
Line1.Y1 = h(1)
Line1.Y2 = h(2)
Line2.Y1 = h(1)
Line2.Y2 = h(3)
Line3.Y1 = h(1)
Line3.Y2 = h(1)
h(1) = h(1) + 210
h(2) = h(2) + 210
h(3) = h(3) + 210
ElseIf k = 4 Then
Line1.Y1 = h(1)
Line1.Y2 = h(2)
Line2.Y1 = h(1)
Line2.Y2 = h(3)
Line3.Y1 = h(1)
Line3.Y2 = h(1)
h(1) = h(1) + 210
h(2) = h(2) + 210
h(3) = h(3) + 210
ElseIf k = 5 Then
Line1.Y1 = h(1)
Line1.Y2 = h(2)
Line2.Y1 = h(1)
Line2.Y2 = h(3)
Line3.Y1 = h(1)
Line3.Y2 = h(1)
h(1) = h(1) + 210
h(2) = h(2) + 210
h(3) = h(3) + 210
ElseIf k = 6 Then
Line1.Y1 = h(1)
Line1.Y2 = h(2)
Line2.Y1 = h(1)
Line2.Y2 = h(3)
Line3.Y1 = h(1)
Line3.Y2 = h(1)
h(1) = h(1) + 210
h(2) = h(2) + 210
h(3) = h(3) + 210
ElseIf k = 7 Then
Line1.Y1 = h(1)
Line1.Y2 = h(2)
Line2.Y1 = h(1)
Line2.Y2 = h(3)
Line3.Y1 = h(1)
Line3.Y2 = h(1)
h(1) = h(1) + 210
h(2) = h(2) + 210
h(3) = h(3) + 210
ElseIf k = 8 Then
Line1.Y1 = h(1)
Line1.Y2 = h(2)
Line2.Y1 = h(1)
Line2.Y2 = h(3)
Line3.Y1 = h(1)
Line3.Y2 = h(1)
h(1) = h(1) + 210
h(2) = h(2) + 210
h(3) = h(3) + 210
ElseIf k = 9 Then
Line1.Y1 = h(1)
Line1.Y2 = h(2)
Line2.Y1 = h(1)
Line2.Y2 = h(3)
Line3.Y1 = h(1)
Line3.Y2 = h(1)
h(1) = h(1) + 210
h(2) = h(2) + 210
h(3) = h(3) + 210
ElseIf k = 10 Then
Line1.Y1 = h(1)
Line1.Y2 = h(2)
Line2.Y1 = h(1)
Line2.Y2 = h(3)
Line3.Y1 = h(1)
Line3.Y2 = h(1)
h(1) = h(1) + 210
h(2) = h(2) + 210
h(3) = h(3) + 210
ElseIf k = 11 Then
Line1.Y1 = h(1)
Line1.Y2 = h(2)
Line2.Y1 = h(1)
Line2.Y2 = h(3)
Line3.Y1 = h(1)
Line3.Y2 = h(1)
h(1) = h(1) + 210
h(2) = h(2) + 210
h(3) = h(3) + 210
ElseIf k = 12 Then
Line1.Y1 = h(1)
Line1.Y2 = h(2)
Line2.Y1 = h(1)
Line2.Y2 = h(3)
Line3.Y1 = h(1)
Line3.Y2 = h(1)
h(1) = h(1) + 210
h(2) = h(2) + 210
h(3) = h(3) + 210
ElseIf k = 13 Then
Line1.Y1 = h(1)
Line1.Y2 = h(2)
Line2.Y1 = h(1)
Line2.Y2 = h(3)
Line3.Y1 = h(1)
Line3.Y2 = h(1)
h(1) = h(1) + 210
h(2) = h(2) + 210
h(3) = h(3) + 210
ElseIf k = 14 Then
Line1.Y1 = h(1)
Line1.Y2 = h(2)
Line2.Y1 = h(1)
Line2.Y2 = h(3)
Line3.Y1 = h(1)
Line3.Y2 = h(1)
h(1) = h(1) + 210
h(2) = h(2) + 210
h(3) = h(3) + 210
ElseIf k = 15 Then
Line1.Y1 = h(1)
Line1.Y2 = h(2)
Line2.Y1 = h(1)
Line2.Y2 = h(3)
Line3.Y1 = h(1)
Line3.Y2 = h(1)
h(1) = h(1) + 210
h(2) = h(2) + 210
h(3) = h(3) + 210
ElseIf k = 16 Then
Line1.Y1 = h(1)
Line1.Y2 = h(2)
Line2.Y1 = h(1)
Line2.Y2 = h(3)
Line3.Y1 = h(1)
Line3.Y2 = h(1)
h(1) = h(1) + 210
h(2) = h(2) + 210
h(3) = h(3) + 210
ElseIf k = 17 Then
Line1.Y1 = h(1)
Line1.Y2 = h(2)
Line2.Y1 = h(1)
Line2.Y2 = h(3)
Line3.Y1 = h(1)
Line3.Y2 = h(1)
h(1) = h(1) + 210
h(2) = h(2) + 210
h(3) = h(3) + 210
ElseIf k = 18 Then
Line1.Y1 = h(1)
Line1.Y2 = h(2)
Line2.Y1 = h(1)
Line2.Y2 = h(3)
Line3.Y1 = h(1)
Line3.Y2 = h(1)
h(1) = h(1) + 210
h(2) = h(2) + 210
h(3) = h(3) + 210
ElseIf k = 19 Then
Line1.Y1 = h(1)
Line1.Y2 = h(2)
Line2.Y1 = h(1)
Line2.Y2 = h(3)
Line3.Y1 = h(1)
Line3.Y2 = h(1)
h(1) = h(1) + 210
h(2) = h(2) + 210
h(3) = h(3) + 210
ElseIf k = 20 Then
Line1.Y1 = h(1)
Line1.Y2 = h(2)
Line2.Y1 = h(1)
Line2.Y2 = h(3)
Line3.Y1 = h(1)
Line3.Y2 = h(1)
h(1) = h(1) + 210
h(2) = h(2) + 210
h(3) = h(3) + 210
ElseIf k = 21 Then
Line1.Y1 = h(1)
Line1.Y2 = h(2)
Line2.Y1 = h(1)
Line2.Y2 = h(3)
Line3.Y1 = h(1)
Line3.Y2 = h(1)
h(1) = h(1) + 210
h(2) = h(2) + 210
h(3) = h(3) + 210
ElseIf k = 22 Then
Line1.Y1 = h(1)
Line1.Y2 = h(2)
Line2.Y1 = h(1)
Line2.Y2 = h(3)
Line3.Y1 = h(1)
Line3.Y2 = h(1)
h(1) = h(1) + 210
h(2) = h(2) + 210
h(3) = h(3) + 210
ElseIf k = 23 Then
Line1.Y1 = h(1)
Line1.Y2 = h(2)
Line2.Y1 = h(1)
Line2.Y2 = h(3)
Line3.Y1 = h(1)
Line3.Y2 = h(1)
h(1) = h(1) + 210
h(2) = h(2) + 210
h(3) = h(3) + 210
ElseIf k = 24 Then
Line1.Y1 = h(1)
Line1.Y2 = h(2)
Line2.Y1 = h(1)
Line2.Y2 = h(3)
Line3.Y1 = h(1)
Line3.Y2 = h(1)
h(1) = h(1) + 210
h(2) = h(2) + 210
h(3) = h(3) + 210
ElseIf k = 25 Then
Line1.Y1 = h(1)
Line1.Y2 = h(2)
Line2.Y1 = h(1)
Line2.Y2 = h(3)
Line3.Y1 = h(1)
Line3.Y2 = h(1)
h(1) = h(1) + 210
h(2) = h(2) + 210
h(3) = h(3) + 210
ElseIf k = 26 Then
Line1.Y1 = h(1)
Line1.Y2 = h(2)
Line2.Y1 = h(1)
Line2.Y2 = h(3)
Line3.Y1 = h(1)
Line3.Y2 = h(1)
h(1) = h(1) + 210
h(2) = h(2) + 210
h(3) = h(3) + 210
ElseIf k = 27 Then
Line1.Y1 = h(1)
Line1.Y2 = h(2)
Line2.Y1 = h(1)
Line2.Y2 = h(3)
Line3.Y1 = h(1)
Line3.Y2 = h(1)
h(1) = h(1) + 210
h(2) = h(2) + 210
h(3) = h(3) + 210
ElseIf k = 28 Then
Line1.Y1 = h(1)
Line1.Y2 = h(2)
Line2.Y1 = h(1)
Line2.Y2 = h(3)
Line3.Y1 = h(1)
Line3.Y2 = h(1)
h(1) = h(1) + 210
h(2) = h(2) + 210
h(3) = h(3) + 210
ElseIf k = 29 Then
Line1.Y1 = h(1)
Line1.Y2 = h(2)
Line2.Y1 = h(1)
Line2.Y2 = h(3)
Line3.Y1 = h(1)
Line3.Y2 = h(1)
h(1) = h(1) + 210
h(2) = h(2) + 210
h(3) = h(3) + 210
ElseIf k = 30 Then
Line1.Y1 = h(1)
Line1.Y2 = h(2)
Line2.Y1 = h(1)
Line2.Y2 = h(3)
Line3.Y1 = h(1)
Line3.Y2 = h(1)
h(1) = h(1) + 210
h(2) = h(2) + 210
h(3) = h(3) + 210
ElseIf k = 31 Then
Line1.Y1 = 810
Line1.Y2 = 690
Line2.Y1 = 810
Line2.Y2 = 930
Line3.Y1 = 810
Line3.Y2 = 810
Line1.x1 = h(4)
Line1.x2 = h(5)
Line2.x1 = h(4)
Line2.x2 = h(5)
Line3.x1 = h(4)
Line3.x2 = h(6)
h(1) = Line1.Y1
h(2) = Line1.Y2
h(3) = Line2.Y2
h(1) = h(1) + 210
h(2) = h(2) + 210
h(3) = h(3) + 210
ElseIf k = 32 Then
Line1.Y1 = h(1)
Line1.Y2 = h(2)
Line2.Y1 = h(1)
Line2.Y2 = h(3)
Line3.Y1 = h(1)
Line3.Y2 = h(1)
h(1) = h(1) + 210
h(2) = h(2) + 210
h(3) = h(3) + 210
ElseIf k = 33 Then
Line1.Y1 = h(1)
Line1.Y2 = h(2)
Line2.Y1 = h(1)
Line2.Y2 = h(3)
Line3.Y1 = h(1)
Line3.Y2 = h(1)
h(1) = h(1) + 210
h(2) = h(2) + 210
h(3) = h(3) + 210
ElseIf k = 34 Then
Line1.Y1 = h(1)
Line1.Y2 = h(2)
Line2.Y1 = h(1)
Line2.Y2 = h(3)
Line3.Y1 = h(1)
Line3.Y2 = h(1)
h(1) = h(1) + 210
h(2) = h(2) + 210
h(3) = h(3) + 210
ElseIf k = 35 Then
Line1.Y1 = h(1)
Line1.Y2 = h(2)
Line2.Y1 = h(1)
Line2.Y2 = h(3)
Line3.Y1 = h(1)
Line3.Y2 = h(1)
h(1) = h(1) + 210
h(2) = h(2) + 210
h(3) = h(3) + 210
ElseIf k = 36 Then
Line1.Y1 = h(1)
Line1.Y2 = h(2)
Line2.Y1 = h(1)
Line2.Y2 = h(3)
Line3.Y1 = h(1)
Line3.Y2 = h(1)
h(1) = h(1) + 210
h(2) = h(2) + 210
h(3) = h(3) + 210
ElseIf k = 37 Then
Line1.Y1 = h(1)
Line1.Y2 = h(2)
Line2.Y1 = h(1)
Line2.Y2 = h(3)
Line3.Y1 = h(1)
Line3.Y2 = h(1)
h(1) = h(1) + 210
h(2) = h(2) + 210
h(3) = h(3) + 210
ElseIf k = 38 Then
Line1.Y1 = h(1)
Line1.Y2 = h(2)
Line2.Y1 = h(1)
Line2.Y2 = h(3)
Line3.Y1 = h(1)
Line3.Y2 = h(1)
h(1) = h(1) + 210
h(2) = h(2) + 210
h(3) = h(3) + 210
ElseIf k = 39 Then
Line1.Y1 = h(1)
Line1.Y2 = h(2)
Line2.Y1 = h(1)
Line2.Y2 = h(3)
Line3.Y1 = h(1)
Line3.Y2 = h(1)
h(1) = h(1) + 210
h(2) = h(2) + 210
h(3) = h(3) + 210
ElseIf k = 40 Then
Line1.Y1 = h(1)
Line1.Y2 = h(2)
Line2.Y1 = h(1)
Line2.Y2 = h(3)
Line3.Y1 = h(1)
Line3.Y2 = h(1)
h(1) = h(1) + 210
h(2) = h(2) + 210
h(3) = h(3) + 210
ElseIf k = 41 Then
Line1.Y1 = h(1)
Line1.Y2 = h(2)
Line2.Y1 = h(1)
Line2.Y2 = h(3)
Line3.Y1 = h(1)
Line3.Y2 = h(1)
h(1) = h(1) + 210
h(2) = h(2) + 210
h(3) = h(3) + 210
ElseIf k = 42 Then
Line1.Y1 = h(1)
Line1.Y2 = h(2)
Line2.Y1 = h(1)
Line2.Y2 = h(3)
Line3.Y1 = h(1)
Line3.Y2 = h(1)
h(1) = h(1) + 210
h(2) = h(2) + 210
h(3) = h(3) + 210
ElseIf k = 43 Then
Line1.Y1 = h(1)
Line1.Y2 = h(2)
Line2.Y1 = h(1)
Line2.Y2 = h(3)
Line3.Y1 = h(1)
Line3.Y2 = h(1)
h(1) = h(1) + 210
h(2) = h(2) + 210
h(3) = h(3) + 210
ElseIf k = 44 Then
Line1.Y1 = h(1)
Line1.Y2 = h(2)
Line2.Y1 = h(1)
Line2.Y2 = h(3)
Line3.Y1 = h(1)
Line3.Y2 = h(1)
h(1) = h(1) + 210
h(2) = h(2) + 210
h(3) = h(3) + 210
ElseIf k = 45 Then
Line1.Y1 = h(1)
Line1.Y2 = h(2)
Line2.Y1 = h(1)
Line2.Y2 = h(3)
Line3.Y1 = h(1)
Line3.Y2 = h(1)
h(1) = h(1) + 210
h(2) = h(2) + 210
h(3) = h(3) + 210
ElseIf k = 46 Then
Line1.Y1 = h(1)
Line1.Y2 = h(2)
Line2.Y1 = h(1)
Line2.Y2 = h(3)
Line3.Y1 = h(1)
Line3.Y2 = h(1)
h(1) = h(1) + 210
h(2) = h(2) + 210
h(3) = h(3) + 210
ElseIf k = 47 Then
Line1.Y1 = h(1)
Line1.Y2 = h(2)
Line2.Y1 = h(1)
Line2.Y2 = h(3)
Line3.Y1 = h(1)
Line3.Y2 = h(1)
h(1) = h(1) + 210
h(2) = h(2) + 210
h(3) = h(3) + 210
ElseIf k = 48 Then
Line1.Y1 = h(1)
Line1.Y2 = h(2)
Line2.Y1 = h(1)
Line2.Y2 = h(3)
Line3.Y1 = h(1)
Line3.Y2 = h(1)
h(1) = h(1) + 210
h(2) = h(2) + 210
h(3) = h(3) + 210
ElseIf k = 49 Then
Line1.Y1 = h(1)
Line1.Y2 = h(2)
Line2.Y1 = h(1)
Line2.Y2 = h(3)
Line3.Y1 = h(1)
Line3.Y2 = h(1)
h(1) = h(1) + 210
h(2) = h(2) + 210
h(3) = h(3) + 210
ElseIf k = 50 Then
Line1.Y1 = h(1)
Line1.Y2 = h(2)
Line2.Y1 = h(1)
Line2.Y2 = h(3)
Line3.Y1 = h(1)
Line3.Y2 = h(1)
h(1) = h(1) + 210
h(2) = h(2) + 210
h(3) = h(3) + 210
ElseIf k = 51 Then
Line1.Y1 = h(1)
Line1.Y2 = h(2)
Line2.Y1 = h(1)
Line2.Y2 = h(3)
Line3.Y1 = h(1)
Line3.Y2 = h(1)
h(1) = h(1) + 210
h(2) = h(2) + 210
h(3) = h(3) + 210
ElseIf k = 52 Then
Line1.Y1 = h(1)
Line1.Y2 = h(2)
Line2.Y1 = h(1)
Line2.Y2 = h(3)
Line3.Y1 = h(1)
Line3.Y2 = h(1)
h(1) = h(1) + 210
h(2) = h(2) + 210
h(3) = h(3) + 210
ElseIf k = 53 Then
Line1.Y1 = h(1)
Line1.Y2 = h(2)
Line2.Y1 = h(1)
Line2.Y2 = h(3)
Line3.Y1 = h(1)
Line3.Y2 = h(1)
h(1) = h(1) + 210
h(2) = h(2) + 210
h(3) = h(3) + 210
ElseIf k = 54 Then
Line1.Y1 = h(1)
Line1.Y2 = h(2)
Line2.Y1 = h(1)
Line2.Y2 = h(3)
Line3.Y1 = h(1)
Line3.Y2 = h(1)
h(1) = h(1) + 210
h(2) = h(2) + 210
h(3) = h(3) + 210
ElseIf k = 55 Then
Line1.Y1 = h(1)
Line1.Y2 = h(2)
Line2.Y1 = h(1)
Line2.Y2 = h(3)
Line3.Y1 = h(1)
Line3.Y2 = h(1)
h(1) = h(1) + 210
h(2) = h(2) + 210
h(3) = h(3) + 210
ElseIf k = 56 Then
Line1.Y1 = h(1)
Line1.Y2 = h(2)
Line2.Y1 = h(1)
Line2.Y2 = h(3)
Line3.Y1 = h(1)
Line3.Y2 = h(1)
h(1) = h(1) + 210
h(2) = h(2) + 210
h(3) = h(3) + 210
ElseIf k = 57 Then
Line1.Y1 = h(1)
Line1.Y2 = h(2)
Line2.Y1 = h(1)
Line2.Y2 = h(3)
Line3.Y1 = h(1)
Line3.Y2 = h(1)
h(1) = h(1) + 210
h(2) = h(2) + 210
h(3) = h(3) + 210
ElseIf k = 58 Then
Line1.Y1 = h(1)
Line1.Y2 = h(2)
Line2.Y1 = h(1)
Line2.Y2 = h(3)
Line3.Y1 = h(1)
Line3.Y2 = h(1)
h(1) = h(1) + 210
h(2) = h(2) + 210
h(3) = h(3) + 210
ElseIf k = 59 Then
Line1.Y1 = h(1)
Line1.Y2 = h(2)
Line2.Y1 = h(1)
Line2.Y2 = h(3)
Line3.Y1 = h(1)
Line3.Y2 = h(1)
h(1) = h(1) + 210
h(2) = h(2) + 210
h(3) = h(3) + 210
ElseIf k = 60 Then
Line1.Y1 = h(1)
Line1.Y2 = h(2)
Line2.Y1 = h(1)
Line2.Y2 = h(3)
Line3.Y1 = h(1)
Line3.Y2 = h(1)
h(1) = h(1) + 210
h(2) = h(2) + 210
h(3) = h(3) + 210
Timer1.Enabled = False
started = False
Command1.Caption = "&Start"
End If
k = k + 1
End Sub
No comments have been posted about This code has one timer, three labels, three lines and one command button. This code runs a one min. Why not be the first to post a comment about This code has one timer, three labels, three lines and one command button. This code runs a one min.