1 / 24

БИБЛИОТЕКА CRT

БИБЛИОТЕКА CRT. Turbo Pascal 7.0. Команды библиотеки CRT. Очистка экрана Цвет символов Цвет фона Курсор Режим Задержка Звук. Очистка строки Удаление строки Вставка строки Позиция курсора Задание окна KeyPressed ReadKey. Очистка экрана. C l r S c r.

hop
Download Presentation

БИБЛИОТЕКА CRT

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  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 ) Название или номер цвета 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

  5. Установка цвета фона TextBackGround(c) Название или номер цвета 0 1 2 3 4 5 6 7

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

  7. Установка режима экрана T e x t M o d e ( R ) Режим 1 - 40 х 25 3 - 80 х 25 257 - 40 х 50 259 - 80 х 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. Чтение расширенного кода Чтение первого байта (#0) Key:=ReadKey; If Key=#0 Then Key:=ReadKey; Чтение второго байта

  23. Коды некоторых клавиш Enter - 13 Esc - 27 BackSpace- 8 Space - 32 Tab - 9 a - 97 A - 65  - 0 75  - 0 72  - 0 77  - 0 80 Home - 0 71 End - 0 79 Insert - 0 82

  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;

More Related