Cómo crear un cronómetro en Visual Basic


El código es el siguiente:

'Declaracion de variables
Private Hora As Integer = 0
Private Minuto As Integer = 0
Private Segundo As Integer = 0
Private Milisegundo As Integer = 0
' Sub Procedimiento
Sub MostrarTiempo()
 LblTiempoConexion.Text = Hora.ToString.PadLeft(2, "0") & ":"
 LblTiempoConexion.Text &= Minuto.ToString.PadLeft(2, "0") & ":"
 LblTiempoConexion.Text &= Segundo.ToString.PadLeft(2, "0") & ":"
 LblTiempoConexion.Text &= Milisegundo.ToString.PadLeft(1, "0") & ":"
 LblTiempoConexion.Refresh()
 End Sub
'Comienzo a realizar las operaciones y refresco el subprocedimiento
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
 Milisegundo += 1
 If Milisegundo = 9 Then
 Milisegundo = 0
 Segundo += 1
 If Segundo = 59 Then
 Segundo = 0
 Minuto += 1
 If Minuto = 59 Then
 Minuto += 1
 Hora += 1
 End If
 End If
 End If
 MostrarTiempo()
 End Sub

Grupo de WhatsApp: https://chat.whatsapp.com/HcazyklpyeU4X3BF657KFQ
Grupo de Telegram: https://t.me/Masterhacks_net

Donaciones
Gracias por apoyar el libre conocimiento! Puedes donar la cantidad que tú desees.
Bitcoin: bc1q4sw9260twfcxatj8mjp7358cyvrf8whzlelyhj
Litecoin: LbFduJmHvQXcpCnwfUT7aJ4DYoWSL3iQw8
Dogecoin: DQQyKHdtvFiB4zW87Kvp9Wna3bcyL3ukQz
BCH: qqnkqcu8sa90zuuzd2nvdrslgdv3u5ta6cy4ch0rnq
Ethereum: 0xFb93D2a3c9d1A0b83EE629c2dE1725BCa192e581
Transferencia bancaria México: CLABE: 646180192143715428 a nombre de Masterhacks LATAM, Banco: STP

Deja una respuesta

Tu dirección de correo electrónico no será publicada.