Anuncios Google

Tutorial : Utilizando el control timer en VB

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

 



Anuncios Google

Opciones de visualización de comentarios

Seleccione la forma que prefiera para mostrar los comentarios y haga clic en «Guardar las opciones» para activar los cambios.
Imagen de Metal_Shadow

Muy bueno, me estas animando

Muy bueno, me estas animando a acer uno yo tambien :D(UN  TUTORIAL DIGO XD)

Opciones de visualización de comentarios

Seleccione la forma que prefiera para mostrar los comentarios y haga clic en «Guardar las opciones» para activar los cambios.