Цвет Опции

[Антон]

Кто-нибудь, подскажите, пожалуйста, как менять цвет в строках. Желательно с примером. Не судите строго – я Паскалем второй день занимаюсь.
И ещё со звуком не понятно, написанно sound(Hz:word), как правильно написать, чтобы заработало?
Заранее благодарен.

[volvo]

Антон

Цвет строки в текстовом режиме меняется процедурой TextColor(color). Также можно менять цвет фона - TextBackground(bgColor). Например, чтобы выводить символы красного цвета на белом фоне -

Код

 Uses Crt;
Begin
 TextColor(Red);
 TextBackground(White);
 Write('test');
End.

Важно не забывать восстанавливать исходные значения цветов перед выходом из программы:

Код

 TextColor(LightGray);
 TextBackground(Black);

Процедура Sound(freq) - заставляет встроенный динамик компьютера издавать звук частоты freq Герц. Способ использования:

Код

Uses Crt;
Begin
 Sound(2000);
 Delay(5000); { время звучания }
 NoSound; { обязательно, т.к. без этой процедуры звук не прекратится даже после окончания работы программы}
End;

Сообщение отредактировано: volvo - 23.10.2004 16:41

[GoodWind]

Важно не забывать восстанавливать исходные значения цветов перед выходом из программы:

лучше завести переменную типа word и в начале программы бэкапить в нее аттрибуты текста:

Код

var attrbcup:word;
begin
attrbcup:=textattr;
....
{дальше идет прога}
....
textattr:=attrbcup;
end.

мало ли, какие цвета стояли до запуска проги

[Антон]

Чего-то не работает

Код

Program Test;
begin
     TextColor(Red);
     TextBackground(White);
     Write('test');
     Readln;
end.

Пишет ошибку Unkown Identifier...
Pascal 7.0

Код помещаем в теги!

Сообщение отредактировано: APAL - 25.10.2004 13:48

[Amro]

Антон
Не забывай подключать модуль CRT
после

Program Test;

добавь строчку
uses crt; это строка -- подключение модулей
ибо TextColor TextBackground это процедуры из этого модуля...

[Антон]

Всё - понял
Всем огромное спасибо!

[volvo]

Amro

Спасибо за замечание. Добавил в пример...
:yes: