Un orologio scorrevole con Visual Basic
Nella guida a Visual Basic abbiamo visto come gestire in maniera basilare data e ora. In questo tutorial, invece, vedremo come creare un orologio scorrevole da inserire nelle form dei nostri progetti.
Si crei un nuovo progetto di tipo EXE e si crei una nuova form.
Si aggiunga alla form una label che verrà svuotata del suo contenuto a cui assegnare il nome orologio.
Si aggiunga poi alla form un timer a cui assegnare il nome tempo.
Nel codice della form si crei la Sub Form_Load() e la si corredi del seguente codice:
Private Sub Form_Load()
tempo.Enabled = True
tempo.Interval = 1000
End Sub
Accediamo dunque al timer, lo abilitiamo e stabiliamo un tempo di latenza tra una temporizzazione e l'altra di un secondo, impostando il valore 1000, dato che dobbiamo far passare un solo secondo tra un refresh e l'altro, trattandosi appunto di un orologio.
Vediamo adesso il codice della Sub tempo_Timer():
Private Sub tempo_Timer()
Dim ora As Date
ora = Hour(Time()) & ":" & Minute(Time()) & ":" & Second(Time())
orologio.Caption = ora
End Sub
Non facciamo altro che creare dinamicamente l'orario corrente e lo associamo alla label creata in precedenza per garantirne la visualizzazione.
Possiamo adesso utilizzare questo orologio per bellezza, oppure da associare ad un campo testo della form in modo da effettuare l'inserimento del valore nel database della nostra applicazione.
