Temporizadores de subprocesos
Actualización: noviembre 2007
La clase System.Threading.Timer es útil para ejecutar periódicamente una tarea en un subproceso separado. Por ejemplo, podría utilizar un temporizador de subproceso para comprobar el estado y la integridad de una base de datos o para hacer copias de seguridad de archivos importantes.
Ejemplo de temporizador de subprocesos
El ejemplo siguiente inicia una tarea cada dos segundos y utiliza un indicador para iniciar el método Dispose, que detiene el temporizador. Este ejemplo envía el estado a la ventana de resultados, que puede hacerse visible presionando CTRL+ALT+O antes de probar el 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
Los temporizadores de subprocesos resultan especialmente útiles cuando el objeto System.Windows.Forms.Timer no se encentra disponible; esto ocurre, por ejemplo, cuando se desarrollan aplicaciones de consola.
Vea también
Conceptos
Subprocesamiento múltiple avanzado con Visual Basic