Consultas, desarrollo de programas y petición de presupuestos:

domingo, 28 de agosto de 2011

Ejemplo de timer y progressbar

Este codigo es para explicar como funciona el control timer y utilizarlo para rellenar un progressbar.
El control timer, origina un evento cada cierto tiempo (el que definamos con la propiedad delay), y ejecutar un codigo.

Este es un ejemplo sencillo:
Creamos un formulario, añadimos los siguiente controles un boton, un timer, y progressbar.
Pantallazotimer
En la ventana de propiedades del timer, definimos delay=1000
Y en el Fmain, escribimos el siguiente codigo:

PUBLIC SUB Form_Open()
ME.Center
ProgressBar1.Value = 0
END
PUBLIC SUB Timer1_Timer()
DIM a AS Float
a = ProgressBar1.Value
a = a + 1 / 10
ProgressBar1.Value = a
IF a > 1 THEN
Message.info("rellenado completo")
Timer1.enabled = FALSE
a = 0
ProgressBar1.value = 0
ENDIF
END
PUBLIC SUB Button1_Click()
Timer1.enabled = TRUE
END

Al pulsar el boton, cada segundo (delay=1000 milisegundos), irá avanzando el progressbar un 10%, hasta llegar a 100%, al siguiente segundo nos saldra un mensaje diciendo “rellenado completo”.
Aqui teneis el codigo fuente.

No hay comentarios:

Publicar un comentario