Visual Basic - cronometro

Life is soft - evento anual de software empresarial
 
Vista:

cronometro

Publicado por karl75 (10 intervenciones) el 18/07/2006 19:16:48
hola me gustaria encontrar el codigo o un ejemlo ,para que cuando ejecute un evento de un boton empiece un contador de tiempo, y en el momento q pulse otro boton termine ese contador y aparezca en un label por ej el tiempo trascurrido.

gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:cronometro

Publicado por manolo (239 intervenciones) el 18/07/2006 19:55:43
Ahí va el ejemplo:

Option Explicit
Dim nSec As Long
Private Sub Command1_Click()
Timer1.Interval = 1000
Timer1.Enabled = True
nSec = 0
End Sub

Private Sub Timer1_Timer()
nSec = nSec + 1
End Sub

Private Sub Command2_Click()
Dim Segundos As Single, Minutos As Single, Horas As Single
Timer1.Enabled = False
Horas = IIf(nSec >= 3600, Int(nSec / 3600), 0)
Minutos = IIf((Horas > 0 And Not nSec Mod 3600 = 0) Or nSec < 3600, Fix(nSec / 60) - Horas * 60, 0)
Segundos = IIf(Minutos >= 0, nSec - ((3600 * Horas) + (60 * Minutos)), 0)
Label1 = "Tiempo transcurrido: " & Format(Horas & ":" & Minutos & ":" & Segundos, "hh:mm:ss")
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar