slide1 n.
Download
Skip this Video
Loading SlideShow in 5 Seconds..
БИБЛИОТЕКА CRT PowerPoint Presentation
Download Presentation
БИБЛИОТЕКА CRT

Loading in 2 Seconds...

play fullscreen
1 / 24

БИБЛИОТЕКА CRT - PowerPoint PPT Presentation


  • 201 Views
  • Uploaded on

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

loader
I am the owner, or an agent authorized to act on behalf of the owner, of the copyrighted work described.
capcha
Download Presentation

PowerPoint Slideshow about 'БИБЛИОТЕКА CRT' - hop


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.While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server.


- - - - - - - - - - - - - - - - - - - - - - - - - - E N D - - - - - - - - - - - - - - - - - - - - - - - - - -
Presentation Transcript
slide1

БИБЛИОТЕКА CRT

Turbo Pascal 7.0

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

C l r S c r

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

slide4
Установка цвета символов

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

slide5
Установка цвета фона

TextBackGround(c)

Название или номер цвета

0 1 2 3 4 5 6 7

slide6
Установка курсора

G o T o X Y ( x, y)

Номер столбца (позиции):

1, 2, …, 80

Номер строки:

1, …, 25

slide7
Установка режима экрана

T e x t M o d e ( R )

Режим

1 - 40 х 25

3 - 80 х 25

257 - 40 х 50

259 - 80 х 50

slide8
Задержка

D e l a y ( ms )

Задержка выполнения программы (миллисекунды)

slide9
Включение динамика

S o u n d ( F )

Частота сигнала (Гц)

slide12
Гамма

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.

slide13
Очистка строки

C l r E o l

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

slide14
Удаление строки

D e l L i n e

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

slide15
Вставка строки

I n s L i n e

Вставляется пустая строка, начиная с позиции, где находится курсор

slide16
Координата X курсора

Функция

W h e r e X

Результат типа

Integer

slide17
Координата Y курсора

Функция

W h e r e Y

Результат типа

Integer

slide18
Задание текстового окна

Window(x1,y1,x2,y2)

После задания окна все коор-динаты задаются относи-тельно этого активного окна

slide19
Проверка буфера клавиатуры

Функция

K e y P r e s s e d

True - в буфере клавиатуры есть символы

False - буфер клавиатуры пуст

keypressed
Пример KeyPressed

Repeat

<Операторы>

Until KeyPressed;

While Not KeyPressed

begin

<Операторы>

end;

slide21
Чтение символа из буфера клавиатуры

Функция

R e a d K e y

Тип:

Char

Чтение первого байта (сим-вола) из буфера клавиатуры. Еслибуфер клавиатуры пуст, то ожидание нажатия клавиш

slide22
Чтение расширенного кода

Чтение первого байта (#0)

Key:=ReadKey;

If Key=#0 Then Key:=ReadKey;

Чтение второго байта

slide23
Коды некоторых клавиш

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

slide24
Пример управления движением

Repeat

Key:=ReadKey;

If Key=#0 Then Key:=ReadKey;

Case Key of

75 : Left;

77 : Right;

72 : Up;

80 : Down;

End;

Until Key=#27;