Trecerea la modul grafic și lucrul în acesta sunt implementate în Turbo Pascal sub forma unui set de proceduri amplasate într-un modul special graph.tpu. Lucrarea acestui modul se bazează pe utilizarea așa-numitei interfețe grafice Borland (BGI - Borland Graphics Interface), o bibliotecă de grafică specializată. Principalul avantaj al acestei interfețe este că este ușor de învățat și destul de potrivit pentru programarea programelor grafice simple.
Graficul grafic Turbo Pascal conține aproximativ cincizeci de proceduri și funcții diferite concepute pentru a lucra cu un ecran grafic. Același modul descrie unele constante și variabile încorporate care pot fi utilizate în programele grafice. Partea principală a modulului constă în proceduri pentru ieșirea elementelor grafice de bază, cum ar fi punctele, segmentele de linie dreaptă, arcele și cercurile întregi etc. Astfel de elemente sunt numite primitive grafice. Un alt grup de proceduri este conceput pentru a controla modul grafic.
Modulul Graph trebuie să se conecteze explicit la program utilizând operatorul de instrucțiuni de utilizare, scris după antetul programului:
unde valoarea este orice număr (vezi tabelul de mai jos) sau constanta încorporată (constantele încorporate nu trebuie să fie descrise în mod specific, deoarece descrierile lor sunt cuprinse în module).
În tabel sunt afișate câteva valori posibile:
640х480, 2 culori, 1 pagină
Trecerea la modul grafic al afișajului se face prin apelarea procedurii InitGraph din modulul Graph.
InitGraph (var gd: Integer; var gm: Integer;
InitGraph inițiază sistemul grafic și comută hardware-ul în modul grafic.
Program Grafics; Program Grafics;
Utilizează grafic; Utilizează grafic;
Var gd, gm: Integer; Var gd, gm: Integer;
gd: = 9; gm: = 1; gd: = vga; gm: = VGALo;
Trecerea la modul grafic (inițializarea modului grafic) este, în general, însoțită de prelucrarea eventualelor erori de inițializare. Aceste erori se pot datora lipsei unui driver grafic sau a valorilor incorecte ale parametrilor. Dacă există o eroare, procedura InitGraph generează un rezultat nonzero corespunzător - un cod de eroare. Acest cod poate fi obținut utilizând funcția GraphResult.
GraphResult Tipul de rezultat: Integer.
Sunt definite următoarele coduri de eroare:
- 1 program nu este instalat (utilizați procedura InitGraph);
- 2 hardware-ul grafic nu a fost găsit;
- 3 driverul dispozitivului grafic nu a fost găsit;
- 4 fișier șofer nevalid al dispozitivului grafic;
- 5 nu este suficientă memorie pentru încărcarea driverului;
- 7 din memorie la pictura;
- 8 fișier de font nu a fost găsit;
- 9 nu este suficientă memorie pentru a încărca fontul;
- 10 Modul grafic nevalid pentru driverul selectat.
Pentru a pune sistemul în modul grafic, luând în considerare cele de mai sus menționat, să scrie procedura și se va folosi pentru a scrie programe, deoarece nu este foarte convenabil pentru a înregistra de fiecare dată când programul unui set de situații de inițializare.
driver, mode, error: Integer;
dacă eroare<>Apoi, atunci
Eroare GraphResult inițializare (a se vedea operatorul condițională) afișează un mesaj de eroare pentru un anumit cod (a se vedea linia writeln (GraphErrorMsg (eroare)) Funcția GraphErrorMsg returnează eroarea șir pentru un cod de mesaj dat și acesta din urmă procedură Halt - .. O procedură standard, care completează program și efectuează o revenire la sistemul de operare.
Sunt utilizate mai multe proceduri și funcții pentru a seta modul grafic.
Funcție: verifică disponibilitatea unui hardware adecvat și determină modul grafic și driverul care trebuie utilizate.
DetectGraph (driverul var, modul: Integer).
Note: procedura returnează valorile modului selectat și ale driverului, care pot fi transferate ca parametri în procedura InitGraph pentru a încărca driverul corespunzător (vezi tabelul de mai sus). Dacă nu sunt specificate alte acțiuni (sau parametrul driverelor grafice este Detect (0)), procedura InitGraph apelează procedura DetectGraph. găsește și încarcă driverul corespunzător și inițiază sistemul grafic. Singurul motiv pentru a apela direct procedura DetectGraph este înlocuirea driverului pe care îl selectează.
Setează sistemul în modul grafic și șterge ecranul.
Descriere: SetGraphMode (modul: Integer)
Valoarea modului este un număr întreg între 0 și 5 și depinde de driverul curent (consultați tabelul modului grafic).
Această procedură returnează setul curent de moduri grafice utilizând procedurile InitGraph și SetGraphMode. Valorile modului sunt un număr întreg de la 0 la 5 (vezi tabelul modului grafic).
Resetează setările pentru unelte grafice și stabilește parametrii pentru sistemul grafic:
- fundal și culoare de bază;
- tipul liniei și modelul de linie;
- tipul de agregat, umplerea probei și culoarea umplerii.
Pentru acest driver, returnează cel mai mic și cel mai mare mod grafic.
var LoMode, HiMode: Integer)
Aici LoMode este cel mai mic, HiMode este cel mai înalt mod al acestui driver. Dacă valoarea GraphDriver este nevalidă, valoarea returnată va fi -1.
Returnează un șir care conține numele graficului specificat.
Tipul de rezultat: șir.
Numele de moduri sunt integrate în fiecare șofer. Valorile returnate pot fi utilizate pentru a crea meniuri, moduri de afișare a ecranului etc.
Se repornește modul ecran inițial înainte ca grafica să fie inițializată.
Această procedură și procedura SetGraphMode vă permit să comutați între modurile text și grafic fără a închide modul grafic.
driver, mode, error: Integer;
Articole similare
Trimiteți-le prietenilor: