Creare un Cronometro

Cronometro usando la Classe Timer

Per realizzare un semplice Cronometro porremo sul form un Timer con ritardo posto ad "1", un Button ed un oggetto di testo nel quale visualizzare il tempo trasorso:

Private tempo As Date


Public Sub Button1_Click()

   With Timer1
     .Delay = 1
     .Start
   End With

' Assegna l'orario di questo istante:
   tempo = Time

End


Public Sub Timer1_Timer()

   TextBox1.Text = Format(CDate(Time - tempo), "hh:nn:ss.uu")   [1]

End

Cronometro in un'applicazione a riga di comando

Per realizzare un cronometro in un'applicazione a riga di comando senza l'uso della Classe Timer, si prenderà l'orario all'avvio dell'applicazione medesima, e in un apposito ciclo si passerà alla funzione Date( ) la differenza fra l'orario corrente e quello iniziale.

 Public Sub Main()
 
 Dim i As Integer
 Dim tm As Date
 
' Prende l'orario iniziale:
 tm = Now
 
 Do
   i = DateDiff(tm, Now, gb.Millisecond)
   Write "\rTempo: " & Date(0, 0, 0, 0, 0, 0, i)
   Wait 0.001
 Loop
 
End

Note

[1] Questo tipo di formattazione del tempo restituisce:

• hh = ora;
• nn = minuti;
• ss = secondi;
• uu = decimi, centesimi e millesimi di secondo.