Opplæring i Pascal Programmering Animasjon

Den Pascal programmeringsspråk er ofte brukt som et introduksjonsspråk for å lære programmering for studenter. Det er mange versjoner av den, men de vanligste er Borland Turbo Pascal og Free Pascal. Denne opplæringen ble skrevet med Free Pascal, men alle versjoner av Pascal deler de samme funksjonene, slik at koden skal overføre uten forbehold mellom forskjellige versjoner. Pascal er en viktig, strukturert programmeringsspråk. Animasjonen funksjoner er gitt av «Graph" funksjon bibliotek som kommer med språket. Det er fullt beskrevet i kapittel 18 i Run-Time bibliotek Reference Guide knyttet til i den første referanse.

Bruksanvisning

1 Lag en neste fil i din favoritt teksteditor. Enhver ren tekst editor vil gjøre, inkludert Windows Notisblokk, selv om du foretrekker å bruke en dedikert Pascal editor som gratis program Lasarus.

2 Lim inn følgende header data i tekstredigeringsprogram for å initialisere variabler som vil bli brukt i animasjonen opplæringen:

Program Pascal_Animation_Tutorial;
Bruker Crt, Graph;

Var videodriver, gMode: Integer;
Var x, y, w, h: Integer;
Var sløyfe: Boolean;
Var farge: Integer;

Dette importerer både CRT (for å håndtere konsollen) og grafikkbibliotek. Deretter erklærer det variabler for grafikkdriveren, grafikkmodus, høyde og posisjon av et grafisk element sammen med sin farge, og en boolsk å kontrollere animasjon loop.

3 Lim inn følgende kode rett etter den siste koden for å initialisere verdiene av variablene:

videodriver: = DetectGraph;
InitGraph (videodriver, gMode, '');

x: = 40;
y: = 40;
w: = 10;
h: = 10;
farge: = Red;
sløyfe: = true;

Skjermdriveren gir grensesnittet til skjermen og gMode holder gjeldende oppløsning og fargedybde. X, Y, W, og H vil holde X- og Y-koordinatene på skjermen for å trekke animasjon, så vel som dens bredde og høyde. Fargen vil holde gjeldende farge (i dette tilfellet, rød).

4 Lim inn følgende kode for å lage hoved loop, som vil trekke en ellipse, flytte den litt, og klare skjermen for å tegne den på nytt. Når gjort gjentatte ganger, vil den produsere en animasjon av en ball beveger seg over skjermen. Det vil også sjekke for brukeren å avslutte ved å trykke på "Q" -tasten.

while (loop)
begynne
ClrScr;
SetColor (farge);
FillEllipse (x, y, w, h);

x: = x + 1;
y: = y + 1;

if (ReadKey == 'Q') så sløyfe: = False;

slutt