• Home
 · 
• Miscellaneous
 · 
• Simple clock that beeps every hour

Simple clock that beeps every hour

Simple clock that beeps every hour

Rate Simple clock that beeps every hour

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

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