|
|
tutoriales > Timer Visual Studio .NET
Timer Visual Studio .NET
Timer (temporizador) se usa para controlar o ejecutar un proceso cada cierto tiempo.
Crear un timer:
|
Dim temporizador As New System.Timers.Timer()
|
Definir el intervalo, el tiempo en que se disparará el temporizador. El intervalo se define en milisegundos osea 2000 son 2 segundos.
Dim temporizador As New System.Timers.Timer(2000)
|
Ya se ha definido el Timer, ahora hay que definir un event handler así podremos recibir notifaciones cada vez que se dispare (cada 2 segundos en este caso)
AddHandler t.Elapsed, AddressOf TimerFired
Public Sub TimerDisparado(ByVal sender As Object, ByVal e As System.Timers.ElapsedEventArgs)
'Escribir el código que se ejecutará'
End Sub
|
Para inciar el timer haremos lo siguiente. Crear un botón para inciar
Private Sub btnStart_Click(ByVal sender As System.Object,byVal e As System.EventArgs) Handles btnStart.Click
temporizador.start()
temporizador.Enabled = True
End Sub
|
Para parar el timer haremos lo siguiente. Crear un botón para pararlo
Private Sub btnStop_Click(ByVal sender As System.Object,byVal e As System.EventArgs) Handles btnStop.Click
temporizador.start()
temporizador.Enabled = True
End Sub
|
Todo Junto
Public Class Form1
Inherits System.Windows.Forms.Form
Private temporizador As New System.Timers.Timer(2000)
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
AddHandler temporizador.Elapsed, AddressOf TimerFired
End Sub
Private Sub btnStart_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles btnStart.Click
temporizador.Enabled = True
End Sub
Private Sub btnStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStop.Click
temporizador.Enabled = False
End Sub
Public Sub TimerFired(ByVal sender As Object, ByVal e As System.Timers.ElapsedEventArgs)
Label1.Text = "Tiemp = " & e.SignalTime.ToString
End Sub
End Class
|
Errores, Recomendanciones, Omisiones u otra información por favor contacte conmigo
|
|
|
