Buenas, hoy os traigo un tutorial mediante el cual sabremos como manejar el control Timer en Visual Basic, es muy sencillo y podras lograr bastantes cosas con esto, tales como animaciones, texto moviendose, barras de carga, eventos que se repiten cada cierto tiempo, y mucho mas.

El control Timer:

El control Timer es un componente al igual que otros, que nos podemos encontrar en la Caja de Herramientas, no es visible, es un modulo de codigo al que le indicamos cuando inicia, y cada cuanto repite una accion, su icono en la caja de herramientas es

Funciones que hoy utilizaremos:

El control timer usa dos funciones basicas que le hacen funcionar, Interval y Enabled.

* Funcion Interval

Interval indica un intervalo de tiempo por el cual cada Tick (intervalo de tiempo) ejecuta una funcion que nosotros le indicamos en un evento, su forma de utilizar es...

Timer.Interval = 10

Cabe a destacar que Interval utiliza valores en milisegundos, por lo que un segundo se representaria como 1000 en la funcion Interval

* Funcion Enabled

Seguramente conoceras esta funcion, la cual indica si el control esta activado o no esta activado, se usa para que el componente se inicie y ejecuta las funciones que le hemos escrito en su Evento Tick cada intervalo establecido

Como ya sabras, Enabled usa valores Boleanos, por lo que si quieres iniciarlo usa True y si quieres pararlo usa False

Ejemplo

* Sumando valores

Primero crearemos un nuevo proyecto de Windows

Una vez en el formulario vamos a la Caja de herramientas y buscamos el control timer (Seccion componentes, el ultimo de todos)

Picamos dos veces en el y nos saldra en el Cuadro de Componentes, justo debajo del espacio de trabajo

Ahora añadiremos un control label de la misma manera, no lo encontraremos en la seccion Controles Comunes

Una vez añadido el label

En el espacio de trabajo picamos dos veces en nuestra ventana y nos iremos directamente al evento Load de nuestro formulario, pero ahora nos interesa ir al principio del codigo, es decir, aqui:

Hay escribimos

Dim Val1 As Integer

Ahora ya nos vamos debajo de la linea Private Sub Form1_Load..., es decir , el evento Load del formulario

Dim Val1 As Integer ' Lo usaremos como valor para sumar
Val1 = 0 ' Su valor es 0
Label1.Text = Val1
Timer1.Enabled = True ' Activamos el control al iniciar el formulario
Timer1.Interval = 1000 ' Un segundo de intervalo ' Recuerda que es en milisegundos

Una vez tenemos eso picamos dos veces en el Timer1 que nos aparece en el Cuadro de Componentes que hemos visto, y nos iremos a su evento Tick, el cual ya lo hemos explicado y realiza una funcion cada X tiempo. Aqui escribimos lo siguiente...

        Val1 = Val1 + 1
        Label1.Text = Val1

Nos deberia de quedar al terminar de la siguiente forma

Ahora lo Depuramos y mirad lo que pasa..., cada 1 seg el label va sumando 1 al valor Val1 que establecimos al principio y asi cada segundo se suma un valor, hasta el infinito