Compartilhar via


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

Aplicativos Multithreaded

Referência

System.Threading

Instrução SyncLock