Кто-нибудь, подскажите, пожалуйста, как менять цвет в строках. Желательно с примером. Не судите строго – я Паскалем второй день занимаюсь.
И ещё со звуком не понятно, написанно sound(Hz:word), как правильно написать, чтобы заработало?
Заранее благодарен.
Полная версия: Цвет
Антон
Цвет строки в текстовом режиме меняется процедурой 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;
Цвет строки в текстовом режиме меняется процедурой 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;
Цитата
Важно не забывать восстанавливать исходные значения цветов перед выходом из программы:
лучше завести переменную типа word и в начале программы бэкапить в нее аттрибуты текста:
Код
var attrbcup:word;
begin
attrbcup:=textattr;
....
{дальше идет прога}
....
textattr:=attrbcup;
end.
begin
attrbcup:=textattr;
....
{дальше идет прога}
....
textattr:=attrbcup;
end.
мало ли, какие цвета стояли до запуска проги
Чего-то не работает 
Пишет ошибку Unkown Identifier...
Pascal 7.0
Код помещаем в теги!
Код
Program Test;
begin
TextColor(Red);
TextBackground(White);
Write('test');
Readln;
end.
begin
TextColor(Red);
TextBackground(White);
Write('test');
Readln;
end.
Пишет ошибку Unkown Identifier...
Pascal 7.0
Код помещаем в теги!
Антон
Не забывай подключать модуль CRT
после
uses crt; это строка -- подключение модулей
ибо TextColor TextBackground это процедуры из этого модуля...
Не забывай подключать модуль CRT
после
Цитата
Program Test;
добавь строчкуuses crt; это строка -- подключение модулей
ибо TextColor TextBackground это процедуры из этого модуля...
Всё - понял 
Всем огромное спасибо!
Всем огромное спасибо!
Amro
Спасибо за замечание. Добавил в пример...
:yes:
Спасибо за замечание. Добавил в пример...
:yes:
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.