Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Курилка
Страницы: 1
RSS
Морской бой, Игра Морской Бой
 
#1
19.06.2019 16:24:16
Всем привет!

Я наконец-то доделал "морской бой" на VBA, через UserForm
И хочу поделиться с вами, своим творением
Реализовал не всё что хотел, на пример разные правила игры, но довел классическую версию до играбельного состояния

Делал примерно месяц, в обед и после работы
Критика приветствуется :)
 
 
 
#2
19.06.2019 16:27:12
Скрытый текст
 
 
 
#3
19.06.2019 16:33:12
МБ вылетел в середине игры
Код
Private Function GetCorrentOrnt(ByVal X As Byte, ByVal Y As Byte) As Byte
Dim c As Byte, cX As Byte, cY As Byte
For c = 1 To 9 Step 2
    cX = FOrntXY(c, 0) + X: cY = FOrntXY(c, 1) + Y
    If plArena(cX, cY).Con = a.Ship_Damage Then
        GetCorrentOrnt = c
        Exit Function
    End If
Next
End Function

Ошибка в строке

Код
If plArena(cX, cY).Con = a.Ship_Damage Then
 
 
 
#4
19.06.2019 16:41:35
Хм :( не смог воспроизвести

Понял в чем дело, исправил.
Спасибо!
Изменено: Fidgy - 19.06.2019 16:46:12
 
 
 
#5
19.06.2019 17:54:13
На последних ходах появилась ошибка, в координатах.
«Бритва Оккама» или «Принцип Калашникова»?
 
 
 
#6
19.06.2019 18:06:02
Спасибо, здесь та-же ошибка, забыл добавить проверку координат на выход за границы
Проверил, все участки, вроде больше не должно быть такого  
 
 
 
#7
15.07.2019 14:35:24
А что, если вместо заливки ячеек, использовать символы? Точка - мимо, крестик -убил...так красивее, по-моему...
 
 
 
Страницы: 1
Наверх