Programación General > Pascal

 Para Textattr

(1/1)

_.B._:
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
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.

BlackTigerX:
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 ---begin  ClrScr;  C1:=0;  while Chr1 &#60;&#62; #27 do  begin    if C1 = 8 then    C1:=0;    TextBackGround (C1);    ClrScr;    TextOO;    Inc (C1);    Chr1:=ReadKey  end;  NormVideo;  ClrScrend. 

_.B._:
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 ---A programar!. Bernardo L. :comp:

BlackTigerX:
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

Navegación

[0] Índice de Mensajes