Argim Respuestas

¿Cómo programar en turbo pascal?

9
Alguien sabe como hacer animaciones en turbo pascal?
! Yuli !
enviada 27/05/2019 [wap]
1
1.- Crear un fichero siguiente en su editor de texto favorito. Cualquier editor de texto plano va a hacer, incluyendo la libreta de Windows, aunque es posible que prefiera utilizar un editor de Pascal dedicado como el programa gratuito Lázaro.

2.- Pegue los siguientes datos de cabecera en el editor de texto para inicializar las variables que serán utilizados en el tutorial de animación:
Pascal_Animation_Tutorial programa;
Usos de la CRT, Gráfico;
Var videoDriver, gMode: Integer;
Var x, y, w, h: Integer;
loop var: Boolean;
var color: Integer;
Esto importa tanto el CRT (para hacer frente a la consola) y librerías gráficas. A continuación, se declara variables para el controlador de gráficos, el modo gráfico, la posición y la altura de un elemento gráfico, junto con su color, y un booleano para controlar el bucle de animación.

3.- Pegue el siguiente código inmediatamente después de que el último código para inicializar los valores de las variables:
videoDriver: = DetectGraph;
InitGraph (videoDriver, gMode, '');
x: = 40;
y: = 40;
w: = 10;
h: = 10;
Color: rojo =;
loop: = true;
El controlador de vídeo proporciona la interfaz de la pantalla y gMode mantiene la resolución y profundidad de color actual. X, Y, W, y H sostendrán la coordenadas X e Y en la pantalla para dibujar la animación, así como su anchura y altura. Color se mantenga el color actual (en este caso, rojo).
4 Pega el siguiente código para crear el bucle principal, que será dibujar una elipse, moverlo un poco, y borrar la pantalla para dibujar de nuevo. Cuando se hace repetidamente, se producirá una animación de una bola que se mueve por la pantalla. También comprobará si el usuario para salir oprimiendo la tecla "Q".
mientras que (circular)
empezar
ClrScr;
setColor (color);
FillEllipse (x, y, w, h);
x: = x + 1;
y: = y + 1;
si (ReadKey == 'Q') a continuación del bucle: = False;
fin
Nemacyst Savage
enviada 25/06/2020 [wap]
Gracias nema, pero ya me dijieron como
! Yuli ! 25/06/2020 [wap]
0
No prietita .. Lastimosamente no ...siga buscando.. Pazz...
!XünXxîThö!
enviada 08/06/2019 [m]

Responder

Ingresa con tu cuenta o Registrate para responder esta pregunta y acceder a todos los servicios de Argim.

Ayudanos a moderar esta sección!