Differenze tra le versioni di "Timer"
Da Gambas-it.org - Wikipedia.
| Riga 5: | Riga 5: | ||
''<Font Color= #006400>' Gambas class file''</font> | ''<Font Color= #006400>' Gambas class file''</font> | ||
| − | a As Integer | + | Private a As Integer |
Versione delle 16:54, 12 ago 2012
(Nell'elenco delle proprietà del Timer, poniamo il Delay inizialmente a 1
per non generare alcun ritardo quando premeremo il tasto Button1)
' Gambas class file
Private 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
