Основы программирования на языке Паскаль

окончание таблицы

11.2. Текстовый вывод на экран

Библиотека Turbo Vision способна удовлетворить самым высоким требованиям, и мы настоятельно рекомендуем обращаться к ней при программировании сложных текстовых изображений (меню, окон и т.п.). Тем не менее, вполне возможно, что некоторые из читателей захотят использовать значительно более простые, но достаточно эффективные средства модуля CRT, описываемые в этом разделе.

Процедура TextMode используется для задания одного из возможных текстовых режимов работы адаптера монитора. Заголовок процедуры:

ProcedureTextMode (mode: word);

Здесь mode – код текстового режима. в качестве значения этого выражения могут использоваться следующие константы, определенные в модуле CRT:

const

bw40=0; {черно-белый режим 40*25}

co40=l; {цветной режим 40*25}

bw80=2, {черно-белый режим 80*25}

co80=3; {цветной режим 80*25}

mono=7; {используется с mda}

Font8*8=256; {используется для загружаемого шрифта в режиме 80*43 или 80*50 с адаптерами EGA или VGA}

Код режима, установленного с помощью вызова процедуры TextMode, запоминается в глобальной переменной LastMode модуля CRT и может использоваться для восстановления начального состояния экрана.

следующая программа иллюстрирует использование этой процедуры в различных режимах. заметим, что при вызове TextMode сбрасываются все ранее сделанные установки цвета и окон, экран очищается и курсор переводится в его левый верхний угол.

user CRT;

procedure print (s: string), {вывести сообщение s и ждать инициативы пользователя}

Begin

writeln (s), {вывести сообщение}

writeln ('нажать клавишу enter .');

readln {ждем нажатия клавиши enter}

end; {print}

Var

lm: word, {начальный режим экрана}

Begin

lm:=LastMode; {запомнить начальный режим работы дисплея}

TextMode (со40);

print ('режим 40*25');

TextMode (co8o);

print ('режим 80*25');

TextMode (co40+font8*8);

print ('режим co40+font8*8');

TextMode (co80+font8*8);

print ('режим co80+font8*8'), {восстановить исходный режим работы:}

TextMode (lm)

end.

Процедура TextColor определяет цвет выводимых символов. заголовок процедуры:

ProcedureTextColor (color: byte);

Процедура TextBackGround определяет цвет фона. заголовок процедуры:

ProcedureTextBackGround (color: byte);

Единственным параметром обращения к этим процедурам должно быть выражение типа byte, задающее код нужного цвета. Этот код удобно определять с помощью следующих мнемонических констант, объявленных в модуле CRT:

const

black=0; {черный}

blue=l; {темно-синий}

green=2; {темно-зеленый}

суаn=3; { бирюзовый}

red=4; {красный}

magenta=8; {фиолетовый}

brown=6; {коричневый}

lightgray=7; {светло-серый}

darkgray=8; {темно-серый}

lightblue=9; {синий}

lightgreen=10; {светло-зеленый}

lightcyan=11; {светло-бирюзовый}

lightred=12; {розовый}

lightmagenta=13; {малиновый}

yellow=14; {желтый}

white=15; {белый}

blink=128; {мерцание символа}

Следующая программа иллюстрирует цветовые возможности Турбо-Паскаля.

uses CRT,

const

col: array [1 15] of string [16] =

('темно-синий', 'темно-зеленый', 'бирюзовый', 'красный', 'фиолетовый', 'коричневый', 'светло-серый', 'темно-серый', 'синий', 'зеленый', 'светло-бирюзовый', 'розовый', 'малиновый', 'желтый', 'белый');

Var

k: byte,

Begin

for k:=l to 15 do

Begin {выводим 15 сообщений различными цветами}

textcolor (k),

writeln ("цвет", k, "-", col [k] )

end;

textcolor (white+blink); {белыемигающиесимволы}

writeln ("мерцание символов");

{восстанавливаем стандартный цвет}

textcolor (lightgray),

writeln

 Скачать реферат