por Dante Aroní C.   Lima-Perú

[Menú Superior] [Menú Principal DEACHP]

DOG – Animación, ejemplo de animación secuencial. El programa toma seis imágenes distintas de un pequeño perro y las muestra secuencialmente creando una animación simple, además trabaja sobre el dibujo del entorno de la HP (Pila ó Stack). Importante: El código del programa mostrado en esta página no se encuentra completo, pues dificultaría la lectura, el programa completo, en versiones 48G y 49G, puede ser descargado haciendo click sobre DOWNLOAD NOW. (Archivo en formato ZIP)

 

Código Fuente:

Breve Resumen:

Al iniciar se toma una lista conteniendo seis dibujos, la cual es asignada a la variable local: 'gdogs', luego se inicia un procedimiento o subprograma. En este tomamos un dibujo de la pila o stack (LCD o liquid crystal display) para colocarlo en el entorno gráfico (PICT).

Se coloca en blanco parte de la pantalla (pila de datos).

Se coloca el comentario "DEACHP" en las coordenadas #105d #50d, y se ingresa al modo gráfico.

Utilizando un bucle indefinido (DO UNTIL END), se van colocando de forma secuencial cada uno de los dibujos, la animación se repetirá hasta que se presione una tecla. Por último son eliminados de la pila 3 datos innecesarios que dejó el programa en la última iteración.

Leyenda:

Rojo: Lista de dibujos utilizados para la animación, Negro: Se crea la variable ‘gdogs’ y se coloca el dibujo de la pila en el entorno gráfico, Azul: Coloca el texto DEACHP, Verde: Realiza las repeticiones de la animación.

Algunos comandos utilizados en este ejemplo:

Permite convertir una cadena de texto en un objeto gráfico, especicifando el tamaño de fuente que tendrá (1, 2 ó 3; este último valor solo para calculadoras HP de series 48G).

Coloca un objeto gráfico dentro de otro (PICT) especificando las coordenadas en forma de coordenadas rectangulares ó de pixeles.

Crea un objeto gráfico blanco, de dimensiones #x #y.

Arroja un gráfico conteniendo un dibujo de la pila ó stack en el momento exacto en el que se ejecuto.

Hosted by www.Geocities.ws

1