Differenze tra le versioni di "Timer"

Versione delle 19:50, 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 in questo caso 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