Управляемое движение объектов

Сентябрь 7, 2022

Главная
Алгебра
Управляемое движение объектов

Содержание

2. Управляемое движение (0,0) X Y (getmaxx,getmaxy) 8 (x, y) (x + sh, y + vs) sh
3. Коды клавиш Символы – это все буквы и значки, которые мы можем увидеть на клавиатуре. Для
4. Как узнать код клавиши uses wingraph, wincrt; const esc=#27; var gd, gm: integer; ch: char; s:
5. Анимация Принцип анимации: Нажимаем управляющую клавишу стираем объект изменяем координаты (x,y) рисуем объект в точке (x,y)
6. Процедура (рисование и стирание) procedure racket(x, y, sh, vs:integer; col:longint); begin setfillstyle(1, col); bar(x, y, x
7. Обработка границ экрана procedure upr… ... case ch of left: if (x > 0) then x
8. Полная программа Uses wingraph, wincrt; var x, y, sh, vs, h, gd, gm: integer; ch: char;
9. Задание 1. Нарисовать ракетку (прямоугольник), управляемую стрелками, не выходящий заграницы экрана. 2. Нарисовать ракетку, управляемую стрелками,
10. Объединение неуправляемого и управляемого движения repeat neupr(x2, y2, hx, hy, r, yellow); if keypressed then upr(x1,
12. Скачать презентацию

Слайд 2

Управляемое движение
(0,0)
X
Y
(getmaxx,getmaxy)
8
(x, y)
(x + sh, y + vs)
sh
vs

Слайд 3

Коды клавиш
Символы – это все буквы и значки, которые мы можем увидеть

на клавиатуре. Для того чтобы ввести в программу символьные переменные необходимо указать для них символьный тип данных Char.
Проверить, была ли нажата клавиша, можно вызовом функции KeyPressed.
ReadKey cчитывает коды клавиш.
При нажатии некоторых специальных клавиш (стрелки и функциональные клавиши) ReadKey возвращает нулевой символ (#0), а повторный вызов ReadKey возвратит сканкод нажатой клавиши.
Функция Ord, преобразовывает букву в ее числовой код. Коды всех букв и символов можно посмотреть в кодовой таблице ASCII.
← #0, #75 Esc #27
↑ #0, #72 Space #32
→ #0, #77 Enter #13
↓ #0, #80 и др.

Слайд 4

Как узнать код клавиши
uses wingraph, wincrt;
const
esc=#27;
var gd, gm: integer;
ch:

char; s: string;
begin
Initgraph(gd,gm,‘’);
repeat
if keypressed then
begin
cleardevice;
ch:=readkey;
str(ord(ch),s);
outtextxy(100,100,s);
end;
until ch=esc;
closegraph;
end.

Процедура Str переводит целое число в строку, чтобы потом вывести её на экран с помощью OutTextxy

Слайд 5

Анимация
Принцип анимации:
Нажимаем управляющую клавишу
стираем объект
изменяем координаты (x,y)
рисуем объект в точке

(x,y)
задержка на несколько миллисекунд
переходим к шагу 1

Слайд 6

Процедура (рисование и стирание)
procedure racket(x, y, sh, vs:integer; col:longint);
begin
setfillstyle(1, col);

bar(x, y, x + sh, y + vs);
end;
procedure Upr(var x, y: integer; sh, vs, h:integer;
col: longint);
begin
racket(x, y, sh, vs, black);
ch:=readkey;
if ch=#0 then
begin
ch:=readkey;
case ch of
right: x := x + h;
end;
end;
racket(x, y, sh, vs, col);
Delay(50);
end;

Стираем ракетку

Рисуем в новом месте цветом col

Сдвиг по оси Х на шаг h

Слайд 7

Обработка границ экрана
procedure upr…
...
case ch of
left: if (x

> 0) then x := x - h;
end;
...

Приращение h при достижении границы меняет своё значение на противоположное:

-h

(x, y)

(x + sh, y + vs)

Слайд 8

Полная программа
Uses wingraph, wincrt;
var x, y, sh, vs, h, gd, gm:

integer; ch: char;
procedure racket(x,y,sh,vs: integer; col: longint);
begin
...
end;
procedure upr(var x, y: integer;
sh, vs, h: integer; col: longint);
begin
...
end;
Begin
Initgraph(gd, gm, ’’);
x := 30;
y := getmaxy div 2;
sh := 70; vs := 20;
h := 5;
racket(x, y, sh, vs, yellow);
repeat
if keypressed then
upr(x, y, sh, vs, h, yellow);
until ch=esc;
Closegraph;
end.

процедуры

начальные условия

выход при нажатии клавиши Esc

первая отрисовка ракетки

Слайд 9

Задание
1. Нарисовать ракетку (прямоугольник), управляемую стрелками, не выходящий заграницы экрана.
2.

Нарисовать ракетку, управляемую стрелками, который не может выйти за границы прямоугольной области.
3. Нарисовать ракетку, которая движется непрерывно по экрану и отталкивается от границ экрана, при нажатии стрелок она меняет направление движения.
4. Нарисовать 2 управляемых ракетки, одна из них управляется стрелками,
другая клавишами w, a, s, d.
5. Соединить неуправляемое движение с
управляемым. Шарик + ракетка.
6. Добавить условия отбивания шарика
от ракетки.

Слайд 10

Объединение неуправляемого и управляемого движения
repeat
neupr(x2, y2, hx, hy, r, yellow);

if keypressed then
upr(x1, y1, sh, vs, h, green)
until ch=esc;

Управляемое движение объектов

Содержание

Управляемое движение(0,0)XY(getmaxx,getmaxy)8(x, y)(x + sh, y + vs)shvs

Коды клавишСимволы – это все буквы и значки, которые мы можем увидеть

Как узнать код клавишиuses wingraph, wincrt;const esc=#27;var gd, gm: integer; ch:

АнимацияПринцип анимации:Нажимаем управляющую клавишустираем объектизменяем координаты (x,y) рисуем объект в точке

Процедура (рисование и стирание)procedure racket(x, y, sh, vs:integer; col:longint);begin setfillstyle(1, col);

Обработка границ экранаprocedure upr…... case ch of left: if (x

Полная программаUses wingraph, wincrt;var x, y, sh, vs, h, gd, gm:

Задание1. Нарисовать ракетку (прямоугольник), управляемую стрелками, не выходящий заграницы экрана. 2.

Объединение неуправляемого и управляемого движенияrepeat neupr(x2, y2, hx, hy, r, yellow);

Похожие презентации