by Joe Collins (1 Submission)
Category: Miscellaneous
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Fri 3rd September 2004
Date Added: Mon 8th February 2021
Rating: (1 Votes)
A useless peice of code that edits time.
Timer4.Enabled = True
Timer1.Enabled = False
Timer3.Enabled = False
Timer5.Enabled = False
End Sub
Private Sub Command2_Click()
Timer4.Enabled = False
Timer1.Enabled = False
Timer3.Enabled = False
Timer5.Enabled = True
End Sub
Private Sub Command3_Click()
Timer4.Enabled = False
Timer1.Enabled = True
Timer3.Enabled = False
Timer5.Enabled = False
End Sub
Private Sub Command4_Click()
Timer4.Enabled = False
Timer1.Enabled = False
Timer3.Enabled = True
Timer5.Enabled = False
End Sub
Private Sub Command5_Click()
Timer4.Enabled = False
Timer1.Enabled = False
Timer3.Enabled = False
Timer5.Enabled = False
End Sub
Private Sub Timer1_Timer()
cam = Int(cam) + 1
Label1.Caption = (cam3 & ":" & cam2 & ":" & cam)
If cam = 60 Then
cam = 0
cam2 = Int(cam2) + 1
ElseIf cam2 = 60 Then
cam2 = 0
cam3 = Int(cam3) + 1
ElseIf cam3 = 61 Then
cam3 = 0
End If
End Sub
Private Sub Timer3_Timer()
cam = Int(cam) + 1
Label1.Caption = (cam3 & ":" & cam2 & ":" & cam)
If cam = 60 Then
cam = 0
cam2 = Int(cam2) + 1
ElseIf cam2 = 60 Then
cam2 = 0
cam3 = Int(cam3) + 1
ElseIf cam3 = 61 Then
cam3 = 0
End If
End Sub
Private Sub Timer4_Timer()
cam = Int(cam) - 1
Label1.Caption = (cam3 & ":" & cam2 & ":" & cam)
If cam = 0 Then
cam = 60
cam2 = Int(cam2) - 1
ElseIf cam2 = 0 Then
cam2 = 60
cam3 = Int(cam3) - 1
ElseIf cam3 = -1 Then
cam3 = 60
End If
End Sub
Private Sub Timer5_Timer()
cam = Int(cam) + 1
Label1.Caption = (cam3 & ":" & cam2 & ":" & cam)
If cam = 60 Then
cam = 0
cam2 = Int(cam2) + 1
ElseIf cam2 = 60 Then
cam2 = 0
cam3 = Int(cam3) + 1
ElseIf cam3 = 61 Then
cam3 = 0
End If
End Sub
Private Sub Timer6_Timer()
clock.Caption = date & " " & Time
End Sub
Private Sub Timer7_Timer()
cam = Second(Time)
cam2 = Minute(Time)
cam3 = Hour(Time)
Timer7.Enabled = False
End Sub