• Home
 · 
• Jokes/Humor
 · 
• A little clock that sits on your desktop

A little clock that sits on your desktop

This gives the code for a little arlarm clock that sits on your desktop. The soul purpose of this application is to give the current time. Very Simple.

Inputs
1 timer- Interval 500 and name timer 1

Rate A little clock that sits on your desktop

• 1
• 2
• 3
• 4
• 5

(5(5 Vote))

I(n the form itself enter this code:
Private Sub Form_Click()
  AlarmTime = InputBox("Enter alarm time", "VB Alarm", AlarmTime)
  If AlarmTime = "" Then Exit Sub
  If Not IsDate(AlarmTime) Then
    MsgBox "The time you entered was not valid."
  Else                  ' String returned from InputBox is a valid time,
    AlarmTime = CDate(AlarmTime)    ' so store it as a date/time value in AlarmTime.
  End If
End Sub

**********In the timer enter this code:*****************
Private Sub Timer1_Timer()
Static AlarmSounded As Integer
  If lblTime.Caption <> CStr(Time) Then
    ' It's now a different second than the one displayed.
    If Time >= AlarmTime And Not AlarmSounded Then
      Beep
      MsgBox "Alarm at " & Time
      AlarmSounded = True
    ElseIf Time < AlarmTime Then
      AlarmSounded = False
    End If
    If WindowState = conMinimized Then
      ' If minimized, then update the form's Caption every minute.
      If Minute(CDate(Caption)) <> Minute(Time) Then SetCaptionTime
    Else
      ' Otherwise, update the label Caption in the form every second.
      lblTime.Caption = Time
    End If
  End If
End Sub