Современные программные средства. Разработка игры "Уголки"
Описание игры "Уголки", правила передвижения фишек. Технические требования к компьютеру и программному обеспечению. Создание программы для реализации данной игры, с использованием двумерных массивов. Описание функций и процедур, текст программы.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | курсовая работа |
| Язык | русский |
| Дата добавления | 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
