by Eric Heier (1 Submission)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sun 28th March 2004
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Simple clock that beeps every hour
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Time
If Label1.Caption = "12:00:00 AM" Then Beep
If Label1.Caption = "1:00:00 AM" Then Beep
If Label1.Caption = "2:00:00 AM" Then Beep
If Label1.Caption = "3:00:00 AM" Then Beep
If Label1.Caption = "4:00:00 AM" Then Beep
If Label1.Caption = "5:00:00 AM" Then Beep
If Label1.Caption = "6:00:00 AM" Then Beep
If Label1.Caption = "7:00:00 AM" Then Beep
If Label1.Caption = "8:00:00 AM" Then Beep
If Label1.Caption = "9:00:00 AM" Then Beep
If Label1.Caption = "10:00:00 AM" Then Beep
If Label1.Caption = "11:00:00 AM" Then Beep
If Label1.Caption = "12:00:00 PM" Then Beep
If Label1.Caption = "1:00:00 PM" Then Beep
If Label1.Caption = "2:00:00 PM" Then Beep
If Label1.Caption = "3:00:00 PM" Then Beep
If Label1.Caption = "4:00:00 PM" Then Beep
If Label1.Caption = "5:00:00 PM" Then Beep
If Label1.Caption = "6:00:00 PM" Then Beep
If Label1.Caption = "7:00:00 PM" Then Beep
If Label1.Caption = "8:00:00 PM" Then Beep
If Label1.Caption = "9:00:00 PM" Then Beep
If Label1.Caption = "10:00:00 PM" Then Beep
If Label1.Caption = "11:00:00 PM" Then Beep
End Sub