Aplicaţie Graph

Aplicaţie Graph

Pentru a se lucra în modul grafic este nevoie de iniţializarea sistemului în mod grafic.

Programul initmodg relizează iniţializarea sistemului grafic, prin detectarea driver-ului.

Funcţia Conv de tip string converteşte un număr întreg într-un şir de caractere şi este folosită pentru afişarea în mod grafic al numerelor.

Program initmodg;

User crtgraph;

Var gd, gm : integer;

Lomode, himode: integer;

Function conv(l: longint):string;

Var s: string;

Begin

str(l, s);

conv:= s;

end;

Begin

{detectarea driver-ului grafic}

detectgraph (gd, gm);

{punerea sistemului în mod grafic driver-ului găsit}

initgraph(gd, dm, ‘c:bpbgi’);

outtextxy (10, 10, ‘ numele driver:’+getdrivername’);

outtextxy (10, 30,’ mod grafic: ‘+conv(getgraphmode));

outtextxy (10, 50,’nume mod: ‘+getmodename(gm) );

outtextxy (10, 70, ‘nr. Moduri: ‘+conv(getmaxmode));

getmoderange(gd, lomode, himode);

outtextxy(10, 90, ‘val, min.: ‘+conv(lomode)+’val. Max.: ’+cov( himode) );

outtextxy (10, 110, ‘X,Y maxi: ‘+conv(getmaxx)+’,’+conv (getmaxy));

outtextxy(110, 235, ‘Apăsaţi o tastă pentru restabilirea modului carracter.’);

readkey;

{Restabilirea modului caracter}

restorecrtmode;

writeln (‘Acum suntem în mod caracter’);

writeln(Apăsaţi orice tastă);

readkey;

{Revenirea ]n modul grafic}

setgraphmode (gm);

outtextxy(100, 235,’ Acum suntem în mod grafic.’);

readkey;

closegraph;

End.

Căutări Recente: caractere 3d , aplicaţia graph , cum se face un grafic in graph?

Articole Asemănătoare:

1. Talking Tom Cat – Pisica Care Vorbeste – Cea mai Comica Aplicatie Iphone
2. Driver Webcam Konig Cmp-Webcam 11,15, 21, 25, 50, 55, 60, 65, 86, 75
3. Definiri de culori şi palete