Современные программные средства. Разработка игры "Уголки"

Описание игры "Уголки", правила передвижения фишек. Технические требования к компьютеру и программному обеспечению. Создание программы для реализации данной игры, с использованием двумерных массивов. Описание функций и процедур, текст программы.

Рубрика Программирование, компьютеры и кибернетика
Вид курсовая работа
Язык русский
Дата добавления 24.12.2011
Размер файла 227,7 K

Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже

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

Размещено на http://www.allbest.ru/

Министерство образования Российской Федерации

Комсомольский - на - Амуре государственный технический университет

Кафедра математики и информатики

Курсовая работа

по предмету

Современные программные средства.

Разработка игры «Уголки»

Выполнил

Студент гр. 1ВТ3у

Н.С. Шевелева

Проверил

Преподаватель

Ю.А. Петров

г. Комсомольск - на - Амуре

2003 г.

Оглавление

1. Техническое задание

2. Описание программы

3. Алгоритм задачи (Блок - схема)

4. Текст программы

5. Руководство программиста

6. Руководство оператора

1. Техническое задание

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

2. Технические требования

Оболочка: Windows 95 // 98, и выше

Программное обеспечение: Microsoft Excel 2000, и выше

3. Руководство программиста

Для установки данной игры на компьютер достаточно скопировать файл «Уголки.xls» на диск С, или Д. Открыть и в появившемся окне Excel нажать «Запуск игры», а далее в появившемся окне «Уголки», надо выбрать «Новая игра».

4. Руководство оператора

Запуск игры. При открытии файла на экране появится окно выбора, «играть или не играть», т.е. кнопка «Запуск игры». При нажатии этой кнопки открывается окно «Уголки». Где для запуска игры нужно нажать кнопку «Новая игра». Приложение А «Запуск игры»

Процесс игры В начале игры ходит « - ». Каждый пользователь ходит по очереди. Очередность устанавливается в поле «Ходит», где и прописано, кто в данный момент ходит. Приложение Б «Начало игры»

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

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

Приложение В «Игра в процессе»

6. Описание программы

a. В программе используется в основном двумерные массивы от 0 до 9 Процедура Zap () записывает все значения используемых полей, а также закрашивает все поля в необходимый на данные момент цвет

b. Процедура Konec () описывает действия программы в момент, когда игра заканчивается. То есть при выигрыше пользователя « + » или « - » появляется окно сообщения о выигрыше.

c. Hod () предваряет в действие сам ход пользователя. То есть от момента выделения мышкой нужного для перехода элемента и до указания мышкой и «кликом» место конечного расположения.

d. CommandButton1_Click () позволяет начать новую игру

e. CommandButton3_Click () позволяет закончить ход на том месте, котором захотел пользователь

f. CommandButton4_Click () позволяет закрыть программу

g. Процедуры с F00 до F99 () закрашивают поля, по которым ходят фишки в нужный цвет и придают данным полям нужные для дальнейшего использования значения.

7. Текст программы

Объявление переменных

Dim a(0 To 9, 0 To 9) As String

Dim dlaX As Integer

Dim dlaY As Integer

Dim dlaX1 As Integer

Dim dlaY1 As Integer

Dim op As String

Dim flag As Integer

Dim qw As Integer

Dim rew As Integer

игра программа компьютер уголок

Запоминание определенной позиции

для наших "Ячеек"

Private Sub zap(oct, i, q)

F00.Caption = a(0, 0)

F01.Caption = a(0, 1)

F02.Caption = a(0, 2)

F03.Caption = a(0, 3)

F04.Caption = a(0, 4)

F05.Caption = a(0, 5)

F06.Caption = a(0, 6)

F07.Caption = a(0, 7)

F08.Caption = a(0, 8)

F09.Caption = a(0, 9)

F10.Caption = a(1, 0)

F11.Caption = a(1, 1)

F12.Caption = a(1, 2)

F13.Caption = a(1, 3)

F14.Caption = a(1, 4)

F15.Caption = a(1, 5)

F16.Caption = a(1, 6)

F17.Caption = a(1, 7)

F18.Caption = a(1, 8)

F19.Caption = a(1, 9)

F20.Caption = a(2, 0)

F21.Caption = a(2, 1)

F22.Caption = a(2, 2)

F23.Caption = a(2, 3)

F24.Caption = a(2, 4)

F25.Caption = a(2, 5)

F26.Caption = a(2, 6)

F27.Caption = a(2, 7)

F28.Caption = a(2, 8)

F29.Caption = a(2, 9)

F30.Caption = a(3, 0)

F31.Caption = a(3, 1)

F32.Caption = a(3, 2)

F33.Caption = a(3, 3)

F34.Caption = a(3, 4)

F35.Caption = a(3, 5)

F36.Caption = a(3, 6)

F37.Caption = a(3, 7)

F38.Caption = a(3, 8)

F39.Caption = a(3, 9)

F40.Caption = a(4, 0)

F41.Caption = a(4, 1)

F42.Caption = a(4, 2)

F43.Caption = a(4, 3)

F44.Caption = a(4, 4)

F45.Caption = a(4, 5)

F46.Caption = a(4, 6)

F47.Caption = a(4, 7)

F48.Caption = a(4, 8)

F49.Caption = a(4, 9)

F50.Caption = a(5, 0)

F51.Caption = a(5, 1)

F52.Caption = a(5, 2)

F53.Caption = a(5, 3)

F54.Caption = a(5, 4)

F55.Caption = a(5, 5)

F56.Caption = a(5, 6)

F57.Caption = a(5, 7)

F58.Caption = a(5, 8)

F59.Caption = a(5, 9)

F60.Caption = a(6, 0)

F61.Caption = a(6, 1)

F62.Caption = a(6, 2)

F63.Caption = a(6, 3)

F64.Caption = a(6, 4)

F65.Caption = a(6, 5)

F66.Caption = a(6, 6)

F67.Caption = a(6, 7)

F68.Caption = a(6, 8)

F69.Caption = a(6, 9)

F70.Caption = a(7, 0)

F71.Caption = a(7, 1)

F72.Caption = a(7, 2)

F73.Caption = a(7, 3)

F74.Caption = a(7, 4)

F75.Caption = a(7, 5)

F76.Caption = a(7, 6)

F77.Caption = a(7, 7)

F78.Caption = a(7, 8)

F79.Caption = a(7, 9)

F80.Caption = a(8, 0)

F81.Caption = a(8, 1)

F82.Caption = a(8, 2)

F83.Caption = a(8, 3)

F84.Caption = a(8, 4)

F85.Caption = a(8, 5)

F86.Caption = a(8, 6)

F87.Caption = a(8, 7)

F88.Caption = a(8, 8)

F89.Caption = a(8, 9)

F90.Caption = a(9, 0)

F91.Caption = a(9, 1)

F92.Caption = a(9, 2)

F93.Caption = a(9, 3)

F94.Caption = a(9, 4)

F95.Caption = a(9, 5)

F96.Caption = a(9, 6)

F97.Caption = a(9, 7)

F98.Caption = a(9, 8)

F99.Caption = a(9, 9)

Закрашивание наших "Ячеек" в нужный нам цвет

If (oct = 1) And (i = 0) And (q = 0) Then

F00.BackColor = &H80FF80

Else

F00.BackColor = &H80000005

End If

If (oct = 1) And (i = 0) And (q = 1) Then

F01.BackColor = &H80FF80

Else

F01.BackColor = &H80000005

End If

If (oct = 1) And (i = 0) And (q = 2) Then

F02.BackColor = &H80FF80

Else

F02.BackColor = &H80000005

End If

If (oct = 1) And (i = 0) And (q = 3) Then

F03.BackColor = &H80FF80

Else

F03.BackColor = &H80000005

End If

If (oct = 1) And (i = 0) And (q = 4) Then

F04.BackColor = &H80FF80

Else

F04.BackColor = &H80000005

End If

If (oct = 1) And (i = 0) And (q = 5) Then

F05.BackColor = &H80FF80

Else

F05.BackColor = &H80000005

End If

If (oct = 1) And (i = 0) And (q = 6) Then

F06.BackColor = &H80FF80

Else

F06.BackColor = &H80000005

End If

If (oct = 1) And (i = 0) And (q = 7) Then

F07.BackColor = &H80FF80

Else

F07.BackColor = &H80000005

End If

If (oct = 1) And (i = 0) And (q = 8) Then

F08.BackColor = &H80FF80

Else

F08.BackColor = &H80000005

End If

If (oct = 1) And (i = 0) And (q = 9) Then

F09.BackColor = &H80FF80

Else

F09.BackColor = &H80000005

End If

If (oct = 1) And (i = 1) And (q = 0) Then

F10.BackColor = &H80FF80

Else

F10.BackColor = &H80000005

End If

If (oct = 1) And (i = 1) And (q = 1) Then

F11.BackColor = &H80FF80

Else

F11.BackColor = &H80000005

End If

If (oct = 1) And (i = 1) And (q = 2) Then

F12.BackColor = &H80FF80

Else

F12.BackColor = &H80000005

End If

If (oct = 1) And (i = 1) And (q = 3) Then

F13.BackColor = &H80FF80

Else

F13.BackColor = &H80000005

End If

If (oct = 1) And (i = 1) And (q = 4) Then

F14.BackColor = &H80FF80

Else

F14.BackColor = &H80000005

End If

If (oct = 1) And (i = 1) And (q = 5) Then

F15.BackColor = &H80FF80

Else

F15.BackColor = &H80000005

End If

If (oct = 1) And (i = 1) And (q = 6) Then

F16.BackColor = &H80FF80

Else

F16.BackColor = &H80000005

End If

If (oct = 1) And (i = 1) And (q = 7) Then

F17.BackColor = &H80FF80

Else

F17.BackColor = &H80000005

End If

If (oct = 1) And (i = 1) And (q = 8) Then

F18.BackColor = &H80FF80

Else

F18.BackColor = &H80000005

End If

If (oct = 1) And (i = 1) And (q = 9) Then

F19.BackColor = &H80FF80

Else

F19.BackColor = &H80000005

End If

If (oct = 1) And (i = 2) And (q = 0) Then

F20.BackColor = &H80FF80

Else

F20.BackColor = &H80000005

End If

If (oct = 1) And (i = 2) And (q = 1) Then

F21.BackColor = &H80FF80

Else

F21.BackColor = &H80000005

End If

If (oct = 1) And (i = 2) And (q = 2) Then

F22.BackColor = &H80FF80

Else

F22.BackColor = &H80000005

End If

If (oct = 1) And (i = 2) And (q = 3) Then

F23.BackColor = &H80FF80

Else

F23.BackColor = &H80000005

End If

If (oct = 1) And (i = 2) And (q = 4) Then

F24.BackColor = &H80FF80

Else

F24.BackColor = &H80000005

End If

If (oct = 1) And (i = 2) And (q = 5) Then

F25.BackColor = &H80FF80

Else

F25.BackColor = &H80000005

End If

If (oct = 1) And (i = 2) And (q = 6) Then

F26.BackColor = &H80FF80

Else

F26.BackColor = &H80000005

End If

If (oct = 1) And (i = 2) And (q = 7) Then

F27.BackColor = &H80FF80

Else

F27.BackColor = &H80000005

End If

If (oct = 1) And (i = 2) And (q = 8) Then

F28.BackColor = &H80FF80

Else

F28.BackColor = &H80000005

End If

If (oct = 1) And (i = 2) And (q = 9) Then

F28.BackColor = &H80FF80

Else

F29.BackColor = &H80000005

End If

If (oct = 1) And (i = 3) And (q = 0) Then

F30.BackColor = &H80FF80

Else

F30.BackColor = &H80000005

End If

If (oct = 1) And (i = 3) And (q = 1) Then

F31.BackColor = &H80FF80

Else

F31.BackColor = &H80000005

End If

If (oct = 1) And (i = 3) And (q = 2) Then

F32.BackColor = &H80FF80

Else

F32.BackColor = &H80000005

End If

If (oct = 1) And (i = 3) And (q = 3) Then

F33.BackColor = &H80FF80

Else

F33.BackColor = &H80000005

End If

If (oct = 1) And (i = 3) And (q = 4) Then

F34.BackColor = &H80FF80

Else

F34.BackColor = &H80000005

End If

If (oct = 1) And (i = 3) And (q = 5) Then

F35.BackColor = &H80FF80

Else

F35.BackColor = &H80000005

End If

If (oct = 1) And (i = 3) And (q = 6) Then

F36.BackColor = &H80FF80

Else

F36.BackColor = &H80000005

End If

If (oct = 1) And (i = 3) And (q = 7) Then

F37.BackColor = &H80FF80

Else

F37.BackColor = &H80000005

End If

If (oct = 1) And (i = 3) And (q = 8) Then

F38.BackColor = &H80FF80

Else

F38.BackColor = &H80000005

End If

If (oct = 1) And (i = 3) And (q = 9) Then

F39.BackColor = &H80FF80

Else

F39.BackColor = &H80000005

End If

If (oct = 1) And (i = 4) And (q = 0) Then

F40.BackColor = &H80FF80

Else

F40.BackColor = &H80000005

End If

If (oct = 1) And (i = 4) And (q = 1) Then

F41.BackColor = &H80FF80

Else

F41.BackColor = &H80000005

End If

If (oct = 1) And (i = 4) And (q = 2) Then

F42.BackColor = &H80FF80

Else

F42.BackColor = &H80000005

End If

If (oct = 1) And (i = 4) And (q = 3) Then

F43.BackColor = &H80FF80

Else

F43.BackColor = &H80000005

End If

If (oct = 1) And (i = 4) And (q = 4) Then

F44.BackColor = &H80FF80

Else

F44.BackColor = &H80000005

End If

If (oct = 1) And (i = 4) And (q = 5) Then

F45.BackColor = &H80FF80

Else

F45.BackColor = &H80000005

End If

If (oct = 1) And (i = 4) And (q = 6) Then

F46.BackColor = &H80FF80

Else

F46.BackColor = &H80000005

End If

If (oct = 1) And (i = 4) And (q = 7) Then

F47.BackColor = &H80FF80

Else

F47.BackColor = &H80000005

End If

If (oct = 1) And (i = 4) And (q = 8) Then

F48.BackColor = &H80FF80

Else

F48.BackColor = &H80000005

End If

If (oct = 1) And (i = 4) And (q = 9) Then

F49.BackColor = &H80FF80

Else

F49.BackColor = &H80000005

End If

If (oct = 1) And (i = 5) And (q = 0) Then

F50.BackColor = &H80FF80

Else

F50.BackColor = &H80000005

End If

If (oct = 1) And (i = 5) And (q = 1) Then

F51.BackColor = &H80FF80

Else

F51.BackColor = &H80000005

End If

If (oct = 1) And (i = 5) And (q = 2) Then

F52.BackColor = &H80FF80

Else

F52.BackColor = &H80000005

End If

If (oct = 1) And (i = 5) And (q = 3) Then

F53.BackColor = &H80FF80

Else

F53.BackColor = &H80000005

End If

If (oct = 1) And (i = 5) And (q = 4) Then

F54.BackColor = &H80FF80

Else

F54.BackColor = &H80000005

End If

If (oct = 1) And (i = 5) And (q = 5) Then

F55.BackColor = &H80FF80

Else

F55.BackColor = &H80000005

End If

If (oct = 1) And (i = 5) And (q = 6) Then

F56.BackColor = &H80FF80

Else

F56.BackColor = &H80000005

End If

If (oct = 1) And (i = 5) And (q = 7) Then

F57.BackColor = &H80FF80

Else

F57.BackColor = &H80000005

End If

If (oct = 1) And (i = 5) And (q = 8) Then

F58.BackColor = &H80FF80

Else

F58.BackColor = &H80000005

End If

If (oct = 1) And (i = 4) And (q = 9) Then

F59.BackColor = &H80FF80

Else

F59.BackColor = &H80000005

End If

If (oct = 1) And (i = 6) And (q = 0) Then

F60.BackColor = &H80FF80

Else

F60.BackColor = &H80000005

End If

If (oct = 1) And (i = 6) And (q = 1) Then

F61.BackColor = &H80FF80

Else

F61.BackColor = &H80000005

End If

If (oct = 1) And (i = 6) And (q = 2) Then

F62.BackColor = &H80FF80

Else

F62.BackColor = &H80000005

End If

If (oct = 1) And (i = 6) And (q = 3) Then

F63.BackColor = &H80FF80

Else

F63.BackColor = &H80000005

End If

If (oct = 1) And (i = 6) And (q = 4) Then

F64.BackColor = &H80FF80

Else

F64.BackColor = &H80000005

End If

If (oct = 1) And (i = 6) And (q = 5) Then

F65.BackColor = &H80FF80

Else

F65.BackColor = &H80000005

End If

If (oct = 1) And (i = 6) And (q = 6) Then

F66.BackColor = &H80FF80

Else

F66.BackColor = &H80000005

End If

If (oct = 1) And (i = 6) And (q = 7) Then

F67.BackColor = &H80FF80

Else

F67.BackColor = &H80000005

End If

If (oct = 1) And (i = 6) And (q = 8) Then

F68.BackColor = &H80FF80

Else

F68.BackColor = &H80000005

End If

If (oct = 1) And (i = 6) And (q = 9) Then

F69.BackColor = &H80FF80

Else

F69.BackColor = &H80000005

End If

If (oct = 1) And (i = 7) And (q = 0) Then

F70.BackColor = &H80FF80

Else

F70.BackColor = &H80000005

End If

If (oct = 1) And (i = 7) And (q = 1) Then

F71.BackColor = &H80FF80

Else

F71.BackColor = &H80000005

End If

If (oct = 1) And (i = 7) And (q = 2) Then

F72.BackColor = &H80FF80

Else

F72.BackColor = &H80000005

End If

If (oct = 1) And (i = 7) And (q = 3) Then

F73.BackColor = &H80FF80

Else

F73.BackColor = &H80000005

End If

If (oct = 1) And (i = 7) And (q = 4) Then

F74.BackColor = &H80FF80

Else

F74.BackColor = &H80000005

End If

If (oct = 1) And (i = 7) And (q = 5) Then

F75.BackColor = &H80FF80

Else

F75.BackColor = &H80000005

End If

If (oct = 1) And (i = 7) And (q = 6) Then

F76.BackColor = &H80FF80

Else

F76.BackColor = &H80000005

End If

If (oct = 1) And (i = 7) And (q = 7) Then

F77.BackColor = &H80FF80

Else

F77.BackColor = &H80000005

End If

If (oct = 1) And (i = 7) And (q = 8) Then

F78.BackColor = &H80FF80

Else

F78.BackColor = &H80000005

End If

If (oct = 1) And (i = 7) And (q = 9) Then

F79.BackColor = &H80FF80

Else

F79.BackColor = &H80000005

End If

If (oct = 1) And (i = 8) And (q = 0) Then

F80.BackColor = &H80FF80

Else

F80.BackColor = &H80000005

End If

If (oct = 1) And (i = 8) And (q = 1) Then

F81.BackColor = &H80FF80

Else

F81.BackColor = &H80000005

End If

If (oct = 1) And (i = 8) And (q = 2) Then

F82.BackColor = &H80FF80

Else

F82.BackColor = &H80000005

End If

If (oct = 1) And (i = 8) And (q = 3) Then

F83.BackColor = &H80FF80

Else

F83.BackColor = &H80000005

End If

If (oct = 1) And (i = 8) And (q = 4) Then

F84.BackColor = &H80FF80

Else

F84.BackColor = &H80000005

End If

If (oct = 1) And (i = 8) And (q = 5) Then

F85.BackColor = &H80FF80

Else

F85.BackColor = &H80000005

End If

If (oct = 1) And (i = 8) And (q = 6) Then

F86.BackColor = &H80FF80

Else

F86.BackColor = &H80000005

End If

If (oct = 1) And (i = 8) And (q = 7) Then

F87.BackColor = &H80FF80

Else

F87.BackColor = &H80000005

End If

If (oct = 1) And (i = 8) And (q = 8) Then

F88.BackColor = &H80FF80

Else

F88.BackColor = &H80000005

End If

If (oct = 1) And (i = 8) And (q = 9) Then

F89.BackColor = &H80FF80

Else

F89.BackColor = &H80000005

End If

If (oct = 1) And (i = 9) And (q = 0) Then

F90.BackColor = &H80FF80

Else

F90.BackColor = &H80000005

End If

If (oct = 1) And (i = 9) And (q = 1) Then

F91.BackColor = &H80FF80

Else

F91.BackColor = &H80000005

End If

If (oct = 1) And (i = 9) And (q = 2) Then

F92.BackColor = &H80FF80

Else

F92.BackColor = &H80000005

End If

If (oct = 1) And (i = 9) And (q = 3) Then

F93.BackColor = &H80FF80

Else

F93.BackColor = &H80000005

End If

If (oct = 1) And (i = 9) And (q = 4) Then

F94.BackColor = &H80FF80

Else

F94.BackColor = &H80000005

End If

If (oct = 1) And (i = 9) And (q = 5) Then

F95.BackColor = &H80FF80

Else

F95.BackColor = &H80000005

End If

If (oct = 1) And (i = 9) And (q = 6) Then

F96.BackColor = &H80FF80

Else

F96.BackColor = &H80000005

End If

If (oct = 1) And (i = 9) And (q = 7) Then

F97.BackColor = &H80FF80

Else

F97.BackColor = &H80000005

End If

If (oct = 1) And (i = 9) And (q = 8) Then

F98.BackColor = &H80FF80

Else

F98.BackColor = &H80000005

End If

If (oct = 1) And (i = 9) And (q = 9) Then

F99.BackColor = &H80FF80

Else

F99.BackColor = &H80000005

End If

End Sub

Процедура окончания игры

Когда кто - то выигрывает то появляется сообщение

Private Sub konec()

qw1 = 0

qw2 = 0

For s = 6 To 9

For d = 6 To 9

If a(d, s) <> "+" Then

qw1 = 1

End If

Next d

Next s

For s = 0 To 3

For d = 0 To 3

If a(d, s) <> "-" Then

qw2 = 1

End If

Next d

Next s

If (qw1 = 0) Or (qw2 = 0) Then

MsgBox (" Победил " + op)

End If

End Sub

Непосредственно сам ход в игре

Private Sub hod(i, q)

If a(i, q) <> " " Then

If (a(i, q) = op) And (rew = 0) Then

dlaX = i

dlaY = q

qw = 1

dlaX1 = 10

dlaY1 = 10

Call zap(1, dlaX, dlaY)

End If

Else

flag = 0

If (dlaX = i) And ((-2 = dlaY - q) Or (dlaY - q = 2)) And (q <> dlaY1) Then

If a(i, q + (dlaY - q) / 2) <> " " Then

a(dlaX, dlaY) = " "

a(i, q) = op

rew = 0

flag = 1

If 2 <= i Then

If (a(i - 1, q) <> " ") And (a(i - 2, q) = " ") And (i - 2 <> dlaX) Then

rew = 1

End If

End If

If i <= 7 Then

If (a(i + 1, q) <> " ") And (a(i + 2, q) = " ") And (i + 2 <> dlaX) Then

rew = 1

End If

End If

If 2 <= q Then

If (a(i, q - 1) <> " ") And (a(i, q - 2) = " ") And (q - 2 <> dlaY) Then

rew = 1

End If

End If

If q <= 7 Then

If (a(i, q + 1) <> " ") And (a(i, q + 2) = " ") And (q + 2 <> dlaY) Then

rew = 1

End If

End If

If rew = 1 Then

Call zap(1, i, q)

Else

Call zap(0, i, q)

End If

End If

End If

If (dlaY = q) And ((-2 = dlaX - i) Or (dlaX - i = 2)) And (i <> dlaX1) Then

If a(i + (dlaX - i) / 2, q) <> " " Then

a(dlaX, dlaY) = " "

a(i, q) = op

rew = 0

flag = 1

If 2 <= i Then

If (a(i - 1, q) <> " ") And (a(i - 2, q) = " ") And (i - 2 <> dlaX) Then

rew = 1

End If

End If

If i <= 7 Then

If (a(i + 1, q) <> " ") And (a(i + 2, q) = " ") And (i + 2 <> dlaX) Then

rew = 1

End If

End If

If 2 <= q Then

If (a(i, q - 1) <> " ") And (a(i, q - 2) = " ") And (q - 2 <> dlaY) Then

rew = 1

End If

End If

If q <= 7 Then

If (a(i, q + 1) <> " ") And (a(i, q + 2) = " ") And (q + 2 <> dlaY) Then

rew = 1

End If

End If

If rew = 1 Then

Call zap(1, i, q)

Else

Call zap(0, i, q)

End If

End If

End If

If ((dlaX = i) And ((-1 = dlaY - q) Or (dlaY - q = 1))) And (rew = 0) Then

If a(i, q + (dlaY - q)) <> " " Then

a(dlaX, dlaY) = " "

a(i, q) = op

Call zap(0, i, q)

flag = 1

End If

End If

If ((dlaY = q) And ((-1 = dlaX - i) Or (dlaX - i = 1))) And (rew = 0) Then

If a(i + (dlaX - i), q) <> " " Then

a(dlaX, dlaY) = " "

a(i, q) = op

Call zap(0, i, q)

flag = 1

End If

End If

If flag = 1 Then

Call konec

If rew = 0 Then

If op = "+" Then

op = "-"

Else

op = "+"

End If

L.Caption = "Ходит " + op

Else

dlaX1 = dlaX

dlaY1 = dlaY

dlaX = i

dlaY = q

End If

End If

End If

End Sub

Начало игры

Private Sub CommandButton1_Click()

op = "-"

For i = 0 To 9

For q = 0 To 9

a(0 + i, 0 + q) = " "

Next q

Next i

For i = 0 To 3

For q = 0 To 3

a(0 + i, 0 + q) = "+"

a(9 - i, 9 - q) = "-"

Next q

Next i

qw = 0

rew = 0

L.Caption = "Ходит -"

Call zap(0, 0, 0)

End Sub

Окончание хода по требованию пользователя

Private Sub CommandButton3_Click()

rew = 0

If op = "+" Then

op = "-"

Else

op = "+"

End If

Call zap(0, 0, 0)

L.Caption = "Ходит " + op

End Sub

Закрыть поле игры

Private Sub CommandButton4_Click()

UserForm1.Hide

End Sub

По нажатию любой из "Ячейки" она выбирается

И становится другого цвета

Здесь же и вызывается процедура главного хода

Private Sub F00_Click()

If F00.Caption = op Then

F00.BackColor = &H80FF80

End If

Call hod(0, 0)

End Sub

Private Sub F01_Click()

If F01.Caption = op Then

F01.BackColor = &H80FF80

End If

Call hod(0, 1)

End Sub

Private Sub F02_Click()

If F02.Caption = op Then

F02.BackColor = &H80FF80

End If

Call hod(0, 2)

End Sub

Private Sub F03_Click()

If F03.Caption = op Then

F03.BackColor = &H80FF80

End If

Call hod(0, 3)

End Sub

Private Sub F04_Click()

If F04.Caption = op Then

F04.BackColor = &H80FF80

End If

Call hod(0, 4)

End Sub

Private Sub F05_Click()

If F05.Caption = op Then

F05.BackColor = &H80FF80

End If

Call hod(0, 5)

End Sub

Private Sub F06_Click()

If F06.Caption = op Then

F06.BackColor = &H80FF80

End If

Call hod(0, 6)

End Sub

Private Sub F07_Click()

If F07.Caption = op Then

F07.BackColor = &H80FF80

End If

Call hod(0, 7)

End Sub

Private Sub F08_Click()

If F08.Caption = op Then

F08.BackColor = &H80FF80

End If

Call hod(0, 8)

End Sub

Private Sub F09_Click()

If F09.Caption = op Then

F09.BackColor = &H80FF80

End If

Call hod(0, 9)

End Sub

Private Sub F10_Click()

If F10.Caption = op Then

F10.BackColor = &H80FF80

End If

Call hod(1, 0)

End Sub

Private Sub F11_Click()

If F11.Caption = op Then

F11.BackColor = &H80FF80

End If

Call hod(1, 1)

End Sub

Private Sub F12_Click()

If F12.Caption = op Then

F12.BackColor = &H80FF80

End If

Call hod(1, 2)

End Sub

Private Sub F13_Click()

If F13.Caption = op Then

F13.BackColor = &H80FF80

End If

Call hod(1, 3)

End Sub

Private Sub F14_Click()

If F14.Caption = op Then

F14.BackColor = &H80FF80

End If

Call hod(1, 4)

End Sub

Private Sub F15_Click()

If F15.Caption = op Then

F15.BackColor = &H80FF80

End If

Call hod(1, 5)

End Sub

Private Sub F16_Click()

If F16.Caption = op Then

F16.BackColor = &H80FF80

End If

Call hod(1, 6)

End Sub

Private Sub F17_Click()

If F17.Caption = op Then

F17.BackColor = &H80FF80

End If

Call hod(1, 7)

End Sub

Private Sub F18_Click()

If F18.Caption = op Then

F18.BackColor = &H80FF80

End If

Call hod(1, 8)

End Sub

Private Sub F19_Click()

If F19.Caption = op Then

F19.BackColor = &H80FF80

End If

Call hod(1, 9)

End Sub

Private Sub F20_Click()

If F20.Caption = op Then

F20.BackColor = &H80FF80

End If

Call hod(2, 0)

End Sub

Private Sub F21_Click()

If F21.Caption = op Then

F21.BackColor = &H80FF80

End If

Call hod(2, 1)

End Sub

Private Sub F22_Click()

If F22.Caption = op Then

F22.BackColor = &H80FF80

End If

Call hod(2, 2)

End Sub

Private Sub F23_Click()

If F23.Caption = op Then

F23.BackColor = &H80FF80

End If

Call hod(2, 3)

End Sub

Private Sub F24_Click()

If F24.Caption = op Then

F24.BackColor = &H80FF80

End If

Call hod(2, 4)

End Sub

Private Sub F25_Click()

If F25.Caption = op Then

F25.BackColor = &H80FF80

End If

Call hod(2, 5)

End Sub

Private Sub F26_Click()

If F26.Caption = op Then

F26.BackColor = &H80FF80

End If

Call hod(2, 6)

End Sub

Private Sub F27_Click()

If F27.Caption = op Then

F27.BackColor = &H80FF80

End If

Call hod(2, 7)

End Sub

Private Sub F28_Click()

If F28.Caption = op Then

F28.BackColor = &H80FF80

End If

Call hod(2, 8)

End Sub

Private Sub F29_Click()

If F29.Caption = op Then

F29.BackColor = &H80FF80

End If

Call hod(2, 9)

End Sub

Private Sub F30_Click()

If F30.Caption = op Then

F30.BackColor = &H80FF80

End If

Call hod(3, 0)

End Sub

Private Sub F31_Click()

If F31.Caption = op Then

F31.BackColor = &H80FF80

End If

Call hod(3, 1)

End Sub

Private Sub F32_Click()

If F32.Caption = op Then

F32.BackColor = &H80FF80

End If

Call hod(3, 2)

End Sub

Private Sub F33_Click()

If F33.Caption = op Then

F33.BackColor = &H80FF80

End If

Call hod(3, 3)

End Sub

Private Sub F34_Click()

If F34.Caption = op Then

F34.BackColor = &H80FF80

End If

Call hod(3, 4)

End Sub

Private Sub F35_Click()

If F35.Caption = op Then

F35.BackColor = &H80FF80

End If

Call hod(3, 5)

End Sub

Private Sub F36_Click()

If F36.Caption = op Then

F36.BackColor = &H80FF80

End If

Call hod(3, 6)

End Sub

Private Sub F37_Click()

If F37.Caption = op Then

F37.BackColor = &H80FF80

End If

Call hod(3, 7)

End Sub

Private Sub F38_Click()

If F38.Caption = op Then

F38.BackColor = &H80FF80

End If

Call hod(3, 8)

End Sub

Private Sub F39_Click()

If F39.Caption = op Then

F39.BackColor = &H80FF80

End If

Call hod(3, 9)

End Sub

Private Sub F40_Click()

If F40.Caption = op Then

F40.BackColor = &H80FF80

End If

Call hod(4, 0)

End Sub

Private Sub F41_Click()

If F41.Caption = op Then

F41.BackColor = &H80FF80

End If

Call hod(4, 1)

End Sub

Private Sub F42_Click()

If F42.Caption = op Then

F42.BackColor = &H80FF80

End If

Call hod(4, 2)

End Sub

Private Sub F43_Click()

If F43.Caption = op Then

F43.BackColor = &H80FF80

End If

Call hod(4, 3)

End Sub

Private Sub F44_Click()

If F44.Caption = op Then

F44.BackColor = &H80FF80

End If

Call hod(4, 4)

End Sub

Private Sub F45_Click()

If F45.Caption = op Then

F45.BackColor = &H80FF80

End If

Call hod(4, 5)

End Sub

Private Sub F46_Click()

If F46.Caption = op Then

F46.BackColor = &H80FF80

End If

Call hod(4, 6)

End Sub

Private Sub F47_Click()

If F47.Caption = op Then

F47.BackColor = &H80FF80

End If

Call hod(4, 7)

End Sub

Private Sub F48_Click()

If F48.Caption = op Then

F48.BackColor = &H80FF80

End If

Call hod(4, 8)

End Sub

Private Sub F49_Click()

If F49.Caption = op Then

F49.BackColor = &H80FF80

End If

Call hod(4, 9)

End Sub

Private Sub F50_Click()

If F50.Caption = op Then

F50.BackColor = &H80FF80

End If

Call hod(5, 0)

End Sub

Private Sub F51_Click()

If F51.Caption = op Then

F51.BackColor = &H80FF80

End If

Call hod(5, 1)

End Sub

Private Sub F52_Click()

If F52.Caption = op Then

F52.BackColor = &H80FF80

End If

Call hod(5, 2)

End Sub

Private Sub F53_Click()

If F53.Caption = op Then

F53.BackColor = &H80FF80

End If

Call hod(5, 3)

End Sub

Private Sub F54_Click()

If F54.Caption = op Then

F54.BackColor = &H80FF80

End If

Call hod(5, 4)

End Sub

Private Sub F55_Click()

If F55.Caption = op Then

F55.BackColor = &H80FF80

End If

Call hod(5, 5)

End Sub

Private Sub F56_Click()

If F56.Caption = op Then

F56.BackColor = &H80FF80

End If

Call hod(5, 6)

End Sub

Private Sub F57_Click()

If F57.Caption = op Then

F57.BackColor = &H80FF80

End If

Call hod(5, 7)

End Sub

Private Sub F58_Click()

If F58.Caption = op Then

F58.BackColor = &H80FF80

End If

Call hod(5, 8)

End Sub

Private Sub F59_Click()

If F59.Caption = op Then

F59.BackColor = &H80FF80

End If

Call hod(5, 9)

End Sub

Private Sub F60_Click()

If F60.Caption = op Then

F60.BackColor = &H80FF80

End If

Call hod(6, 0)

End Sub

Private Sub F61_Click()

If F61.Caption = op Then

F61.BackColor = &H80FF80

End If

Call hod(6, 1)

End Sub

Private Sub F62_Click()

If F62.Caption = op Then

F62.BackColor = &H80FF80

End If

Call hod(6, 2)

End Sub

Private Sub F63_Click()

If F63.Caption = op Then

F63.BackColor = &H80FF80

End If

Call hod(6, 3)

End Sub

Private Sub F64_Click()

If F64.Caption = op Then

F64.BackColor = &H80FF80

End If

Call hod(6, 4)

End Sub

Private Sub F65_Click()

If F65.Caption = op Then

F65.BackColor = &H80FF80

End If

Call hod(6, 5)

End Sub

Private Sub F66_Click()

If F66.Caption = op Then

F66.BackColor = &H80FF80

End If

Call hod(6, 6)

End Sub

Private Sub F67_Click()

If F67.Caption = op Then

F67.BackColor = &H80FF80

End If

Call hod(6, 7)

End Sub

Private Sub F68_Click()

If F68.Caption = op Then

F68.BackColor = &H80FF80

End If

Call hod(6, 8)

End Sub

Private Sub F69_Click()

If F69.Caption = op Then

F69.BackColor = &H80FF80

End If

Call hod(6, 9)

End Sub

Private Sub F70_Click()

If F70.Caption = op Then

F70.BackColor = &H80FF80

End If

Call hod(7, 0)

End Sub

Private Sub F71_Click()

If F71.Caption = op Then

F71.BackColor = &H80FF80

End If

Call hod(7, 1)

End Sub

Private Sub F72_Click()

If F72.Caption = op Then

F72.BackColor = &H80FF80

End If

Call hod(7, 2)

End Sub

Private Sub F73_Click()

If F73.Caption = op Then

F73.BackColor = &H80FF80

End If

Call hod(7, 3)

End Sub

Private Sub F74_Click()

If F74.Caption = op Then

F74.BackColor = &H80FF80

End If

Call hod(7, 4)

End Sub

Private Sub F75_Click()

If F75.Caption = op Then

F75.BackColor = &H80FF80

End If

Call hod(7, 5)

End Sub

Private Sub F76_Click()

If F76.Caption = op Then

F76.BackColor = &H80FF80

End If

Call hod(7, 6)

End Sub

Private Sub F77_Click()

If F77.Caption = op Then

F77.BackColor = &H80FF80

End If

Call hod(7, 7)

End Sub

Private Sub F78_Click()

If F78.Caption = op Then

F78.BackColor = &H80FF80

End If

Call hod(7, 8)

End Sub

Private Sub F79_Click()

If F79.Caption = op Then

F79.BackColor = &H80FF80

End If

Call hod(7, 9)

End Sub

Private Sub F80_Click()

If F80.Caption = op Then

F80.BackColor = &H80FF80

End If

Call hod(8, 0)

End Sub

Private Sub F81_Click()

If F81.Caption = op Then

F81.BackColor = &H80FF80

End If

Call hod(8, 1)

End Sub

Private Sub F82_Click()

If F82.Caption = op Then

F82.BackColor = &H80FF80

End If

Call hod(8, 2)

End Sub

Private Sub F83_Click()

If F83.Caption = op Then

F83.BackColor = &H80FF80

End If

Call hod(8, 3)

End Sub

Private Sub F84_Click()

If F84.Caption = op Then

F84.BackColor = &H80FF80

End If

Call hod(8, 4)

End Sub

Private Sub F85_Click()

If F85.Caption = op Then

F85.BackColor = &H80FF80

End If

Call hod(8, 5)

End Sub

Private Sub F86_Click()

If F86.Caption = op Then

F86.BackColor = &H80FF80

End If

Call hod(8, 6)

End Sub

Private Sub F87_Click()

If F87.Caption = op Then

F87.BackColor = &H80FF80

End If

Call hod(8, 7)

End Sub

Private Sub F88_Click()

If F88.Caption = op Then

F88.BackColor = &H80FF80

End If

Call hod(8, 8)

End Sub

Private Sub F89_Click()

If F89.Caption = op Then

F89.BackColor = &H80FF80

End If

Call hod(8, 9)

End Sub

Private Sub F90_Click()

If F90.Caption = op Then

F90.BackColor = &H80FF80

End If

Call hod(9, 0)

End Sub

Private Sub F91_Click()

If F91.Caption = op Then

F91.BackColor = &H80FF80

End If

Call hod(9, 1)

End Sub

Private Sub F92_Click()

If F92.Caption = op Then

F92.BackColor = &H80FF80

End If

Call hod(9, 2)

End Sub

Private Sub F93_Click()

If F93.Caption = op Then

F93.BackColor = &H80FF80

End If

Call hod(9, 3)

End Sub

Private Sub F94_Click()

If F94.Caption = op Then

F94.BackColor = &H80FF80

End If

Call hod(9, 4)

End Sub

Private Sub F95_Click()

If F95.Caption = op Then

F95.BackColor = &H80FF80

End If

Call hod(9, 5)

End Sub

Private Sub F96_Click()

If F96.Caption = op Then

F96.BackColor = &H80FF80

End If

Call hod(9, 6)

End Sub

Private Sub F97_Click()

If F97.Caption = op Then

F97.BackColor = &H80FF80

End If

Call hod(9, 7)

End Sub

Private Sub F98_Click()

If F98.Caption = op Then

F98.BackColor = &H80FF80

End If

Call hod(9, 8)

End Sub

Private Sub F99_Click()

If F99.Caption = op Then

F99.BackColor = &H80FF80

End If

Call hod(9, 9)

End Sub

Private Sub UserForm_Click()

End Sub

8. Руководство программиста

Для установки данной игры на компьютер достаточно скопировать файл «Уголки.xls» на диск С, или Д. Открыть и в появившемся окне Excel нажать «Запуск игры», а далее в появившемся окне «Уголки», надо выбрать «Новая игра».

9. Руководство оператора

a. Запуск игры

При открытии файла на экране появится окно выбора, «играть или не играть», т.е. кнопка «Запуск игры». При нажатии этой кнопки открывается окно «Уголки». Где для запуска игры нужно нажать кнопку «Новая игра». Приложение А «Запуск игры»

b. Процесс игры

В начале игры ходит « - ». Каждый пользователь ходит по очереди. Очередность устанавливается в поле «Ходит», где и прописано, кто в данный момент ходит. Приложение Б «Начало игры»

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

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

Приложение В «Игра в процессе»

Приложение А «Запуск игры»

Приложение Б «Начало игры»

Приложение В «Игра в процессе»

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


Подобные документы

  • Технические и пользовательские характеристики игры, требования к программному обеспечению и среде разработки C#. Составление блок-схемы алгоритма, uml-диаграммы и текста программы, тестирование корректности компьютерного кода и результатов его работы.

    курсовая работа [1,8 M], добавлен 05.03.2013

  • Разработка эскизного и технического проекта программы игры "Собери картинку". Назначение и область применения, основные технические характеристики. Разработка рабочего проекта, разработка и спецификация программы игры. Описание и тестирование программы.

    курсовая работа [22,6 K], добавлен 10.06.2010

  • Разработка и создание игры "Змейка". Использование динамически-активных принципов языка Java. Графические объекты программы. Описание игры, правила, теоретические сведения. Классы приложения. Типы данных. Реализация. Метод. Объект. Блок-схема игры.

    курсовая работа [12,4 K], добавлен 18.06.2008

  • Приемы программирования в Delphi. Алгоритм поиска альфа-бета отсечения, преимущества. Описание программного средства. Разработка программы, реализующая алгоритм игры "реверси". Руководство пользователя. Листинг программы. Навыки реализации алгоритмов.

    курсовая работа [357,1 K], добавлен 28.02.2011

  • Разработка программы логической игры в "крестики-нолики" пять в ряд на поле размера 15х15 клеток с применением графики на языке Pascal с использованием объектно-ориентированного программирования. Структура алгоритма программы и описание ее работы.

    курсовая работа [821,5 K], добавлен 13.02.2012

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

    курсовая работа [1,2 M], добавлен 17.04.2013

  • Описание принципа развивающей игры в слова "Виселица". Разработка программы, реализующей задачу данной игры на языке Delphi. Обоснование выбора среды программирования, листинг файла, результаты отладки и тестирования, руководство для пользователя.

    курсовая работа [572,7 K], добавлен 14.07.2012

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

    курсовая работа [969,3 K], добавлен 26.03.2009

  • Особенности программирования аркадных игр в среде Python. Краткая характеристика языка программирования Python, его особенности и синтаксис. Описание компьютерной игры "Танчики" - правила игры, пояснение ключевых строк кода. Демонстрация работы программы.

    курсовая работа [160,3 K], добавлен 03.12.2014

  • Описание правил игры "Морской бой". Особенности современных компьютеров и искусственного интеллекта. Создание общей блок-схемы программы, ее внешний вид. Необходимые переменные, процедуры и функции. Характеристика объектов, используемых в приложении.

    курсовая работа [950,1 K], добавлен 05.11.2012

Работы в архивах красиво оформлены согласно требованиям ВУЗов и содержат рисунки, диаграммы, формулы и т.д.
PPT, PPTX и PDF-файлы представлены только в архивах.
Рекомендуем скачать работу.