Geum.ru

Читайте данную работу прямо на сайте или скачайте

Скачайте в формате документа WORD


Разработка игровой программы "Морской бой"

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

Советский энциклопедический словарь

Все, кто имеет дело с компьютером, так или иначе сталкивались са компьютернымиа играми, и подавляющее большинство может сходу назвать несколько игр, которые им особенно понравились. Те, кто же совсем наигрался, почти наигрался или еше не наигрался, но в процессе общения с компьютером же начал совмещать игры с чем-нибудь более полезным, возможно, хотели бы придумать какие-нибудь свои, не похожие ни на какие другие игры (1).

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

В данной курсовой работе речь пойдет о создании несложной игровой программы Морской бой, которая и будет являться объектом исследования.

В первой главе данной курсовой работы рассматриваются аспекты программирования игр с использованием визуальных компонентов, в пункте 1.1. приводится аналитический обзор игрового программного обеспечения, классификация игр. В пункте 1.2. приводится описание компонентов, используемых при реализации практической части курсовой работы. В пункте 1.3. показываются возможности использования визуальных компонентов.

Во второй главе приведены этапы разработки программы, такие как постановка задачи, алгоритм реализации и описание пользовательского интерфейса.

В заключении приведены выводы по курсовой работе, достоинства и недостатки визуальных методов программирования.

Список использованных источников содержит полный перечень технической литературы, использованной для написания данной курсовой работы.

Приложения содержат блок-схемы всех процедур программы, и текст самой программы.

1. ПРОГРАММИРОВАНИЕ ИГР С ИСПОЛЬЗОВАНИЕМ ВИЗУАЛЬНЫХ КОМПОНЕНТОВ

1.1.         Аналитический обзор

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

До недавнего времени среда Windows использованлась в основном как платформа для создания игр, пернвоначально разработанных для Macintosh. Это осущенствлялось на базе пакета QuickTime фирмы Apple. Принмерами таких игр могут быть Mysl (Broderbund/Cyan), Wrath of the Gods (Maxis/Luminaria) и некоторые друнгие. В ряде случаев использовался пакет Video for Winнdows, позволяющий отображать оцифрованное видео. Затем появились библиотеки WinG и WinToon, на базе которых фирма Sierra создала игру King's Quest VII. Это были первые попытки использовать Windows как платформу для создания игровых программ. Преимущестнва такого подхода достаточно очевидны - единый иннтерфейс, наличие стандартных драйверов для большиннства мультимедийных стройств и возможность правнления ими стандартными способами. Затем появилась новая версия - Windows 95, в состав которой была включена библиотека WinG (как подсистема GDI), и перед разработчиками открылись более широкие вознможности.

Указать точное число компьютерных игр очень трудно. Можно только примерно оценить число различных наименований игр, находящихся на рынке в любое время (2).

Классификация компьютерных игр может быть следующая:

1. Приключенческие игры. Игры могут быть великолепным средством рассказа истории. Эти игры представляют собой мультиплицированный рассказ, в котором можно видеть и контролировать основной персонаж (а иногда и более одного) в очень детальном повествовании. Это - компьютерные версии обычных повествований, начиная от душещипательных рассказов до технотриллеров, научно-фантастических приключений, фантазий и рассказов, до предела набитых разными обманами и мошенничествами. Приключенческие игры развиваются вокруг различных загадок и препятствий, которые нужно преодолеть по мере развития рассказа.

2. Фантастические игры, в которых требуется играть некоторую роль (ролевые игры). Их лучше всего определить как компьютеризованную версию рассказа Dungeons and Dragнons (Подземелья и драконы), но действие не всегда происходит в населенном варварами средневековом мире. Часто оно происходит в открытом космосе или в каких-либо областях будущего. В этих играх обычно нужно управлять группой персонажей, которые становятся по мере развития игры сильнее и мнее, и делать некоторые другие вещи. Так же изменяются и враги. Сами рассказы в играх этого типа обычно менее детальны, чем в приключенческих играх, с большим пором на задачу побить чудовгщ, чем решить загадки.

3. Имитаторы воздушных и космических сражений. Это не воеые игры, в которых может оказаться неограниченное число вооружений и врагов, эти игры пытаются быть точными имитаторами полетов и сражений на реальных боевых самолетах. Эти игры предназначены для тех, кто хочет лентать на больших и очень мощных машинах. Кабины пилотов выглядят как настоящие, инструменты работают как в настонящем бою, оружие является имитацией реально существуюнщего, полетные характеристики самолета (и самолета врага) соответствуют действительным. Имитаторы космических сражений выдуманы, однако они разработаны с целью точно повторить реальные маневры в космосе.

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

5. Самолеты, поезда и автомобили. В отличие от этих имитаторов, все прочие являются имитаторами военного типа или имеют очень сильный пор на сражение. Эти же игры не относятся к таким имитаторам. Конечно, можно проехать на автомобиле по береговой дороге в Калифорнии со скоростью, вдвое превышающей разрешенную, и потанценвать на всех четырех колесах. Но также можно использонвать эти игры, чтобы научиться безопасно летать среди обнлаков, и получать довольствие от свободы полета. Даже можно делать такие вещи, как постройка и правление сонбственной железной дорогой.

6. Спортивные имитаторы. Здесь необходимо обучать профессионалов и правлять ими. Эти игры - нечто больншее, чем простое изображение бейсбольных игр в картинках, в некоторых из них можно даже контролировать реальное действие. Спортивные имитаторы дают возможность вести рискованную игру в нужное время, доказать, что можно выиграть с помощью быстроты, иметь в команде Генри рона и Теда Вильямса, или переиграть Томми Лазорду.

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

8. Настольные игры, солитер и салонные игры. Многие старые любимые игры появились в компьютерном варианте. Больше не нужно заниматься поисками партнера, чтобы поиграть в шахматы, бэкграммон и риск. Некоторые из этих игр даже научат мошенничать наедине с монитором, и при этом не придется возвращаться домой с пустым карманом после неудачной ночи.

9. Имитаторы реальности (лигры в бога). Это игры, которые позволяют создавать реальный мир из ничего. Это игры, которые позволят создать компьютерный мир из нанбросков, правлять городом, страной или даже миром.

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

11. Стратегические и военные имитаторы. Здесь можно принимать частие в великих исторических событиях, взять на себя командонвание немецкой армией у Ленинграда или армией Наполеонна у Ватерлоо. Это военные стратегии прошлого, настонящего или будущего.

12. Игры для детей. Если есть домашний компьютер, и чтобы дети научились его использовать, то эти игры достойнны внимания. Реальность нашей культуры такова, что, как только малыши станут координированы настолько, чтобы правильно пользоваться клавиатурой или мышью, они хотят сразу приняться за такие игры, как Wing Commander, Popuнlous или Eye of the Beholder. Однако же вокруг существует множество игр, в которые дети могут играть просто чтобы получить довольствие, или же научиться чему-либо.

13. Игры On-line. Было бы ошибкой считать, что все компьнютерные игры для IBM PC приходят к нам на дискетах или CD-дисках, плотно упакованных в красивые пакеты. Фактически, весь обширнный мир компьютерных игр доступен и по телефону. Эта категория игр известна как лон-лайн и включает в себя разнообразные игры, которые имеются в больших коммернческих лон-лайн сетях и во многих локальных сетях типа лдоска объявлений (bulletin board system Ч BBS). Для игр лон-лайн, кроме личного компьютера, необходимы модем и кредитная карточка.

14. Игры Shareware. Будет ошибкой предположить, что все компьнютерные игры приходят в красивых паковках. Многие хороншие игры приходят вовсе без паковок, и стоят от 10 до 30 долларов. Обычно можно их опробовать за очень низкую плату или вовсе бесплатно в течение нескольких дней и, если захочется получить легальную копию, следует послать по почте чек компании или лицу, которые создали игру.

15. Классические игры. Мир PC-игр во многом похож на мир популярной музыки и фильмов: создается много игр различнных наименований, некоторые становятся хитами и держат популярность в течение некоторого времени, другие пропандают. Постепенно эти хиты становится трудно отыскать, и мало-помалу они заменяются другими лучшими играми. Очень мало PC-игр живут более 2-3 лет. Из тех, что действительно остаются, многие настолько хороши, что становятся вечнынми, и они заслуживают того, чтобы в них играли. Некоторые, как Flight Simulator или King's Quest, обновляются время от времени, так что их можно рассматривать как практически новые игры. Остальные остаются неизменными, и ровень продаж у них таков, что они остаются в обращении, но же не рекламируются активно их производителями. Это игры, которые не бросаются в глаза, золотые игры - классичеснкие PC-игры.

Компьютерные игры - отнюдь не новое изобретение. Их история началась не с конца 1970 годов. Начало лежит гораздо раньше, тогда, когда Джон Кеннеди же пробыл президентом Соединенных Штатов всего несколько месяцев (2).

На самом деле все началось с модели железной дороги. Студеннты Технологического института в Массачусетсе были немало дивленны количеством способов, с помощью которых можно было размеснтить органы правления миниатюрной железной дорогой. Позднее, когда они наконец получили возможность работать на больших компьнютерах института, их работа в бинарных вычислениях - ведь именно такие вычисления имитируются выключателями железной дороги - позволили им пройти хорошую подготовку в компьютерном деле.

Стив Рассел был одним из членов Клуба Моделей Железных дорог Высокой Технологии в Технологическом институте. Будучи хорошим программистом, он летом 1961 года работал в Статистической лаборатории, когда у него и его друзей появилась идея перенести лмыльные научно-фантастические рассказы Е.Е.Смита на компьютеры. В 1962 году Стив разработал программу для PDP-1. Эта самая машина теперь выставлена в компьютерном музее Бостона в Массачусетском Технологическом институте.

В Космической Войне, как называлась эта программа, два синтезированных компьютером ракетных космических корабля (один похожий на толстую сигару, другой на длинную обтекаемую трубу) могли летать по экрану, на котором помещалось изображение коснмоса. Игроки могли нажимать на кнопки, чтобы заставить ракеты менять направление движения почти так же, как позднее в игре Asteroids владельцы игровых машин Atari правляли своими кораблянми. Каждая ракета несла на себе 31 торпеду, и, в то время как они летели по экрану, игрок мог выстрелить точечку из носа своей ракеты в направлении другой. Если точка действительно пересекала очертанния другого корабля, программа определяла, что торпеда спешно поразила другой корабль и другой корабль взрывался. Взорванный корабль пропадал с экрана и заменялся нагромождением точек, конторые изображали его остатки.

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

Даже Рассел сделал некоторые изменения. Зная, что у настоянщих торпед вероятность поражения цели не 100%, а меньше, он решил придать звездным торпедам возможность ошибки, и добавить случайный элемент в траектории ракет и время взрыва. Его друзья терпеть не могли новую версию, поскольку они хотели бы иметь в игре ту же степень веренности, которая существовала в программировании.

Рассел вернул программу к прежней версии и, не спели огляннуться, как Космические войны оккупировали компьютеры колледнжей по всей стране.

Космические войны стали настолько популярны к середине шестидесятых, что Нолан Бушнелл, создатель Atari, очень привязался к игре во время учебы в ниверситете штата Юты. К 1970 году Бушнелл построил свою собственную машину, использовав 185 встроенных цепей для подсоединения к телевизору и для выполнения одной-единственной функции. Эта функция была игрой Компьютерный Космос, вариант Космических Войн, в котором ракета сражалась с летающими тарелками вместо другого корабля.

Космические Войны были не единственным предшественником коммерческих компьютерных игр, появившихся на больших компьютерах в колледжах. Какой-то неизвестный автор начал играть в игру Star Trek (Звездный путь) в шестидесятых годах. Никто не знает, кто первым создал такую игру - он или она, вероятно, подали бы судебный иск, если бы автор игры был точно определен - но эта игра также появилась на колледжских компьютерах по всей стране к 1969 году.

Игра Звездный путь сама по себе была не очень изощренной. В игре были линии наподобие решеток, которые позволяли звезднным кораблям путешествовать от одной точки к другой, игра испольнзовала символы для идентификации кораблей, предоставляла чиснленную информацию в процентах, и позволяла летать быстрее, чем скорость света. К середине 70-х годов почти на каждой домашней компьютерной системе была доступна та или иная форма этой игры. Существовала версия этой же игры для IBM под названием Star Fleet (Звездный Флот).

Наконец, стоит помянуть пожалуй наиболее важную игру, Advenнture (Приключения). В игре использовались двухсловные команды, имя ее разработчика Вилл Краудер. Это была первая приключенческая компьютерная игра.

Кроме того, в конце 70-х была создана игра по имени Zork, которая стала доступна для пользователей домашних компьютеров в 1981 году. Эту игру до сих пор можно купить. Игра Zork основывается на игре Adventure (2).

1.2.         Описание компонентов, используемых при реализации практической части курсовой работы

В практической части данной курсовой работы используются следующие визуальные и невизуальные компоненты (3, 4, 5) среды программирования Borland Delphi 6.0.

1.2.1. Компонент TMainMenu

TMainMenu апозволяет поместить главное меню в программу. При помещении TMainMenu на форму это выглядит, как просто иконка. Иконки данного типа называют невидимым (невизуальным) компонентом, поскольку они невидимы во время выполнения программы. Создание меню включает три шага:

1) помещение TMainMenu на форму,

2) вызов Дизайнера Меню через свойство Items в Инспекторе Объектов,

3) определение пунктов меню в Дизайнере Меню.

Этот компонент доступен из модуля MENUS, и находится на странице Палитры компонентов Standard

Этот компонент представляет главное меню формы и наследует все методы и свойства TMenu. Особенность его в том, что в нем реализован сложный механизм объединения меню. Это необходимо по следующим причинам:

1.     Если в приложении имеется несколько форм со своими меню, то для прощения работы целесообразно соединить их в одно и правлять меню из главной формы.

2.     Объединение меню нужно при работе с интерфейсом MDI и его подокнами.

3.     Механизм объединения меню используется серверами OLE, запускаемыми по месту нахождения объекта OLE. Загружаясь, сервер дописывает осунществляемые им операции к меню другого приложения.

Для того чтобы реализовать объединение меню, у тех форм, меню которых будут присоединены к главному, необходимо становить в True свойство: (Рb) property AutoMerge: Boolean.

При этом у главного меню оно должно оставаться равным False, иначе главное меню будет вообще невидимым. Объединение будет происходить автоматически при активизации новых форм или серверов OLE. Кроме автоматического режима, объединение меню можно выполнить при вызове метода: procedure Merge(Menu: TMainMenu).

Присоединяемое меню при необходимости может быть легко отсоединено вынзовом метода: procedure Unmerge(Menu: TMainMenu).

При становленном в True свойстве AutoMerge ссылка на присоединенное меню будет сохраняться в специальном поле компонента и отсоединяться в нужных случаях автоматически (например, при закрытии формы, которой оно принадлежит).

Объединение меню происходит по специальным правилам, в основе которых лежит использование группового индекса (свойства Group Index) каждого объекнта TMenuItem.

У пунктов меню одного уровня, в частности всех подменю верхнего ровня в главном меню, свойство GroupIndex является неубывающим, т. е. у послендующего пункта групповой индекс больше либо равен индексу предыдущего. Это требование отслеживается как на этапе разработки, так и на этапе исполннения. Например, пусть пункты меню имеют индексы 0, 3, 4, 5, 6. Если включить пункт меню с индексом 5 между пунктами с индексами 0 и 3, то 3 и 4 будут изменены на 5. А вот изменить большее значение Х на меньшее Y, если впереди есть пункты с индексом, большим Y, невозможно. Если в этом примере попытаться изменить индекс 6 на 4, то это приведет к возникнонвению исключительной ситуации EMenuError.

Для обычных форм объединение происходит только на верхнем ровне в главном меню во время их активизации. В объединенном меню все подменю будут располагаться по возрастанию номера группового индекса, при этом:

1.     если в присоединяемом меню есть пункты с таким же групповым индексом, что и в исходном, то все их множество заменяет все множество таких пунктов в исходном меню;

2.     все пункты присоединяемого меню, групповой индекс которых не встречается в исходном, добавляются к нему и вставляются на соответствующие их индексу места.

К окнам интерфейса MDI все сказанное относится только при запуске приложения. Если в формах приложения со стилем fsMDIChild есть свои главные меню, то в этот момент они автоматически сольются с главным меню формы fsMDIForm независимо от состояния AutoMerge.

На ровне работы с серверами OLE предусмотрены дополнительные возможнности по объединению меню. Если в компонент TOLEContainer загружен объект OLE, то в конец подменю Edit обычно добавляется подменю, из которого можно вызвать функции открытия и редактирования этого объекта. После активизации сервера он может не только вставлять свои подменю в главное, но и добавлять новые пункты к же существующим подменю.

Три метода TMainMenu используются для работы с меню OLE:

1.     procedure PopulateOle2Menu(SharedMenu: HMenu; Groups: array of Integer; var Widths: array of Longint);

2.     procedure GetOle2AcceleratorTable(var hAccel : THandle; var numAccels: Word; Groups: array of Integer) ;

3.     procedure Set01e2MenuHandle(Handle: HMENU);

1.2.2. Компонент TLabel

TLabel служит для отображения текста на экране. Можно изменить шрифт и цвет метки, если дважды щелкнуть на свойство Font в Инспекторе Объектов. Видно, что это легко сделать и во время выполнения программы, написав всего одну строчку кода.

Этот компонент доступен из модуля STDCTRLS, и находится на странице Палитры компонентов Standard.

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

Свойства компонента приведены в табл.1:

Таблица 1

Свойства компонента TLabel

Свойство

Описание

(Pb) property Caption: TCaption; TCaption = string[255];

Содержит строку с выводимым текстом.

(Pb) property Alignment: TAlignment;

Устанавливает правило выравнивания текста - по правому, левому краю или по центру клиентской области.

(Pb) property AutoSize: Boolean;

В случае True происходит автоматическое приведение размеров компонента к размерам текста и высоте шрифта.

Продолжение табл.1

(Pb) property ShowAccelChar: Boolean;

Показывает, отображается ли в TLabel акселератор (символ, перед которым стоит знак амперсанда - '&'). Если оно равно False, амперсанд никак не интерпретинруется. В случае True акселератор выделяется в строке подчеркиванием и нажатие клавиш <Аlt>+<символ> приводит к передаче фокуса окну FocusControl (т.к. TLabel сам не является оконным компонентом).

(Pb) property FocusControl: TWinControl;

Определяет оконный компонент, которому посылаются сообщения о вводе акселенратора.

(Pb) property Transparent: Boolean;

Прозрачность фона компонента. Если свойство становлено в True, то при перерисовке элемента правления не пронисходит закрашивание клиентской обласнти. В противном случае - происходит закрашивание кистью bsSolid и цветом Color.

(Pb) property WordMrap: Boolean;

Определяет возможность разрыва слов в случае, если длина выводимого текста превышает ширину компонента.

1.2.3. Компонент TPanel

TPanel - правляющий элемент, похожий на TGroupBox, используется в декоративных целях. Чтобы использовать TPanel, просто поместите его на форму и затем положите другие компоненты на него. Теперь при перемещении TPanel будут передвигаться и эти компоненты. TPanel используется также для создания панели инструментов и окна статуса.

Этот компонент доступен из модуля EXTCTRLS, и находится на странице Палитры компонентов Standard.

Этот компонент - является несущей конструкцией для размещения других элементов правления. В отличие от простой рамки (TBevel) панель сама является оконным элементом правления и родителем для всех размещенных на ней компонентов. Часто ее используют для создания панелей инструнментов, строк состояния и т. п.

За внешнее оформление панели отвечают свойства:

(Pb) property Bevel Inner: TPanelBevel;

(Рb) property BevelOuter: TPanelBevel;

TPanelBevel = (bvNone, bvLowered, bvRaised) ;

(Pb) property BevelWidth: TBevelWidth;

TBevelWidth = 1..Maxint;

(Pb) property BorderWidth: TBorderWidth;

TBorderWidth = 0..Maxint ;

На границах панели размещаются две специальные окаймляющие рамки (bevels): Bevellnner и BevelOuter. При помощи комбинации белого и серого цветов они имитируют трехмерность - приподнятость (bvRaised) или утоп-ленность (bvLowered). Обе рамки имеют ширину BevelWidth. Наружная - BevelOuter - расположена прямо по периметру панели, вторая - Bevellnner - внутри на расстоянии BorderWidth от нее. Обе могут быть невидимыми (bvNone), приподнятыми или топленными.

Комбинируя сочетания bvLowered/bvRaised, можно создать вокруг панели "ров" или "вал".

Иллюзию трехмерности может подчеркнуть также стиль обрамления компоннента:

(Pb) property BorderStyle: TBorderStyle;

TBorderStyle = bsNone.. bsSingle;

Значение bsSingle означает, что панель будет окаймлена черной линией единичной толщины (по периметру, снаружи от обеих рамок).

Выравнивание текста заголовка панели определяется при помощи свойства:

(Pb) property Alignment: TAlignment;

Свойство (Pb) property Locked: boolean; предназначено для определения способа взаимодействия панели с размещеыми на ней объектами OLE. Если оно равно True, последние при активизации сервера OLE "по месту'" не могут заместить панель.

В обработчике события: (Pb) property OnResize: TNotifyEvent; может быть предусмотрена реакция пользователя на изменение размеров панели.

1.2.4. Компонент TBitBtn

TBitBtn - кнопка вроде TButton, однако на ней можно разместить картинку (glyph). TBitBtn имеет несколько предопределенных типов (bkClose, bkOK и др), при выборе которых кнопка принимает соответствующий вид. Кроме того, нажатие кнопки на модальном окне (Form2.ShowModal) приводит к закрытию окна с соответствующим модальным результатом (Form2.ModalResult).

Этот компонент доступен из модуля BUTTONS, и находится на странице Палитры компонентов Additional.

Эта кнопка, будучи потомком TButton, может нести на себе пиктограмму и имеет рад дополнительных добств в использовании. В Delphi же определены стандартные виды кнопок:

(Pb) property Kind: TBitBtnKind;

TBitBtnKind = (bkCustom, bkOK, bkCancel, bkHelp, bkYes, bkNo, bkClose, bkAbort, bkRetry, bklgnore, bkAll);

Для каждой из них определены: передаваемый форме результат (ModalResult):

BitBtnModalResults: array[TBitBtnKind] of TModalResult =

(0, mrOk, mrCancel, 0, mrYes, mrNo, 0, mrAbort, mrRetry, mrlgnore, inrAll);

также название и картинки для разных состояний. Достаточно становить значение свойства Kind, и кнопка сразу приобретет нужный вид. Более того, некоторые из видов кнопок при нажатии сразу совершают опренделенные действия. Так, bkHelp осуществляет инициализацию системы помощи со своим (или ближайшим ненулевым родительским) контекстом. Кнопка вида bkClose закрывает форму, которой она принадлежит, вызывая ее метод Close.

Кнопка будет отнесена к виду bkCustom, если она:

1.     назначена Default, но при этом не принадлежит множеству [bkOk, bkYes];

2.     назначена Cancel, но не принадлежит множеству [bkCancel, bkNo];

3.     у нее изменена пиктограмма;

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

За внешний вид этой кнопки отвечают свойства, рассмотренные ниже. Стиль изображения кнопок в зависимости от операционной системы задается свойством:

(Pb) property Style: TButtonStyle;

TButtonStyle = (bsAutoDetect, bsWin31, bsNew);

Стиль bsNew соответствует Windows 95. В любом случае корректным будет применение стиля bsAutoDetect, который сам распознает версию системы. Пиктограмма кнопки, которая вместе с текстом видна на ее поверхности, определяется свойством:

(Pb) property Glyph: TBitmap;

Для создания эффекта нажатия картинка должна немного изменяться в зависимости от состояния; кроме того, отдельная картинка нужна для неактивного состояния (когда нажатие не воспринимается). В свойстве Glyph должна быть одна битовая карта, но она может содержать картинки сразу для нескольких состояний кнопки (максимум четыре). Они интерпретируются как соответствующие нормальному (отжатому), запрещенному (неактивному), нажатому и топленному состояниям (последнее применяется только для кнопок TSpeedButton). Для этого картинки должны быть расположены подряд вплотную по горизонтали. Например, при размере картинок 16х16 нужна объединенная битовая карта 64х16. Если каждая из картинок квадратная и ширина общей картинки нацело делится на высоту, то при присвоении ее свойству Glyph система сможет распознать их и скорректировать количество, определяемое свойством:

(Pb) property NumGlyphs: TNumGlyphs ;

TNumGlyphs = 1..4;

При отрисовке в зависимости от состояния из большой битовой карты будет использована нужная часть.

Три свойства отвечают за расположение текста и картинки на поверхности кнопки:

(Pb) property Layout: TButtonLayout;

Способ выравнивания пиктограммы относительно краев кнопки. Может быть одним из четырех:

TButtonLayout = (biGlyphLeft, biGlyphRight, biGlyphTop, biGlyphBottom);

Расстояние от соответствующего способу выравнивания края кнопки до пиктонграммы описывается свойством:

(Pb) property Margin: Integer;

Промежуток между пиктограммой и текстом равен:

(Pb) property Spacing: Integer;

Если свойства Margin, Spacing или оба не заданы (по молчанию равны -1), значения этих промежутков выбираются системой. Кнопка также имеет метод Click и свойства Caption, ModalResult, Default и Cancel. Статус Default получают кнопки видов bkOk, bkYes, a Cancel - кнопки видов bkCancel, bkNo.

1.2.5. Компонент TSpeedButton


TSpeedButton - кнопка для создания панели быстрого доступа к командам (SpeedBar). Пример - SpeedBar слева от Палитры Компонент в среде Delphi. Обычно на данную кнопку помещается только картинка (glyph).

Этот компонент доступен из модуля BUTTONS, и находится на странице Палитры компонентов Additional.

Эта кнопка с изображением может иметь как зависимую, так и независимую фиксацию. Она добна для применения в составе панелей инструментов. Понведение этих кнопок во многом определяется свойством:

(Pb) property Grouplndex: Integer;

Если Grouplndex равен нулю, у кнопки вообще нет фиксации в нажатом состоянии и она не зависит от остальных кнопок, принадлежащих тому же родительскому элементу. Кнопки в группе (то есть с одинаковым ненулевым значением Grouplndex) имеют зависимую фиксацию. Она также зависит от свойства:

(Pb) property AllowAlIUp: Boolean;

которое описывает поведение кнопок в группе, именно: могут ли все кнопки одновременно быть отжаты. Если AllowAlIUp равно False (по молчанию), нанжатую кнопку в группе можно отпустить, лишь нажав другую. Если AllowAlIUp равно True, кнопку можно отпустить повторным нажатием.

Если необходимо фиксировать одну кнопку TSpeedButton, ей нужно присвоить никальный групповой индекс, AllowAlIUp становить в True.

Поскольку в группе не могут одновременно находиться кнопки с различным значением этого свойства, при нажатии кнопки и изменении Grouplndex свойнство AllowAlIUp "рассылается" (присваивается) остальным кнопкам с тем же значением Grouplndex. В группе не может быть нажато более одной кнопки. Определяет, нажата ли кнопка, свойство:

(Pb) property Down: Boolean;

Это свойство может изменяться как системой, так и программистом. Например, если при запуске программы необходимо, чтобы одна из кнопок же была нажатой, ее свойство Down станавливают в True.

Текст кнопки определяет свойство Caption. Компонент имеет те же правила и свойства рисования картинки, что и TBitBtn. Они описываются свойствами Glyph, NumGlyphs, Layout, Margin и Spacing.

Для имитации щелчка предусмотрен метод Click. Двойной щелчок для TSpeedButton возможен только на нажатой кнопке Ч иначе он интернпретируется как обычный. Описывается свойством:

(Pb) property OnDblClick;

1.2.6. Компонент TImage

TImage - отображает графическое изображение на форме. Воспринимает форматы BMP, ICO, WMF. Если картинку подключить во время дизайна программы, то она прикомпилируется к EXE файлу.

Этот компонент доступен из модуля EXTCTRLS, и находится на странице Палитры компонентов Additional.

Этот компонент служит надстройкой над классом TPicture и замыкает всю иерархию графических объектов VCL. Он предназначен для показа на форме изображения: битовой карты (TBitmap), метафайла (TMetafile), значка (TIcon).

Свойство (Pb) property Picture: TPicture; служит контейнером для графического объекта одного из перечисленных класнсов.

В качестве канвы используется канва объекта Picture. Graphic - только если поле Graphic ссылается на объект класса TBitmap:

(Pb) property Canvas: TCanvas;

Если это не так, то попытка обращения к свойству вызовет исключительную ситуацию EInvalidOperation, так как рисовать на метафайле или значке нельзя.

Следующие три свойства определяют, как именно Tpicture располагается в рабочей области компонента:

(Pb) property AutoSize: Boolean;

- означает, что размеры компонента настраиваются по размерам содержащегося в нем графического объекта. Устанавливать его в True нужно перед загрузкой изображения из файла или буфера обмена;

(Pb) property Stretch: Boolean;

- если это свойство становлено в True, то изображение "натягивается" на рабочую область, при необходимости меньшая или увеличивая свои размеры. Если оно становлено в False, то играет роль следующее свойство;

(Pb) property Center: Boolean;

- если это свойство становлено в True, изображение центрируется в пределах рабочей области. В противном случае - располагается в ее верхнем левом глу.

1.2.7. Компонент TTimer

TTimer - таймер, событие OnTimer периодически вызывается через промежуток времени, казанный в свойстве Interval. Период времени может составлять от 1 до 65535 мс.

Этот компонент доступен из модуля EXTCTRLS, и находится на странице Палитры компонентов System.

Этот невизуальный компонент предназначен для ведомления программы об истечении определенных промежутков времени. Компонент инкапсулирует системный таймер Windows и работает через посылку сообщений WM_TIMER.

Свойство (Pb) property Enabled: Boolean; включает/выключает таймер, влияя на генерацию им событий. Будучи станновлен в Enabled, таймер начинает генерировать события OnTimer через интернвал времени

(Рb) property Interval: Word;

который измеряется в миллисекундах. После каждого истечения такого интервала инициируется обработчик, связанный с событием:

(Pb) property OnTimer: TNotifyEvent;

При этом программист получает очередной квант времени.

При активизации и деактивизации таймера или изменении интервала в системе может не оказаться свободных таймеров. В этом случае генерируется исключительная ситуация EOutOfResources.

1.2.8. Компонент TStatusBar


TStatusBar - строка состояния. Предназначена для размещения разного рода служебной информации в окнах редактирования, обычно располагается в нижней части основной формы. Компонент может иметь несколько секций, также кнопку изменения размеров окна, в которое он помещен. С компонентом связывается объект класса TStatu

Этот компонент находится на странице Палитры компонентов Win32.

2. РАЗРАБОТКА ПРОГРАММЫ

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

Разработать игровую программу Морской бой, которая включает игровую панель, состоящую из двух полей для человека и компьютера. На поле расставляются 10 кораблей разного класса. Четыре корабля размером в одну ячейку, три корабля размером в две ячейки, два корабля размером в три ячейки, и один корабля размером в четыре ячейки. Поочередно противникам предоставляется возможность выстрела по чужому полю, результаты которого отображаются на нем. При попадании в корабль предоставляется возможность дополнительного выстрела. Победа присуждается игроку, потопившему все корабли противника.

Справочная информация содержит правила игры, версию программы, и автора работы.

2.2. Алгоритм реализации работы

2.2.1. Алгоритм реализации игровой программы

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

Проект программы состоит из файла проекта, содержащего необходимые конструкции для исполнения, и двух модулей Unit1 и Unit2 (6, 7, 8).

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

Рис.1. Информация о программе

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

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

1.     Главное меню

2.     Игровое поле компьютера

3.     Игровое поле человека

4.     Кнопки подтверждения / отмены хода

5.     Строка состояния

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

Игра, т.е. работа программы, начинается с выбора в главном меню пункта Игра, в котором содержится подпункт Новая. После выбора этого подпункта, или нажатия клавиши F2, происходит выполнение процедуры N11Click. Эта процедура предназначена для расстановки кораблей на игровых полях случайным образом (Приложение 1).

Первоначально на форму выводится сообщение Ваш ход (блок 2). Далее переменным P и t1 присваиваются значения True, и инициализируется генератор случайных чисел (блок 3). Затем организуется цикл с заданным количеством повторений по переменной U от 1 до 2 (блок 4). В этом цикле, в свою очередь организуются два вложенных цикла с заданным количеством повторений, в которых происходит обнуление элементов массива записи (блоки 5, 6 и 7). После этого выполняется операция присваивания m[u].k:=20 (блок 8). Это - общее количество ячеек, которое занимают все корабли одного игрового поля.

Далее организуются два вложенных цикла, первый с параметром I от 4 до 1 с шагом Ц1, второй с параметром j от 1 до 5-I с шагом 1 (блоки 9 и 10). В этих циклах выполняется расстановка кораблей случайным образом. Внутри этих циклов организуется еще один цикл типа До с словием окончания цикла t=True (блок 32). В теле цикла происходит операция присваивания t:=true (блок 11), и проверяется многовариантное словие, чему равно значение выражения random(2), сгенерированное случайное число, нулю или единице. Если это выражение рано нулю (блок 12), будет происходить установка корабля по горизонтали и будут выполнены следующие действия: генерируются случайным образом координаты X1 и Y1 (блок 13), организуется цикл с заданным числом повторений по переменной X (блок 14), в котором проверяется условие неравенства нулю ячейки с координатами X,Y1 (блок 15), и если это так, то переменной t присваивается значение False (блок 16).

И, в этом же цикле проверяется условие истинности переменной t. Если переменная t=True (блок 17), то происходит пропуск некоторых ячеек (блок 18), и становка ячеек корабля (значение ячейки равно 2) циклически (блоки 19 и 20). После этого опять происходит пропуск некоторых ячеек (значение их равно 1) (блок 21). На этом цикл завершается (блок 14), и проверяется следующее значение выражения random(2). Если это выражение равно единице (блок 22), то происходит становка корабля по вертикали. Все выполняемые действия этой ветки алгоритма аналогичны вышеописанным, с применением циклов по переменной Y (блоки 23 - 31).

После выполнения этих действий проверяется словие окончания цикла До (блок 32), и завершаются два вложенных цикла по переменным I и J (блоки 9 и 10).

Далее, происходит визуальная расстановка кораблей на игровом поле человека. Для этого организуются два вложенных цикла по переменным I и J со значениями от 1 до 10 (блоки 33 и 34). В циклах проверяется словие заполнения ячейки поля клеткой корабля m[1].a[i,j]=2 (блок 35), и если это логическое выражение истинно, то переменной r присваивается название файла, содержащего картинку корабля (блок 37), иначе - пустую картинку (блок 36). Далее, с помощью двух процедур Case1 происходит прорисовка ячеек на игровом поле (блоки 38 и 39).

Последние действия в этой процедуре - вывод на панель строки состояния значений количества выстрелов и попаданий (блок 40), также происходит присваивание переменным следующих значений: tm1:=Time и new:=True.

Процедура Case1, про которую было сказано выше, выполняет следующие действия (Приложение 2): при обращении к определенной ячейки игрового поля человека или компьютера происходит прорисовка ячейки специальной картинкой, в зависимости от значения переменной r. В процедуре происходит множественный выбор, по номеру ячейки, и выполняется действие загрузки растрового файла в компонент TSpeedButton (блоки 2 - 401).

После того, как все корабли были расставлены на игровом поле, программа ожидает срабатывания нескольких событий:

        щелчка левой клавишей манипулятора мышь по ячейки игрового поля компьютера;

        выбора из пункта Игра главного меню подпункта Выход;

        выбора из пункта Помощь главного меню подпункта О программе;

        выбора из пункта Помощь главного меню подпункта Правила игры

При описанном первым событии происходит обращение к процедуре SpeedButton101Click (Приложение 3). В теле процедуры сразу проверяется переменная t1. Если t1 не равна значению True (блок 2), то процедура завершает свою работу, иначе происходит присвоение переменной S имени объекта игрового поля, по которому производится щелчок, из имени объекта даляется подстрока SpeedButton, оставшийся номер объекта преобразуется в число (блок 3). После этого проверяется словие, делится ли это число на 10 с остатком (блок 4). Если это так, то переменной J присваивается значение I-90 (блок 6), иначе J=I-100 (блок 5). Далее, проверяется делимость числа J на 10 без остатка (блок 7). Если это словие выполняется, то переменной U присваивается значение 10 (блок 9), иначе вычисляется остаток от деления переменной J на 10 (блок 8). Полученное значение переменной U проверяется с использованием многовариантного выбора, и в соответствии со значением переменной S присваивается одна из букв русского алфавита, от А до К (блоки 10 - 29). Потом проверяется словие, был ли щелчок на данной ячейке (блок 30), если щелчка не было, то осуществляется переход на положительную ветку алгоритма, в которой, во-первых, осуществляется вывод в ячейку картинки, показывающей сделанный ход (блок 31), во-вторых, происходит вывод над игровым полем человека кода произведенного хода (блок 32), и в-третьих, переменной t1 присваивается значение False, и кнопки подтверждения / отмены хода становятся доступными (блок 33). На этом процедура завершает свою работу (блок 34).

При подтверждении сделанного хода, т.е. при щелчке на кнопке OK, происходит вызов процедуры BitBtn1Click (Приложение 4), которая производит так называемый выстрел, и в соответствии с этим, отмечает необходимые ячейки игровых полей.

После вызова процедуры происходит приращение переменной KL на единицу (блок 2), и проверяется ячейка игрового поля (блок 3). Если в ячейке есть клетка корабля, то выводится соответствующая картинка с помощью процедуры Case1 (блок 4), меньшается счетчик количества клеток кораблей, и соответствующая клетка помечается как использованная (значение равно 3) (блок 5). Далее, происходит проверка количества живых клеток кораблей. Если это количество равно нулю (блок 6), то выводится сообщение Победа! (блок 7), переменным P и t1 присваивается значение False, кнопки подтверждения / отмены хода становятся неактивными (блок 8), и процедура завершает свою работу (блок 19).

Если количество живых клеток кораблей не равно нулю (блок 6), то выводится сообщение Попал! (блок 9), и переменной P присваивается логическое значение False (блок 10). При этом происходит объединение этой ветки алгоритма с веткой Нет блока условия 3 (пустая клетка), в которой выводится сообщение Промах (блок 11), соответствующая ячейка заполняется необходимым изображением с помощью процедуры Case1 (блок 12), ячейка помечается, как использованная (значение равно 3), и переменной P присваивается логическое значение True (блок 13).

Далее, переменной t1 присваивается логическое значение True, вычисляется результативность S (блок 14). На панель 2 строки состояния выводятся значения количества выстрелов, количества попаданий и результативность игрока (блок 15), кнопки подтверждения / отмены хода становятся неактивными (блок 16), и проверяется значение переменной p (блок 17). Если это значение равно True, то происходит вызов процедуры Komp (блок 18), которая производит ход компьютера.

Процедура Komp (Приложение 5) начинается с двух вложенных циклов типа До, в которых вычисляются координаты выстрела случайным образом (блок 2). После этого проверяется словие завершения внутреннего цикла (блок 3). Далее происходит многовариантная проверка координаты по вертикали В1 от 1 до 10, в результате которой переменной S присваивается определенное значение, лежащее в промежутке от А до К (блоки 4 - 23).

Выводится код хода компьютера над игровым полем (блок 24), и соответствующим образом заполняется ячейка игрового поля, переменной PK присваивается необходимое логическое значение (блоки 25 - 29).

Далее, происходит приращение количества выстрелов, вычисляется результативность (S) (блок 30), и на панель 0 строки состояния выводятся значения количества выстрелов, количества попаданий, и результативность (блок 31).

Потом, проверяется словие завершения внешнего цикла До (блок 32), и если словие выполняется, то процедура заканчивает свою работу (блок 33).

При отмене сделанного пользователем хода, т.е. при щелчке на кнопку NO, происходит вызов процедуры BitBtn2Click (Приложение 6). В этой процедуре очищается ячейка игрового поля с помощью процедуры Case1 (блок 2), переменной t1 присваивается логическое значение True, и кнопки подтверждения / отмены хода становятся неактивными (блок 3).

В этом же приложении приведена процедура Timer1Timer (Приложение 6), которая основана на невизуальном компоненте Timer, и рассчитывает время игры. Здесь, если выполняется словие new=True (блок 2), то на панель 1 строки состояния выводится значение времени игры (блок 3).

Все процедуры находится в модуле Unit1, текст которого приведен в приложении 7.

2.2.2. Реализация справочной информации

Справочная информация (правила игры) реализована с помощью программы Help Development Studio. Эта программа позволяет создать файл справочной информации для Windows, используя текст формата Rich Edit Text. В процессе работы этой программы создается файл проекта справки *.hmp, который впоследствии может быть откомпилирован в файл справки (*.hlp).

В данной курсовой работе был создан файл проекта справки morboy.hmp, который был откомпилирован с помощью программы Help Development Studio, Microsoft Help WorkShop, входящей в состав Borland Delphi 6.0, и компилятора HcRtf.exe в файл morboy.hlp (рис.6).

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

После запуска программы на экран выводится основное окно программы (рис.2). Необходимо вызвать главное меню и выбрать из пункта Игра подпункт Новая (рис.3).

Рис.3. Программа с открытым главным меню

После выбора происходит расстановка кораблей, и игра начинается (рис.4).

Рис.4. Игра

Игроку предоставляется право первого хода. Ход осуществляется путем щелчка левой кнопкой мыши на игровом поле. После щелчка по клетке поля на ней появляется изображение мины (рис.4), и игроку предоставляется право подтвердить или отменить ход с помощью кнопок OK и No. После подтверждения в ячейке появляется изображение результата хода, в нижней левой части окна появляется сообщение о результате: Попал (рис.4) или Промах!. Если был произведен результативный выстрел, то игроку дается право внеочередного хода. В противном случае право хода передается компьютеру. Победа присуждается за все потопленные корабли, и на этом игра заканчивается (рис.5).

Горячие клавиши, применяемые при работе программы:

1.     Alt+И - Вызов пункта Игра главного меню

2.     F2 - Новая игра

3.     F10 - Выход в систему

4.     Alt+N - Отмена хода

Рис.5. Победа в игре

Если в процессе игры пользователю необходимо обратиться к правилам, то с помощью пункта Помощь главного меню можно вызвать подпункт Правила игры. В результате появится окно справки, показанное на рис.6.

Рис.6. Окно справки

ЗАКЛЮЧЕНИЕ

В результате выполнения данной курсовой работы был получен игровой программный продукт, названный Морской бой. Было проведено исследование компонентов программной среды Borland Delphi 6.0, которые использовались при создании игры.

В результате исследования были выявлены следующие недостатки полученного программного продукта:

1.     Низкий исскуственный интеллект, т.е. ход компьютера осуществляется случайным образом, что делает маловероятным победу компьютера;

2.     При полном потоплении корабля это никак не отражается;

3.     Невозможность возврата на несколько ходов назад;

4.     Работоспособность приложения только в среде Windows;

5.     Невозможность ручной расстановки кораблей игрока.

Однако, помимо недостатков, есть и достоинства у этого программного продукта:

1.     Есть возможность отменить неверно сделанный ход с помощью кнопок подтверждения / отмены;

2.     Создана интерактивная справка с правилами игры;

3.     Программный продукт малотребователен к системным ресурсам компьютера. Минимальная конфигурация: процессор - не ниже Pentium, оперативная память - не ниже 16 Mb, операционная система - Windows 95 / 98/ Me / NT / 2 / XP.

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

СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ

1.     Журнал Компьютер Пресс, N1, 1996

2.     Дворак