Timer

Da Gambas-it.org - Wikipedia.

La Classe Timer può essere creata da codice:

Private timer1 As Timer


Public Sub Button1_Click()

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

End


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

  ' ...qui fa qualcosa...

End


Esponiamo l'utilizzo dell'oggetto speciale Timer con un semplice esempio:

Private a As Integer


Public SUB Form_Open()

  With Timer1
' All'avvio poniamo il Timer come disabilitato:
    .Enabled = False
' poniamo il Delay inizialmente a 1 millisecondo,
' per non generare alcun ritardo quando premeremo il tasto "Button1":
    .Delay = 1
  End With

End


Public SUB Button1_Click()   ' Cliccando sul tasto...

' ...viene abilitato il Timer, il quale invoca, così, la subroutine Timer1_Timer():
  Timer1.Enabled = True

End


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

' poniamo per esempio un ritardo pari a 100 ms, cosicché...
   Timer1.Delay = 100

'...ogni 100ms verrà stampato in console il nuovo valore della variabile " a "
   Print a

' viene incrementato il valore della variabile " a "
   Inc a

End