Opplæringen i Pascal Programmering Animasjon

Pascal programmeringsspråk er ofte brukt som en innledende språk for å lære programmering for studenter. Det finnes mange versjoner av den, men den 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 et imperativ, strukturert programmeringsspråk. Animasjons funksjoner er gitt av «Graph" funksjon bibliotek som kommer med språket. Det er fullstendig beskrevet i kapittel 18 i Run-Time Bibliotek Reference Guide knyttet til i første referanse.

Bruksanvisning

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

•  Lim følgende header data i teksteditor for å initialisere variablene som vil bli brukt i animasjonen tutorial: Program Pascal_Animation_Tutorial; Bruker Crt, Graph; Var video Driver, 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. Da er det erklærer variabler for grafikkdriveren, grafikkmodus, høyde og posisjon av et grafisk element sammen med sin farge, og en boolsk å kontrollere animasjon loop.

•  Lim inn følgende kode rett etter den siste koden for å initialisere verdiene til variablene: video Driver: = DetectGraph; InitGraph (video Driver, 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-koordinater på skjermen for å trekke animasjon, så vel som dens bredde og høyde. Farge vil holde gjeldende farge (i dette tilfellet, Red).

•  Lim inn følgende kode for å lage hoved loop, som vil tegne en ellipse, flytte den litt, og klare skjermen for å tegne det på nytt. Når gjort gjentatte ganger, vil det 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; end