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/Ch45FZaJcbxDb7WeHAOtAQ
Grupo de Telegram: https://t.me/Masterhacks_net

Donaciones
Gracias por apoyar el libre conocimiento!
Bitcoin: 3L2Y8LC5tmRffopnvv5J9DHe6wnrmyWVMm
Litecoin: MDtX7eRekxoRigMNtguziZqRdkr8CT5DKs
BCH: 3PnUezyhjWHQoBVfb1GpQJurMNbVjyvrVG
Ethereum: 0x1f786c3195b9a55e320848f240b1cfc37b159535

Deja una respuesta

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *