• Home
 · 
• Miscellaneous
 · 
• A useless peice of code that edits time.

A useless peice of code that edits time.

A useless peice of code that edits time.

Rate A useless peice of code that edits time.

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

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