Knižnica CRT

Knižnice

Jazyk Pascal, aby si zachoval svoju jednoduchosť, presunul väčšinu príkazov pre prácu s obrazovkou do knižníc. Užívateľ ak chce používať tieto príkazy musí knižnicu pripnúť ku zdrojovému textu.

Syntax

Uses Crt;

Sémantika

Každá knižnica môže obsahovať nasledovné časti:

Definície nových príkazov, funkcií - vlastne deklarácie podprogramov
Definície nových premenných - používa sa málo
Definícia nových konštánt - napr. blue=1
Inicializačný kód - príkazy vykonané raz na začiatku programu

Jazyk Pascal nemá vo svojom základe príkazy na farbenie textu, zotieranie obrazovky a zápis na obrazovku podporuje len sekvenčný. Toto napráva knižnica crt.

Knižnica Crt - obrazovka

V textovom režime je obrazovka rozdelená na políčka obdĺžnikového tvaru. V každom obdĺžniku môže byť zobrazený jeden znak. Celý podklad pod písmom v jednom políčku je jednej farby a voláme ho farba papiera, zobrazené písmeno-znak musí byť tiež jednou farbou - farba písma.

Rozlíšenie obrazovky
Štandartné rozlíšenie je 80x25 (80 stĺpcov a 25 riadkov), ale je možné aj iné rozlíšenie 40x25 alebo 80x50.
Počet farieb
Štandartne je 16 farieb na farbu písma a 8 farieb na farbu papiera.

Príkazy

TextColor(farba)
Nastaví farbu pre budúce písanie. Samotný príkaz nijak nemení obrazovku.
farba ... 0-15, sú 4 základné farby modrá, zelená, červená a jas
1. modrá
2. zelená
3. modrozelená ... 1+2
4. červená
5. fialová ... 1 + 4
6. hnedá ... 2+4
7. biela ... 1+2+4
8. šedá=jas
9. jasná modrá ... 1+8
10. jasná zelená ... 2+8
11. jasná modrozelená ... 1+2+8
12. jasná červená ... 4+8
13. jasná fialová ... 1+4+8
14. jasná hnedá ... 2+4+8
15. jasná biela ... 1+2+4+8
TextBackGround(farba)
farba ... 0-7, sú 3 základné farby modrá, zelená, červená
Nastaví farbu papiera pre budúce písanie. Samotný príkaz nijak nemení obrazovku.
1. modrá
2. zelená
3. modrozelená ... 1+2
4. červená
5. fialová ... 1 + 4
6. hnedá ... 2+4
7. biela ... 1+2+4
ClrScr
Tento príkaz zotrie obrazovku (aktívne okno) aktuálnou farbou pozadia-papiera (príkaz TextBackGround)
Gotoxy(stĺpec, riadok)
Presunie kurzor na pozíciu x=stĺpec a y=riadok v aktívom okne (pozri window)
Window(x1,y1,x2,y2)
bod [x1,y1] je ľavý horný bod obdĺžnika
bod [x2,y2] je pravý dolný bod obdĺžnika
Príkaz určí vymedzenú oblasť obrazovky za aktívne okno. Týmto sa stĺpce mimo uvedený rozsah stanú nedostupné pre príkazy write, writeln, gotoxy, clrscr a pod. Rolovanie riadkov bude tiež prebiehať iba vo vymedzenom okne. Tento príkaz budeme teraz používať na zobrazenie farebných obdĺžnikov.
- window(5,5,20,8); {urci aktivne okno}
- TextBackGround(1); {zvolime si farbu obdlznika}
- ClrScr; {zotrie obdlznik zvolenou farbou}

Príklady

Zotri obrazovku na modro a do stredu vypíš žltým písmom Ahoj.
Vytvor v strede zelenej obrazovky modrý obdĺžnik o veľkosti 30 stĺpcov a 5 riadkov
V predošlej úlohe vypíš do stredu (vycentrovane) text DEMO.
V predošlej úlohe vytvor modrému obdĺžniku čierny tieň o hrúbke 1 umiestnený vpravo a dole.

D E M O
Napíš program na výpočet plochy obdĺžnika pri dodržaní nasledovného grafického formátu:

Výpočet plochy obdĺžnika
Zadaj stranu a: 18
Zadaj stranu b: 5

Plocha je: 18
Napíš program, ktorí zobrazí nasledovnú obrazovku:

Super

Knižnica Crt - klávesnica

V knižnici crt sú aj zaujímavé príkazy pre lepšiu-ľahšiu prácu s klávesnicou.

Príkazy

keypressed
logická funkcia, ktorá vráti TRUE ak je niečo v buffri klávesnice (bolo niečo stlačené)
a vráti FALSE ak je buffer klávesnice prázdny (nebolo nič stlačené)
takto môžme napr. zobrať vstup z klávesnice len ak bolo niečo stlačené a ak nebolo nič stlačené program môže bez zastavenia pokračovať ďalej.
```
		repeat		
		  if keypressed then
		  Begin
		    z:=readkey;
			case z of
			'8': up;
			'2':down;
			'4':left;
			'6':right;
			'5':play;
			end;
		 End;
	  Until z=' ';
	  
```
readkey
funkcia ktorá vráti znak stlačenej klávesy. Ak je buffer klávesnice prázdny program zastane a čaká na stlačenie znaku na klávesnici.
Rozdiely oproti vstupu pomocou read:
- readkey nevyžaduje stláčať Enter
- readkey nezmení obrazovku (stlačený kláves sa nezobrazuje)
- nemení polohu kurzora na obrazovke

Knižnica Crt - delay

Delay()

Tento príkaz používame na pozdržanie behu programu. Parameter udáva čas v milisekundách počas ktorých program nevykonáva nič. Použitie tohoto príkazu je hlavne na animáciu na obrazovke.


   x:=0;
   gotoxy(x,12); write('A');
   repeat
        gotoxy(x+1,12); write(' ');
        x:=(x+1) mod 80;
        gotoxy(x+1,12); write('A');
        delay(100);		
   Until keypressed;

Knižnica Crt - pridávanie/rušenie riadkov

Príkazy

InsLine na mieste kurzora vloží nový-prázdny riadok, aktuálny a riadky pod sa posunú nadol. Posledný riadok sa "stratí".
DelLine na mieste kurzora odstráni riadok, riadky pod sa posunú nahor. Posledný riadok obrazovky bude prázdny.

Príklady

Nasledovný príklad má na obrazovke v prvých 20-tich riadkoch simulovať "sneženie".


   clrscr;
   repeat
        gotoxy(1,1);InsLine;
        for i:=1 to random(15)+5 do 
        Begin gotoxy(random(80)+1,1); write('*'); End;
        gotoxy(1,21); DelLine;
        delay(250);		
   Until keypressed;

Knižnica Crt - zvuk

Príkazy

Jazyk pascal poskytuje len obmedzené možnosti na tvorbu zvuku. Umožňuje zapnúť zvuk danej frekvencie a jeho vypnutie. Zvuk je tvorený pípadkom počítača (nie zvukovkou).

Sound(Hz)
Zapne zvuk danej frekvencie.
NoSound
Vypne zvuk danej frekvencie.

c ... 131Hz
d ... 147Hz
e ... 165Hz
f ... 175Hz
g ... 196Hz
a ... 220Hz
h ... 247Hz

c´ ... 262Hz
d´ ... 294Hz
e´ ... 330Hz
f´ ... 349Hz
g´ ... 392Hz
a´ ... 440Hz
h´ ... 4947Hz

Príklady

Ukazka hrania melódie


uses crt;
const
     c=262;
     d=294;
     e=330;
     f=349;
     g=392;
     a=440;
     h=494;
begin
  sound(e);delay(240);nosound; delay(10);
  sound(f);delay(240);nosound; delay(10);
  sound(e);delay(240);nosound; delay(10);
  sound(d);delay(240);nosound; delay(10);
  sound(c);delay(240);nosound; delay(10);
  sound(d);delay(240);nosound; delay(10);
  sound(c);delay(990);nosound; delay(10);
  sound(c);delay(240);nosound; delay(10);
delay(500);
  sound(c);delay(240);nosound; delay(10);
  sound(f);delay(240);nosound; delay(10);
  sound(f);delay(240);nosound; delay(10);
  sound(f);delay(240);nosound; delay(10);
  sound(g);delay(240);nosound; delay(10);
  sound(a);delay(240);nosound; delay(10);
  sound(g);delay(1000);nosound; 
  sound(g);delay(240);nosound; delay(10);
delay(500);
  sound(d);delay(240);nosound; delay(10);
  sound(c);delay(240);nosound; delay(10);
  sound(d);delay(240);nosound; delay(10);
  sound(d);delay(240);nosound; delay(10);
  sound(c);delay(240);nosound; delay(10);
  sound(d);delay(240);nosound; delay(10);
  sound(f);delay(1000);nosound; 
  sound(f);delay(240);nosound; delay(10);
delay(500);
end.