• Home
 · 
• Miscellaneous
 · 
• simple timer

simple timer

simple timer

Rate simple timer

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Private Sub CommandButton1_Click()
CommandButton1.Caption = "start timer"
l1 = sec
CommandButton1.Visible = False
GoSub sec1
sec1:
Dim PTime, start
    PTime = 1
    start = timer
    Do While timer < start + PTime
     
    DoEvents
    Loop
 sec = sec - 1
    GoSub sc
sc:
    
     If sec <= 0 Then
 sec = 0
 Beep
 MsgBox "timer stoped"
 Beep
 CommandButton1.Visible = True
 Else
  GoSub sec1
    End If
    
End Sub





Private Sub CommandButton4_Click()
End
End Sub



Private Sub CommandButton5_Click()
CommandButton1.Visible = True
CommandButton1.Caption = "restart timer"
t1.Hide

MsgBox "timer paused at " & sec & " seconds"
t1.Show
CommandButton1.Visible = True
CommandButton1.Caption = "restart timer"
End Sub