Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub
Private Sub Command3_Click()
Dim timer
timer = Text4
Open App.Path & "\" + timer + ".txt" For Output As #1
Write #1,
Close #1
End Sub
Private Sub Command4_Click()
If alarm1.Text = Text1.Text And alarm2.Text = Text2.Text And alarm3.Text = Text3.Text Then play.Enabled = True
End Sub
Private Sub Command5_Click()
play.URL = Text6.Text
End Sub
Private Sub Form_Load()
End Sub
Private Sub Timer1_Timer()
Text3.Text = Text3.Text + 1
If Text3.Text = 60 Then
Text2.Text = Text2.Text + 1
Text3.Text = 0
If Text2.Text = 60 Then
Text1.Text = Text1.Text + 1
Text2.Text = 0
If alarm1.Text = Text1.Text And alarm2.Text = Text2.Text And alarm3.Text = Text3.Text Then play.Enabled = True
End If
End If
End Sub
Private Sub WindowsMediaPlayer1_OpenStateChange(ByVal NewState As Long)
End Sub
