Читайте также:
|
Проект «Догонялки»
Постановка задачи. Пусть в данном приложении один образ управляется стрелками с клавиатуры, а второй догоняет его, как изображено на рис. 24.
Рис. 24. Проект «Догонялки»
Реализация. Откопируем папку предыдущего проекта с именем «Догонялки». Добавим второй рисунок, желательно такого же размера, как первый. Второй рисунок загрузим в переменную bit 2. Пусть координаты второго образа будут х 2, у 2. Положим на форму таймер. Код события OnTimer компонента Timer1 приведен в обработчике Timer1Timer(Sender: TObject).
procedure TForm1.Timer1Timer(Sender: TObject);
begin {Здесь реализовано движение за первым образом}
clear(x2,y2);
if (x2>x1) then
begin
if(x2>dx2) then
x2:=x2-dx2;
end
else
if x2+30<cw-dx2 then
x2:=x2+dx2;
if y2>y1 then
begin
if(y2>dy1) then
y2:=y2-dy2;
end
else
if y2+30<ch-dy2 then
y2:=y2+dy2;
Form1.Canvas.Draw(x2,y2,bit2);
end;
Задание. Самостоятельно придумайте простенькую игру и реализуйте ее. Используйте клавиши со стрелками.
Дата добавления: 2015-08-20; просмотров: 54 | Нарушение авторских прав
| <== предыдущая страница | | | следующая страница ==> |
| По нажатию клавиши со стрелкой | | | В графических приложениях |