Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | ||
|
Модуль CRT обеспечивает работу с окнами разного размера. Величина окна и ее расположение на экране определяется с помощью процедуры Window.
Процедура Window(x1,y1,x2,y2:byte); определяет на экране текстовое окно. Координаты x1, y1 соответствуют верхнему левому углу создаваемого окна, а x2, y2 – правому нижнему углу. После определения окна крайней верхней левой позиции в новом окне соответствует координата (1,1). На экране одновременно может присутствовать сразу несколько окон, но в каждый конкретный момент времени активным является только одно окно.
После завершения определения нового окна удобно установить цвет фона, цвет выводимого в окне текста и, если необходимо, очистить от информации все окно или его часть.
Процедура TextBackGround(colоr:byte); устанавливает цвет фона, который может принимать значения от 0 - Black (черный) до 7 - LightGray (светло-серый).
Процедура TextColor(colоr:byte); устанавливает цвет выводимого в окне текста. Значение цвета обычно изменяется в диапазоне от 0 - Black (черный) до 15 – White (белый). Для вывода мерцающего текста заданного цвета, необходимо в процедуре к значению цвета прибавить константу Blink или значение 128, например, TextColor (Red + Blink) или TextColor (Magenta + 128).
Процедура ClrScr; очищает активное окно текущим цветом фона и устанавливает курсор в правый верхний угол этого окна.
Процедура ClrEol; очищает строку текущим цветом фона от текущей позиции курсора до конца строки.
Процедура GotoXY(x,y:byte); переводит курсор в позицию с координатами x, y.
Процедура DelLine; удаляет строку из активного окна, на которой располагается курсор, и смещает все нижние строки на одну позицию вверх.
Процедура InsLine; вставляет дополнительную строку от места расположения курсора в активном окне.
Функция WhereX:integer; возвращает значение х текущей позиции курсора.
Функция WhereY:intteger; возвращает значение у текущей позиции курсора.
Процедура LowVideo; устанавливает режим минимальной яркости свечения символов на экране.
Процедура NormVideo; устанавливает режим нормальной яркости свечения символов на экране.
Процедура HighVideo; устанавливает режим максимальной яркости свечения символов на экране.
Ввод информации в текстовом режиме выполняется с помощью процедур Read, Readln, а вывод - Write и Writeln. Если при выводе текста в активном окне достигается его нижняя граница, то информация в окне сдвигается на одну строку вверх. Такой процесс часто называют «прокруткой».
Процедура CrtExit; восстанавливает режим, который был установлен стандартно после загрузки операционной системы. Данную процедуру целесообразно выдавать при завершении работы программы, использующей текстовый режим работы.
Пример 3. Сгенерировать случайным образом и вывести на экран 255 окон разного цвета.
Uses CRT;
Var X,Y,k,j:byte;
BEGIN
Randomize; {Инициализация генератора случайных чисел}
j:=0;
For k:=1 to 255 do
begin
TextBackGround(j);{установка цвета фона}
ClrScr; {очистка окна}
if LightGray=j then j:=0
else inc(j); {изменениe цвета фона от 0 - Black - до 7 - LightGray }
X:=Random(80)+1;
Y:=Random(25)+1;
Window(X,Y,X+random(5),Y+random(5)) {определение окна}
end;
Readln
END.
Дата публикования: 2014-12-10; Прочитано: 227 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!