Sección de códigos , trucos y ejemplos para visual basic

409 - Cronómetro

<Volver> - Anterior - Siguiente

Contenido

Ejemplo 1
Ejemplo 2
Enlaces relacionados

Ejemplo 1

Este es un un cronómetro en vb realizado y enviado por Helmuth Campos:

Contador para cronometrar un tiempo, realizado con un control Timer y la función Format de visual basic

Descargar proyecto

vista previa del cronómetro

Colocar en un formulario los siguientes controles :

Un Timer llamado Timer1
Un label llamado lblCronometro
Tres CommandButton : ( cmdIniciar, cmdDetener y cmdSalir)

Código fuente en el Formulario

Option Explicit Dim I As Long 'Contador. Dim Tiempo As String 'Tiempo total transcurrido. Private Sub cmdDetener_Click() Timer1.Interval = 0 End Sub Private Sub cmdIniciar_Click() I = 0 'Inicializar el contador. Timer1.Interval = 0 'Detener el cronometro lblCronometro.Caption = "" 'Limpiar la etiqueta Timer1.Interval = 1 'Iniciar el cronometro End Sub Private Sub cmdSalir_Click() End End Sub Private Sub Form_Load() cmdIniciar.Caption = "Iniciar" cmdDetener.Caption = "Detener" cmdSalir.Caption = "Salir" End Sub Private Sub Form_Resize() On Error Resume Next 'Centra el formulario completamente Move (Screen.Width - Width) \ 29, (Screen.Height - Height) \ 29 End Sub Private Sub Form_Unload(Cancel As Integer) End End Sub Private Sub Timer1_Timer() I = I + 1 Tiempo = Format(Int(I / 36000) Mod 24, "00") & ":" & _ Format(Int(I / 600) Mod 60, "00") & ":" & _ Format(Int(I / 10) Mod 60, "00") & ":" & _ Format(I Mod 10, "00") lblCronometro.Caption = Tiempo End Sub

Ejemplo 2

Otro ejemplo enviado por Ivo Scavuzzo de un cronómetro con cuenta regresiva :

Colocar en el form : Un commandbutton llamado CmdIniciar, un Label LblTimeSession, otro label lblCRegresiva, y un timer llamado Timer1

Option Explicit Private Sub cmdIniciar_Click() If cmdIniciar.Caption = "Iniciar" Then Timer1.Enabled = True cmdIniciar.Caption = "Detener" Else Timer1.Enabled = False cmdIniciar.Caption = "Iniciar" End If End Sub Private Sub Form_Load() cmdIniciar.Caption = "Iniciar" Timer1.Interval = 1000 End Sub Private Sub Timer1_Timer() LblTimeSession.Caption = Format(CDate(LblTimeSession.Caption) + _ CDate("00:00:01"), "Hh:mm:ss") lblCRegresiva.Caption = Format(CDate(lblCRegresiva.Caption) - _ CDate("00:00:01"), "Hh:mm:ss") If lblCRegresiva.Caption < CDate("00:00:00") Then lblCRegresiva.Caption = "01:00:00" End If End Sub

Enlaces relacionados

Crear un reloj en vb

Buscar en Recursos vb