Запуск программы осуществляется следующим образом: необходимо открыть папку, содержащую данную игру, и найти исполняемый файл SGIRG.exe.

Проект программы состоит из файла проекта, содержащего необходимые конструкции для исполнения, и трех модулей Unit1 и Unit3. Модуль Unit1 является основным модулем проекта, содержащим все необходимые для работы программы процедуры.

В первую очередь пишем процедуру очистки игрового поля - clean. Сначала для надежности выключаем таймер, меняем стиль панели на начальный (Form1.Panel2.BevelInner:=bvNone) и очищаем заголовок (Form1.Panel2.Caption:=' '). Данную операцию расписываем на все девять панелей игрового поля. В конце возобновляем работу таймера.

Рисунок 4 - Вид программы после запуска

После запуска программы на экран выводится основная форма Form1 (Рис.4), на которой расположены: главное меню и игровое поле. Игра, т.е. работа программы, начинается сразу же после запуска, ход сначала предоставляется игроку, выбравшему символ «X».

Далее выполняем проверку на «мухлeж», т.е. проверяем заголовок каждой панели игрового поля. Если заголовок панели пуст, то на данную панель разрешено нажимать, если же ему присвоено какое-либо значение («X» либо «O»), то при нажатии на данную панель ничего не будет происходить: if Panel2.Caption<>' ' then exit;

При нажатии на панель, для большей красоты, меняем ее стиль (Panel2.BevelInner:=bvLowered). Передо мной встал вопрос: как сделать чередование «X» и «O»?! Все просто, чередование делаем с помощью условного оператора If. Если Tag равен нулю, то в заголовок данной панели записываем символ «X» и присваиваем в Tag единицу, в противном случае в заголовок записываем символ «O» и присваиваем в Tag ноль.

Пример нажатой панели изображен на Рисунке 5.

if Form1.Tag=0

then

begin

Panel.Caption:='X';

Form1.Tag:=1;

end

else

begin

Panel.Caption:='O';

Form1.Tag:=0;

end;

Таким же образом описываем каждую панель игрового поля.

Рисунок 5 - Вид нажатой панели в программе

Следующим шагом написания программы является процедура проверки на выигрыш. В качестве данной процедуры используем компонент TTimer.

Когда подпрограмма сталкивается с невозможностью выполнения последующих действий, она создает объект с описанием ошибки и прерывает нормальный ход своей работы с помощью оператора Raise. Данный оператор создает объект класса EOutOfMemory (класс ошибок исчерпания памяти) и прерывает нормальное выполнение программы. Вызывающие подпрограммы могут эту ситуацию перехватить и обработать. Для этого в них организуется так называемый защищенный блок:

try

// Защищаемые от ошибок операторы

except

// Операторы обработки исключительной ситуации

end;

Между словами try и except помещаются защищаемые от ошибок операторы. Если при выполнении любого из этих операторов возникает исключительная ситуация, то управление передается операторам между словами except и end, образующим блок обработки исключительных ситуаций. При нормальном (безошибочном) выполнении программы блок except…end пропускается. Итак, дальнейшую разработку программы осуществляем в защищенном блоке.

Необходимо проверить стиль панелей по горизонтали, вертикали и диагонали. Если хоть один ряд имеет не начальный стиль панелей, то сравниваем заголовки панелей данного ряда. Если после проверки выясняется, что заголовки данного ряда не равны - игра продолжается, а если же выясняется, что равны, то открываем модальное окно с поздравлением (Рис.6) и присваиваем «X» или «O» (в зависимости от того, каким символом заполнен данный ряд) в лейбл формы поздравления:

Form3.Label1.Caption:=Form1.Panel2.Caption;

Form3.ShowModal;

Рисунок 6 - Модальное окно с поздравлением

После закрытия модального окна поздравления делаем очистку игрового поля с помощью ранее описанной процедуры clean. Данная процедура проверки применяется ко всем восьми рядам панелей, и только после этого закрываем try.

В случае если все панели игрового поля заполнены, а победитель не определился, то выводим сообщение: «Ничья, попробуйте еще раз» (Рис.7).

if (Panel2.BevelInner=bvLowered) and (Panel3.BevelInner=bvLowered) and (Panel4.BevelInner=bvLowered) and (Panel5.BevelInner=bvLowered) and (Panel6.BevelInner=bvLowered) and (Panel7.BevelInner=bvLowered) and (Panel8.BevelInner=bvLowered) and (Panel9.BevelInner=bvLowered) and (Panel10.BevelInner=bvLowered)

then

begin

Form1.Timer1.Enabled:=False;

ShowMessage ('Ничья, попробуйте еще раз!');

clean;

end;

Рисунок 7 - Сообщение в случае ничьи

Программирование кнопки «Новая игра» в меню программы делается в одну строку. Кнопка программируется в событии OnClick, просто указывается процедура очистки игрового поля - Clean:

procedure TForm1.NewMenuItemClick(Sender: TObject);

begin

clean;

end;

Программирование кнопки «Выход» в меню программы так же осуществляется очень просто. Кнопка программируется в событии OnClick и указывается процедура закрытия программы - Close:

procedure TForm1.N4Click(Sender: TObject);

begin

Close;

end;

Казалось бы, на этом можно закончить программирование модуля Unit1, но я заметил еще одну очень интересную проблему. Эта проблема заключается в кнопке «максимизации» (развернуть на весь экран) программы. Я уже сделал так, чтобы окно программы не могло «растягиваться»: (Pb) property BorderStyle: bsToolWindow; но этого мало, т.к. при нажатии на кнопку “максимизации” окно программы растягивается на весь экран (вид программы становится не очень красивым). Почитав немного литературы по Delphi я нашел выход из проблемы:

procedure TForm1.FormCreate(Sender: TObject);

var

l:DWORD;

begin

l:=GetWindowLong(Self.Handle,GWL_STYLE);

l:=l and not(WS_MAXIMIZEBOX);

l:=SetWindowLong(Self.Handle,GWL_STYLE,l);

end;

Данная процедура блокирует кнопку «максимизации», т.е. происходит «затухание» кнопки и все попытки нажать на нее становятся бесполезными.

Модуль Unit3 предназначен для вывода окна, содержащего поздравления для победившего игрока и символ, которым он играл (Рис.6). Программирование окна (Form3) осуществляется следующим образом:

- создается еще одна новая форма - Form3;

- также как и на Form2 ставится компонент TImage и загружается на форму рисунок;

- создается на рисунке три лейбла: в двух пишется текст поздравления, а в третьем будет показываться символ, которым играл победитель (процедура вывода символа описана выше). Устанавливается прозрачность фона Лейблов: (Pb) property Transparent: True.

Описание пользовательского интерфейса:

- Файл > Новая игра - начало новой игры;

- Файл > Выход - выход из программы.

Заключение

Стремительное развитие компьютерной техники в последние годы, появление мощнейших графических ускорителей и центральных процессоров способствовало не менее бурному развитию индустрии компьютерных игр. Выдающиеся разработки этой отрасли - это сложнейшие программы, как правило, с очень высокими требованиями к аппаратной части компьютера. Однако для возможности отдохнуть в перерыве от выполнения какой-либо работы оператору компьютера не всегда требуется новейшая компьютерная игра, а зачастую использовать её не позволяет маломощное оборудование офисного компьютера. Именно этой цели - отдыху от монотонной работы служит разработанная в рамках данного курсового проекта программа.

В результате выполнения данной курсовой работы была разработана игровая программа под названием «Крестики-нолики». Было проведено исследование компонентов программной среды Borland Delphi 7.0, которые использовались при создании программы, использовалось множество процедур и функций. Была использована и изучена процедура блокировки кнопки «максимизации».

В процессе выполнения курсовой работы были изучены новые возможности языка программирования Delphi. В процессе создания приложения был реализован алгоритм, который в дальнейшем возможно усовершенствовать. Все поставленные задачи были выполнены и разработка популярной игры «Крестики-нолики» прошла успешно.

Приложение А

Листинг программы

unit Unit1;

interface

uses

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

Dialogs, Menus, ExtCtrls, ComCtrls, unit3, StdCtrls, ImgList;

type

TForm1 = class(TForm)

MainMenu1: TMainMenu;

FileMenuItem: TMenuItem;

NewMenuItem: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

InformationMenuItem: TMenuItem;

AboutMenuItem: TMenuItem;

Panel1: TPanel;

Panel2: TPanel;

Panel3: TPanel;

Panel4: TPanel;

Panel5: TPanel;

Panel6: TPanel;

Panel7: TPanel;

Panel8: TPanel;

Panel9: TPanel;

Panel10: TPanel;

Timer1: TTimer;

ImageList1: TImageList;

procedure AboutMenuItemClick(Sender: TObject);

procedure Panel2Click(Sender: TObject);

procedure Panel5Click(Sender: TObject);

procedure Panel8Click(Sender: TObject);

procedure Panel3Click(Sender: TObject);

procedure Panel6Click(Sender: TObject);

procedure Panel9Click(Sender: TObject);

procedure Panel4Click(Sender: TObject);

procedure Panel7Click(Sender: TObject);

procedure Panel10Click(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

procedure NewMenuItemClick(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure N4Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

Implementation

{$R *.dfm}

procedure clean; // Процедура общего сброса ("Новая игра")

begin

Form1.Timer1.Enabled:=false; // Для надежности выключаем таймер

Form1.Panel2.BevelInner:=bvNone; // Меняем стиль панели на начальный

Form1.Panel2.Caption:=''; // Убираем заголовок панели

Form1.Panel3.BevelInner:=bvNone;

Form1.Panel3.Caption:='';

Form1.Panel4.BevelInner:=bvNone;

Form1.Panel4.Caption:='';

Form1.Panel5.BevelInner:=bvNone;

Form1.Panel5.Caption:='';

Form1.Panel6.BevelInner:=bvNone;

Form1.Panel6.Caption:='';

Form1.Panel7.BevelInner:=bvNone;

Form1.Panel7.Caption:='';

Form1.Panel8.BevelInner:=bvNone;

Form1.Panel8.Caption:='';

Form1.Panel9.BevelInner:=bvNone;

Form1.Panel9.Caption:='';

Form1.Panel10.BevelInner:=bvNone;

Form1.Panel10.Caption:='';

Form1.Tag:=0;

Form1.Timer1.Enabled:=true; // Возобновляем работу таймера

end;

procedure TForm1.Panel2Click(Sender: TObject);

begin

if Panel2.Caption<>'' then exit; // Проверка на заголовок панели (анти-мухлеж)

Panel2.BevelInner:=bvLowered; // Присваиваем стиль при нажатии на панель

if Form1.Tag=0

then // Меняем tag формы (для чередования X и O)

begin

Panel2.Caption:='X'; // если таг=0 тогда вписываем X

Form1.Tag:=1;

end

else

begin

Panel2.Caption:='O'; // если таг=1 тогда вписываем O

Form1.Tag:=0;

end;

end;

procedure TForm1.Panel5Click(Sender: TObject);

begin

if Panel5.Caption<>'' then exit;

Panel5.BevelInner:=bvLowered;

if Form1.Tag=0

then

begin

Panel5.Caption:='X';

Form1.Tag:=1;

end

else

begin

Panel5.Caption:='O';

Form1.Tag:=0;

end;

end;

procedure TForm1.Panel8Click(Sender: TObject);

begin

if Panel8.Caption<>'' then exit;

Panel8.BevelInner:=bvLowered;

if Form1.Tag=0

then

begin

Panel8.Caption:='X';

Form1.Tag:=1;

end

else

begin

Panel8.Caption:='O';

Form1.Tag:=0;

end;

end;

procedure TForm1.Panel3Click(Sender: TObject);

begin

if Panel3.Caption<>'' then exit;

Panel3.BevelInner:=bvLowered;

if form1.Tag=0

then

begin

Panel3.Caption:='X';

Form1.Tag:=1;

end

else

begin

Panel3.Caption:='O';

Form1.Tag:=0;

end;

end;

procedure TForm1.Panel6Click(Sender: TObject);

begin

if Panel6.Caption<>'' then exit;

Panel6.BevelInner:=bvLowered;

if form1.Tag=0

then

begin

Panel6.Caption:='X';

Form1.Tag:=1;

end

else

begin

Panel6.Caption:='O';

Form1.Tag:=0;

end;

end;

procedure TForm1.Panel9Click(Sender: TObject);

begin

if Panel9.Caption<>'' then exit;

Panel9.BevelInner:=bvLowered;

if form1.Tag=0

then

begin

Panel9.Caption:='X';

Form1.Tag:=1;

end

else

begin

Panel9.Caption:='O';

Form1.Tag:=0;

end;

end;

else

begin

Panel7.Caption:='O';

Form1.Tag:=0;

end;

end;

procedure TForm1.Panel10Click(Sender: TObject);

begin

if Panel10.Caption<>'' then exit;

Panel10.BevelInner:=bvLowered;

if Form1.Tag=0

then

begin

Panel10.Caption:='X';

Form1.Tag:=1;

end

else

begin

Panel10.Caption:='O';

Form1.Tag:=0;

end;

end;

Размещено на Allbest.ru