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

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

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

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

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

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

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

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

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

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

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

Гамма 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.

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

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

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

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

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

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

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

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

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

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

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

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