by Adam Melton (5 Submissions)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Thu 3rd February 2005
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Alarm Clock. Enter time for alarm and messagebox will appear with userdefined message. Up to five different times/alarms can be entered. Can
'label1 is the current time
'text1 is the time for the alarm
'text2 is the date for the alarm
'text3 is the message to appear for the alarm
'note: make text3 big enough for any message.
'command buttons are named on startup
'note alarm will only work while program is running duh
Dim AlarmSetting1 As String
Dim AlarmSetting2 As String
Dim AlarmSetting3 As String
Dim AlarmSetting4 As String
Dim AlarmSetting5 As String
Dim AlarmMessage1 As String
Dim AlarmMessage2 As String
Dim AlarmMessage3 As String
Dim AlarmMessage4 As String
Dim AlarmMessage5 As String
Private Sub Command1_Click()
Me.Visible = False
End Sub
Private Sub Command2_Click()
SaveSetting "AlarmClock", "Setting", "Alarm1", "0"
SaveSetting "AlarmClock", "Setting", "Alarm2", "0"
SaveSetting "AlarmClock", "Setting", "Alarm3", "0"
SaveSetting "AlarmClock", "Setting", "Alarm4", "0"
SaveSetting "AlarmClock", "Setting", "Alarm5", "0"
End Sub
Private Sub Command3_Click()
If AlarmSetting1 = "0" Then
SaveSetting "AlarmClock", "Setting", "Alarm1", Text1.Text & Text2.Text
SaveSetting "AlarmClock", "Setting", "Message1", Text3.Text
ElseIf AlarmSetting2 = "0" Then
SaveSetting "AlarmClock", "Setting", "Alarm2", Text1.Text & Text2.Text
SaveSetting "AlarmClock", "Setting", "Message2", Text3.Text
ElseIf AlarmSetting3 = "0" Then
SaveSetting "AlarmClock", "Setting", "Alarm3", Text1.Text & Text2.Text
SaveSetting "AlarmClock", "Setting", "Message3", Text3.Text
ElseIf AlarmSetting4 = "0" Then
SaveSetting "AlarmClock", "Setting", "Alarm4", Text1.Text & Text2.Text
SaveSetting "AlarmClock", "Setting", "Message4", Text3.Text
ElseIf AlarmSetting5 = "0" Then
SaveSetting "AlarmClock", "Setting", "Alarm5", Text1.Text & Text2.Text
SaveSetting "AlarmClock", "Setting", "Message5", Text3.Text
Else
MsgBox "I'm Sorry All Alarm Slots Are Full"
End If
End Sub
Private Sub Form_Load()
Text1.Text = Time
Text2.Text = Date
AlarmClock.BackColor = vbBlack
Label1.BackColor = vbBlack
Label2.BackColor = vbBlack
Label3.BackColor = vbBlack
Label1.ForeColor = vbYellow
Label2.ForeColor = vbYellow
Label3.ForeColor = vbYellow
Command1.Caption = "Hide Me"
Command2.Caption = "Clear all Entries"
Command3.Caption = "OK"
Me.Caption = "Alarm Clock"
AlarmSetting1 = GetSetting("AlarmClock", "Setting", "Alarm1", "0")
AlarmSetting2 = GetSetting("AlarmClock", "Setting", "Alarm2", "0")
AlarmSetting3 = GetSetting("AlarmClock", "Setting", "Alarm3", "0")
AlarmSetting4 = GetSetting("AlarmClock", "Setting", "Alarm4", "0")
AlarmSetting5 = GetSetting("AlarmClock", "Setting", "Alarm5", "0")
AlarmMessage1 = GetSetting("AlarmClock", "Setting", "Message1", "0")
AlarmMessage2 = GetSetting("AlarmClock", "Setting", "Message2", "0")
AlarmMessage3 = GetSetting("AlarmClock", "Setting", "Message3", "0")
AlarmMessage4 = GetSetting("AlarmClock", "Setting", "Message4", "0")
AlarmMessage5 = GetSetting("AlarmClock", "Setting", "Message5", "0")
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Time & vbCrLf & Date
AlarmSetting1 = GetSetting("AlarmClock", "Setting", "Alarm1", "0")
AlarmSetting2 = GetSetting("AlarmClock", "Setting", "Alarm2", "0")
AlarmSetting3 = GetSetting("AlarmClock", "Setting", "Alarm3", "0")
AlarmSetting4 = GetSetting("AlarmClock", "Setting", "Alarm4", "0")
AlarmSetting5 = GetSetting("AlarmClock", "Setting", "Alarm5", "0")
AlarmMessage1 = GetSetting("AlarmClock", "Setting", "Message1", "0")
AlarmMessage2 = GetSetting("AlarmClock", "Setting", "Message2", "0")
AlarmMessage3 = GetSetting("AlarmClock", "Setting", "Message3", "0")
AlarmMessage4 = GetSetting("AlarmClock", "Setting", "Message4", "0")
AlarmMessage5 = GetSetting("AlarmClock", "Setting", "Message5", "0")
If Time = AlarmSetting1 Then
Beep
MsgBox AlarmMessage1
Me.Visible = True
ElseIf Time & Date = AlarmSetting2 Then
Beep
MsgBox AlarmMessage2
Me.Visible = True
ElseIf Time & Date = AlarmSetting3 Then
Beep
MsgBox AlarmMessage3
Me.Visible = True
ElseIf Time & Date = AlarmSetting4 Then
Beep
MsgBox AlarmMessage4
Me.Visible = True
ElseIf Time & Date = AlarmSetting5 Then
Beep
MsgBox AlarmMessage5
Me.Visible = True
End If
End Sub
No comments have been posted about Alarm Clock. Enter time for alarm and messagebox will appear with userdefined message. Up to five d. Why not be the first to post a comment about Alarm Clock. Enter time for alarm and messagebox will appear with userdefined message. Up to five d.