Amigosconsegui colocar o cronometro mais qd muda a hora do sistema ele para, ou seja fika travado segue abaixo codigo usado:
Const IntervaloSegundos = 1 'cada segundo '1min seria 1*60 seg etc
Dim cronom As Double
Dim paused As Boolean 'pausado true false
Dim upCron As Double ' segundos cronometro crescente
Private Sub cmdEnd_Click()
paused = True
End Sub
Sub startCron()
paused = False
Call doCronometro
End Sub
Private Sub cmdReset_Click() 'reiniciar cronometro
upCron = 0
lbUpCron.Caption = "00:00:00" 'zero zero...
End Sub
Private Sub cmdStart_Click()
If cmdStart.Caption = "Iniciar" Then
cmdStart.Caption = "Parar"
Call startCron 'iniciar cronometro
Else
paused = True
cmdStart.Caption = "Iniciar"
End If
End Sub
Public Function doCronometro()
upCron = upCron + 1 'incrmentar num segundo cron
lbUpCron.Caption = Format(DateAdd("s", upCron, "00:00:000"), "hh:mm:ss")
Call clock 'continuar sempre
End Function
Private Sub clock()
Dim S As Integer
If paused = False Then
S = Second(Now)
Do
DoEvents
Loop Until (Second(Now) - S) >= IntervaloSegundos
Call doCronometro
End If
End Sub
Alguem teria como dar uma ajuda ????
Agradeço a atenção de todos
Postado : 13/10/2012 7:15 pm