Sapere quanto tempo è passato dall'inizio del programma

Per sapere quanto tempo è passato dall'inizio del programma, si userà la funzione "Timer()", che restituisce un valore di tipo Float.

Per utilizzare la funzione "Timer()", si dovrà dichiarare e creare un Oggetto di tipo Timer, attribuendogli un identificatore dei suoi Eventi, nonché un valore alla Proprietà ".Delay" per impostare la misura del conteggio.

Mostriamo un esempio pratico:

Private Tempus As Timer


Public Sub Main()

 With Tempus = New Timer As "Tempus"
   .Delay = 100
   .Start
 End With

End

Public Sub Tempus_Timer()
 
 Write "\r" & Timer()
 Flush 

End