TEMA 20: Programa Cronómetro

8. Programa: este programa es un cronómetro sencillo, que nos muestra también la hora de comienzo y final. Se utilizan las funciones y formatos de horas, así como el control Temporizador.

Dim Hora_inicio As Variant
Dim Hora_final As Variant

Private Sub CmdBoton_Click()
  If CmdBoton.Caption = "Inicio" Then
    Hora_inicio = Now                                         'Establece Hora inicial
    TxtHora_inicio.Text = Format(Hora_inicio, "hh:mm:ss") 'Escribe Hora inicial
    TxtHora_final.Text = ""                                   'Borra Hora final
    TxtCrono.Text = "00:00:00"                              'Cronómetro a 0
    CmdBoton.Caption = "Parada"                              'Cambia texto a Parada
    TmrTiempo.Enabled = True                                'Activa el cronómetro
  Else
    TxtHora_final.Text = Format(Hora_final, "hh:mm:ss")  'Escribe Hora final
    CmdBoton.Caption = "Inicio"                              'Cambia texto a Inicio
    TmrTiempo.Enabled = False                               'Desactiva el cronómetro
  End If
End Sub

Private Sub CmdSalir_Click()
  End
End Sub

Private Sub TmrTiempo_Timer()
  Hora_final = Now                                                'Establece Hora final
  TxtCrono.Text = Format(Hora_final - Hora_inicio, "hh:mm:ss") 'Tiempo del Crono
End Sub

Bajate el programa completo haciendo clic en la imagen