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.
Hasta la proxima!!
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!!
No hay comentarios:
Publicar un comentario