Ver Mensaje Individual
  #1 (permalink)  
Antiguo 24/02/2010, 10:01
hunter18
 
Fecha de Ingreso: junio-2008
Mensajes: 343
Antigüedad: 15 años, 8 meses
Puntos: 4
Codigo de un cronometro - guardar su valor

Encontre este codigo que funciona como cronometro pero quiero guardar el valor de la hora al cerrar el formulario
y al volver a abrirlo empezar el conteo desde donde quedo.
Podria guardar el valor en un archivo .ini pero como adapto el codigo para empezar desde donde quedo y no siempre de cero.


Código:
Private Sub Timer1_Timer()
ss = ss + 1

If ss = 60 Then
    ss = 0
    mm = mm + 1
End If
If mm = 60 Then
    ss = 0
    mm = 0
    hh = hh + 1
End If

Label1.Caption = Format(hh, "00") & ":" & Format(mm, "00") & ":" & Format(ss, "00")

'If Label1.Caption = "01:30:15" Then
'MsgBox "funcion"
'End If
End Sub