1. Creiamo una nuova Windows Application Form cliccando su "new Project". Quindi inseriamo dai controlli comuni un Timer impostando nelle proprietà "Interval" il valore 1000 e in "Enabled" mettiamo False
2. Creiamo tre etichette che rinomineremo ( in NameLabel ) rispettivamente HourLabel, MinuteLabel e SecondLabel. Fatto questo, impostiamo True alla funzione Autosize dell'etichetta, per poterla ridimensionare come meglio credete e scriviamo in esse 00.
3.Inseriamo quindi due bottoni, nei quali scriveremo rispettivamente Start e Stop.
Completati i seguenti passaggi passiamo al codice. Facciamo doppio click sul Timer: verrà creato l'evento del timer e poi inserite il codice all'interno di esso
Codice: Seleziona tutto
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
SecondLabel.Text += 1
If SecondLabel.Text = "59" Then
MinutesLabel.Text += 1
SecondLabel.Text = 0
End If
If MinutesLabel.Text = "59" Then
HourLabel.Text += 1
MinutesLabel.Text = 0
End If
End Sub
Ora, per far si che il cronometro parta e si fermi, basterà inserire due azioni all'interno dell'evento creato per i vari bottoni.
Tasto START:
Codice: Seleziona tutto
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Enabled = True
Timer1.Start()
End Sub
Tasto STOP:
Codice: Seleziona tutto
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Stop()
End Sub
Qui sotto un esempio figurativo del risultato.