Maak een volgend bestand in uw favoriete tekstverwerker . Elke platte tekst editor zal doen , waaronder Windows Notepad , al heb je misschien liever een dedicated Pascal editor gebruiken, zoals het gratis programma Lazarus . Kopen van 2

Plak volgende header gegevens in de teksteditor om de variabelen te initialiseren die zullen worden gebruikt in de animatie zelfstudie :

Programma
Pascal_Animation_Tutorial ;

gebruikt Crt , grafiek ;

Var VideoDriver , gMode : Integer ;

Var x , y , w, h : Integer ;

Var lus
: Boolean ;

Var kleur
: Integer ;

Deze invoer zowel de CRT ( voor het omgaan met de console ) en grafische bibliotheken . Dan verklaart het variabelen voor de grafische driver , de grafische modus , de positie en hoogte van een grafisch element , samen met zijn kleur , en een boolean om de animatie lus controleren .
3

Plak volgende code onmiddellijk na de laatste code om de waarden van de variabelen te initialiseren :

VideoDriver
: = DetectGraph ;

InitGraph
( VideoDriver , gMode , '' ) ;

x : = 40 ;

y
: = 40 ;

w
: = 10 ;

h
: = 10 ;

kleur
: = rood ;

lus : = True ;

de video -driver biedt de interface naar het scherm en gMode houdt de huidige resolutie en kleurdiepte . X , Y , W en H de coördinaten X en Y ingedrukt op het scherm om de animatie , en de breedte en hoogte stellen . Kleur zal de huidige kleur te houden ( in dit geval rood ) .
4

Plak de volgende code naar de belangrijkste lus , die een ellips zal trekken , beweegt het een beetje te maken , en duidelijk op het scherm om trek het weer . Bij herhaaldelijk gedaan, zal het een animatie van een bal bewegen over het scherm te produceren . Het zal ook controleren of de gebruiker om te stoppen door op de toets " Q "

terwijl ( lus ) op

beginnen

clrscr
; .

SetColor
( kleur ) ;

FillEllipse
( x , y , w, h ) ;

x : = x + 1 ;

y
: = y + 1 ;

if ( ReadKey == ' Q ' ) dan loop : = False ;

einde