190 likes | 262 Views
TP programozás CRT unit. Készítette: Rummel Szabolcs Elérhetőség: rsz@mailbox.hu. Unit. Olyan speciális programegység, amiben konstansok, típusok, változók, eljárások és függvények vannak meghatározva.
E N D
TP programozásCRT unit Készítette: Rummel Szabolcs Elérhetőség: rsz@mailbox.hu
Unit • Olyan speciális programegység, amiben konstansok, típusok, változók, eljárások és függvények vannak meghatározva. • Ezen alprogramok bármikor meghívhatók programunkban, ha deklaráljuk a unitot a USES unitnév szintaktikával.
Unitok fajtái • A Turbo Pascal fejlesztői több standard unitot is adnak a programnyelvhez, ilyen: • CRT • SYSTEM • DOS • GRAPH
CRT unit konstansai • Színek • Háttérszínek • Írásszínek • Villogás
CRT unit változói • Texttattr: byte típusú (egész szám), mindig az aktuális szövegkiíró szín az értéke.
CRT unit eljárásai • Textbackground(szín:byte) • Textcolor(szín:byte) • Gotoxy(oszlop,sor:byte) • Clrscr • Window(x1,y1,x2,y2:byte) • Delay(ms:word) • Sound(Hz:word)
CRT unit függvényei • A függvény visszatérési értékkel egy értéket ad vissza a programban. • Wherex.byte, Wherey:byte • Keypressed:boolean • Readkey:char
Gyakorló feladatok • Készíts egy címletelő programot, ami egy bemenő pénzmennyiséget címletel. (felbontja pénzegységekre) • A megvalósításnál használj ablakokat az igényes külső megvalósításához. • A program kérdezze meg akarunk-e újjat címletelni.
Képernyőnézet Kérem az összeget: 12560 Ft 12560 Ft címletelése tízezres: 1 db ezres: 2 db ötszázas: 1 db ötvenes: 1 db tízes: 1 db Akar még számolni? (I/N)
Címletelés • A megvalósítás során használj eljárásokat! • A címletelés során egészrészű osztásokat végezzél a megadott címletekkel. • A kiírásnál csak azok az értékek jelenjenek meg amelyekből van is. (tehát a nulla db ne íródjon ki) • Vigyázz! A már kiszámolt címleteket még egyszer ne számold ki. (ha már osztottál 100-al, akkor az ötvenesnél ne ugyanazt az összeget oszd el)!
Háttérszínek • Fekete Black 0 • Kék Kék 1 • Zöld Green 2 • Türkiz Cyan 3 • Piros Red 4 • Lila Magenta 5 • Barna Brown 6 • Világosszürke Lightgray 7
Írásszínek • Sötétszürke Darkgray 8 • Világoskék Lightblue 9 • Világoszöld Lightgreen 10 • Világostürkiz Lightcyan 11 • Világospiros Lightred 12 • Világoslila Lightmagenta 13 • Sárga Yellow 14 • Fehér White 15
Villogás • Az írásszínhez a következő konstanst kell hozzáadni: BLINK=128
Window • Egy ablakot hoz létre a képernyőn. Az x1,y1 paraméterek az ablak bal felső sarkának pozícióját, az x2,y2 paraméterek a jobb alsó sarkot állítják be. • A kurzor az ablak bal felső pozíciójába ugrik alapértelmezetten. • Használata igényes felületek létrehozásához szükségs.
Delay • Az eljárás a program futását függeszti fel MS millisecundum ideig. • Szintaktikája: Delay(MS:byte) • Általában hang előállítására használjuk.
Sound • Bekapcsolja a beépített hangszórót és Hz frekvenciájú hangot geneál. • Szintaktikája. Sound(Hz:byte) • A hangszóró kikapcsolására a Nosound eljárást használjuk.
Wherex, Wherey • A függvény visszatérési értéke a kurzor aktuális pozíciója. • A függvény visszatérési típusa: Byte (egész szám típus)
Keypressed • A függvény értéke akkor igaz, ha az adott pillanatban volt lenyomva a billentyű. • A függvény egy logikai (Boolean) típusú értéket ad eredményül.
Readkey • Egy billentyű leütésére vár, addig felfüggeszti a program futását. Fontos megjegyezni, hogy a függvény lezárására nem kell Enterrel érvényesíteni a karaktert. • A függvény karakter típusú (Char) értéket ad vissza!