• Home
 · 
• Miscellaneous
 · 
• ALARAM CLOCK

ALARAM CLOCK

ALARAM CLOCK

API Declarations


Option Explicit
Dim Time$
Dim f As Boolean



Rate ALARAM CLOCK

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

'on approaching the given time it will give beep sound till user clicks 
'on stop button.

Private Sub settimebutton_Click()
On Error GoTo 0

If Not IsDate(Text1) Or Trim(Text1) < Format(Now, "hh:mm:ss") Then
Text1.Text = ""
Text1.SetFocus
Exit Sub
Else
Text1.Enabled = False
Timer1.Enabled = True
f = True
settimebutton.Enabled = False
End If

End Sub

Private Sub stopbutton_Click()
Timer1.Enabled = False
Text1.Enabled = True
Text1.Text = ""
Text1.SetFocus
f = False
stopbutton.Enabled = False
settimebutton.Enabled = True

End Sub



Private Sub Command4_Click()
Beep
End Sub


Private Sub Form_Load()
Timer1.Enabled = False
StatusBar1.Panels(2) = Format(Date, "dd/mm/yyyy")
End Sub

Private Sub Text1_gotfocus()
StatusBar1.Panels(1) = "Deba's Alaram"
End Sub

Private Sub Timer1_Timer()
Time$ = Format(Now, "hh:mm:ss")
 If (Time$ > CDate(Text1.Text) And f) Then
        stopbutton.Enabled = True
        Beep
       
    End If
    
      
End Sub

Private Sub Timer2_Timer()
curtimelabel.Caption = Format(Now, "hh:mm:ss")

End Sub