Pascal/Turbo Pascal - No logro unir la esquina del cuadro

   
Vista:

No logro unir la esquina del cuadro

Publicado por Luis (33 intervenciones) el 15/05/2012 15:58:07
ayuda no lo gro unir la esquina inferior derecha cuando las uno no se me ve la parte de arriba
ayudaaaaaaaaaaaaaaaaaaaaaaaaaaa

program cuadro;
uses crt;
const
somb : char = char(176);
var
i:integer;

begin
clrscr;
gotoxy (1,1);write(chr(201));
for i:= 2 to 79 do
begin
gotoxy (i,0);write(chr(205));
end;
gotoxy(80,1);write(chr(187));
for i:= 2 to 24 do
begin
gotoxy(1,i);write(chr(186));
gotoxy(79,i);write(chr(32),char(186));
end;
gotoxy(1,25);write(chr(200));
for i := 2 to 79 do
begin
gotoxy(i,25);write(chr(205));
end;
gotoxy(80,24);write(chr(188));

readkey
end.
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

No logro unir la esquina del cuadro

Publicado por ramon (2072 intervenciones) el 15/05/2012 17:31:39
Lee con calma las medidas dadas a el ancho de pantalla de 80 son las máximas que admite como texto la pantalla al entrar gotoxy(80,24);write(chr(188)); la pantalla se desplaza tienes que reducir
el ancho normal mente se realiza sobre unos valores de xmin = 1, ymin = 1, xmax = 79, ymax = 23
para evitar esos desplazamientos de pantalla.
Prueba a reducir tamaño de marco.
Ojo si intentas escribir dentro del marco tendrás que diseccionar las entrada del testo sino el
marco desaparecerá con el texto.
Excepto que crees una ventana de entrada dentro del marco por ejemplo :
window(2,2,78,22); esto te crea esa ventana y el marco estará intacto a gas lo que a gas.
Pero antes de abandonar el programa tendrás que volver a su estado normal a la pantalla
con window(0,0,80,25); no te se olvide.
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