Основы алгоритмизации и программирования. Часть четвертая. Файловая система Turbo Pascal. Асламова В.С - 39 стр.

UptoLike

ВУЗ: 

АГТА | Ангарск

Составители: 

Рубрика: 

77
адаптерах EGA, MCGA, VGA, SVGA. Возможности модуля CRT рассматри-
ваются применительно к адаптерам этого типа.
1. Процедура TextMode используется для задания одного из возмож-
ных текстовых режимов работы адаптера. Заголовок процедуры:
Procedure TextMode (Mode: Word);
Здесь Mode – код текстового режима. В качестве значения этого выра-
жения могут использоваться следующие константы, определенные в модуле
CRT:
const
BW40=0; {Черно-белый режим 40x25}
Co40=1; {Цветной режим 40x25}
BW80=2; {Черно-белый режим 80x25}
Co80=3; {Цветной режим 80x25}
Mono=7; {Используется с MDA}
Font8x8=256; {Используется для загружаемого шрифта
в
режиме 80x43 или 80x50 с адаптерами EGA
или VGA}
Код режима, установленного с помощью процедуры TextMode, запо-
минается в глобальной переменной LastMode модуля CRT и может
использоваться для восстановления начального состояния экрана.
Следующая программа иллюстрирует использование этой процедуры в
различных режимах. Отметим, что при вызове TextMode сбрасываются все
ранее сделанные установки цвета и окон, экран очищается и
курсор перево-
дится в его левый верхний угол.
Uses CRT;
Procedure Print (S: String);
{Выводит сообщение S и ждет инициативы пользователя}
begin
WriteLn (S); {Выводим сообщение}
WriteLn (
′Нажмите клавишу Enter…′);
ReadLn {Ждем нажатия клавиши Enter}
end; {Print}
var
LM: Word; {Начальный режим экрана}
begin
LM := LastMode; {Запоминаем начальный режим работы дисплея}
TextMode (Co40);
Print (
′Режим 40x25′);
TextMode (Co80);
78
Print (
′Режим 80x25′);
TextMode (Co40+Font8x8);
Print (
′Режим Co40+Font8x8′);
TextMode (Co80+Font8x8);
Print(
′Режим Co80+Font8x8′); {восстанавливаем исходный режим работы}
TextMode (LM);
end.
2. Процедура TextColor определяет цвет выводимых символов. Заго-
ловок процедуры:
Procedure TextColor (Color:Byte);
3. Процедура TextBackGround определяет цвет фона. Заголовок:
Procedure TextBackGround (Color:Byte);
Параметр Color определяет цвет выводимого символа, представляет
собой выражение целого типа (см. табл. 7).
Таблица 7 Константы соответствующие различным цветам
Цвет символов Цвет фона Название Обозначение
Черный
Синий
Зеленый
Бирюзовый
Красный
Сиреневый
Коричневый
Белый
Серый
Голубой
Светло-зеленый
Светло-бирюзовый
Светло-красный
Светло-сиреневый
Желтый
Ярко-белый
Мерцание символа
Черный
Синий
Зеленый
Бирюзовый
Красный
Сиреневый
Коричневый
Светло-серый
Black
Blue
Green
Cyan
Red
Magenta
Brown
LidhtGray
Gray
LidhtBlue
LidhtGreen
LidhtCyan
LidhtRed
LidhtMagenta
Yellow
White
Blink
0
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
128
Параметр Color - выражение целого типа, обозначающее устанавли-
ваемый цвет фона на котором выводятся символы (см. табл. 7). 
адаптерах EGA, MCGA, VGA, SVGA. Возможности модуля CRT рассматри-                 Print (′Режим 80x25′);
ваются применительно к адаптерам этого типа.                                     TextMode (Co40+Font8x8);
       1. Процедура TextMode используется для задания одного из возмож-          Print (′Режим Co40+Font8x8′);
                                                                                 TextMode (Co80+Font8x8);
ных текстовых режимов работы адаптера. Заголовок процедуры:
                                                                                 Print(′Режим Co80+Font8x8′); {восстанавливаем исходный режим работы}
                           Procedure TextMode (Mode: Word);                      TextMode (LM);
      Здесь Mode – код текстового режима. В качестве значения этого выра-        end.
жения могут использоваться следующие константы, определенные в модуле                2. Процедура TextColor определяет цвет выводимых символов. Заго-
CRT:                                                                          ловок процедуры:
         const                                                                                           Procedure TextColor (Color:Byte);
           BW40=0;                 {Черно-белый режим 40x25}                         3. Процедура TextBackGround определяет цвет фона. Заголовок:
           Co40=1;                 {Цветной режим 40x25}                                            Procedure TextBackGround (Color:Byte);
           BW80=2;                 {Черно-белый режим 80x25}                        Параметр Color определяет цвет выводимого символа, представляет
           Co80=3;                 {Цветной режим 80x25}                      собой выражение целого типа (см. табл. 7).
           Mono=7;                 {Используется с MDA}
                                                                                            Таблица 7 Константы соответствующие различным цветам
           Font8x8=256;            {Используется для загружаемого шрифта в
                                   режиме 80x43 или 80x50 с адаптерами EGA      Цвет символов        Цвет фона          Название       Обозначение
                                   или VGA}                                        Черный             Черный              Black             0
      Код режима, установленного с помощью процедуры TextMode, запо-                Синий              Синий               Blue             1
минается в глобальной переменной LastMode модуля CRT и может                       Зеленый            Зеленый             Green             2
использоваться для восстановления начального состояния экрана.                   Бирюзовый           Бирюзовый            Cyan              3
      Следующая программа иллюстрирует использование этой процедуры в             Красный             Красный              Red              4
различных режимах. Отметим, что при вызове TextMode сбрасываются все             Сиреневый           Сиреневый           Magenta            5
ранее сделанные установки цвета и окон, экран очищается и курсор перево-         Коричневый         Коричневый           Brown              6
дится в его левый верхний угол.                                                     Белый           Светло-серый        LidhtGray           7
   Uses CRT;                                                                        Серый                                 Gray              8
   Procedure Print (S: String);                                                    Голубой                              LidhtBlue           9
   {Выводит сообщение S и ждет инициативы пользователя}                        Светло-зеленый                          LidhtGreen          10
   begin                                                                      Светло-бирюзовый                         LidhtCyan           11
        WriteLn (S);                           {Выводим сообщение}
                                                                               Светло-красный                           LidhtRed           12
        WriteLn (′Нажмите клавишу Enter ′);
       ReadLn                                  {Ждем нажатия клавиши Enter}   Светло-сиреневый                        LidhtMagenta         13
   end;                                        {Print}                             Желтый                                Yellow            14
   var                                                                           Ярко-белый                               White            15
        LM: Word;                               {Начальный режим экрана}      Мерцание символа                            Blink            128
   begin
        LM := LastMode; {Запоминаем начальный режим работы дисплея}
        TextMode (Co40);                                                           Параметр Color - выражение целого типа, обозначающее устанавли-
   Print (′Режим 40x25′);                                                     ваемый цвет фона на котором выводятся символы (см. табл. 7).
   TextMode (Co80);
                                    77                                                                          78

Страницы