Necesito un cronometro
Publicado por Fernando (61 intervenciones) el 29/04/2006 17:28:19
Hola amigos necestio hacer un cronometro que tenga las siguientes funciones, creo no es muy dificil pero la verdad no tengo idea, la cosa es mas o menos asi debe tener dos botones Iniciar y Reiniciar hasta aqui todo bien, el tema es el siguiente cundo doy un clic en Iniciar debe iniciar el cronometro y a su vez cambiar el caption a Parar, si pulso Parar deberia detener el cronometro y cambiar el caption a Iniciar para que yo luego pulsando en iniciar comience el conteo nuevamente, pero e aqui el problema ya que el conteo lo debe realizar desde donde quedo y no desde cero.
Y logico cuando aprieto reiniciar deberia volverlo a cero.
Espero no se a muy complicado y alguien me pueda ayudar.
Desde y amuchas gracias por leer esto.
PD:
Tengo este codigo pero no se como modifiacarlo para que haga lo que necesito
Private Sub Form_Load()
Timer1.Enabled = False
Cronometro.Caption = "00:00:00"
End Sub
Private Sub BtnInicio_Click()
Cronometro.Caption = "00:00:00"
Iniciar = Timer
Timer1.Enabled = True
Captura.SetFocus
contador = 0
End Sub
Private Sub BtnParar_Click()
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
Dim dif As Single
Dim minutos As Integer
Dim segundos As Integer
Dim centesimas As Integer
Dim bandera As Boolean
If Timer > Iniciar Then
dif = Timer - Iniciar
Else
dif = 86400 - Iniciar + Timer
End If
centesimas = (dif - Fix(dif)) * 100
minutos = (Fix(dif) Mod 3600) \ 60
segundos = (Fix(dif) Mod 60)
Cronometro.Caption = Format(minutos, "00") & ":" & Format(segundos, "00") & ":" & Format(centesimas, "00")
DoEvents
End Sub
Y logico cuando aprieto reiniciar deberia volverlo a cero.
Espero no se a muy complicado y alguien me pueda ayudar.
Desde y amuchas gracias por leer esto.
PD:
Tengo este codigo pero no se como modifiacarlo para que haga lo que necesito
Private Sub Form_Load()
Timer1.Enabled = False
Cronometro.Caption = "00:00:00"
End Sub
Private Sub BtnInicio_Click()
Cronometro.Caption = "00:00:00"
Iniciar = Timer
Timer1.Enabled = True
Captura.SetFocus
contador = 0
End Sub
Private Sub BtnParar_Click()
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
Dim dif As Single
Dim minutos As Integer
Dim segundos As Integer
Dim centesimas As Integer
Dim bandera As Boolean
If Timer > Iniciar Then
dif = Timer - Iniciar
Else
dif = 86400 - Iniciar + Timer
End If
centesimas = (dif - Fix(dif)) * 100
minutos = (Fix(dif) Mod 3600) \ 60
segundos = (Fix(dif) Mod 60)
Cronometro.Caption = Format(minutos, "00") & ":" & Format(segundos, "00") & ":" & Format(centesimas, "00")
DoEvents
End Sub
Valora esta pregunta


0