crear cronometro con vb6.0

[franko1809]

Como puedo hacer un cronometro?

[Avellaneda]

Iniciado por franko1809

Como puedo hacer un cronometro?

¿Algo así?



Controles en el Form:
Un Label (Label1)
Un CommandButton (btnIniciar)
Un Timer (Timer1)

Código:

Option Explicit

Dim ss As Integer, mm As Integer, hh As Integer

Private Sub btnIniciar_Click()
If btnIniciar.Caption = "Iniciar Crono" Then
    ss = 0: mm = 0: hh = 0
    Timer1.Enabled = True
    btnIniciar.Caption = "Detener Crono"
Else
    Timer1.Enabled = False
    btnIniciar.Caption = "Iniciar Crono"
End If
End Sub

Private Sub Timer1_Timer()
' Propiedades en diseño: Enabled = False,  Interval = 1000
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")
End Sub

¡¡Feliz Navidad!!

Obvio: La propiedad Caption de btnIniciar = "Iniciar Crono".