Створеня гри «П’ятнашки»

Tabl-records.mdb – база даних в якій зберігаються рекорди, та додаються нові.

 

 

Програма розроблялася на ПК з наступною конфігурацією :

•Операційна Система : Microsoft Windows ХР.

•Комп’ютер : Intel Celeron(R) CPU D 320, 2.00 ГГц, 1.00 ГБ ОЗП.

Програма була опротестована на комп’ютері з наступною конфігурацією :

•Система : Microsoft Windows  7.

•Комп’ютер : Intel Celeron , 2.00 ГБ ОЗП.

Для початку роботи програми необхідно запустити файл Tag.exe.

Після чого з’явиться вікно програми. Потім потрібно ввести своє ім’я, обрати стать, вік, рівень гри та натиснути кнопку «Вход».

 

Після чого з’явиться вікно авторизація.

 

Після якої з’явиться вікно з грою

 

Натиснувши паузу з’являється діалогове вікно в модальному режими. Щоб повернутися треба натиснути «Продолжить» 

 

В контекстному меню «Игра» можна побачити:

 

Обравши «заново» з’явиться діалогове вікно в модальному режимі з картинкою:

 

Патиснувши на нього ми маємо звогу зіграти ще не змінюючи свої данні, а якщо «нова игра», то нам прийдеться повернутися до головної форми та за ново вводити наши данні. Натиснувши на «Выход», мі закінчимо гру.

В контекстному меню «Справка» можна побачити:

 

Обравши:

«Правила игри» відкриеться вікно в якому описано правила гри.

 

«Прохождение» - відкриється діалогове вікно в якому докладніше описано принцип проходження гри.

«О игре» - Відкриється діалогове вікно в якому описана історія гри.

Натиснувши в контекстному меню «О программе». Можна побачити діалогове вікно в модальному режимі де представлена інформація про назву курсової роботи, версію, логотип автора, рік створення та копірайт.

 

Коли в процесі гри роставити кості в правильному порядку (так я к на малюнку)

 

Одразу з’явиться діалогове вікно «Победа!» в якому будуть відобразатись наши дані. Ім’я, скільки зроблено ходів та за скільки часу. Також ми можемо обрати «Сыграть еще» та «Выход».

 

Переглянути переможців можна в таблиці рекордів скориставшись контекстним меню «Игра – Рекорды» в вікню гри.

 

Обравши «рекорди», з’явиться діалогове вікно «Таблица рекордов» де відображаються інформація про всіх переможців нашої гри.

 

 

Під час виконання курсового проекту я створив гру головоломку «П’ятнашки» , яка рахує кількість ходів, час, гру можна ставити на паузу та продовжувати її. Також гра П’ятнашки записує переможців до бази даних Microsoft Access, потім їх можна переглядати з контекстного меню. Є чотири рівні складності проходження. В справці є все необхідне таке як правила гри, принцип проходження про історію гри.орив. Гра П’ятнашки сподобається як дорослим так і дітям, адже її віковий діапазон віх 1 до 100 років. При розробці цього проекту я використав знання здобуті на лекціях та практичних заняттях з дисципліни « Основи програмування та алгоритмічні мови » та при роботі з мовою програмування і компілятором «Borland Delphi».

 

 

1.Дарахвелидае П. Г., Марков Е. П. Программирование в Delphi 7,2007p.-320c.

2.Джулиан Бакнелл. Фундаментальные алгоритмы и структуры данных в Delphi – ДиаСофтЮП, 2003p. - 560 с

3.Кэнту М. Delphi 7. Для профессионалов, 2007p.-250c.

4.Трепалин С. В., Тенцер А., Елманова Н. З. Delphi 6 и технология COM, 2006p.- 470c.

5.Шупрута В.В. Delphi 2005.Учимся программировать,2005p.-550c.

 

Лістинг модуля Unit1

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, Menus, XPMAN, ExtCtrls, Buttons, jpeg;

type

  TForm1 = class(TForm)

    MainMenu1: TMainMenu;

    N3: TMenuItem;

    F21: TMenuItem;

    F101: TMenuItem;

    N4: TMenuItem;

    N5: TMenuItem;

    N6: TMenuItem;

    N7: TMenuItem;

    Label1: TLabel;

    Image1: TImage;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    Label7: TLabel;

    Label8: TLabel;

    Label9: TLabel;

    Edit1: TEdit;

    Edit2: TEdit;

    Edit3: TEdit;

BitBtn1: TBitBtn;Timer1: TTimer;Label10: TLabel;Edit4: TEdit;Label11: TLabel;Label12: TLabel;Label13: TLabel;Label14: TLabel;Image2: TImage;Image3: TImage;BitBtn3: TBitBtn;Button1: TButton;N8: TMenuItem;procedure FormCreate(Sender: TObject);procedure FormShow(Sender: TObject);procedure F21Click(Sender: TObject);procedure F101Click(Sender: TObject);procedure N3Click(Sender:TObject);procedure BitBtn1Click(Sender: TObject);procedure Timer1Timer(Sender: TObject);procedure FormClose(Sender: TObject; var Action:TCloseAction);procedure N5Click(Sender: TObject);procedure N6Click(Sender: TObject);procedure N4Click(Sender: TObject);procedure N7Click(Sender: TObject);procedure BitBtn3Click(Sender: TObject);procedure Button1Click(Sender: TObject);procedure N8Click(Sender: TObject);

Private procedure ButClicked(Sender: TObject);procedure CreatFishkas();procedure KillOldFihkas();function position(const x, y: integer): integer;procedure victopia();{ Private declarations }

  public    { Public declarations }  end;

type Tfish = TButton; // указываем тип наших фишек, не нравится бутон - укажите другой

const W = 80;D = 10; L = D + W;NXM = 4;N = 1; M =