Выпуск 5 - Российский государственный профессионально ...

вить номер типа корабля, к которому она относится,
например, если односекционный — 1,
2-секционный — 2 и т.д., а если в клетке корабля
нет — 0. Соответствующие значения будем
хранить в массиве с именем тип из 40 элементов.
Следовательно, для указанной расстановки
кораблей имеем:
1) для 4-секционного:
For i = 6 To 9
тип(i) = 4
Next i
2) для 3-секционных:
For i = 21 To 23
тип(i) = 3
Next i
For i = 37 To 39
тип(i) = 3
Next i
3) для 2-секционных:
тип(3) = 2
тип(4) = 2
тип(12) = 2
тип(13) = 2
тип(17) = 2
тип(18) = 2
4) для односекционных:
тип(15) = 1
тип(27) = 1
тип(32) = 1
тип(34) = 1
С учетом сказанного условие, по которому после
“ранения” какого-либо корабля можно зафиксировать
факт потопления односекционного корабля,
будет таким:
поле(ход – 1) = 0 And поле(ход + 1) = 0
— 2-секционного:
поле(ход – 1) = 2 Or поле(ход + 1) = 2
— 3-секционного:
поле(ход - 2) = 2
And поле(ход - 1) = 2
Or поле(ход - 1) = 2
And поле(ход + 1) = 2
Or поле(ход + 1) = 2
And поле(ход + 2) = 2
Для 4-секционного корабля соответствующее
условие будет достаточно громоздким (возможны
4 варианта):
поле(ход - 3) = 2
And поле(ход - 2) = 2
And поле(ход - 1) = 2
Or поле(ход - 2) = 2
And поле(ход - 1) = 2
And поле(ход + 1) = 2
Or поле(ход - 1) = 2
And поле(ход + 1) = 2
And поле(ход + 2) = 2
Or поле(ход + 1) = 2
And поле(ход + 2) = 2
And поле(ход + 3) = 2
Чтобы определить, что игра закончилась, следует
подсчитывать количество потопленных кораблей.
Итак, разобравшись с логикой игры, можем перейти
к кнопкам.
Разместить их на листе и оформить на кнопке
соответствующую надпись можно, вызвав панель
инструментов Формы 2 . К каждой кнопке “привязываются”
так называемые “макросы” — программы,
написанные на языке программирования VBA,
которые выполняются по щелчку на той или иной
кнопке. Макрос можно создать сразу после размещения
кнопки или потом.
В первом случае после появления окна Назначить
макрос объекту (рис. 3) необходимо:
— изменить имя макроса на “Новая игра” или
“Подтвердить ход”;
— щелкнуть на кнопке Создать и в появившемся
окне кода оформить макрос, записав в нем необходимые
действия.
Во втором случае следует вызвать правой кнопкой
мыши контекстное меню и выбрать в нем пункт
Назначить макрос. Последующие действия аналогичны
описанным для первого случая.
Рекомендуем читателям, прежде чем идти
дальше, потренироваться с созданием кнопок
и “привязки” к ним макросов. В качестве действий
в макросах укажите, например, команду
MsgBox("Здравствуйте, люди!").
Рис. 3
Теперь о содержании “наших” макросов.
По щелчку на кнопке с надписью “Подтвердить
ход” должны проводиться следующие действия:
1. Считывание введенного в ячейке Е5 номера
клетки.
2. Проверка соответствующей клетки поля:
если в соответствующем ей элементе
массива поле записан 0
то
это промах
все
если записано 1
то |это как минимум "ранение"
Надо записать в данный элемент
значение 2,
2
Или панель Элементы управления.
59
май 2012 / ИНФОРМАТИКА