БИБЛИОТЕКА CRT Turbo Pascal 7.0. Команды библиотеки CRT Очистка экрана Цвет символов Цвет фона Курсор Режим Задержка Звук Очистка строки Удаление строки. - презентация

1 БИБЛИОТЕКА CRT Turbo Pascal 7.0

2 Команды библиотеки CRT Очистка экрана Цвет символов Цвет фона Курсор Режим Задержка Звук Очистка строки Удаление строки Вставка строки Позиция курсора Задание окна KeyPressed ReadKey

3 Очистка экрана Экран очищается текущим фоновым цветом, при этом курсор устанавливается в левый верхний угол экрана C l r S c r

4 Установка цвета символов Название или номер цвета T e x t C o l o r ( C )

5 Установка цвета фона Название или номер цвета TextBackGround(c)

6 Установка курсора G o T o X Y ( x, y) Номер строки: 1, …, 25 Номер столбца (позиции): 1, 2, …, 80

7 Установка режима экрана T e x t M o d e ( R ) Режим х х х х 50

8 Задержка D e l a y ( ms ) Задержка выполнения программы (миллисекунды)

9 Включение динамика S o u n d ( F ) Частота сигнала (Гц)

10 Отключение динамика N o S o u n d

11 Значения частот

12 Гамма Uses Crt; Var i : Integer; Const f : array[1..7] of word = (523, 587, 659, 698, 783, 880, 998); Begin For i:=1 to 7 do begin Sound(f[i]); delay(100); end; NoSound; End.

13 Очистка строки Очищается строка от текущей позиции до конца строки без изменения позиции курсора C l r E o l

14 Удаление строки Удаляется строка, на которой находится курсор, и все строки, расположенные ниже, смещаются на позицию вверх D e l L i n e

15 Вставка строки Вставляется пустая строка, начиная с позиции, где находится курсор I n s L i n e

16 Координата X курсора W h e r e X Функция Результат типа Integer

17 Координата Y курсора W h e r e Y Функция Результат типа Integer

18 Задание текстового окна После задания окна все коор- динаты задаются относи- тельно этого активного окна Window(x1,y1,x2,y2)

19 Проверка буфера клавиатуры K e y P r e s s e d True - в буфере клавиатуры есть символы False - буфер клавиатуры пуст Функция

20 Пример KeyPressed Repeat Until KeyPressed; While Not KeyPressed begin end;

21 Чтение символа из буфера клавиатуры R e a d K e y Чтение первого байта (сим- вола) из буфера клавиатуры. Если буфер клавиатуры пуст, то ожидание нажатия клавиш Функция Тип: Char

22 Чтение расширенного кода Key:=ReadKey; If Key=#0 Then Key:=ReadKey; Чтение первого байта (#0) Чтение второго байта

23 Коды некоторых клавиш Enter - 13 Esc - 27 BackSpace- 8 Space - 32 Tab - 9 a - 97 A Home End Insert

24 Пример управления движением Repeat Key:=ReadKey; If Key=#0 Then Key:=ReadKey; Case Key of 75 : Left; 77 : Right; 72 : Up; 80 : Down; End; Until Key=#27;