Un cronometro in VB6
Articolo scritto da Luca Ruggiero
Un cronometro è uno strumento che... vabbè, non penso sia il caso di spiegare cos'è un cronometro, piuttosto è opportuno capire come realizzarne uno in Visual Basic 6.
Le funzioni che imposteremo sono molto semplici: un bottone Start che diventerà Stop appena il cronometro sarà partito, contando i secondi che trascorrono nel mentre.
(L'articolo continua più sotto...)
Cliccando nuovamente il bottone mentre la sua caption è Stop, il cronometro si azzererà e si fermerà.
Creiamo un nuovo EXE nella nostra copia di VB6 e creiamo una form, aggiungendo una label, un command ed un timer:
Facciamo doppio click sul timer ed aggiungiamo il seguente codice:
Private Sub tempo_Timer()
conta.Caption = conta.Caption + 1
End Sub
Andiamo semplicemente ad incrementare il valore della label di una unità.
Più complesso il codice da applicare al bottone:
Private Sub comando_Click()
If comando.Caption = "Start" Then
tempo.Enabled = True
comando.Caption = "Stop"
Call tempo_Timer
tempo.Interval = 1000
Else
tempo.Enabled = False
comando.Caption = "Start"
tempo.Interval = 0
conta.Caption = 0
End If
End Sub
Verifichiamo innanzitutto che la sua capition sia Start, nel qual caso andiamo, nell'ordine:
- ad eseguire l'abilitazione del timer;
- a rinominare la caption del bottone da Start a Stop;
- a chiamare la funzione che incrementa il valore del cronometro;
- ad impostare ad un secondo (1000) l'intervallo di esecuzione del timer.
- disabilitazione del timer;
- cambio della caption del bottone da Stop a Start;
- a fermare l'intervallo;
- ad azzerare il valore del cronometro.
