[Visual Basic] Tutorial: Come creare un cronometro
Inviato: 3 agosto 2011, 11:32
Questo thread è rivolto a tutti coloro che usano o hanno Visual Studio e in particolare, questo piccolo thread riguarda la creazione di un semplice cronometro. Presuppongo che l'ambiente di sviluppo sia già noto, almeno nella sua panoramica generale.
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
Questo codice, con una procedura If, Then, End If gestisce il momento in cui, allo scattare del secondo la seconda etichetta mostra il primo minuto e, allo scattare del 59° minuto, esso si azzera per far apparire 1 nell'etichetta che ci mostra l'ora. In parole povere, è una procedura che gestisce l'avanzamento del tempo.
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:
Abilita il timer e lo fa partire.
Tasto STOP:
Ferma il cronometro ma NON lo resetta.
Qui sotto un esempio figurativo del risultato.
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.