Início
#1Dom 26 maio - 20:26
Como criar um cronômetro no VISUAL BASICVou ensinar a vocês a criarem um Cronômetro super básico.
Adicionem 3 Buttons, 1 Label e 1 Timer.
No Timer1 Coloquem o seguinte código:
No Button1 Renomeie para: Reiniciar e coloque o seguinte código:
No Button2 Renomeie para: Começar e coloque o seguinte código:
No Button3 Renomeie para: Parar e coloque o seguinte código:
Agora no Label1 mude o Text para:
E pronto agora só dar f5.
Adicionem 3 Buttons, 1 Label e 1 Timer.
No Timer1 Coloquem o seguinte código:
- Código:
Dim h, min, seg As String
h = Split(Label1.Text, ":")(0)
min = Split(Label1.Text, ":")(1)
seg = Split(Label1.Text, ":")(2)
If Int(seg) < 59 Then
seg = Int(seg) + "01"
Else
min = Int(min) + "01"
seg = "00"
No Button1 Renomeie para: Reiniciar e coloque o seguinte código:
- Código:
Timer1.Interval = 1000
Timer1.Enabled = True
Label1.Text = "00:00:00"
No Button2 Renomeie para: Começar e coloque o seguinte código:
- Código:
Timer1.Interval = 1000
Timer1.Enabled = True
No Button3 Renomeie para: Parar e coloque o seguinte código:
- Código:
Timer1.Interval = 1000
Timer1.Enabled = False
Agora no Label1 mude o Text para:
- Código:
00:00:00
E pronto agora só dar f5.
