CRONOMETRO

MARCOPCERJ 04/02/2013 15:36:06
#418748
Olá pessoal, sou iniciante na programação em VB e me deparei com uma missão de montar um cronômetro, mas só que com o que aprendi não consegui desenvolver atendendo a este tipo abaixo:
O cronômetro faça a seguinte marcação:

- display 5:00 (cinco minutos);
- solicitação para iniciar o cronômetro;
- regressiva com campainha no final;
- após a campainha display 1:00 (um minuto) automaticamente;
- regressiva com campainha no final;
- volta para 5:00 e aguarda novo start;
Gostaria se possível que alguém me ajudasse nesta elaboração, pelo menos de dando um caminho.
Agradeço desde já a atenção.
OMAR2011 04/02/2013 18:49:21
#418763
Olhe e quebre a cabeça para fazer a modificação.
Valeu.

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
Faça seu login para responder
Voltar