«Правила игри» відкріеться вікно в якому описано правила гри.
«Проходження» - відкріється діалогове вікно в якому докладніше описано принцип проходження гри.
«Про грі» - Відкріється діалогове вікно в якому описана історія гри.
Натіснувші в контекстного меню «Про програму». Можна Побачити діалогове вікно в модальному режімі де представлена ??інформація про Назву курсової роботи, версию, логотип автора, рік создания та копірайт.
4. Результати роботи програми
Колі в процессе гри роставіті кості в правильному порядку (так я к на малюнку)
Одразу з з'явитися діалогове вікно «Перемога!» в якому будут відобразатісь наші дані. Ім я, скільки Зроблено ходів та за скільки годині. Такоже ми можемо повернути «Зіграти ще» та «Вихід».
переглянутися переможців можна в табліці рекордів скоріставшісь контекстне меню «Гра - Рекорди» в вікню гри.
Звертаючись «Рекорд», з з'явитися діалогове вікно «Таблиця рекордів» де відображаються інформація про всех переможців Нашої гри.
Висновок
Во время виконан курсового проекту я Створив гру головоломку «П ятнашкі», яка рахує Кількість ходів, година, гру можна ставити на паузу та продовжуваті ее. Такоже гра П ятнашкі запісує переможців до бази даних Microsoft Access, потім їх можна переглядаті з контекстного меню. Є Чотири Рівні складності проходження. У справці є все необхідне таке як правила гри, принцип проходження про Історію гри. Орів. Гра П ятнашкі сподобається як доросли так и дітям, Аджея ее віковій ДІАПАЗОН віх 1 до 100 років. При розробці цього проекту я Використана знання здобуті на Лекціях та практичних заняття з дисципліни «Основи програмування та алгорітмічні мови» та при роботі з мовою програмування и компілятором «Borland Delphi».
Література
1.Дарахвелідае П.Г., Марков Є.П. Програмування в Delphi 7,2007 p.- 320c.
2.Джуліан Бакнелл. Фундаментальні алгоритми та структури даних в Delphi - ДиаСофтЮП, 2003p.- 560 с
.Кенту М. Delphi 7. Для професіоналів, 2007 p.- 250c.
.Трепалін С.В., Тенцер А., Єлманова Н.З. Delphi 6 і технологія COM, 2006p.- 470c.
.Шупрута В.В. Delphi 2005. Вчимося програмувати, +2005 p.- 550c.
Додаток А
Лістінг модуля Unit1
unit Unit1 ;, Messages, SysUtils, Classes, Graphics, Controls, Forms ,, StdCtrls, Menus, XPMAN, ExtCtrls, Buttons, jpeg;=class (TForm): TMainMenu ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TLabel ;: TImage ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TEdit ;: TEdit ;: TEdit ;: 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); procedure ButClicked (Sender: TObject); procedure CreatFishkas (); procedure KillOldFihkas (); function position (const x, y: integer): integer; procedure victopia (); {Private declarations} {Public declarations} end; Tfish=TButton;// Вказуємо тип наших фішок, не подобається бутон - вкажіть другойW=80; D=10; L=D + W; NXM=4; N=1; M=16; POLET=10; POLEL=10;= Fishka raquo ;;: TForm1 ;: array [N..M] of Tfish ;: array [N..M] of boolean ;, zeroY: integer ;: array [1..M, 1..2] of integer ;, min, sec, go, level, id: integer;: string; Unit2, Unit4, Unit3, Unit5, Unit6, Unit7, Unit8, Unit9, Unit10 ,, Unit12; {$ R * .dfm} TForm1. FormCreate (Sender: TObject); i, ty, lx: integer;:=0; min:=0; sec:=0; go:=0; time:= raquo ;; id:=0; randomize; i:=0;
//заповнюємо масив коорденатамі на які будуть випадковим чином ставитися:=POLET; lx:=POLEL; i:=N to M do begin [i, 1]:=lx; [i, 2]:=ty;:=lx + L; i mod NXM=0 then begin:=ty + L; :=POLEL ;; end; end; TF...
