index.php?id=99

Crear Cronómetro en Visual Basic 2008

Por Yal Publicidad


Publicado el Lun 4 de Mayo del 2020 a las 6:27



Crear cronómetro en Visual Basic 2018

Para crear este cronómetro de forma fácil, utilizaremos tres Button, cuatro Label y un Timer:


Public Class Form1

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
  Timer1.Start()
 End Sub

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
  Timer1.Stop()
 End Sub

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
  Label1.Text = "0"
  Label2.Text = "00"
  Label3.Text = "00"
  Label4.Text = "0"
 End Sub

 Private Sub Timer1_Tick(ByVal sender As System.object, ByVal e System.EventArgs)
  Timer1.Interval = 10
  Label4.Text += 1

  If Label4.Text = "60" Then
   Label3.Text += 1
   Label4.Text = 0
  End If

  If Label3.Text = 60 Then
   Label2.Text += 10
   Label3.Text = 00
  End If
 
  If Label2.Text = 60 Then
   Label1.Text += 10
   Label4.Text = 00
  End If
 End Sub
End Class


YAL PUBLICIDAD
Yuri Lizama A.
website:
http://www.yalpublicidad.com/


Deja un comentario:
Buscar
Acerca de Nosotros
@yalpublicidad Agencia de publicidad online. 21 años de experiencia en el diseño y desarrollo de imagen e identidad corporativa de tu empresa...