Grafica In Borland Pascal - HanuAncutei.com

LocuriFaine: Hoteluri si Pensiuni de Lux | Ferma Club

Regulament

Grafica In Borland Pascal, Cum pot desena un arbore binar in Pascal

Optiuni

ecou Vizualizare profil forumist	4 Jun 2004, 08:10 PM Mesaj #1
Haiduc Grup: Musterii Mesaje: 51 Inscris: 28 May 04 Forumist Nr.: 3.662	Daca puteti sa-mi imi dati cateva sugestii despre cum as putea realiza colorarea meniului de rulare sau despre cum pot desena linii in acelasi meniu . -------------------- In tot ce faci , gandeste-te la sfarsit ! La Fontaine

Napoleon9th Vizualizare profil forumist	4 Jun 2004, 09:33 PM Mesaj #2
Vataf Grup: Membri Mesaje: 151 Inscris: 26 May 04 Din: Bucuresti Forumist Nr.: 3.638	ce legatura are un arbore binar cu meniul de rulare? Si daca tot veni vorba, ce intelegi tu prin "meniu de rulare"? Ce face, in linii mari, aplicatia in care vrei sa introduci aceste grafice (ca sa stim cum le integram)?

ecou Vizualizare profil forumist	4 Jun 2004, 09:53 PM Mesaj #3
Haiduc Grup: Musterii Mesaje: 51 Inscris: 28 May 04 Forumist Nr.: 3.662	Am un fisier in care am memorat vectorul de "tati" al unui arbore binar.Din acest fisier citesc arborele si apoi vreau sa il desenez prin metoda injumatatirii ecranului.In JAVA am reusit destul de simplu:pe un applet cu 2 butoane si cateva text field-uri.Insa in pascal nu stiu prea multa grafica.(ma refer la desenare pe baza de coordonate si la crearea unei intrerfete cat mai simple si mai manevrabile) -------------------- In tot ce faci , gandeste-te la sfarsit ! La Fontaine

Promo Contextual	4 Jun 2004, 09:53 PM Mesaj #
ContextuALL

E.B.E. Vizualizare profil forumist	5 Jun 2004, 12:54 AM Mesaj #4
Domnitor Grup: Membri Mesaje: 1.292 Inscris: 20 November 03 Din: Delft, NL Forumist Nr.: 1.248	Dumb question: daca ai reusit in Java, de ce te mai chinui sa faci in Pascal?!? Pascal is dead and buried... R.I.P. ... -------------------- I spend my time thinking of Angel... praying she ain't thinking of me...

ecou Vizualizare profil forumist	5 Jun 2004, 06:53 AM Mesaj #5
Haiduc Grup: Musterii Mesaje: 51 Inscris: 28 May 04 Forumist Nr.: 3.662	Am de facut o tema .... -------------------- In tot ce faci , gandeste-te la sfarsit ! La Fontaine

thext Vizualizare profil forumist	5 Jun 2004, 08:25 AM Mesaj #6
Haiduc Grup: EmailInvalid Mesaje: 85 Inscris: 10 May 03 Din: iAsi Forumist Nr.: 278	Poate Borland Pascal e mort da' sa stii ca Pascalul ca limbaj de programare traieste. De Delphi ai auzit ? Acum la problema cu arborii... Nu stiu exact ce vrei sa desenezi, dar daca ai probleme cu initializarea modului grafica si cu a desena niste linii si puncte atunci te pot ajuta.

ecou Vizualizare profil forumist	5 Jun 2004, 09:29 AM Mesaj #7
Haiduc Grup: Musterii Mesaje: 51 Inscris: 28 May 04 Forumist Nr.: 3.662	Am auzit si de Delphi(are aceeasi sintaxa ca si pascalul).Nu stiu de unde sa iau sintaxa pentru grafica in Pascal.Stiam ceva insa nu mai imi aduc aminte.Daca ma poti ajuta trimite-mi un raspuns pe mail. -------------------- In tot ce faci , gandeste-te la sfarsit ! La Fontaine

thext

5 Jun 2004, 01:28 PM

Mesaj #8

Haiduc

Grup: EmailInvalid
Mesaje: 85
Inscris: 10 May 03
Din: iAsi
Forumist Nr.: 278

De ce sa trimit e-mail cand pot scrie aici pentru toata lumea

Asa.
Grafica in Borland Pascal se bazeaza pe Borland Graphic Interface (BGI).
Ca sa poti desena ceva trebuie sa initializezi mai intai modul grafic si cand termini cu el trebuie sa il inchizi.
Pentru asta:
Initializare: initgraph
Inchidere: closegraph
Dar inainte de asta trebuie sa ai grija sa incluzi unit-ul pentru grafica, adica Graph. Treaba asta se face cu uses Graph

si o bucata de cod:

CODE

Program Grafica;

Uses Crt,Graph;

Var GraphicsDriver, GraphicsMode,
ErrCode : Integer;

Begin
GraphicsDriver := Detect;
InitGraph(GraphicsDriver, GraphicsMode,'');
ErrCode := GraphResult;
If GraphResult <> grOK then Begin
ClrScr;
Writeln('Eroare la initializare: ',GraphErrorMsg(ErrCode));
Readln;
Halt(1);
End Else
Begin
Randomize; SetColor(Random(15) + 1);
OutTextXY(20,20,'Bla Bla. Grafica in Pascal');
Readln;
End; CloseGraph;
End.

Atentie la InitGraph. Al treilea parametru e '' doar daca fisierele cu extensia *.BGI(cel mai probabil de EGAVGA.BGI o sa ai nevoie) e inclus corect de prin setari (pe undeva la DIrectories, nu mai tin minte sau daca e in directorul curent in care se afla programul. Daca e in alta parte trebuie sa scrii explicit directorul: InitGraph(GraphicsDriver, GraphicsMode,' 'C:\BP\BGI');

P.S. Iti vine sa crezi ca treaba asta am facut-o ultima oara acum vreo 7 ani ? Si inca mai tin mine....

Sau poti sa dai: www.google.com si sa scrii acolo: Pascal initgraph

Napoleon9th

5 Jun 2004, 02:02 PM

Mesaj #9

Vataf

Grup: Membri
Mesaje: 151
Inscris: 26 May 04
Din: Bucuresti
Forumist Nr.: 3.638

QUOTE (thext @ 5 Jun 2004, 02:30 PM)

Atentie la InitGraph. Al treilea parametru e '' doar daca fisierele cu extensia *.BGI(cel mai probabil de EGAVGA.BGI o sa ai nevoie) e inclus corect de prin setari (pe undeva la DIrectories, nu mai tin minte sau daca e in directorul curent in care se afla programul. Daca e in alta parte trebuie sa scrii explicit directorul: InitGraph(GraphicsDriver, GraphicsMode,' C:\BP\BGI');

Sau poti sa lasi ca parametru '' si sa copiezi fisierul cu pricina (EgaVga.Bgi) in directorul in care se va gasi executabilul.

Cat despre interfata simpla si manevrabila, daca vrei sa folosesti mouse-ul va trebui sa il initializezi tot cam in acelasi mod... :-/

Acest topic a fost editat de Napoleon9th: 5 Jun 2004, 02:08 PM

thext Vizualizare profil forumist	5 Jun 2004, 08:09 PM Mesaj #10
Haiduc Grup: EmailInvalid Mesaje: 85 Inscris: 10 May 03 Din: iAsi Forumist Nr.: 278	Mdea... si cu mouseu' e o poveste mai delicata... Practic e un unit pentru mouse, care fie vorba intre noi, e mai mult assembler decat pascal. Stiu ca m-am jucat si cu mouseul in Pascal "cand eram mai tanar"

ecou Vizualizare profil forumist	5 Jun 2004, 09:20 PM Mesaj #11
Haiduc Grup: Musterii Mesaje: 51 Inscris: 28 May 04 Forumist Nr.: 3.662	Nu ma interesa lucrul cu mouse-ul ci mai mult cum sa trag o linie intre niste coordonate si daca merge pus vreun buton.Oricum va multumesc pentru ajutor si pot sa spun ca m-a ajutat foarte mult. -------------------- In tot ce faci , gandeste-te la sfarsit ! La Fontaine

Mihai Vizualizare profil forumist	5 Jun 2004, 10:33 PM Mesaj #12
Gazda Hanului Grup: Admin Mesaje: 8.578 Inscris: 22 February 03 Din: Hanu Ancutei Forumist Nr.: 1	Bine ai venit la Han, ecou! --------------------

ecou Vizualizare profil forumist	6 Jun 2004, 05:05 AM Mesaj #13
Haiduc Grup: Musterii Mesaje: 51 Inscris: 28 May 04 Forumist Nr.: 3.662	Multumesc ! E tare bine aici la han...Imi place . -------------------- In tot ce faci , gandeste-te la sfarsit ! La Fontaine

Napoleon9th Vizualizare profil forumist	6 Jun 2004, 04:39 PM Mesaj #14
Vataf Grup: Membri Mesaje: 151 Inscris: 26 May 04 Din: Bucuresti Forumist Nr.: 3.638	Pt linie intre coordonate ai procedura line(x1,y1,x2,y2)... Cat despre buton, ii pui imaginea pe ecran si captezi fie mouse-ul fie tastatura ca sa vezi cand este "apelat".

ecou Vizualizare profil forumist	6 Jun 2004, 08:16 PM Mesaj #15
Haiduc Grup: Musterii Mesaje: 51 Inscris: 28 May 04 Forumist Nr.: 3.662	Multumesc ! -------------------- In tot ce faci , gandeste-te la sfarsit ! La Fontaine

« Cele mai vechi · Software, Hardware si Programare · Cele mai noi »