• Home
 · 
• Miscellaneous
 · 
• Timer that counts down from any number you wish

Timer that counts down from any number you wish

Timer that counts down from any number you wish

API Declarations


CommandButton called CommandButton1, CommandButton2, CommandButton3



Rate Timer that counts down from any number you wish

• 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 CommandButton3_Click()
End
End Sub



Private Sub CommandButton2_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