Differenze tra le versioni di "Timer"
Da Gambas-it.org - Wikipedia.
| Riga 1: | Riga 1: | ||
| − | Esponiamo | + | Esponiamo oggetto speciale '''Timer''' con un semplice esempio: |
| Riga 13: | Riga 13: | ||
.Enabled = False | .Enabled = False | ||
<Font Color= #006400>' ''poniamo il Delay inizialmente a 1 millisecondo,'' | <Font Color= #006400>' ''poniamo il Delay inizialmente a 1 millisecondo,'' | ||
| − | ''per non generare alcun ritardo quando premeremo il tasto "Button1":''</font> | + | ' ''per non generare alcun ritardo quando premeremo il tasto "Button1":''</font> |
.Delay = 1 | .Delay = 1 | ||
End With | End With | ||
Versione delle 17:05, 12 ago 2012
Esponiamo oggetto speciale Timer con un semplice esempio:
' 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 millisecondo,
' 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
