Timer

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

Esponiamo l'utilizzo dell'oggetto speciale Timer con un semplice esempio:

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