Timer

' (Nell'elenco delle proprietà del Timer, poniamo il Delay a 1 ' per non generare alcun ritardo iniziale quando si preme il tasto)

 ' Gambas class file

a As Integer


PUBLIC SUB Form_Open()

  Timer1.Enabled = FALSE   ' All'avvio poniamo il Timer come disabilitato
                             		
END


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

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

End


PUBLIC SUB Timer1_Timer()   ' Subroutine invocata con l'attivazione di Timer

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

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

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

End