Разработка игрового приложения

Постановка задачи

Разработать игровую программу «Крестики-нолики», которая включает в себя игровую панель, состоящую из девяти клеток (панелей), образующих собой один большой квадрат. Игровая программа рассчитана на двух игроков. Противникам поочерёдно предоставляется ход, один играет символом «X», другой — «O». Выигрывает тот, кто первым заполнит ряд панелей своим символом: любой из трёх рядов по горизонтали или вертикали, либо любой ряд по диагонали.

Разработка и описание алгоритма решения

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

После запуска программы на экран выводится основная форма Form1 (рис. 4), на которой расположены: главное меню и игровое поле.

Игра, т. е., работа программы, начинается сразу же после запуска, ход сначала предоставляется игроку, выбравшему символ «X».

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

Рис. 1. — Вид программы после запуска:

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

Рис. 2. — Вид нажатой панели в программе:

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

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

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

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

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

Рис. 3:

Между словами try и except помещаются защищаемые от ошибок операторы.

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

И так, дальнейшую разработку программы осуществляем в защищённом блоке.

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

Рис. 4:

Рис. 5. — Модальное окно с поздравлением:

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

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

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

Рис. 6:

Рис. 7. — Сообщение в случае ничьи:

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

Кнопка программируется в событии OnClick, просто указывается процедура очистки игрового поля — Clean:

Рис. 8:

Программирование кнопки «Выход» в меню программы так же осуществляется очень просто.

Кнопка программируется в событии OnClick и указывается процедура закрытия программы — Close:

Рис. 9:

Программирование кнопки «О программе» также производится в событии OnClick.

Открывается модальное окно «О программе» (рис.), в котором описаны краткие сведения о программе и её создателе:

Рис. 10:

Рис. 11. — Модальное окно «О программе»:

Казалось бы, на этом можно закончить программирование модуля Unit1, но я заметил ещё одну очень интересную проблему.

Эта проблема заключается в кнопке «максимизации» (развернуть на весь экран) программы. Я уже сделал так, чтобы окно программы не могло «растягиваться», но этого мало, т. к., при нажатии на кнопку «максимизации» окно программы растягивается на весь экран (вид программы становится не очень красивым!).

Почитав немного литературы по Delphi я нашёл выход из проблемы!:

Рис. 12:

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

Модуль Unit2 предназначен для вывода окна, содержащего информацию о программе и об авторе.

Данное окно (Form2) создаём следующим образом:

• 1) Создаём новую форму — Form2;
• 2) Ставим компонент TImage и загружаем на форму рисунок;
• 3) Создаём на рисунке четыре Лейбла и пишем в их заголовки нужный текст. Далее делаем фон Лейблов прозрачным:
  • (Pb) property Transparent: True.

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

• 1) Создаём ещё одну новую форму — Form3;
• 2) Также как и на Form2 ставим компонент TImage и загружаем на форму рисунок;
• 3) Создаём на рисунке три Лейбла: в двух пишем текст поздравления, а в третьем будет показываться символ, которым играл победитель (процедура вывода символа описана выше). Устанавливаем прозрачность фона Лейблов:
  • (Pb) property Transparent: True.