Timer

' Gambas class file

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 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