Timers de segmento
A classe System.Threading.Timer é útil para executar uma tarefa periodicamente em uma thread separada.Por exemplo, você poderia utilizar um timer de segmento para verificar o status e a integridade do banco de dados ou para fazer backup de arquivos críticos.
Exemplo de timer de segmento
O exemplo a seguir inicia uma tarefa a cada dois segundos e usa um sinalizador para iniciar o método Dispose que interrompe o cronômetro.Este exemplo envia o status para a janela de saída, portanto você deve tornar esta janela visível, pressionando CTRL+ ALT + O antes de você testar o código.
Class StateObjClass
' Used to hold parameters for calls to TimerTask
Public SomeValue As Integer
Public TimerReference As System.Threading.Timer
Public TimerCanceled As Boolean
End Class
Sub RunTimer()
Dim StateObj As New StateObjClass
StateObj.TimerCanceled = False
StateObj.SomeValue = 1
Dim TimerDelegate As New Threading.TimerCallback(AddressOf TimerTask)
' Create a timer that calls a procedure every 2 seconds.
' Note: There is no Start method; the timer starts running as soon as
' the instance is created.
Dim TimerItem As New System.Threading.Timer(TimerDelegate, StateObj, _
2000, 2000)
StateObj.TimerReference = TimerItem ' Save a reference for Dispose.
While StateObj.SomeValue < 10 ' Run for ten loops.
System.Threading.Thread.Sleep(1000) ' Wait one second.
End While
StateObj.TimerCanceled = True ' Request Dispose of the timer object.
End Sub
Sub TimerTask(ByVal StateObj As Object)
Dim State As StateObjClass = CType(StateObj, StateObjClass)
' Use the interlocked class to increment the counter variable.
System.Threading.Interlocked.Increment(State.SomeValue)
System.Diagnostics.Debug.WriteLine("Launched new thread " & Now)
If State.TimerCanceled Then ' Dispose Requested.
State.TimerReference.Dispose()
System.Diagnostics.Debug.WriteLine("Done " & Now)
End If
End Sub
Timers de thread são particularmente úteis quando o objeto System.Windows.Forms.Timer estiver indisponível, como quando você estiver desenvolvendo aplicativos do console.
Consulte também
Conceitos
Multithreading Avançado com Visual Basic