Текстовый режим. Модуль CRT. Работа с окнами. Управление звуком

Модуль CRT позволяет работать не только со всем экраном, но и выделять в нем прямоугольные окна. Любое окно задаётся своим верхним левым и правым нижним углами. Эти углы, так же как и положение любого объекта на экране, задаются двумя координатами: Х и Y. В качестве координаты Х выступает номер позиции в строке (нумерация начинается с 1 и идет слева направо), а в качестве координаты Y - номер строки (нумерация начинается с 1 и идет сверху вниз). При работе в окне координаты отсчитываются от левого верхнего угла окна. При запуске программы выделенное окно совпадает по размеру со всем экраном. Если режим работы адаптера 25 строк по 80 позиций, то координаты такого окна (1, 1) и (80, 25).

Window(X1, Y1, X2, Y2: byte) – определяет текстовое окно на экране.

Смысл выполнения процедуры заключается в том, что все последующие действия по выводу информации действуют в пределах данного окна. Кроме того, системные процедуры, работающие с курсором - GotoXY, WhereX, WhereY, также интерпретируют свои параметры относительно левого верхнего угла последнего установленного окна. Далее, процедура ClrScr, заполняет пробелами не весь экран, а текущее окно.

Значения параметров процедуры Window выбираются очевидным образом; например, вызов

Window(35,11,45,13);

определяет окно высотой в две строки и длиной в десять символов примерно посередине экрана.

После выполнения процедуры Window курсор устанавливается в позицию окна с координатами (1,1). Кроме этого, эффект данной процедуры на экране никак не проявляется. Результат ее работы бывает виден только при выполнении каких-либо процедур вывода или управления курсором. Хорошей иллюстрацией механизма окон является следующая простая программа, которая в цикле производит создание очередного окна, случайным образом задавая его размеры м местоположение, а затем выводит в него серию случайных символов.

Задание. Наберите и протестируйте предложенную программу. Дополните ее своими операторами и комментарием. В целях большей наглядности употребите процедуру Delay и увеличьте длительность цикла вывода символов.

Program Windows;

Uses

Crt;

Procedure RandomWindow;

Var

X1, Y1, X2, Y2: byte;

Begin

X1:= Random(40)+1;

Y1:= Random(12)+1;

X2:= X1+Random(40);

Y2:= Y2+Random(12);

TextColor(Random(15));

Window(X1, Y1, X2, Y2);

ClrScr;

End;

Procedure WorkWindow;

Var

i: integer;

Begin

for i:= 0 to Random(1000)+500 do

write(Chr(Random(224)+32));

End;

Procedure Finish;

Var

i: integer;

Begin

Window(1, 1, 80, 25);

ClrScr;

if ReadKey = #0

then

ReadKey;

End;

Begin

ClrScr;

Randomize;

repeat

RandomWindow;

WorkWindow

until KeyPressed;

Finish;

End.

Модуль CRT содержит две интерфейсные переменные типа word, которые хранят в упакованном виде координаты двух углов текущего активного окна:

Var

WindMin: word; {координаты левого верхнего угла окна}

WindMax: word; {координаты правого нижнего угла окна}

Посредством стандартных функций Hi и Lo можно извлечь из этих переменных горизонтальные и вертикальные координаты углов. Наличие этих переменных избавляет от необходимости хранить информацию об активном окне в самой программе.

Наблюдая работу программы Windows, можно заметить, что, когда в процессе вывода производится заполнение последней позиции окна, его содержимое сдвигается на одну строку вверх (при этом верхняя строка пропадает) и, тем самым, нижняя строка освобождается для последующего вывода. Этот механизм является естественным обобщением знакомых правил работы процедур write и writeln на случай вывода в окна. В модуле Crt имеются две дополнительные процедуры, позволяющие несколько расширить и усилить возможности прокручивания("скроллинга") содержимого окон – DelLine и InsLine.

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

Задание. Наберите и протестируйте предложенную программу. Дополните ее своими операторами и комментарием.

Program ScrollUp;

Uses

Crt;

Var

i: word;

Begin

Window(5,10,65,14);

ClrScr;

writeln('Cтрока 1');

writeln('Cтрока 2');

writeln('Cтрока 3');

writeln('Cтрока 4');

writeln('Cтрока 5');

for i:= 6 to 26 do

begin

GotoXY(1,1);

DelLine;

GotoXY(1,5);

write('Строка ',i);

Delay(300);

end;

Delay(500);

Window(1, 1, 80, 25);

ClrScr;

End.

Процедура InsLine вставляет пустую строку в позиции курсора. При этом все строки окна, расположенные ниже новой строки, сдвигаются вниз (нижняя строка пропадает).Легко видеть, что эта процедура позволяет организовать прокрутку содержимого окна (или части окна) в направлении сверху вниз.

Задание. Наберите и протестируйте предложенную программу. Дополните ее своими операторами и комментарием.

Program ScrollDown;

Uses

Crt;

Var

i: word;

Begin

Window(5,10,65,19);

ClrScr;

writeln('Данные строки окна');

writeln('остаются неизменными.');

writeln('В пяти нижних строках');

writeln('организована прокрутка');

writeln('в направлении сверху вниз');

for i:= 1 to 40 do

begin

GotoXY(1,6);

InsLine;

write('Строка ',i);

Delay(300);

end;

Delay(500);

Window(1, 1, 80, 25);

ClrScr;

End.

Процедуры управления звуком

Sound(Hz: word) – процедура включает источник звука с частотой Hz герц.

NoSound – процедура выключает источник звука.

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

Процедуры работы со звуком надо использовать аккуратно. Если после процедуры Sound не вызвать процедуру NoSound, то звук будет производится после завершения программы, и, чтобы его отключить, придется либо перезагружать компьютер, либо заново перекомпилировать и запустить программу, предварительно добавив в нее вызов процедуры NoSound.

Процедура NoSound может следовать после нескольких процедур Sound, которые изменяют частоту тона.

Очень часто процедуры Sound и NoSound используются совместно с процедурой Delay(ms: word), которая останавливает выполнение программы на указанное в параметре время.

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

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

Program Gamma;

Uses

Crt;

Const

Nota: Array [0..7] of word = (262, 294, 330, 349, 392, 440, 494, 524);

Var

i: byte;

Begin

GotoXY(35,5);

write('Гамма');

repeat

for i:= 0 to 7 do

begin

Sound(Nota[i]);

Delay(500);

NoSound;

end;

until KeyPressed;

End.