Программирование Игр в VBA (Еще правка)

[corgi]

А зачем? Что это дает? Ведь объединенные ячейки выглядят так же, как разъединенные, или ты имел ввиду обводку?

на мой взгляд лучше объединенные но это только IMXO

[SeRRg]

Про вычисления кол-ва ходов в Башнях. Все очень просто.
Сам я такую же делал, и вот что про оптимальное количество ходов получилось.
Посмотри на таблицу.

2 кольца - 3 хода (2*2-1)
3 кольца - 7 ходов (2*2*2-1)
4 кольца - 15 ходов (2*2*2*2-1)
5 колец - 31 ход (2*2*2*2*2-1).
Иными словами,
2^x-1 - кол-во ходов для Х колец.
Удачи!

[Vitaly1]

SeRRg - спасибо!

Ну смотрите-же, тестите, говорите свое мнение!

Еще, кто сможет переставить ладьи с правильной последовательностью ходов меньше чем за 19 ходов, пришлите список ходов.

[corgi]

вот так у меня получилось 15 ходов только 2 последних черные, т.к. белые были на месте, но даже если полность соблюдать выйдет около 17
зы замечания:
1. неплохо бы организовать что-то типа ресета в играх, типа начать заново
2. на меню надо навесить что-то типа хоткеев а то неохота лазить в меню постоянно, или сделать меню что бы не надо было лазить далеко
3. если я закрыл окно с игрой это по-мойму должно означать что я наигрался, а то каждый раз надо тыкаться в меню

[Vitaly1]

вот так у меня получилось 15 ходов только 2 последних черные, т.к. белые были на месте, но даже если полность соблюдать выйдет около 17

Во первых, два последних хода черными это уже не то, а во вторых, в твоем примере черные ходят на 9 и 10 ходе подряд.

1. неплохо бы организовать что-то типа ресета в играх, типа начать заново
2. на меню надо навесить что-то типа хоткеев а то неохота лазить в меню постоянно, или сделать меню что бы не надо было лазить далеко
3. если я закрыл окно с игрой это по-мойму должно означать что я наигрался, а то каждый раз надо тыкаться в меню

1. Это не сложно, но мне казалось что лучше не перегружать меню игры, или это не так?
2.горячие клавиши конечно можно прописать, а вот добавить контексное меню, с этим будет посложнея, опять придется везде прописывать в играх повторяющийся код, если конечно из xla нельзя перехватить нажатие на правую клавишу мыши в другой книги?
3.Да, это достаточно легко осуществимо, но нужно код происать во всех играх.
Вообщем-то это все достаточно правильно, но трудоемко

[corgi]

не заметил вроде все по порядку делал, ну ладно еще потренируюсь

[corgi]

ну вроде так нормально получилось

[Vitaly1]

Опять правка

[Vitaly1]

Новая версия ниже

[Vitaly1]

Опять изменения в проете, см. ниже.

[Евген]

Виталий, после Вашей игрушки менюшки не хотят возвращаться на место . И сама она больше не хочет запускаться (возможно поэтому) Error - Invalid procedure call or argument
(Windows 2000, Office - 2000)
Help!

[Евген]

Спасибо
Почти все восстановил, кроме...
по правому клику на закладке листа, меню пустое
Нелп

[Vitaly1]

Поскольку Евген попал в такую ситуацию, что при работающей программе компьютер выключился и событие close проекта не отработало, а после этого Excel его стал работать не правильно. Мне пришлось для данной ситуации переделать проект, даже в вышеуказанном случаи, теперь Логические Игры можно запустить зново, даже в вышеуказанной ситуации, и после закрытия их нормальная работа Excel востановится.

[Евген]

А вот и ошибаетесь Уважаемый! Баг остался, Менюшки приходиться (Вашим & Своим) макросом лечить. После выхода и входа

With Application
.CommandBars.enabled=False
.Display...... = false
.CommandBars("ply").Controls(i).Visible = false
end with

А отличие от предыдущего варианта, только что окна дебагера не вылетает

[Vitaly1]

Поглядим еще дома, но вроде все работало и работает.

[Vitaly1]

Все работает, вчера специально прервал событие beforeClose, потом вошел в Excel, нет контекстных меню на ярлычках листов, нет панелей инструментов. Закрыл excel и загрузил Логические игры.xla, потом их закрыл, вошел в Excel все ок!
Так что все работает, и востоновится даже если будет скачек напряжения в сети и компьютер выключится из-за этого.