Слайд 2Назначение основных ресурсов модуля CRT:
1. выбор текстового режима;
2. выбор цвета символов
и фона;
3. выбор яркости свечения символов;
4. позволяет перемещать курсор в любую позицию экрана;
5.позволяет создавать окна;
6. позволяет управлять клавиатурой;
7.есть возможность управлять встроенными динамиками.
Слайд 3Подключение модуля CRT к пользовательской программе:
uses CRT;
Слайд 4Очистка экрана
1. ClrScr – полностью очищает экран или текущее окно и
помещает курсор в левый верхний угол экрана (координаты 1,1).
2. ClrEol – стирает символы в строке, начиная с текущей позиции курсора до конца строки.
Слайд 53. DelLine – полностью стирает содержимое строки, в которой в позицию
экрана, где расположен курсор; все нижестоящие строки перемещаются на одну позицию вверх.
4. InsLine – вставить пустую строку в позицию экрана, где расположен курсор; все нижестоящие строки перемещаются на одну позицию вниз.
Слайд 6Управление курсором.
GotoXY(x,y) – направляет курсор в любую точку экрана. Х,У
– координаты точки.
Важно помнить!
Верхний левый угол экрана имеет координаты (1,1), правый нижний – (80,25). Если рассматривать экран как максимально возможное по размеру окно, то диапазон значений для Х=1..80, для У=1..25.
Слайд 7Пример1.
Uses Crt; {Очистить єкран}
Begin
GotoXY(34,4);{Переслать курсор в центр
4 строки}
Write(‘Управляющая программа’);
End.
Слайд 8Управление цветом
Цвет фона может меняться от 0 до 7.
А цвет выводимых символов от 0 до 15.
ТextColor(n) – устанавливает цвет символов.
TextBackGround(n) – устанавливает цвет фона.
Слайд 9Пример 2.
Clr Scr;
Begin
TextBackGround(10);
Clrscr;
TextColor(Yellow+Blink);
Write(‘Мерцающие жёлтые символы’);
TextColor(12+6);
Write(‘Мерцающие светло-красные символы’);
TextColor(6);
Write(‘Не мерцающие коричневые символы’);
End.
Слайд 10Управление яркостью
LowVideo – минимальная яркость свечения символов (устанавливается автоматически при
инициализации модуля CRT).
HighVideo – максимальная яркость свечения символов.
NormVideo – нормальная яркость.
Отмена максимальной и минимальной яркости свечения происходит процедурой NormVideo.
Слайд 11Работа с текстовыми окнами
Window(X1,Y1,X2,Y2), X1,Y1 – координаты левого верхнего угла,
X2,Y2 – координаты нижнего правого угла.
Размер максимального окна (полный экран) – (1,1,80,25)
Размер минимального окна – один столбец на одну строку.
Слайд 12Работа со звуком
Sound(I) – где I частота звучания в герцах.
Звук указанной частоты будет генерироваться до тех пор, пока не будет отключён процедурой. Nosound.
Для указания времени, в течении которого будет продолжаться звучание используется процедура Delay(t).
Слайд 13Пример 3.
Begin
Sound(500);
Delay(2000);
NoSound;
End.
В данном примере
звуковой сигнал частотой 555Гц будет звучать в течении 2 с (2000мс).
Слайд 15 Uses crt; {Подключаем модуль CRT}
var x,y,I: integer;
begin
ClrScr;
{Очистим экран }
TextbackGround(10); {Установим цвет фона светло-зелёный}
window(30,7,55,22); {Создадим окно в центре экрана }
clrscr; {Закрасим окно светло-зелёным цветом}
for i:=1 to 15do {Откроем цикл по переменной I}
begin
GotoXY(12,8); {Установим курсор в центре окна }
TextColor(i); {Установим цвет символов I}
writeln('МКШ');
sound(500); {Звук частотой 500}
Delay(1000); {Задержка работы циклических операторов в 1 сек..}
nosound; {Отключение звука}
end;
readln;
end.
Слайд 16Домашнее задание.
1. Конспект – учить процедуры функции модуля CRT.
2. Создать
программу для решения следующей задачи:
Создать окно в левом нижнем углу экрана, в котором вывести сообщение о себе (фамилия, имя, отчество, класс, школа). Цвет фона и цвет символов выбрать произвольно.