[Tutorial VB.NET] Cronometrô simples

[Tutorial MANUEL.NET Cronometrô simples

Add a form:
Cita:

Código:
• Label
• Timer
Insira o Seguinte código no Label:Código:


Código:

Timer1.Interval = 1000
Timer1.Enabled = True
Label1.Text = "00:00:00"Explicação:

Cita:
Código:

O timer vai ficar com o intevalo de "1000"
e ele irá ficarativado, e o texto do label1 irá começar assim: 00:00:00
E no timer insirá:

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"
End If
If Int(min) > 59 Then
h = Int(h) + "01"
min = "00"
End If
Label1.Text = h & ":" & min & ":" & segExplicação:

Cita:
Código:

No começo delcarei 3 variáveis do tipo strin, depois quando o texto do label for
"menor" que 59 ele irá tranformar para minutos e depois para horas.