fbpx

Alarme

Alarme em Visual Basic

Option Explicit
Dim AlarmTime
Const conMinimized = 1

Private Sub Form_Click()
AlarmTime = InputBox(“Digite a hora”, “VB Alarme”, Hora de Alarme)
If AlarmTime = “” Then Exit Sub
If Not IsDate(AlarmTime) Then
MsgBox “Valor digitado inválido”
Else ‘ String válida,
AlarmTime = CDate(AlarmTime) ‘ Guarda o valor da hora em AlarmTime.
End If
End Sub

Private Sub Form_Load()
AlarmTime = “”
End Sub

Private Sub Form_Resize()
If WindowState = conMinimized Then ‘ Se o Form for minimizado mostra a hora em caption.
SetCaptionTime
Else
Caption = “Alarme”
End If
End Sub

Private Sub SetCaptionTime()
Caption = Format(Time, “Medium Time”) ‘ Mostra a hora usando o formato medium time.
End Sub

Private Sub Timer1_Timer()
Static AlarmSounded As Integer
If lblTime.Caption <> CStr(Time) Then
‘ é um segundo diferente do que aquele que é mostrado.
If Time >= AlarmTime And Not AlarmSounded Then
Beep 5000
MsgBox “Alarme as” & Time
AlarmSounded = True
ElseIf Time < AlarmTime Then
AlarmSounded = False
End If
If WindowState = conMinimized Then
‘ Se minimizado, então atualiza o Caption do Form a cada minuto.
If Minute(CDate(Caption)) <> Minute(Time) Then SetCaptionTime
Else
‘ Senão, atualiza Caption de lbltime do form a cada segundo.
lblTime.Caption = Time
End If
End If
End Sub

COMPARTILHE ISSO:

Share on facebook
Facebook
Share on twitter
Twitter
Share on linkedin
LinkedIn
Share on pinterest
Pinterest
Share on tumblr
Tumblr
Share on whatsapp
WhatsApp
Share on reddit
Reddit
Share on email
Email

Comentários

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

Esse site utiliza o Akismet para reduzir spam. Aprenda como seus dados de comentários são processados.