Создание приложения Delphi Игра «Автогонки»

Автор работы: Пользователь скрыл имя, 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

Файлы: 1 файл

Документация.doc

— 1.04 Мб (Скачать файл)

    timer2.Enabled:=false;

    showmessage('Âû ïðîèãðàëè');

    end;

 

         if (shape9.Top+shape9.Height)>(image2.Top) then

   if (shape9.Left+1<=image2.Left) and (image2.Left<=(shape9.Left+shape9.Width-1))

    then   begin

    timer1.Enabled:=false;

    timer2.Enabled:=false;

    showmessage('Âû ïðîèãðàëè');

    end;

 

 

if (shape9.Top+shape9.Height)>(image2.Top) then

   if (shape9.Left+1<=(image2.Left+image2.Width)) and ((image2.Left+image2.Width)<=(shape9.Left+shape9.Width-1))

       then  begin

    timer1.Enabled:=false;

    timer2.Enabled:=false;

    showmessage('Âû ïðîèãðàëè');

    end;

 

         if (shape10.Top+shape10.Height)>(image2.Top) then

   if (shape10.Left+1<=image2.Left) and (image2.Left<=(shape10.Left+shape10.Width-1))

    then   begin

    timer1.Enabled:=false;

    timer2.Enabled:=false;

    showmessage('Âû ïðîèãðàëè');

    end;

 

    if (shape10.Top+shape10.Height)>(image2.Top) then

   if (shape10.Left+1<=(image2.Left+image2.Width)) and ((image2.Left+image2.Width)<=(shape10.Left+shape10.Width-1))

       then  begin

    timer1.Enabled:=false;

    timer2.Enabled:=false;

    showmessage('Âû ïðîèãðàëè');

    end;

 

if shape7.Top>=(form1.ClientHeight-10) then

begin

i:=i+1;

label1.Caption:=inttostr(i);

end;

  if shape8.Top>=(form1.ClientHeight-10) then

begin

i:=i+1;

label1.Caption:=inttostr(i);

 end;

  if shape6.Top>=(form1.ClientHeight-10) then

begin

i:=i+1;

label1.Caption:=inttostr(i);

end;

  if shape9.Top>=(form1.ClientHeight-10) then

begin

i:=i+1;

label1.Caption:=inttostr(i);

end;

  if shape10.Top>=(form1.ClientHeight-10) then

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.ClientHeight-10) then

begin

j:=j+1;

label4.Caption:=inttostr(j);

end;

   if shape2.Top>=(form1.ClientHeight-10) then

begin

j:=j+1;

label4.Caption:=inttostr(j);

end;

   if shape3.Top>=(form1.ClientHeight-10) then

begin

j:=j+1;

label4.Caption:=inttostr(j);

end;

   if shape4.Top>=(form1.ClientHeight-10) then

begin

j:=j+1;

label4.Caption:=inttostr(j);

end;

   if shape5.Top>=(form1.ClientHeight-10) then

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 Игра «Автогонки»