Como detener e iniciar cronometro
Estoy haciendo un cronometro de cuenta regresiva en un formulario de access, quiero ponerle un botón de comando que al hacer clic con el ratón se detenga el cronometro y que al volver a hacer clic se ponga en marcha con los mismos minutos y segundos que se paro.
En el formulario tengo el siguiente código:
Option Compare Database
Dim TiempoRestante As Date
Dim Horafinal As Date
Dim Horainicio As Date
Option Explicit
Private Sub Form_Load()
Reset.Enabled = False
Etiqueta1.Caption = "00 : 01 : 00"
End Sub
Private Sub Form_Timer()
TiempoRestante = Horafinal - Time
Etiqueta1.Caption = Format(TiempoRestante, "hh : nn : ss")
If Etiqueta1.Caption = "00 : 00 : 00" Then DoCmd.Close
End Sub
Private Sub Comenzar_Click()
Reset.Enabled = True: Reset.SetFocus: Comenzar.Enabled = False
Horainicio = Time
'El numero indica los minutos desde los que comenzará
'la cuenta atrás (60 min. = 1 hora)
Horafinal = DateAdd("n", 1, Now)
TimerInterval = 1000
End Sub
Private Sub Reset_Click()
Comenzar.Enabled = True: Comenzar.SetFocus: Reset.Enabled = False
Form_Load
TimerInterval = 0
End Sub
En el formulario tengo el siguiente código:
Option Compare Database
Dim TiempoRestante As Date
Dim Horafinal As Date
Dim Horainicio As Date
Option Explicit
Private Sub Form_Load()
Reset.Enabled = False
Etiqueta1.Caption = "00 : 01 : 00"
End Sub
Private Sub Form_Timer()
TiempoRestante = Horafinal - Time
Etiqueta1.Caption = Format(TiempoRestante, "hh : nn : ss")
If Etiqueta1.Caption = "00 : 00 : 00" Then DoCmd.Close
End Sub
Private Sub Comenzar_Click()
Reset.Enabled = True: Reset.SetFocus: Comenzar.Enabled = False
Horainicio = Time
'El numero indica los minutos desde los que comenzará
'la cuenta atrás (60 min. = 1 hora)
Horafinal = DateAdd("n", 1, Now)
TimerInterval = 1000
End Sub
Private Sub Reset_Click()
Comenzar.Enabled = True: Comenzar.SetFocus: Reset.Enabled = False
Form_Load
TimerInterval = 0
End Sub
3 respuestas
Respuesta de jeddy
1
Respuesta de azarleonardo
1
Respuesta de teroles
1