Pascal/Turbo Pascal - cambiar color programa en consola.

   
Vista:

cambiar color programa en consola.

Publicado por wind (26 intervenciones) el 01/04/2014 20:22:42
Saludos.

Cuando uno crea un programa en consola, aparece un fondo negro y letras grises. Sé como se cambia el color de las letras, lo que no se hacer, es cambiar el color de fondo de la consola ¿Existe una manera de cambiar el color?
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

cambiar color programa en consola.

Publicado por David (145 intervenciones) el 02/04/2014 09:18:46
Podrías utilizar Textbackground. Te dejo un pequeño ejemplo

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Uses CRT;
 
Begin
 TextColor(White);
  Clrscr;
  WriteLn('Color de fondo por defecto');
  TextBackground(Green);
  Clrscr;
  WriteLn('Color de fondo verde');
  TextBackground(Brown);
  Clrscr;
  WriteLn('Color de fondo marrón');
  TextBackground(Black);
  Clrscr;
 WriteLn('Color de fondo negro');
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

cambiar color programa en consola.

Publicado por ramon (2072 intervenciones) el 02/04/2014 12:32:26
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
{Mira a ver si ayuda }
 
program color;
  uses
     crt;
  var
     fondo, letra : integer;
  begin
      textcolor(15);
      textbackground(0);
      clrscr;
      fondo := 15;
      letra := 1;
      textcolor(letra);
      textbackground(fondo);
      repeat
      gotoxy(26,11);write(' Pulse Una Tecla Para Terminar ');
      delay(120);
      fondo := fondo - 1;
      if fondo = -1 then
      fondo := 15;
      letra := letra + 1;
      if letra > 15 then
      letra := 1;
      textcolor(letra);
      textbackground(fondo);
      until keypressed;
      textcolor(15);
      textbackground(0);
      clrscr;
      {si quieres color fondo toda la pantalla entra
      textbackground(numero de color 0 a 15) y clrscr}
  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