martes, 11 de diciembre de 2012

Evento Timer en Power Builder

En esta ocasión, vamos a revisar un código muy interesante para comenzar a familiarizarse con el Power Script, para esto vamos a realizar la siguiente ventana:

 Ponemos los siguientes controles: ov_bolita (Oval Control), cb_play (Command Button), y cb_stop (Command Button).


Escribir el siguiente código en la variable Instancia:


Luego en el evento Open de la ventana, escribimos el siguiente código:


y en el evento TIMER de la ventana escribir el siguiente código:


Luego escribir en los botones el siguiente código:


cb_play Evento: Clicked


cb_stop Evento : Clicked


Ejecución:







Explicación:


Lo que usamos en este ejemplo es un simple algoritmo el cual hace que la bolita se mueva en forma de cuadrado en todo el formulario, y a la vez cambie de color cada vez que avanza. El codigo esta en el evento timer, y usamos las condiciones en cuatro momentos.


Cuando va hacia la derecha, el x del oval va incrementando, hasta que llegue al limite del ancho del formulario, cuando el x haya llegado al ancho de la ventana, cambiara el flag del lado derecho y pasara al ib_abajo, luego sigue evaluando esta parte hasta que llegue a la altura maxima de la ventana, cuando la Y del oval va aumentando, habra otra condicion que desactivara el flag de abajo y activara el flag de la izquierda y comenzamos a restar el X hasta llegar a anchura = 0 luego cambiamos el flag de derecha y activamos el flag de arriba y asi de esa forma hasta llegar a altura = 0, hacemos que el oval simula que esta corriendo. 


Todo esto se hace con el timer, en el open de la ventana se especifica un tiempo en milisegundos, a mas tiempo mas rapido sera, ejemplo 0.001 milisegundos, esto quiere decir que nuestro timer correra cada 0.001 milisegundos.


Si quieres descargar el código fuente entra al siguiente link:

Hasta la proxima!!