Здравствуйте
уважаемые подписчики!
На сей раз
немного об окнах в текстовом режиме Pascal
ОКНА В ТЕКСТОВОМ РЕЖИМЕ
Turbo Pascal позволяет
отображать информацию в рамках не всего экрана, а только в пределах его
определенной части (окна). Одна из процедур позволяющих это осуществить
– WINDOW модуля CRT, которая отображает на экране окно, определяемое как
текущее. Заголовок данной процедуры имеет следующий вид:
WINDOW(X1,Y1,X2,Y2)
где, координаты окна (X1, Y1) и
(X2,Y2) всегда отсчитываются от левого верхнего угла экрана и должны удовлетворять
условию: X1 и Y1 > 1, а X2 и Y2 < Xmax и Ymax
соответственно. Так же междусобой X1<X2 и Y1<Y2. При не выполнении
эти условий окно создано не будет. Xmax может принимать два
значения 40 или 80 столбцов, а Ymax может принимать значение
25, 43 или 50 строк в зависимости от типа адаптера.
Пример 1:
Программа наложения, меняющих
цвет, окон.
Цвет отображаемых на экране символов
устанавливается процедурой: TextColor, а цвет фона – процедура: TextBackGround,
о которых более подробную информацию Вы можете получить в рассылке
из архива.
Program
Okna;
Uses Crt;
Var I: byte;
BEGIN ClrScr;
For I:=1
to 16 do
Begin TextBackGround(I);
ClrScr;
Delay(300);
Window(I,I,I+15,I+6);
end;
end.
Пример 2:
Программа показа названия нашей
рассылки "Программирование в Turbo Pascal", меняющего цвет.
Program
Rassilka;
Uses Crt;
Var i: byte;
Begin ClrScr;
For i:=1
to 15 do
Begin
TextColor(i);
TextBackGround(0);
{***}
GotoXY(10,i);
WriteLn('Программирование
в Turbo Pascal'); Delay(250) end;
end.
* Если на месте {***} поставить процедуру
ClrScr; (очистка экрана), то строчка "Программирование в Turbo Pascal"
будет как бы падать вниз с изменением цвета.
Акция:
"ДОЛОЙ ОШИБКИ!"
При компиляции
набранного кода или его выполнении программа Pascal выполняет проверку
на наличие ошибок и выдает о них сообщения (Error...). Не все знают точно,
что они означают и как с ними "бороться". Именно для них и предназначена
эта акция. Теперь, если у Вас что-то не получается, а программа находит
ошибку, то Вы можете прислать нам ее номер, название или весь Ваш код целиком,
не забыв указать обратный e-mail, а мы со своей стороны обязательно постараемся
Вам помочь:
Предлагаем
Вам самим выбрать ТЕМУ для следующей рассылки. Если у Вас есть какие-либо
вопросы по программированию в Pascal или же Вы наоборот хотите поделиться
своими навыками, то вот наш адрес: