SoloCodigo

Programación General => Pascal => Mensaje iniciado por: _.B._ en Miércoles 31 de Diciembre de 2003, 18:01

Título: Para Textattr
Publicado por: _.B._ en Miércoles 31 de Diciembre de 2003, 18:01
Saludos!.
Creé este código en donde aparece el valor de TextAttr (que va de 0 a 255) para cada color de texto (TextColor, que va del 0 al 31, contando los que titilan - blink), con cada color de fondo (TextBackground, que va del 0 al 7, y que son iguales a los 8 primeros colores del TextColor).
>> Para cambiar de color de fondo, presiona cualquier tecla. Para salir del programa, presiona la tecla ESC en cualquier momento <<
Hay una copia de este archivo en http://mipagina.cantv.net/bernardolg/tp/files/BACKGRD1.PAS (http://mipagina.cantv.net/bernardolg/tp/files/BACKGRD1.PAS)
Despues que veas la combinación de color de texto con color de fondo, simplemente haces TextAttr:=192 (letras negras que titilan sobre fondo rojo), o TextAttr:=15 (letras blancas en fondo negro), o el que mas te sirva,  en cualquier parte de tu programa.
Utiliza Normvideo para reestablecer el TextAttr original, o lee los mensaje de este foro para otros ejemplos del TextAttr.
A programar!.
Bernardo L. :comp:

{* * * *}
PROGRAM TextoFondo;
USES CRT;
VAR C1:BYTE;
    Chr1:CHAR;

PROCEDURE TEXTOO;
  VAR C1,C2:BYTE;
  BEGIN
    FOR C1:=0 TO 31 DO
      BEGIN
        TEXTCOLOR (C1);
        FOR C2:=1 TO 4 DO
          WRITE (TEXTATTR:5)
      END;
    END;

BEGIN
  CLRSCR;
  C1:=0;
  WHILE Chr1 <> #27 DO
    BEGIN
      IF C1 = 8 THEN
        C1:=0;
      TEXTBACKGROUND (C1);
      CLRSCR;
      TEXTOO;
      INC (C1);
      Chr1:=READKEY
    END;
  NORMVIDEO;
  CLRSCR
END.
{* * * *}

NOTA: correciones bien recibidas.
Título: Re: Para Textattr
Publicado por: BlackTigerX en Viernes 2 de Enero de 2004, 19:27
una nota fuera talvez de tema, pero te recomendaria que usaras un estilo para escribir tu codigo mas estandard, las palabras reservadas en minusculas y las funciones con letras mayusculas en el inicio de cada "palabra", ademas de la tabulacion adecuada, todo esto para hacerlo mas facil de leer... algo asi

Código: Text
  1. begin
  2.   ClrScr;
  3.   C1:=0;
  4.   while Chr1 &#60;&#62; #27 do
  5.   begin
  6.     if C1 = 8 then
  7.     C1:=0;
  8.     TextBackGround (C1);
  9.     ClrScr;
  10.     TextOO;
  11.     Inc (C1);
  12.     Chr1:=ReadKey
  13.   end;
  14.   NormVideo;
  15.   ClrScr
  16. end.
  17.  
Título: Re: Para Textattr
Publicado por: _.B._ en Viernes 2 de Enero de 2004, 21:02
Epale BlackTigerX!.
Pana, thanks por la nota.
No habia visto el boton de CODE!!. Así sí se ve bien.
Cuando "Pegué" el código, se comió todos los tabuladores.
Código: Text
  1. A programar!.
  2.  
Bernardo L. :comp:
Título: Re: Para Textattr
Publicado por: BlackTigerX en Sábado 3 de Enero de 2004, 18:58
nota que esto no es solo por hacerlo como los demas lo hacen o algo asi... esto te sirve a la hora que ya estas trabajando en algun lado, da mucha mas presentacion a tu codigo y denota un programador mas "educado"
ademas que facilita el trabajar en grupo

salu2