Är Pascal programmeringsspråk som ofta används som en inledande språk för undervisning datorprogrammering till studenter . Det finns många versioner av det , men det vanligaste är Borlands Turbo Pascal och Free Pascal . Denna tutorial är skriven med hjälp av Free Pascal , men alla versioner av Pascal har samma funktioner , så att koden ska flytta utan ändringar mellan olika versioner . Pascal är en nödvändighet , strukturerat programmeringsspråk . Animeringen funktioner tillhandahålls av " Graph " funktionen biblioteket som kommer med språket . Det beskrivs utförligt i kapitel 18 i Run - Time Library Reference Guide kopplat i första referens . Instruktioner
1
Skapa ett nästa fil i din favorit texteditor . Varje textredigerare kommer att göra , inklusive Windows Anteckningar , men du kanske föredrar att använda en dedikerad Pascal editor som det fria programmet Lazarus .
2
klistra in följande header data i textredigeraren för att initiera variabler som kommer att användas i animationen handledning :
Program Pascal_Animation_Tutorial ;
Använder Crt , Graph ;
Var videoDriver , gMode : Integer ;
var x , y , w , h : Integer ;
Var loop : Boolean ;
Var färg : Integer ;
import både CRT ( för att hantera konsolen ) och grafik bibliotek. Sen deklarerar variabler för grafikdrivrutin , det grafikläge , position och höjd på ett grafiskt element tillsammans med sin färg , och en boolesk att styra animationen loop .
3
Klistra in efter koden direkt efter den sista koden för att initiera värdena på variablerna :
videoDriver : = DetectGraph ;
InitGraph ( videoDriver , gMode , '' ) ;
x : = 40 ;
y : = 40 ;
w : = 10 ;
h : = 10 ;
färg : = Röd ;
loop : = true;
grafikdrivrutin tillhandahåller gränssnittet till skärmen och gMode innehar den aktuella upplösningen och färgdjupet . X, Y , W och H kommer att hålla X-och Y-koordinaterna på skärmen för att rita animeringen , liksom dess bredd och höjd. Färg kommer att hålla den aktuella färgen ( i det här fallet , röd ) .
4
Klistra in följande kod för att skapa den huvudsakliga slingan , vilket kommer att dra en ellips , flytta den lite , och rensa skärmen dra den igen . När det görs flera gånger , kommer den att producera en animation av en boll rör sig över skärmen . Det kommer också att kontrollera för användaren att avsluta genom att trycka på " Q"
samtidigt ( en slinga ) katalog
börja
ClrScr , .
SetColor ( färg);
FillEllipse (x, y , w, h) ;
x : = x + 1 ;
y: = y + 1 ;
om ( readkey == ' Q ' ) sedan loop : = False ;
slutet
