home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l405 / 1.ddi / ALARM.FR_ / ALARM.bin (.txt)
Encoding:
Visual Basic Form  |  1993-04-28  |  2.5 KB  |  77 lines
  1. VERSION 2.00
  2. Begin Form AlarmForm 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Alarm Clock"
  5.    Height          =   1200
  6.    Icon            =   ALARM.FRX:0000
  7.    Left            =   1170
  8.    LinkTopic       =   "Form2"
  9.    MaxButton       =   0   'False
  10.    ScaleHeight     =   795
  11.    ScaleWidth      =   3030
  12.    Top             =   1260
  13.    Width           =   3150
  14.    Begin Timer Timer1 
  15.       Interval        =   500
  16.       Left            =   2640
  17.       Top             =   120
  18.    End
  19.    Begin Label lblTime 
  20.       FontBold        =   -1  'True
  21.       FontItalic      =   0   'False
  22.       FontName        =   "MS Sans Serif"
  23.       FontSize        =   13.5
  24.       FontStrikethru  =   0   'False
  25.       FontUnderline   =   0   'False
  26.       Height          =   495
  27.       Left            =   120
  28.       TabIndex        =   0
  29.       Top             =   120
  30.       Width           =   2415
  31.    End
  32. Option Explicit
  33. Dim AlarmTime
  34. Const MINIMIZED = 1
  35. Sub Form_Click ()
  36.     AlarmTime = InputBox("Enter alarm time", "VB Alarm", AlarmTime)
  37.     If AlarmTime = "" Then Exit Sub
  38.     If Not IsDate(AlarmTime) Then
  39.         MsgBox "The time you entered was not valid."
  40.     Else                                ' String returned from InputBox is a valid time
  41.         AlarmTime = CVDate(AlarmTime)   ' so store as a date/time value in AlarmTime.
  42.     End If
  43. End Sub
  44. Sub Form_Load ()
  45.     AlarmTime = ""
  46. End Sub
  47. Sub Form_Resize ()
  48.     If WindowState = MINIMIZED Then     ' If form is minimized
  49.         SetCaptionTime                  ' display time in caption.
  50.     Else
  51.         Caption = "Alarm Clock"
  52.     End If
  53. End Sub
  54. Sub SetCaptionTime ()
  55.     Caption = Format(Time, "Medium Time")   ' Display time using medium time format.
  56. End Sub
  57. Sub Timer1_Timer ()
  58. Static AlarmSounded As Integer
  59.     If lblTime.Caption <> CStr(Time) Then
  60.         ' It's now a different second than the one displayed.
  61.         If Time >= AlarmTime And Not AlarmSounded Then
  62.             Beep
  63.             MsgBox "Alarm at " & Time
  64.             AlarmSounded = True
  65.         ElseIf Time < AlarmTime Then
  66.             AlarmSounded = False
  67.         End If
  68.         If WindowState = MINIMIZED Then
  69.             'If minimized then update form Caption every minute
  70.             If Minute(CVDate(Caption)) <> Minute(Time) Then SetCaptionTime
  71.         Else
  72.             'Else update label Caption every second
  73.             lblTime.Caption = Time
  74.         End If
  75.     End If
  76. End Sub
  77.