Make your own free website on Tripod.com
Volver a ejercicios - parte 9 Ir al Indice Ir a ejercicios con temporizadores

Los temporizadores se usan para repetir una acción cada cierto tiempo. Se pueden usar temporizadores para:

  1. Mostrar un tiempo transcurrido.
  2. Generar acciones que se repitan en un tiempo predeterminado.
  3. En aplicaciones multimedia etc.

Un temporizador es invisible en tiempo de ejecución por lo que un usuario no lo podrá ver. El ícono de un temporizador

se encuentra en la caja de herramientas. Sus dos propiedades mas importantes son:
  • Interval, determina el tiempo de espera del programa para generar el evento. Se mide en milisegundos (1/1000 segundo) y sus valores van de 0 a 65.535 milisegundos (60.000 milisegundos = 1 minuto).
  • Enabled, puede colocarse en True o False, y en este último caso el timer no funciona.

El código a introducir en el evento Timer será la acción que deseamos sea controlada, de forma similar a cómo lo hacemos desde un botn, pero en este caso sin la intervención del usuario. La acción se realizará en el tiempo programado. Las propiedades Interval y Enabled pueden manejarse desde la Ventana de Propiedades o desde el código en el formulario en que se encuentren.
En el siguiente ejercicio se utiliza un Temporizador y desde la ventana de propiedades se coloca el Interval en 10.000 para que realice en ese tiempo la acción. Desde el código Timer se indica que al cabo del Interval seleccionado en la caja de Texto Txt1 aparezca la cadena de caracteres "hola".

Private Sub Timer1_Timer()
Txt1.Text = "hola"
End Sub
En tiempo de diseño el temporizador está vi- sible
Así se muestra el mismo formulario en tiempo de ejecución
UTILIZANDO UN CICLO IF
Modificamos el ejemplo anterior pra que la caja Txt1 cambie de "hola" a "¿que tal? y luego vuela a "hola" en forma indefinida hasta que un botón llamado cmdsalir nos saque del programa. En la ventana de propiedades hemos dado el valor 1000 a Interval del timer llamado Timer1. Dando un valor mayor a Interval se logra que demore más en cambiar de una frase a la siguiente
Private Sub Timer1_Timer()
If Txt1.Text = "Hola" Then
Txt1.Text = "¿Que tal?"
Else: Txt1.Text = "Hola"
End If
End Sub
Private Sub Cmdsalir_Click()
End
End Sub
En la próxima veremos algunos ejercicios relacionados con los temporizadores.
Volver arriba Volver a ejercicios - parte 9 Ir al Indice Ir a ejercicios con temporizadores