Timer: differenze tra le versioni
Vai alla navigazione
Vai alla ricerca
Nessun oggetto della modifica |
Nessun oggetto della modifica |
||
| Riga 1: | Riga 1: | ||
<Font Color= #006400>' ''Gambas class file''</font> | |||
< | |||
Private a As Integer | |||
'''Public''' SUB Form_Open() | |||
''' | With Timer1 | ||
<Font Color= #006400>' ''All'avvio poniamo il Timer come disabilitato:''</font> | |||
.Enabled = False | |||
<Font Color= #006400>' ''poniamo il Delay inizialmente a 1 per non generare alcun ritardo quando premeremo il tasto "Button1":''</font> | |||
.Delay = 1 | |||
End With | |||
'''End''' | |||
''' | |||
''' | '''Public''' SUB Button1_Click() ''<Font Color= #006400>' Cliccando sul tasto...''</font> | ||
<Font Color= #006400>' ''...viene abilitato il Timer, il quale invoca, così, la subroutine Timer1_Timer():''</font> | |||
Timer1.Enabled = True | |||
'''End''' | '''End''' | ||
''' | '''Public''' Sub Timer1_Timer() ''<Font Color= #006400>' Subroutine invocata con l'attivazione di Timer''</font> | ||
<Font Color= #006400>' ''poniamo per esempio un ritardo pari a 100 ms, cosicché...''</font> | |||
Timer1.Delay = 100 | |||
<Font Color= #006400>'...''ogni 100ms verrà stampato in console il nuovo valore della variabile " a "''</font> | |||
Print a | |||
<Font Color= #006400>' ''viene incrementato il valore della variabile " a "''</font> | |||
Inc a | |||
'''End''' | '''End''' | ||
Versione delle 18:00, 12 ago 2012
' 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