|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Miscelâneas)
|
|
 |
Título da Dica: Cronômetro Regressivo
|
 |
|
|
|
Postada em 11/3/2003 por Fábio/SP
Inclua um Objeto Timer, 3 Labels, 1 Command Bottom e o código abaixo:
Option Explicit
Dim TabelaEstado As Byte
Dim Horario1
Dim Horario2
Dim Horario3
Private Sub Command1_Click()
Timer1.Enabled = True
TabelaEstado = 3
Command1.Enabled = False
End Sub
Private Sub Form_Load()
Command1.Caption = "&Iniciar"
TabelaEstado = 3
Label1 = "00:04:00"
Label2 = "00:03:00"
Label3 = "00:02:00"
Horario3 = "00:04:00"
Horario2 = "00:03:00"
Horario1 = "00:02:00"
Timer1.Interval = 100
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
If TabelaEstado = 3 Then
If Horario1 = "00:00:00" Then
TabelaEstado = 2
Else
Horario1 = DateAdd("s", -1, Horario1)
Label1 = Format(Horario1, "hh:mm:ss")
End If
End If
If TabelaEstado >= 2 Then
If Horario2 = "00:00:00" Then
TabelaEstado = 1
Else
Horario2 = DateAdd("s", -1, Horario2)
Label2 = Format(Horario2, "hh:mm:ss")
End If
End If
If TabelaEstado >= 1 Then
If Horario3 = "00:00:00" Then
TabelaEstado = 0
Else
Horario3 = DateAdd("s", -1, Horario3)
Label3 = Format(Horario3, "hh:mm:ss")
End If
End If
If TabelaEstado = 0 Then
Timer1.Enabled = False
Command1.Enabled = True
End If
End Sub
|
|
|
|
|
