- Home ·
- Miscellaneous ·
- This code has one timer, three labels, three lines and one command button. This code runs a one min
This code has one timer, three labels, three lines and one command button. This code runs a one min
Anonymous
(267 Submissions)
Miscellaneous
VB 6.0
Unknown Difficulty
Tue 3rd December 2002
Mon 8th February 2021
This code has one timer, three labels, three lines and one command button. This code runs a one minute timer exactly.
Rate This code has one timer, three labels, three lines and one command button. This code runs a one min
(1(1 Vote))
(1(1 Vote))
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
Active Server Pages
Coding Standards
Complete Applications
Custom Controls
Data Structures
Databases / ADO
DDE
Debugging & Errors
DirectX
Encryption
Files / I/O
Games
Graphics
Internet / HTML
Jokes / Humor
Libraries
Math / Dates
Office / VBA
Miscellaneous
OOP
OLE / COM / ActiveX
Registry
Sound / MP3
String Manipulation
VB Enhancements
Windows API
Windows CE
System Services