Timer: differenze tra le versioni
Vai alla navigazione
Vai alla ricerca
(Nuova pagina: ' (Nell'elenco delle proprietà del Timer, poniamo il Delay a 1 ' per non generare alcun ritardo iniziale quando si preme il tasto) a As Integer '''PUBLIC''' SUB Form_Open() ...) |
Nessun oggetto della modifica |
||
| Riga 1: | Riga 1: | ||
' (Nell'elenco delle proprietà del Timer, poniamo il Delay a 1 | ' (Nell'elenco delle proprietà del Timer, poniamo il Delay a 1 | ||
' per non generare alcun ritardo iniziale quando si preme il tasto) | ' per non generare alcun ritardo iniziale quando si preme il tasto) | ||
''<Font Color= #006400>' Gambas class file''</font> | |||
a As Integer | a As Integer | ||
| Riga 7: | Riga 10: | ||
'''PUBLIC''' SUB Form_Open() | '''PUBLIC''' SUB Form_Open() | ||
Timer1.Enabled = FALSE ''<Font Color= #006400>' All'avvio poniamo il Timer come disabilitato''</font> | |||
'''END''' | '''END''' | ||
Versione delle 10:28, 17 gen 2012
' (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 ' ... 2) 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