sscript program dibawah ini :
Dim alarm As Boolean
Private Sub Command1_Click()
If alarm = True Then
Timer2.Enabled = False
Command1.Caption = "Aktif"
alarm = False
Else
Command1.Caption = "Tidak Aktif"
alarm = True
End If
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
alarm = False
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Time
If Text1.Text = Label1.Caption And alarm = True Then
Timer2.Enabled = True
End If
End Sub
Private Sub Timer2_Timer()
Beep
End Sub
Flow Chartnya:
Hasil:
