Uso de control TIMER

Uso de control TIMER 

En esta ocación veremos el funcionamiento del control TIMER o cronometro, el cual puede servirnos por ejemplo para la ejecución de alguna función recurrente, la cual podemos controlar y/o ejecutar en una cantidad de tiempo determinada

Que necesitamos

1- Un formulario WinForm

2- Adicionar el control Timer1 al formulario

3- Un Label para poder mostrar la cuenta regersiva

Timer1 

Vista del Label en tiempo de ejecución con la cuenta regresiva

Vamos al código

En el load del formulario colocamos la llamada para iniciar el timer, utilizando los pulsos del reloj de Windows 

llamamos la función TiempoEjecutar y adicionamos como parámetro la cantidad en segundos en cual se ejecutara

Public Class Form1

 Private TiempoRestante As Integer

Private Sub Form1_load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click

 Call TiempoEjecutar(10)

End Sub

 Public Function TiempoEjecutar(ByVal Tiempo As Integer)
        TiempoEjecutar = ""
        TiempoRestante = Tiempo  ' 1 minutos=60 segundos 
        Timer1.Interval = 1000

        Call TimerOn(1000) ' Hechanos a andar el timer
    End Function

Public Sub TimerOn(ByRef Interval As Short)

        If Interval > 0 Then

            Timer1.Enabled = True

        Else

            Timer1.Enabled = False

        End If

    End Sub

Cuando el tiempo termina ejecutamos la función deseada.
Cada tick del reloj verificamos la cuenta regresiva.

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If TiempoRestante >= 0 Then
            LblEjecutar.Text = "Ejecutar en: " & TiempoRestante
            TiempoRestante = TiempoRestante - 1
        Else
            Timer1.Enabled = False
'Ejecuta tu función cuando termina el tiempo
            TiempoEjecutar(10)

        End If
    End Sub


Saludos!