Differenze tra le versioni di "Timer"
Da Gambas-it.org - Wikipedia.
Riga 25: | Riga 25: | ||
− | Facciamo un altro semplice esempio esplicativo del funzionamento del ''Timer'': | + | Facciamo un altro semplice esempio esplicativo del funzionamento del ''Timer'', suppondendo che sia stato posto sul ''Form'' l'oggetto speciale ''Timer'': |
'''Private''' a As Integer | '''Private''' a As Integer | ||
Versione delle 18:49, 9 gen 2013
La Classe Timer può essere creata da codice:
Private timer1 As Timer Public Sub Button1_Click() With timer1 = New Timer As "timer1" ' In questo caso il "Timer" si attiva ogni 500 millisecondi: .Delay = 500 ' Quindi viene attivato: .Start End With End Public timer1_Timer() ' Viene sollevato l'evento "_Timer" (ogni ms 500) ' ...qui fa qualcosa... End
Oppure si potrà porre sul Form l'oggetto speciale Timer prendendolo dall'IDE di Gambas.
Facciamo un altro semplice esempio esplicativo del funzionamento del Timer, suppondendo che sia stato posto sul Form l'oggetto speciale Timer:
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() With Timer1 ' Viene posto un ritardo pari a ms 100 .Delay = 100 ' Viene abilitato il Timer, il quale solleva l'evento "_Timer" ' (il risultato del metodo ".Enabled = True" è equivalente al metodo ".Start"): .Enabled = True End Public Sub Timer1_Timer() ' Subroutine invocata con l'attivazione di Timer ' ogni ms 100 verrà stampato in console il nuovo valore della variabile " a " Print a Inc a End