Grafika a Pascal
Futó grafikus módban Pascal. A következtetés mutat a képernyőn.
Összhangban №2 be CRT és a Graph modulokat. Anélkül, ezek a modulok, grafikus mód nem fog működni.
Összhangban №8 Initgraph írásbeli eljárás. Ez az eljárás inicializálja (kezdődik) grafikus módban. vesszővel elválasztott változók felvett «gd» és «gm» zárójelben. Szintén idézetek kell adnia a program elérési útja - a vezető kiterjesztésű bgi. Alapértelmezésben a telepítés után Pascal egy számítógép, ez a program - a járművezető a könyvtárban FPC / egység / i386-win32 / grafikonon. Nem adja meg az utat, hogy a program - a vezető (mint a mi példánkban) kell a könyvtár FPC / egység / i386-win32 / grafikon fájlmásolás 2: graph.o és graph.ppu, és illessze be őket egy könyvtárba FPC / bin / i386 -win32. Így ezek a fájlok felelősek a grafikus módot, jelenleg található az aktuális könyvtárban. És nem kell, hogy adja meg az elérési útvonalát, elég, hogy idézőjelbe.
Húr №9 és №10 mondja, hogy ha az inicializálás sikeres, a program leáll.
Összhangban №17 kérni egy eljárást, amely lezárja a grafikus módot és a szöveg teszi a képernyőt.
Emlékezz ezeket a sorokat (№2,3,7,8,9,10,17). Ezeket fel lehet használni, mint a sablon írásban igénylő programok futó grafikus módban.
Összhangban №4 kijelentjük változó színű. Ebben rögzítjük az értékeket a szín pixel. Pascal csak ki 15 különböző színben. Ezek azonosítják egész szám 0 és 15 Ezért adja byte típusú (integer típus 0 ... 255) egy változtatható színű.
Húr №11. Véletlenszerű eljárás inicializálja a véletlen számot.
Összhangban №12 kezdődik a ciklus ismétlődik, amíg nem húzza bármelyik gombot (line №16) (amíg keyPressed eszközök: mindaddig, amíg a billentyű lenyomása). A ciklus működik 3 üzemben, amelyek sorokba №13 - №15.
Összhangban №13, hozzárendelünk egy változtatható színű véletlen számot 1-15, a Random funkciót.
Összhangban №14 hívás eljárás Putpixel. Ez az eljárás létrehoz egy pontot a képernyőn grafikus módban (Putpixel angol -. Tegyen egy pixel). A zárójelben koordinátáit ebben a kérdésben, és a színe. A példánkban a koordinátákat egy értéket (random (100), random (100)). Ie koordinátákat véletlenszerűen generált. Szín beállítása «szín». Azt is véletlenszerűen generált (line №13). Mint látható, a változó «szín» meghatározni a színét nem tudta létrehozni. Ez elég volt ahhoz, hogy azonnal №14 helyett «színes» rekord «random (15).” Így kapjuk, hogy putpixel eljárás megjeleníti a pont véletlenszerű koordinátákat és a színt.
Összhangban №15 nevezett Daley eljárást. Daley Protsedura fellépés késleltetésére használni a ciklusban. A zárójelben késleltetés. Daley (1000) azt jelenti, a késedelem egy másodperc. Úgy tűnik tehát, hogy a pontok (pixelek) jelennek meg a késedelem 0,01 s.
Zárja le a grafikus ablakban az X a jobb felső sarokban a grafikus képernyő, vagy bármely gomb megnyomásával szöveges módban.