Frage zu Turbo Pascal

Das war eine ernstgemeinte Frage. Ich weiß jetzt so nicht was du meinst.

 

Es gibt doch nur 2 Modi, Text und Grafik...

 

Und mit Grafik meinst du graph?

 

Das ist die Unit mit der man den Grafikmodus benutzen kann.

Zum Verständnis:
Textmodus ist der mit Zeilen, also das was du bisher benutzt. Grafikmodus ist der mit Pixeln und wird im Vollbild ausgeführt.

 

Achso!!

Hört sich interessant an, kannst du mal ein Beispielcode posten. Muss auch keine Funktion beinhalten.

 

Im alten TP6-Ordner lag tatsächlich noch was rum:

Code:

program Grafiktest;

uses
  crt,Graph,display;

var ausw : integer;

procedure Box;
var
  Gd, Gm: Integer;
  y0, y1, y2, x1, x2: Integer;
begin
  Gd := Detect; InitGraph(Gd, Gm, '');
  if GraphResult <> grOk then Halt(1);
  y0 := 50;
  y1 := 225;
  y2 := 550;
  x1 := 50;
  x2 := 250;
  Bar3D(x1, y0, x2, y1, 30, TopOn);
  {Bar3D(x1, y1, x2, y2, 10, TopOn);}
  ReadLn;
  CloseGraph;

end;

procedure uhr;

VAR a,b,c,d:integer;
    graphdriver,graphmode:integer;

begin
c:=90;
d:=20;
clrscr;
graphdriver:=detect;
initgraph(graphdriver,graphmode,' ');
a:=getmaxx div 2;
b:=getmaxy div 2;
setbkcolor(black);
setcolor(white);
repeat
c:=c-10 mod 360;
if c<0 then c:=360;
d:=c+5;
setfillstyle(1,red);
pieslice(a,b,c,d,150);
delay(10);
setfillstyle(1,black);
pieslice(a,b,c,d,150);
until keypressed;
closegraph;
END;

procedure Kreis;
var
  Gd, Gm: Integer;
  Radius: Integer;
begin
  Gd := Detect; InitGraph(Gd, Gm, '');
  if GraphResult <> grOk then Halt(1);
  for Radius := 1 to 5 do
    Circle(100, 100, Radius*10);
  ReadLn;
  CloseGraph;
end;

begin {HP}
clrscr;
writeln('Graphiksammlung I Ver.0.6');
writeln;
writexy(5,4,'Bitte w„hlen :');
writexy(5,6,'3D-Box ---------> 1');
writexy(5,8,'Uhr ------------> 2');
writexy(5,10,'Kreis ----------> 3');
writexy(15,12,'----> ');readln(ausw);
case ausw of
1 : Box;
2 : Uhr;
3 : Kreis;
end;
end.

Wie man sieht is da viel recycelter Code drin...

Und frag mich net warum da die Unit display drinsteht, wahrscheinlich braucht man die da gar net. Is alles so lange her, ich hab bei dem meisten Zeug vergessen wie das funktioniert...