Скачать .zip |
Реферат: Сетевая игра на Delphi Морской бой
520100 ДФ 230102 КР 01 ПЗ
Содержание
Введение……………………………………………………………………..4
1. Техническое задание……………………………………………………..5
2. Программная документация.....................................................................10
2.1 Руководство программиста.....................................................................10
2.2 Руководство пользователя......................................................................14
Заключение…………………………………………………………………18
Литература …………………………………………………………………19
ПРИЛОЖЕНИЕ А Текст модуля Main……………………………………20
Введение
Главная цель данной работы, разработать приложение «Сетевой игры «Морской бой» в среде разработки Borland Delphi. Игра может применяться для развлечения. Для ее использования не требуется специальных знаний в области компьютерных технологий, достаточно лишь наличие начальных умений в использовании компьютера и знания правил игры «Морской бой», благодаря чему программой могут пользоваться представители различных возрастных категорий.
В представленной работе рассмотрена одна из популярных сетевых игр.
В данной пояснительной записки была рассмотрены такие разделы как программная документация, состоящая из руководства пользователя и программиста, представлен текст основного модуля Main. Данные пункты необходимые для разработки программы и дальнейшего её усовершенствования.
Раздел «Руководство пользователя» содержит краткие сведения по управлению игровым процессом. В разделе «Руководство программиста» кратко описаны основные подпрограммы главного модуля Main и все переменные, используемые в программе, краткое описание программы и внешнего вида приложения.
1. Техническое задание
1.1 Наименование, область применения
Полное наименование приложения: «Сетевая игра «Морской бой».
1.2 Основание для разработки
В соответствии с учебным планом необходимо выполнить курсовую работу по дисциплине «Сетевые технологии».
1.3 Назначение разработки
Функциональным назначением является разработка приложения сетевой игры, а эксплуатационное - демонстрационный материал для учебных курсов по сетевым технологиям и сетевому программированию.
1.4 Технические требования к программе, программному изделию
1.4.1 Требование к функциональным характеристикам
Программа должна выполнять следующие функции:
работать как на одном компьютере, так и на различных;
осуществлять подсчёт очков;
выдавать подсказки для игры;
Меню программы содержит следующие пункты:
файл:
- новая игра;
- выход;
настройки;
- настройки клиента;
- настройки сервера;
- создать игру;
- подключиться к игре.
Входными данными являются: нажатие клавиши, расстановка кораблей, позиция выстрела, результат выстрела, порт и адрес компьютера.
Выходными данными являются: результат выстрела, позиция выстрела, счёт игры.
1.4.2 Требования к надёжности
Приложение поддерживает диалоговый режим и выдаёт сообщения при выигрыше или проигрыше игрока.
1.4.3 Условие эксплуатации
Данное приложение может использоваться для проведения свободного времени, т.е. развлечения, и рассматриваться как демонстрационный материал для учебных курсов по сетевым технологиям и сетевому программированию. Условие эксплуатации приложения совпадают с условиями эксплуатации ПЭВМ IBM PC.
1.4.4 Требования к параметрам и составу технических средств
Персональный компьютер, на котором может быть установлена система Borland Delphi 7, должен удовлетворять определенным требованиям.
Базовый комплект технических средств включает:
системный блок:
- процессор Pentium III с частотой 300 МГц или выше;
- оперативная память - 64 Мбайт (рекомендуется 128 Мбайт или больше);
- объем дискового пространства - 300 Мбайт (минимум);
- видеокарта - минимальное разрешение 800x600 при 256 цветах (рекомендуется разрешение 1024x768);
- сетевая карта - для сетевой версии AutoCAD 2000;
цветной монитор - диагональ 17" - 19", частота не менее 85 Гц;
алфавитно-цифровую клавиатуру (АЦК);
манипулятор типа «мышь» (рекомендуется Microsoft IntelliMouse).
Для получения твердой копии пояснительной записки необходим принтер.
1.4.5 Требования к информационной и программной совместимости
Для написания программы должен использоваться язык программирования Object Pascal среды разработки Borland Delphi.
Системные программные средства, используемые программой, должны быть представлены лицензионной локализованной версией одной из операционных систем Microsoft Windows 98/NT/2000/XP/Vista.
1.4.6 Требования к маркировке и упаковке, требованию и хранению
Приложения поставляются в электронном виде на переносном носителе.
1.4.7 Специальные требования
Специальные требования не предъявляются.
1.5 Технико-экономические показатели
Приложение разрабатывается для собственных нужд и соответственно не даст экономического эффекта.
1.6 Стадии и этапы разработки
1.6.1 Техническое задание
Данная стадия разработки содержит в себе следующие этапы работ:
a) обоснование необходимости разработки приложения, в этот этап входят следующие работы:
- постановка задачи;
- сбор исходных материалов;
- выбор и обоснование критериев эффективности и качества разрабатываемого приложения;
- обоснование необходимости проведения научно-исследовательских работ.
b) научно-исследовательские работы, в данный этап входят работы:
- предварительный выбор методов решения задач;
- обоснование целесообразности применения ранее разработанных программ;
- определение требований к техническим средствам;
- обоснование принципиальной возможности решения поставленной задачи.
c) разработка и утверждение технического задания, в этом этапе присутствуют следующие работы:
- определение требований к изделию;
- разработка технико-экономического обоснования разработки приложения;
- определение стадий, этапов и сроков разработки пояснительной записки;
- выбор среды разработки;
- определение необходимости проведения научно-исследовательских работ на последующих стадиях;
- согласование и утверждение технического задания.
1.6.2 Эскизный проект
Эта стадия разработки содержит в себе следующие этапы работ:
a) разработка эскизного проекта, в данный этап входят следующие работы:
- уточнение методов решения задачи;
- разработка общего описания алгоритма решения задачи;
- разработка технико-экономического обоснования.
b) утверждение эскизного проекта, в этом этапе необходимы следующие работы:
- разработка пояснительной записки;
- согласование и утверждение эскизного проекта.
1.6.3 Технический проект
В этой стадии разработки присутствуют следующие этапы работ:
a) разработка технического проекта, в этот этап входят следующие работы:
- определение формы представления выходных данных;
- разработка структуры изделия;
- окончательное определение конфигурации технических средств.
b) утверждение технического проекта, в этом этапе имеются следующие работы:
- разработка плана мероприятий по разработке и внедрению приложения;
- разработка пояснительной записки;
- согласование и утверждение технического проекта.
1.6.4 Рабочий проект
На этом этапе необходимы следующие этапы работ:
a) разработка приложения, на этом этапе содержатся следующие работы:
- работы по созданию приложения;
- тестирование и отладка программы.
b) разработка программных документов
- разработка пояснительной записки.
1.7 Порядок контроля приёмки
Поставляется на переносном носителе в срок до 10.04.08, вместе с пояснительной запиской.
2. Программная документация
2.1 Руководство программиста
Для создания сетевой игры «Морской бой» была использована интегрированная среда разработки Borland Delphi 2007. Приложение реализовано на основе одного не блокирующегося сокета UDP. В программе клиент является и сервером, т.е. он сам обрабатывает события.
Внешний вид программы после ее запуска представлен на рисунке 1.
Рисунок 1 – Внешний вид программы «Сетевая игра «Морской бой»
Для удобства управления работой программы было создано главное меню, содержащее два пункта: «Файл» и «Настройки».
Пункт меню «Файл» содержит два подпункта:
a) новая игра;
b) выход.
Пункт меню «Настройки» содержит четыре подпункта:
настройки клиента;
настройки сервера;
создать игру;
подключиться к игре.
В программе предусмотрено, чтобы подпункты меню «Настройки»: «Создать игру» и «Подключиться к игре» были активными только после того, как игрок создаст поле игры и расставит все корабли. Но после того как Игроки подключаться к игре они снова становятся не активными.
Для настройки клиента необходим адрес и порт, а для сервера – порт. Окна настроек появляются посередине игрового окна.
Поле игрока и соперника создаются с помощью объектов типа Shape, размером 25 на 25.
В программе имеются подсказки, которые показываются в статусной строке и говорят, о том кто должен стрелять, а кто ждать.
В игре предусмотрен подсчёт счёт. Счёт ведётся как количество убитых вами кораблей и количество убитых у вас кораблей. При проигрыше или выигрыше игрока выводятся сообщения об этом.
Приложение «Сетевая игра «Морской бой» состоит из одного программного модуля Main. Main – основная функциональная часть программы, в котором реализуются основные функции приложения.
Модуль Main содержит подпрограммы для конфигурирования формы приложения и ее элементов, организации игрового процесса, обработки нажатий клавиш и вызовов пунктов меню.
В главном модуле были реализованы следующие процедуры:
Procedure TForm1.LoadGame;
Procedure TForm1.SetColorOnShape1;
Procedure TForm1.SetColorOnShape2;
Procedure TForm1.EndGame;
Procedure TForm1.RecvSock;
Procedure TForm1.SendSock;
Procedure TForm1.N6Click;
Procedure TForm1.N7Click;
Procedure TForm1.FormDestroy;
Procedure TForm1.N8Click;
Procedure TForm1.FormCreate;
Procedure TForm1.N2Click;
Procedure TForm1.N4Click;
Procedure TForm1.N5Click.
Спецификация подпрограмм главного модуля программы приведена в таблице 1.
Таблица 1 – Спецификация функций модуля Main
Процедура | Назначение |
Procedure TForm1.LoadGame | Процедура необходима, для создания новой игры, для создания поля игрока и соперника |
Procedure TForm1.SetColorOnShape1 | Процедура нужна для расстановки кораблей на поле игрока |
Procedure TForm1.SetColorOnShape2 | Процедура выстрела |
Procedure TForm1.EndGame | Процедура для завершения игры |
Procedure TForm1.RecvSock | Процедура для приёма и обработки данных из сокета |
Продолжение таблицы 1
Процедура | Назначение |
Procedure TForm1.SendSock | Процедура для отправки данных через сокет |
Procedure TForm1.N6Click | Процедура создания сокета и привязки его к порту, делает сокет не блокирующимся |
Procedure TForm1.N7Click | Процедура создания сокета и перевода его в не блокирующееся состояние |
Procedure TForm1.FormDestroy | Процедура для уничтожения сокета после выхода из игры |
Procedure TForm1.N8Click | Процедура создания новой игры |
Procedure TForm1.FormCreate | Настройка переменных для работы приложения по сети |
Procedure TForm1.N2Click | Процедура выхода |
Procedure TForm1.N4Click | Процедура настройки клиента |
Procedure TForm1.N5Click | Процедура настройки сервера |
Все используемые, в главном модуле Main, переменные описаны в таблице 2.
Таблица 2 – Спецификация переменных
Имя | Назначение | Тип |
Главная программа Main | ||
InetAddr | Структура адреса, соединение сервера | SOCKADDR_IN |
InetAddrOut | Структура адреса, адрес куда необходимо ответить | SOCKADDR_IN |
sock | Сокет | TSocket |
bPriem | Переменная для распознавания следующих приходящих данных (может принимать следующие значения: данные не нужны, их обрабатывать не надо, переменная готова для приёма данных, переменная готова для передачи данных) | (prnot, prinout, proutin) |
Pole1 | Массив для создания поля игрока | TShape |
Pole2 | Массив для создания поля противника | TShape |
bShips | Переменная, ограничивающая количество кораблей, которые можно расставить на игровом поле | Byte |
bShipsPlaced | Переменная для подсчёта расставленных кораблей | Byte |
Продолжение таблицы 2
Имя | Назначение | Тип |
Главная программа Main | ||
bShipsYouKilled | Переменная для подсчёта убитых игроком кораблей | Byte |
bShipsHeKilled | Переменная для подсчёта убитых у игрока кораблей | Byte |
vx | Позиция по X, в какую точку стреляли | Byte |
vy | Позиция по Y, в какую точку стреляли | Byte |
blVystrel | Переменная выстрела | Boolean |
blGameStatus | Статус игры | Boolean |
iLocalPort | Сервера порт | Integer |
sServerAddr: | Адрес компьютера | String |
iServerPort | Соединение клиента с сервером | Integer |
Procedure TForm1.LoadGame | ||
i | Переменная счётчик | Integer |
j | Переменная счётчик | Integer |
h | Переменная для смещения поля сверху | Integer |
w | Переменная для смещения поля слева | Integer |
Procedure TForm1.SetColorOnShape1 | ||
i | Переменная счётчик | Integer |
j | Переменная счётчик | Integer |
f | Переменная для проверки кораблей, при расстановке, чтобы они не стояли по диагонали | Boolean |
Procedure TForm1.SetColorOnShape2 | ||
i | Переменная счётчик | Integer |
j | Переменная счётчик | Integer |
Procedure TForm1.EndGame | ||
on_off_sock | Переменная для перевода сокета в блокирующее состояние | Longint |
i | Переменная счётчик | Integer |
j | Переменная счётчик | Integer |
Procedure TForm1.RecvSock | ||
Buffer | Переменная для записи данных | Str |
iStruckSize | Размер структуры адреса | Integer |
i | Переменная счётчик | Integer |
j | Переменная счётчик | Integer |
Procedure TForm1.SendSock | ||
Buffer | Переменная для записи данных | Str |
Продолжение таблицы 2
Имя | Назначение | Тип |
Procedure TForm1.N6Click | ||
ws | Данные для версии библиотеки | TWSADATA |
on_off_sock | Переменная для перевода сокета в неблокирующее состояние | Longint |
Procedure TForm1.N7Click | ||
ws | Данные для версии библиотеки | TWSADATA |
on_off_sock | Переменная для перевода сокета в неблокирующее состояние | Longint |
Procedure TForm1.FormDestroy | ||
Не имеет переменных | ||
Procedure TForm1.N8Click | ||
Не имеет переменных | ||
Procedure TForm1.FormCreate | ||
Не имеет переменных | ||
Procedure TForm1.N2Click | ||
Не имеет переменных | ||
Procedure TForm1.N4Click | ||
Не имеет переменных | ||
Procedure TForm1.N5Click | ||
Не имеет переменных |
Текст главного модуля Main приведен в приложении А.
2.2 Руководство пользователя
Главное меню игры содержит два пункта: «Файл» и «Настройки». Пункт меню «Файл» содержит два подпункта: «Новая игра» для начала новой игры и «Выход» для выхода из программы, пункт «Настройки» включает в себя четыре подпункта: «Настройки клиента» для настройки клиентского соединения, «Настройки сервера» для настройки сервера, «Создать игру» для создания игры, «Подключиться к игре» для подключения к игре второго игрока.
После того как пользователь запустит приложение «Project1.exe», появиться окно программа, представленное на рисунке 2.
Рисунок 2 – Вид окно при запуске
После запуска клиенту необходимо настроить клиента и сервера.
Для настройки клиента необходимо нажать подпункт «Настройки клиента» меню «Настройки», появиться окно представленное на рисунке 3.
Рисунок 3 – Вид окна настроек клиента
Необходимо ввести номер адреса для соединения и номер порта. После ввода нажмите «ОК».
Для настройки сервера необходимо нажать подпункт «Настройки сервера» меню «Настройки», появиться окно представленное на рисунке 4.
Рисунок 4 – Вид окна настроек сервера
Необходимо ввести номер порта для соединения. После ввода нажмите «ОК».
После того как настроили клиента и сервера нажимаем «Новая игра» меню «Файл». В игровом окне появиться поле игрока, синим цветом, и поле соперника, белым цветом. Корабли на поле игрока расставляются с помощью курсора мыши, они будут изображены чёрным цветом.
После расстановки кораблей игрок может нажимать подпункт «Создать игру», а соперник «Подключиться к игре». Начинается игра.
Внизу в строке состояния игроки могут видеть счёт игры и в строке состояния появляются подсказки, о том кто должен стрелять, а кто ждать. Это можно посмотреть на рисунках 5 и 6.
Рисунок 5 – Вид окна игрока стреляющего
Рисунок 6 –Вид окна игрока ждущего выстрел
При попадании в корабль соперника, корабль перекрашивается в красный цвет, и у игрока есть ещё один шанс выстрелить, а при промахе – в зелёный. Это представлено на рисунке 7.
Рисунок 7 – Вид окна при попадании и промахе игрока
Внизу ведётся счёт, это видно на рисунке 7, первое – количество убитых вами кораблей, а второе – количество убитых кораблей у вас.
После того как игрок убьёт у противника все корабли у него появится сообщение, показанное на рисунке 8.
Рисунок 8 – Сообщение при победе игрока
А у проигравшего игрока будет сообщение, расположенное на рисунке 9.
Рисунок 9 – Сообщение при проигрыше игрока
После нажатия кнопки «ОК» на появившемся сообщении, окно игры очиститься и для начала новой игры нужно будет нажать «Новая игра».
Для выхода игрока из игры можно нажать подпункт «Выход» меню «Файл» или нажать на «крестик» игрового окна.
Заключение
Пользуясь собственными знаниями и литературой, была проделана работа по созданию приложения «Сетевая игра «Морской бой», в среде разработки Borland Delphi. В результате получилась сетевая игра «Морской бой», в которой ведётся подсчёт потопленных кораблей.
В результате проделанной работы были получены новые знания о возможности использования сокетов, а именно об использовании неблокирующих сокетов протокола без логического соединения (UDP).
Использование данной игры не требует особых знаний и усилий со стороны пользователя и больших затрат ресурсов компьютера. Поэтому она может использоваться широким кругом пользователей
Литература
Дарахвелидзе П.Г., Марков Е.П. Программирование в Delphi 7. – СПб.: БВХ-Петербург, 2003. – 784 с.: ил.
Приложение А
Текст модуля Main
unit main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, WinSock, StdCtrls, Menus, ExtCtrls, ComCtrls, dl1, dl2;
const
WM_MYSOCKET = WM_USER + 1;
type
str = array[0..255] of char;
TForm1 = class(TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
Shape1: TShape;
N8: TMenuItem;
StatusBar1: TStatusBar;
procedure N6Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure SetColorOnShape1(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure SetColorOnShape2(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure N8Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N5Click(Sender: TObject);
private
{ Private declarations }
procedure RecvSock(var Msg:TMessage); message WM_MYSOCKET;
procedure SendSock(Mes: string);
procedure LoadGame();
procedure EndGame();
public
{ Public declarations }
end;
var
Form1: TForm1;
InetAddr, InetAddrOut: SOCKADDR_IN;
sock: TSocket;
bPriem: (prnot, prinout, proutin);
Pole1: array[0..9, 0..9] of TShape;
Pole2: array[0..9, 0..9] of TShape;
bShips: byte;
bShipsPlaced: byte;
bShipsYouKilled: byte;
bShipsHeKilled: byte;
vx, vy : byte;
blVystrel: boolean;
blGameStatus: boolean;
iLocalPort: integer;
sServerAddr: string;
iServerPort: integer;
implementation
{$R *.dfm}
{Новая игра}
procedure TForm1.LoadGame();
var
i,j,h,w:integer;
begin
bShips := 7;
h:=10;
w:=10;
{Поле игрока}
for i:=0 to 9 do
begin
for j:=0 to 9 do
begin
Pole1[i,j]:=TShape.Create(Self);
Pole1[i,j].Parent:=Self;
Pole1[i,j].Left:=w+25*j;
Pole1[i,j].Top:=h+25*i;
Pole1[i,j].Height:=25;
Pole1[i,j].Width:=25;
Pole1[i,j].Brush.Color:=clSkyBlue;
Pole1[i,j].OnMouseUp:= SetColorOnShape1;
end;
end;
w:=266;
{Поле соперника}
for i:=0 to 9 do
begin
for j:=0 to 9 do
begin
Pole2[i,j]:=TShape.Create(Self);
Pole2[i,j].Parent:=Self;
Pole2[i,j].Left:=w+25*j;
Pole2[i,j].Top:=h+25*i;
Pole2[i,j].Height:=25;
Pole2[i,j].Width:=25;
Pole2[i,j].OnMouseUp:= SetColorOnShape2;
end;
end;
end;
procedure TForm1.SetColorOnShape1(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
i,j:integer;
f:Boolean;
begin
f:=false;
for i:=0 to 9 do
for j:=0 to 9 do
if Not blGameStatus then
if Sender = Pole1[i,j] then
if bShipsPlaced < bShips then
begin
if Pole1[i,j].Brush.Color = clBlack then f := true;
if Pole1[i-1,j+1].Brush.Color = clBlack then f := true;
if Pole1[i+1,j-1].Brush.Color = clBlack then f := true;
if Pole1[i+1,j+1].Brush.Color = clBlack then f := true;
if Pole1[i-1,j-1].Brush.Color = clBlack then f := true;
if Not f then
begin
Pole1[i,j].Brush.Color:=clBlack;
inc(bShipsPlaced);
end
end
else
begin
blGameStatus:=true;
N6.Enabled:=true;
N7.Enabled:=true;
end;
end;
procedure TForm1.SetColorOnShape2(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
i,j:integer;
begin
if blVystrel then
for i:=0 to 9 do
for j:=0 to 9 do
if Sender = Pole2[i,j] then
if Pole2[i,j].Brush.Color = clWhite then
begin
vx:=i; vy:=j;
SendSock(IntToStr(10*i+j));
bPriem := proutin;
end;
end;
{Конец игры}
procedure TForm1.EndGame();
var
on_off_sock: longint;
i, j: byte;
begin
for i:=0 to 9 do
for j:=0 to 9 do
begin
try
Pole1[i,j].Destroy;
Pole2[i,j].Destroy;
except
end;
end;
bShipsPlaced:=0;
bShipsYouKilled:=0;
bShipsHeKilled:=0;
blGameStatus:=false;
on_off_sock:=0;
ioctlsocket(sock, FIONBIO, on_off_sock);
closesocket(sock);
WSACleanup;
N8.Enabled:=true;
end;
{Прием данных из сокета}
procedure TForm1.RecvSock(var Msg:TMessage);
var
Buffer: str;
iStruckSize: integer;
i, j: byte;
begin
if ((Msg.Msg = WM_MYSOCKET) and (Msg.lParam = FD_READ)) then
begin {IF 1}
ZeroMemory(@Buffer, SizeOf(str));
if recvfrom(sock, Buffer, 256, 0, InetAddrOut, iStruckSize) > 0 then
begin {IF 2}
case bPriem of {CASE 1}
prinout:
begin {prinout}
i := StrToInt(Buffer) div 10;
j:= StrToInt(Buffer) mod 10;
if Pole1[i,j].Brush.Color = clBlack then
begin
SendSock('popal');
Pole1[i,j].Brush.Color := clRed;
blVystrel := false;
bPriem := prinout;
inc(bShipsHeKilled);
StatusBar1.Panels[1].Text := 'Ждите...';
end
else
begin
SendSock('nepopal');
Pole1[i,j].Brush.Color := clHighlight;
blVystrel := true;
bPriem := prnot;
StatusBar1.Panels[1].Text := 'Стреляйте...';
end;
StatusBar1.Panels[0].Text := 'Счет: ' + IntToStr(bShipsYouKilled) + '-' + IntToStr(bShipsHeKilled);
if bShipsYouKilled = bShips then
begin
ShowMessage('Вы выиграли!');
StatusBar1.Panels[1].Text := '';
EndGame();
end;
if bShipsHeKilled = bShips then
begin
ShowMessage('Вы проиграли!');
StatusBar1.Panels[1].Text := '';
EndGame();
end;
end; {END prinout}
proutin:
begin {proutin}
if StrComp(Buffer, PChar('popal')) = 0 then
begin
Pole2[vx,vy].Brush.Color := clRed;
inc(bShipsYouKilled);
StatusBar1.Panels[1].Text := 'Стреляйте...';
end;
if StrComp(Buffer, PChar('nepopal')) = 0 then
begin
Pole2[vx,vy].Brush.Color := clHighlight;
StatusBar1.Panels[1].Text := 'Ждите...';
end;
bPriem:= prinout;
StatusBar1.Panels[0].Text := 'Счет: ' + IntToStr(bShipsYouKilled) + '-' + IntToStr(bShipsHeKilled);
if bShipsYouKilled = bShips then
begin
ShowMessage('Вы выиграли!');
StatusBar1.Panels[1].Text := '';
EndGame();
end;
if bShipsHeKilled = bShips then
begin
ShowMessage('Вы проиграли!');
StatusBar1.Panels[1].Text := '';
EndGame();
end;
end; {END proutin}
prnot:
end; {END CASE 1}
end; {END IF 2}
end; {EDN IF 1}
end;
procedure TForm1.SendSock(Mes: string);
var
Buffer: str;
begin
ZeroMemory(@Buffer, SizeOf(str));
StrCopy(Buffer, PChar(Mes));
sendto(sock, Buffer, StrLen(Buffer) + 1, 0, InetAddrOut, SizeOf(InetAddrOut));
end;
//Сервер
procedure TForm1.N6Click(Sender: TObject);
var
ws: TWSADATA;
on_off_sock: longint;
begin
if WSAStartup($0202, ws)=0 then
begin
InetAddr.sin_family := AF_INET;
InetAddr.sin_addr.s_addr := INADDR_ANY;
InetAddr.sin_port := htons (iLocalPort);
sock := socket(AF_INET, SOCK_DGRAM, IPPROTO_UDP);
if (sock <> INVALID_SOCKET) then
begin
if bind(sock, InetAddr, sizeof(InetAddr)) <> SOCKET_ERROR then
begin
N7.Enabled:=false;
N6.Enabled:=false;
on_off_sock:=1;
ioctlsocket(sock, FIONBIO, on_off_sock);
WSAAsyncSelect(sock, Form1.Handle, WM_MYSOCKET, FD_READ);
bPriem := prinout;
blVystrel:=false;
StatusBar1.Panels[1].Text := 'Ждите...';
end
else
ShowMessage('bind () с ошибкой ' + IntToStr(GetLastError));
end
else
ShowMessage('Ошибка создания сокета ' + IntToStr(WSAGetLastError));
end
else
ShowMessage('Невозможно загрузить библиотеку WinSock2');
end;
//Клиент
procedure TForm1.N7Click(Sender: TObject);
var
ws: TWSADATA;
on_off_sock: longint;
begin
if WSAStartup($0202, ws)=0 then
begin
InetAddr.sin_family := AF_INET;
InetAddr.sin_addr.s_addr := inet_addr(PChar(sServerAddr));
InetAddr.sin_port := htons(iServerPort);
sock := socket(AF_INET, SOCK_DGRAM, IPPROTO_UDP);
//--
if (sock <> INVALID_SOCKET) then
begin
N7.Enabled:=false;
N6.Enabled:=false;
InetAddrOut := InetAddr;
on_off_sock :=1;
ioctlsocket(sock, FIONBIO, on_off_sock);
WSAAsyncSelect(sock, Form1.Handle, WM_MYSOCKET, FD_READ);
bPriem := prnot;
blVystrel:=true;
StatusBar1.Panels[1].Text := 'Стреляйте...';
end
else
ShowMessage('Oshibka sozdaniya soketa ' + IntToStr(WSAGetLastError));
end
else
ShowMessage('Невозможно загрузить библиотеку WinSock2');
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
EndGame();
end;
procedure TForm1.N8Click(Sender: TObject);
begin
LoadGame();
N8.Enabled:=false;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
iLocalPort:=50;
sServerAddr:='127.0.0.1';
iServerPort:=50;
end;
procedure TForm1.N2Click(Sender: TObject);
begin
Application.Terminate;
end;
procedure TForm1.N4Click(Sender: TObject);
begin
Form3.Left := Form1.Left + (Form1.Width - Form3.Width) div 2;
Form3.Top := Form1.Top + (Form1.Height - Form3.Height) div 2;
Form3.Edit1.Text := sServerAddr;
Form3.Edit2.Text := IntToStr(iServerPort);
if Form3.ShowModal = mrOK then
begin
sServerAddr:= Form3.Edit1.Text;
iServerPort := StrToInt(Form3.Edit2.Text);
end;
end;
procedure TForm1.N5Click(Sender: TObject);
begin
Form2.Left := Form1.Left + (Form1.Width - Form2.Width) div 2;
Form2.Top := Form1.Top + (Form1.Height - Form2.Height) div 2;
Form2.Edit1.Text:=IntToStr(iLocalPort);
if Form2.ShowModal = mrOK then
begin
iLocalPort:=StrToInt(Form2.Edit1.Text);
end;
end;
end.
28
520100 ДФ 230102 КР 18 ПЗ
ФЕДЕРАЛЬНОЕ АГЕНТСТВО ПО ОБРАЗОВАНИЮ
Государственное образовательное учреждение
высшего профессионального образования
СИБИРСКИЙ ФЕДЕРАЛЬНЫЙ УНИВЕРСИТЕТ
Усть-Илимский филиал
Индустриальный факультет
Кафедра информатики
КУРСОВАЯ РАБОТА
По предмету: Сетевые технологии
Разработка приложения
«Сетевая игра «Морской бой».
Выполнил студент гр. АОИ-04 | Филимонова А.В. | |||
Оценка: | ||||
Проверил | Кузнецов А.С. | |||
Дата защиты: |
2008 год
ФЕДЕРАЛЬНОЕ АГЕНТСТВО ПО ОБРАЗОВАНИЮ
Государственное образовательное учреждение
высшего профессионального образования
СИБИРСКИЙ ФЕДЕРАЛЬНЫЙ УНИВЕРСИТЕТ
Усть-Илимский филиал
Индустриальный факультет
Кафедра информатики
ЗАДАНИЕ
на курсовую работу
По дисциплине: Сетевые технологии
Студенту Филимоновой Анны Витальевны гр. АОИ-04
Задание: Разработать приложение «Сетевая игра «Морской бой». Средством разработки является среда разработки Borland Delphi.
Дата выдачи: 28.01.08. Срок сдачи: 11.04.08.
Календарный план
Номер п/п | Наименование разделов | Сроки | Процент выполнения | Дата контроля | ||
Начало | Конец | План | Факт | |||
1 | Выбор темы | 28.01.08 | 04.02.08 | 4 | ||
2 | Составление плана работы | 04.02.08 | 11.02.08. | 20 | ||
3 | Изучение теоретического материала | 11.02.08 | 31.03.08. | 30 | ||
4 | Стадии и этапы разработки | 11.02.08. | 31.04.08 | 80 | ||
4.1 | Техническое задание | 11.02.08 | 25.02.08 | +10 | ||
4.2 | Разработка программы | 25.02.08 | 24.04.08 | +25 | ||
4.3 | Тестирование и отладка | 24.04.08 | 31.04.08 | +15 | ||
5 | Оформление отсчета | 31.04.08 | 10.04.08 | 90 | ||
6 | Норма контроль | 10.04.08 | 11.04.08 | 93 | ||
7 | Защита | 11.04.08 | 100 |
Задание принял: Филимонова А.В. 28.01.08
Оценка ____Руководитель: _____________Кузнецов А.С. «__» _________ 200 __ г.