Автор работы: Пользователь скрыл имя, 25 Декабря 2012 в 02:35, курсовая работа
Данный курсовой проект реализует приложение «Создание приложения Delphi Игра «Автогонки»». Приложение представляет собой гонки с препятствиями. Программа легка для использования пользователям различного возраста. В программе предусмотрено:
• удобное управления;
• справка о продукте.
Управление происходит посредством кнопок «ф» и «в», игра происходит против компьютера. Цель игрока – не врезаться в препятствия, которые движутся вниз по экрану. При аварии игрок проигрывает. При каждом успешно пройденном препятствии игрок получает очко. Игра происходит до 50 очков. Как только Игрок или компьютер наберут 50 очков, тот, кто набрал, выигрывает.
Цель игры – набрать больше очков, чем компьютер.
1.Аннотация…………………………………………………………………………..4
2.Библиографическая справка……………………………………………………...5
3.Логика проекта и её описание…………………………………………………….6
3.1.Блог-схема………………………………………………………………….6
3.2.Описание……………………………………………………………………7
4. Планирование проекта…………………………………………………………....8
5. Техническое задание……………………………………………………………….9
5.1.Постановка задачи………….………………………………………………9
5.2.Поддробное описание задачи……………………………………………..9
6.Технический проект…………………………………………………………….....12
6.1.Выбор языка программирования……………………………………….12
6.2.Разработка алгоритма решения задачи………………………………...12
6.3.Определение формы входных и выходных данных…………………..16
6.4.Разработка интерфейса…………………………………………………..17
6.5. Кодирование и отладка программ……………………………………..18
7.Тестирование………………………………………………………………….……23
8.Инструкция к эксплуатации………………………………………………………24
9.Реферативная часть……………………………………………………………….26
10. Заключение………………………………………………………………………28
11. Литература……………………………………………………………………....29
Приложение А……………………………………………………………………….31
Приложение Б…………………………………………………………………….....46
timer2.Enabled:=false;
showmessage('Âû ïðîèãðàëè');
end;
if (shape9.Top+shape9.Height)>(
if (shape9.Left+1<=image2.Left)
and (image2.Left<=(shape9.Left+
then begin
timer1.Enabled:=false;
timer2.Enabled:=false;
showmessage('Âû ïðîèãðàëè');
end;
if (shape9.Top+shape9.Height)>(
if (shape9.Left+1<=(image2.Left+
then begin
timer1.Enabled:=false;
timer2.Enabled:=false;
showmessage('Âû ïðîèãðàëè');
end;
if (shape10.Top+shape10.Height)>(
if (shape10.Left+1<=image2.Left)
and (image2.Left<=(shape10.Left+
then begin
timer1.Enabled:=false;
timer2.Enabled:=false;
showmessage('Âû ïðîèãðàëè');
end;
if (shape10.Top+shape10.Height)>(
if (shape10.Left+1<=(image2.Left+
then begin
timer1.Enabled:=false;
timer2.Enabled:=false;
showmessage('Âû ïðîèãðàëè');
end;
if shape7.Top>=(form1.
begin
i:=i+1;
label1.Caption:=inttostr(i);
end;
if shape8.Top>=(form1.
begin
i:=i+1;
label1.Caption:=inttostr(i);
end;
if shape6.Top>=(form1.
begin
i:=i+1;
label1.Caption:=inttostr(i);
end;
if shape9.Top>=(form1.
begin
i:=i+1;
label1.Caption:=inttostr(i);
end;
if shape10.Top>=(form1.
begin
i:=i+1;
label1.Caption:=inttostr(i);
end;
end;
procedure TForm1.Timer2Timer(Sender: TObject);
begin
shape1.Top:=shape1.Top+10;
shape2.Top:=shape2.Top+10;
shape3.Top:=shape3.Top+10;
shape4.Top:=shape4.Top+10;
shape5.Top:=shape5.Top+10;
if shape1.top>form1.ClientHeight then
shape1.Top:=0;
if shape2.top>form1.ClientHeight then
shape2.Top:=0;
if shape3.top>form1.ClientHeight then
shape3.Top:=0;
if shape4.top>form1.ClientHeight then
shape4.Top:=0;
if shape5.top>form1.ClientHeight then
shape5.Top:=0;
if shape3.Top>450 then
image1.Left:=image1.Left+10;
if shape3.Top<129 then
image1.Left:=image1.Left-10;
if shape1.Top>=(form1.
begin
j:=j+1;
label4.Caption:=inttostr(j);
end;
if shape2.Top>=(form1.
begin
j:=j+1;
label4.Caption:=inttostr(j);
end;
if shape3.Top>=(form1.
begin
j:=j+1;
label4.Caption:=inttostr(j);
end;
if shape4.Top>=(form1.
begin
j:=j+1;
label4.Caption:=inttostr(j);
end;
if shape5.Top>=(form1.
begin
j:=j+1;
label4.Caption:=inttostr(j);
if j=10 then
if i<j then
i:=j+3;
if i=50 then
begin
showmessage('WIN');
timer1.Enabled:=false;
timer2.Enabled:=false;
end;
if j=50 then
begin
showmessage('LOSE');
timer1.Enabled:=false;
timer2.Enabled:=false;
end;
end;
end;
procedure TForm1.N8Click(Sender: TObject);
begin
timer1.Enabled:=true;
timer2.Enabled:=true;
n8.Visible:=false;
n7.Visible:=true;
end;
procedure TForm1.N7Click(Sender: TObject);
begin
timer1.Enabled:=false;
timer2.Enabled:=false;
n8.Visible:=true;
n7.Visible:=false;
end;
procedure TForm1.N4Click(Sender: TObject);
begin
memo1.Visible:=true;
button1.Visible:=true;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.Visible:=false;
button1.Visible:=false;
end;
procedure TForm1.N5Click(Sender: TObject);
begin
showmessage ('Ðàññàòêèí Èëüÿ Ï-329')
end;
end.
Приложение Б
Экранные формы
Главная форма игры - «Автогонки»
Форма справки
Об Авторе
Сообщение о проигрыше
Информация о работе Создание приложения Delphi Игра «Автогонки»