Timer

L'uso della Classe Timer è piuttosto semplice. L'unica attenzione è sull'uso massivo, perché può saturare le risorse di sistema e in casi eccessivi rendere impossibile l'uso dell'applicazione.

Ad ogni modo, l'oggetto è presente nella toolbox dell'ide di gambas: basta trascinarla sulla Form e impostare il periodo di attivazione che è espresso in millisecondi (laddove: 1 secondo = 1000 millisecondi).
In alternativa, è possibile usarlo all'interno di una classe non grafica (es. un processo sequenziale...). In questo caso basta creare una proprietà di di Classe di tipo Timer, e il resto funziona allo stesso modo delle form.

L'oggetto Timer ha una Proprietà (.Delay), come detto, per impostare l'intervallo di tempo tra un tick e il successivo, ovvero, il timer scatena un Evento ogni qualvolta scade il tempo prefissato.
Creare un Evento Timer in un Form è molto semplice: una volta inserito l'oggetto Timer nella form, basta farci un doppio click sopra, e verrà creato automaticamente un Evento "_Timer()"; altrimenti è possibile crearlo manualmente da codice con le stesse impostazioni:

Private timer1 As Timer


Public Sub Form_Open()

  With timer1 = New Timer As "tempus"
' In questo caso il "Timer" si attiva ogni 500 millisecondi:
    .Delay = 500
' Quindi viene attivato:
    .Start
  End With

End

Public Sub tempus_Timer()   ' Viene sollevato l'evento "_Timer" (ogni ms 500)

  ' ...qui fa qualcosa...

End

All'interno dell'Evento è possibile inserire tutto il codice necessario per utilizzare il timer all'interno di una Classe (o di un Form).
E' da tener ben presente che se le funzioni all'interno dell'Evento, superano l'intervallo impostato, l'Evento viene chiamato ulteriormente. Ciò può creare grossi problemi, in quanto gli eventi si accavallano, e possono rovinare il lavoro fatto nell'Evento precedente.
In questi casi è utile avere la possibilità di arrestare momentaneamente il timer (esiste un Metodo apposito nella stessa Classe Timer: .Stop(), o anche assegnare alla Proprietà ".Enabled" il valore booleano False), che verrà riattivato al termine della procedura.

Il timer può essere utilizzato anche come one-shot (un solo evento). In questo caso è sufficiente disabilitarlo in modo definitivo una volta entrati nel Evento Timer.
Un altro suggerimento da poter dare è il seguente: alla chiusura (destroy) della Classe contenente il Timer, è sempre meglio arrestare in ogni caso (Con il predetto Metodo ".Sto()" oppure ponendo "Enable = False"), onde evitare che rimanga appeso e attivo all'interno dell'applicazione, causando guai. In un Form è sufficiente inserirlo nell'evento Close; negli oggetti in genere basta inserirlo nel metodo speciale _free().

Semplice esempio di uso del Timer

Come già detto, l'uso del Timer potrà avvenire, oltre attraverso la creazione da codice della specifica Classe Timer, anche ponendo sul Form l'oggetto speciale Timer presente nel toolbox dell'IDE di Gambas.

Facciamo un altro semplice semplice esempio esplicativo del funzionamento del Timer, supponendo in questo caso che sia stato posto sul Form l'oggetto speciale Timer:

Private i As Integer


Public Sub Button1_Click()

' Viene posto un ritardo pari a ms 100:
 Timer1.Delay = 100
 
' Viene abilitato il Timer, il quale solleva l'evento "_Timer()".
' (l'effetto della proprietà ".Enabled = True" è equivalente al metodo ".Start"):
 Timer1.Enabled = True   
      
End

Public Sub Timer1_Timer()   ' Subroutine invocata con l'attivazione di Timer

' Dunque, ogni ms 100 verrà stampato in console il nuovo valore della variabile " a ":
 Print i

 Inc i

End

Public Sub Button2_Click()

' Il Timer viene arrestato:
 Timer1.Enabled = False
      
End