[Pamoka]Pagrindines Crt bibliotekos priemones

Kintamieji:

TextAttr : byte; - Laikomos aktyvios spalvos.

WindMin : word; - Aktyvaus lango minimalios koordinates.

WindMax : word; - Aktyvaus lango maksimalios koordinates.

Konstantos:

Konstanta - Reiksme - Spalva

Black - 0 - Juoda

Blue - 1 - Melyna

Green - 2 - Zalia

Cyan - 3 - Melsvai zalsva

Red - 4 - Raudona

Magenta - 5 - Violetine

Brown - 6 - Ruda

LightGray - 7 - Sviesiai pilka

DarkGray - 8 - Tamsiai pilka

LightBlue - 9 - Sviesiai melyna

LightGreen - 10 - Sviesiai zalia

LightCyan - 11 - Sviesiai melsvai zalsva

LightRed - 12 - Sviesiai raudona

LightMagenta - 13 - Sviesiai violetine

Yellow - 14 - Geltona

White - 15 - Balta

Proceduros:

ClrScr; - Isvalo ir nudazo aktyvu langa TextAttr nurodyta fono spalva.

TextBackground(spalva: byte); - Uzraso i TextAttr simboliu fono spalva.

TextColor(spalva: byte); - Uzraso i TextAttr simboliu spalva.

Window(x1, y1, x2, y2: byte); - Uzraso i WindMin ir WindMax aktyviojo lango koordinates.

GoToXY(x, y: byte); - Perkelia zymekli i aktyviojo lango pozicija (x,y).

Delay(laikas: word); - Stabdo veiksmus nurodyta laiko tarpa milisekundemis.

Funkcijos:

WhereX: byte; - Pranesa zymeklio stulpelio numeri aktyviajame lange.

WhereY: byte; - Pranesa zymeklio eilutes numeri aktyviajame lange.

KeyPressed: boolean; - Reiksme False tol, kol nepaspaudziamas koks nors klavisas.

ReadKey: char; - Paspausto klaviso simbolis.

Lo(Kint: word): word; - Grazina zodzio Kint jaunesniojo baito reiksme.

Hi(Kint: word): word; - Grazina zodzio Kint vyresniojo baito reiksme.

TextBackground(spalva: byte); - Uzraso i TextAttr simboliu fono spalva.
TextColor(spalva: byte); - Uzraso i TextAttr simboliu spalva.

Kai rasai be lietuvisku raidziu tikrai sunku suprasti ka tu cia pasakyt norejai. Jei gali istaisyk.

TextBackground(spalva: byte); - Uzraso i TextAttr simboliu fono spalva.
TextColor(spalva: byte); - Uzraso i TextAttr simboliu spalva.

 

Kai rasai be lietuvisku raidziu tikrai sunku suprasti ka tu cia pasakyt norejai. Jei gali istaisyk.

Jau supratau, viskas ok.