г обраного гравця.
) Кількість поразок обраного гравця.
Таблиця 4.2.1. Повідомлення оператору
Повідомлення операторуДействія оператора
Малюнок 4.2.15Прічіна появи: Таке повідомлення з'являється в разі, якщо 1 гравець переміг в ігровій партії. Дія, яке необхідно вжити: Необхідно натиснути кнопку" Ок".
Малюнок 4.2.16Прічіна появи: Таке повідомлення з'являється у випадку, якщо 2 гравець переміг в ігровій партії. Дія, яке необхідно вжити: Необхідно натиснути кнопку" Ок".
Висновок
Під час курсового проектування я розробив ігровий додаток «Гра в 15». За весь період проектування я розширив свої пізнання в середовищі програмування Delphi, підкріпив свої знання теорії практикою, відкрив для себе нові властивості деяких компонентів, і навчився працювати з подіями компонентів і форм.
Також, мною була вивчена можливість установки нових компонентів.
У ході курсового проектування я використовував програму Help & Manual для створення файлу довідки, який був інтегрований моє додаток.
Важливим залишається і той факт, що ігровий додаток «Гра в 15» має всі підстави бути допрацьованим і вдосконаленим як у плані оптимізації та функціональності, так і в плані зручності користування та оформлення користувальницького інтерфейсу.
Список використаної літератури
1. Культин Н. Самовчитель Delphi 4. Програмування на Object Pascal.- СПб.: БХВ - Санкт-Петербург, 1999. - 480 с., Мул.
. Архангельський А.Я. Розробка прикладних програм для Windows в Delphi 5. - М.: ЗАТ «Видавництво БІНОМ», 1999. - 256 с.: Ил. (Все про Delphi)
Додаток
Модуль Unit1.pas
var: TForm1;, n, m, i, j, pob, pob1, por, por1: integer;, s1: string;
Unit2, Unit3;
{$ R *. dfm}
TForm1. Panel1Click (Sender: TObject);:=q +1; q mod 2=1 then begin. Color:=clyellow;:=i +1;:=n +1;:=s + «1»; i=4 then (strtoint (s [1]) + strtoint (s [2]) + strtoint (s [3])=15) or
(strtoint (s [1]) + strtoint (s [2]) + strtoint (s [4])=15) or
(strtoint (s [2]) + strtoint (s [3]) + strtoint (s [4])=15) or
(strtoint (s [1]) + strtoint (s [3]) + strtoint (s [4])=15) then begin showmessage («1 гравець переміг!");: =pob +1;:=por1 +1;. Show;; i=3 thenn=15 then begin showmessage («1 гравець переміг!");:=Pob +1;:=por1 +1;;; q mod 2=0 then. Color:=clgreen;:=j +1;:=m +1;:=s1 + «1»; i=4 then (strtoint (s1 [1]) + strtoint (s1 [2]) + strtoint (s1 [3])=15) or
(strtoint (s1 [1]) + strtoint (s1 [2]) + strtoint (s1 [4])=15) or
(strtoint (s1 [2]) + strtoint (s1 [3]) + strtoint (s1 [4])=15) or
(strtoint (s1 [1]) + strtoint (s1 [3]) + strtoint (s1 [4])=15) then begin showmessage («2 гравець переміг!");: =pob1 +1;:=por +1;; j=3 then
m=15 then begin showmessage («2 гравець переміг!");:=pob1 +1;:=por +1;;;. Enabled:=false;
;
