Buscar en Google

Busca en Todo Vb-Net

Búsqueda personalizada

viernes, 28 de septiembre de 2012

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!





8 comentarios:

  1. y donde declaras la funion tiempo restante

    ResponderEliminar
    Respuestas
    1. Fíjese en el código, al inicio, en la linea que sigue despues de Private Class Form1... ahi esta declarado.

      Eliminar
  2. gracias me sacaste de la duda

    ResponderEliminar
  3. bien todo bien gracias

    ResponderEliminar
  4. Ayudeme por favor, necesito hacer un cronómetro pero no encuentro en mi barra de herramientas el botón commandbutton. Tengo VB 2005

    ResponderEliminar
  5. gracias esta muy bien tu publicacion me sacaste de un apuro gracias..

    ResponderEliminar
  6. gracias me sirvió demasiado te pasaste

    ResponderEliminar