Tramite la libreria Timer è possibile ripetere 4 volte al secondo la visualizzazione dei secondi attuali.
|
1 2 3 4 5 |
Timer.Interval=250 Timer.Tick =VISUALIZZA1 Sub VISUALIZZA1 TextWindow.Write(Clock.Second + " ") EndSub |
Potrebbe essere utile sapere quanti secondi sono passati dall’inizio dell’esecuzione del programma
|
1 2 3 4 5 6 7 8 |
Timer.Interval=250 Timer.Tick =VISUALIZZA2 INIZIO =Clock.ElapsedMilliseconds Sub VISUALIZZA2 adesso=Clock.ElapsedMilliseconds tempo =Math.Floor((adesso-INIZIO)/1000) TextWindow.Write(tempo + " ") EndSub |