Aprendendo a trabalhar com o Timer no Visual Basic 6

Este artigo mostra a quem está iniciando o aprendizado em VB6 como usar o Timer através da construção de uma alarme.

por Equipe Linha de Código

Crie um formulário com um Label, um CommandButton e um Timer de acordo com a figura abaixo:

Figura 1

Configure agora as seguintes propriedades:

Observação: o ícone acima será encontrado em C:\Arquivos de programas\Microsoft Visual Studio\Common\Graphics\Icons\Misc

Em General Declarations crie a variável Despertar:

Dim Despertar "Declara a  variável Despertar disponível para todas as rotinas

No evento Form_Load, declare o valor inicial da variável Despertar:

Private Sub Form_Load()
    Despertar = ""
End Sub

Configure o evento Click do componente CmdAlarme:

Private Sub CmdAlarme_Click()
    Despertar = InputBox("Digite a hora desejada:", "Meu Alarme", Despertar)
    If Despertar = "" Then Exit Sub "Se não houver nenhuma hora digitada, a sub é encerrada
    If Not IsDate(Despertar) Then "Testa se o valor digitado corresponde a uma hora válida
        MsgBox "Hora inválida."
    Else
        Despertar = CDate(Despertar) "Armazena o valor da hora no formato de hora
    End If
End Sub

Configure o evento Timer do componente Timer1:

Private Sub Timer1_Timer()
    Static JaDespertou As Integer
    If LblHora.Caption <> CStr(Time) Then
        If Time >= Despertar And Not JaDespertou Then
            "Cada lembrete só é dado uma vez
            Beep
            MsgBox "Alarme " & Time
            JaDespertou = True
        ElseIf Time < Despertar Then
            JaDespertou = False
        End If
        If WindowState = vbMaximized Or WindowState = vbNormal Then
            FrmAlarme.Caption = "Alarme"
        End If
        If WindowState = vbMinimized Then
            "Quando minimizado, atualizar o Caption do Form (que mostrará a hora).
            FrmAlarme.Caption = Format(Time, "Medium Time")
        Else
            LblHora.Caption = Time
        End If
    End If
End Sub

Salve o formulário como FrmAlarme e o seu projeto como Desperta.

Experimente usar o seu alarme.

Faça o download do código deste exemplo.