Unit Ul Crt

O unitate de program se defineste ca o colectie de constante, tipuri de date, variabile proceduri si functii, in mod normal legate intre ele, plasate ti compilate intr-un alt fisier sursa al programului.

Folosirea unitatilor se realizeaza prin precizarea numelui unitatii intr-o declaratie uses.

Unit-ul Crt contine o serie de subprograme (proceduri si functii) folosite in aplicatii in care ecranul este utilizat in mod text. Programele care utilizeaza acest unit trebuie sa contina directiva uses crt.

Ecranul in mod text are 25 de linii si 80 de coloane (ele pot fi schimbate prin apelul procedurii TextMode), avand coordonatele (valorile x cresc spre dreapta, iar a lui y in jos): coltul stanga sus (0, 0), coltul stanga jos (0, 24), coltul dreapta sus (79, 0), coltul dreapta jos (79, 24). In modul text, instructiunea va lasa cursorul in coloana care va urma dupa ultima litera (ex: C). Daca ultima litera (ex: C) a fost scrisa pe coloana 79, atunci cursorul va trece in coloana 0 a liniei urmatoare. Daca ultima litera (ex: C) a fost scrisa pe coloana 79 a liniei 24, atunci intregul ecran va defila cu o linie in sus si cursorul va trece in coloana 0 a liniei 24. Subporg. bibliotecii Crt pot fi clasificate astfel: de interes general supbrog. destinate gestiunii ferestrelor; supbrog. orientate pt culori; supbrog. destinate generari sunt si intensitatii video; 1. Subprograme de interes general: TextMode Procedura TextMode asigura selectarea unui mod text specificat ea este definita prin: procedure TextMode (tm: integer); EXEMPLU: program crttm; uses crt; var modoring: word; begin clrscr; {sterge ecranul} modoring: =lastmod; {savare mod original} { } Textmode (modoring); {reface tip original} { } end.

Variabila LastMode de tip Word salveaza modul video actual, ea este initializata cu modul video activ in momentul respectiv.

Keypressed Functia ~ returneaza valoarea true daca pe tastatura s-a apasat o tasta, false in caz contrar. Functia se defineste prin: function keypressed: boolean; (functia ~ nu sesizeaza apasarea tastelor Shift, Alt, Numlock) ReadKey Functia ~ returneaza un caracter care sa tastat la tastatura. Caracterul citit nu apare pe ecran. Daca keypressed este true inaintea apelului Readkey, functia returneaza automat caracterul tastat, in caz contrar Readkey asteapta tastarea unui caracter.

Functia se defineste astfel: function WhereX: byte returneaza abscisa cursorului curent function ReadKey: char; Unul din avantajele utilizarii unitu-lui Crt este cresterea flexibilitatii si vitezei operatiilor de iesire. Programele care nu utilizeaza unit-ul Crt trimit datele de iesire pe ecran prin intermediul DOS-ului. Folosind unit-ul Crt, datele de iesire sunt trimise direct la BIOS, s-au prin operatii si mai rapide direct la memoria video.

AssignCrt Procedura ~ ataseaza ecranului (CRT-ului) un fisier text. procedure AssignCrt (var f: text); (unde f este fisierul care se ...