USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página