Pascal/Turbo Pascal - Modo Grafico

   
Vista:

Modo Grafico

Publicado por QWERTY (1 intervención) el 13/08/2011 06:40:10
Tengo que hacer un TA TE TI para la facu y el compilador que utilizamos es el dev pascal y quiero hacerle algunos detalles al juego pero no encuentro ninguna libreria para el modo grafico de dev pascal, lei por ahi que el dev pascal no tiene modo grafico puede ser asi??

Y si es asi me pueden dar alguna solucion para cambiarle el tamaño a algunas palabras.

Gracias..!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Modo Grafico

Publicado por ramon (2072 intervenciones) el 26/08/2011 12:53:19
el modo grafico de dev pascal es el mismo de freepascal o el de pascal estandar y lo emulas o sea compilas en dos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Modo Grafico

Publicado por ramon (2072 intervenciones) el 31/08/2011 18:11:18
[Ejemplo dev-pascal]

procedure iniciografico;
begin
drive := detect;
initgraph(drive,modo,'c:\dev pas'); {Deves de tener los driveres EGAVGA.BGI Para
16 Colores o SVGA.BGI Para 256 Colores <Este Ejemplo Esta con EGAVGA.BGI >}
if graphresult <> 0 then
begin
writeln('Error Graficos');
halt(1);
end
else
begin
setcolor(15);
outtextxy((getmaxx div 2) - 20,(getmaxy div 2) - 12,'MODO GRAFICO');
line((getmaxx div 2) - 20,getmaxy div 2,(getmaxx div 2) + 75,getmaxy div 2);
rectangle((getmaxx div 2) - 20,(getmaxy div 2) + 12,
(getmaxx div 2) + 75,(getmaxy div 2) + 44);
outtextxy((getmaxx div 2) - 12,(getmaxy div 2) + 18,
'X = ' + intstring(getmaxx + 1));
outtextxy((getmaxx div 2) - 12,(getmaxy div 2) + 28,
'Y = ' + intstring(getmaxy + 1));
settextstyle(0,0,2);
outtextxy((getmaxx div 2) - 52,(getmaxy div 2) + 60,'TAMA' +
chr(165) + 'O LETRA');
settextstyle(0,0,3);
setcolor(14);
outtextxy((getmaxx div 2) - 450,100,'DEV-PASCAL Version v1.9.2 Freepascal');
settextstyle(0,0,0);
setcolor(15);
readln;
closegraph;
end;
end;



begin
iniciografico;
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Modo Grafico

Publicado por ramon (2072 intervenciones) el 02/09/2011 22:09:30
program graficos;
uses
crt, graph;

var
drive, modo : word;


function intstring(nu : integer) : string;
var
dat : string[8];
begin
fillchar(dat,9,' ');
dat[0] := chr(8);
str(nu,dat);
intstring := dat;
end;

procedure iniciografico;
begin
drive := detect;
initgraph(drive,modo,'c:\dev pas');
if graphresult <> 0 then
begin
writeln('Error Graficos');
halt(1);
end
else
begin
setcolor(15);
outtextxy((getmaxx div 2) - 20,(getmaxy div 2) - 12,'MODO GRAFICO');
line((getmaxx div 2) - 20,getmaxy div 2,(getmaxx div 2) + 75,getmaxy div 2);
rectangle((getmaxx div 2) - 20,(getmaxy div 2) + 12,
(getmaxx div 2) + 75,(getmaxy div 2) + 44);
outtextxy((getmaxx div 2) - 12,(getmaxy div 2) + 18,
'X = ' + intstring(getmaxx + 1));
outtextxy((getmaxx div 2) - 12,(getmaxy div 2) + 28,
'Y = ' + intstring(getmaxy + 1));
settextstyle(0,0,2);
outtextxy((getmaxx div 2) - 52,(getmaxy div 2) + 60,'TAMA' +
chr(165) + 'O LETRA');
settextstyle(0,0,3);
setcolor(14);
outtextxy((getmaxx div 2) - 450,100,'DEV-PASCAL Version v1.9.2 Freepascal');
settextstyle(0,0,0);
setcolor(15);
readln;
closegraph;
end;
end;



begin
iniciografico;
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar