• Jueves 14 de Noviembre de 2024, 17:20
« anterior próximo »
Páginas: [1]

Autor Tema:  Recuadros En Pascal...  (Leído 2400 veces)

MiSiTo

  • Nuevo Miembro
  • *
  • Mensajes: 14
    • Ver Perfil
Recuadros En Pascal...
« en: Lunes 22 de Mayo de 2006, 11:50 »
0
Hola queria saber como puedo hacer un recuadro en pascal, a continuacion les dejo un ejemplo, pero no tengo claro que poner en donde estan los interrogantes, he visto en algunos ejemplos una especia de cuadrados en color sombreado, pero no se como se introducen desde pascal .... si me pueden echar una mano por favor ..

Saludos y gracias.
El mensaje contiene 1 archivo adjunto. Debes ingresar o registrarte para poder verlo y descargarlo.

Enko

  • Miembro de PLATA
  • *****
  • Mensajes: 1562
  • Nacionalidad: 00
    • Ver Perfil
Re: Recuadros En Pascal...
« Respuesta #1 en: Lunes 22 de Mayo de 2006, 16:33 »
0
fijate si esto funciona  :hola:
Si quieres escribir directamente en el recuadro, usa el procedimiento Ventana.
Código: Text
  1.  
  2. procedure Recuadro(X1,Y1,X2,Y2,Plano,Fondo : byte);
  3.  var
  4.   I : byte;
  5.   S : char;
  6.  Begin
  7.   TextColor(Plano);
  8.   TextBackground(Fondo);
  9.   S := #205;
  10.   for I := (X1+1) to (X2-1) do
  11.    begin
  12.     GotoXY(I,Y1);
  13.     Write(S);
  14.     GotoXY(I,Y2);
  15.     Write(S);
  16.    end;
  17.   S := #186;
  18.   for I := (Y1+1) to (Y2-1) do
  19.    begin
  20.     GotoXY(X1,I);
  21.     Write(S);
  22.     GotoXY(X2,I);
  23.     Write(S);
  24.    end;
  25.   S := #201;
  26.   GotoXY(X1,Y1);
  27.   Write(S);
  28.   S := #187;
  29.   GotoXY(X2,Y1);
  30.   Write(S);
  31.   S := #200;
  32.   gotoXY(X1,Y2);
  33.   Write(S);
  34.   S := #188;
  35.   GotoXY(X2,Y2);
  36.   Write(S);
  37.  End;
  38.  
  39. procedure Ventana(X1,Y1,X2,Y2,Plano,Fondo,PlanoRecuadro,FondoRecuadro : byte);
  40.  Begin
  41.   Window(X1,Y1,X2,Y2);
  42.   Recuadro(1,1,X2-X1,Y2-Y1,PlanoRecuadro,FondoRecuadro);
  43.   Window(X1+1,Y1+1,X2-2,Y2-2);
  44.   Textcolor(Plano);
  45.   TextBackground(Fondo);
  46.   ClrScr;
  47.  End;
  48.  
  49.  

juancpalmajr

  • Miembro activo
  • **
  • Mensajes: 51
    • Ver Perfil
    • http://www.linuxcommunity.com.ar
Re: Recuadros En Pascal...
« Respuesta #2 en: Miércoles 24 de Mayo de 2006, 03:34 »
0
Cita de: "MiSiTo"
Hola queria saber como puedo hacer un recuadro en pascal, a continuacion les dejo un ejemplo, pero no tengo claro que poner en donde estan los interrogantes, he visto en algunos ejemplos una especia de cuadrados en color sombreado, pero no se como se introducen desde pascal .... si me pueden echar una mano por favor ..

Saludos y gracias.
nunca lo hice pero yo haria:
crea una ventana y dibujala con esos caracteres de dibujo de modo texto, un par de writeln/write, despues crea otra ventana mas pequeña y la metes mas al medio, dando la sensacion de que esta dentro del recuadro, todo esto usando CRT.
Sino, podes usar Graph y utilizar las funciones que vienen para ella, pero aqui se trabaja en modo grafico.
Olvida la segunda opcion, pensa en la primera. Va a funcar...creo
Páginas: [1]
« anterior próximo »