CRONOMETRO

USUARIO.EXCLUIDOS 24/03/2005 17:51:51
#74771
Gostaria de fazer alterações nos valores quando fosse dado uma pausa no cronometro e feita as alterações para outro valor ele continua-se apartir desta alteração.
é possivel fazer ????
Segue codigo :
General declarations:
Dim Crono As Date

Private Sub Form_Load
Crono = CDate("00:00:00")
end sub

Objeto timer:
Private Sub Timer2_Timer()
Crono = DateAdd("s", 1, Crono)
TxtTempo.Text = CStr(Crono)
End Sub

E os botões Ativa, pausa e zerar cronometro:
Case "Cronometro"
Timer2.Interval = 1000

Case "CronometroP"
Timer2.Interval = 0

Case "CronometroZ"
Timer2.Interval = 0
Crono = CDate("00:00:00")
TxtTempo.Text = ""


Como esta ele reinicia o cronometro
THIAGO.CESAR 24/03/2005 18:17:38
#74782
Qual dos códigos está usando para pausar?

Tente:
Timer2.Enabled = False

E verifique se ele está executando o código correto (ou um debug ou um msgbox)
USUARIO.EXCLUIDOS 24/03/2005 18:25:52
#74785
Uso este :
Case "CronometroP"
Timer2.Interval = 0

Apos faço a alteração no valor decorrido e ativo novamente o cronometro com este :
Case "Cronometro"
Timer2.Interval = 1000

Só que o cara zera o cronometro e começa novamente do ZERO....
USUARIO.EXCLUIDOS 24/03/2005 18:26:49
#74786 Resposta escolhida 

Exemplo
Private sub Timer1()
Text1.Text = Format(Date,"dd/mm/yyyy")
End sub

em um comand buton

If timer1.Enabled = False Then
'Alterações necessárias
timer1.Interval = inputbox("Digite o intervalor. Ex: 1000 = 1 Segundo")
Timer1.Enabled = True
Else
Timer.Enabled = False
End if


Falou.. amigo..
Tópico encerrado , respostas não são mais permitidas
Voltar