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

[Vitaly1]

Проект в новой версии, в топике ниже, в файле Логические Игры.zip

п.с.
Кто уже скачивал ,знайте, правки внесены, улучшающие вид и управление проектом, смотрите сообщение в топике с zip файлом.

[Boris_BGB]

Это же Visual Basic for Aplication! Не в нём игры пишут...

[GSerg]

Это там, где надо кушать фишки путём перепрыгывания через любое количество фишек другого цвета? Валяется где-то, можно поискать

[Vitaly1]

GSerg - по возможности попробуй найти, еще игру сбацаем.

Boris_BGB - да, есть некоторые возможности.

Все в новой версии, в топике ниже, в файле Логические Игры

[corgi]

это все конечно хорошо но ты хоть инструкцию написал что делать то а то так без пол литры и не разберешься
зы если хочешь можешь реализовать крестики нолики или шашки, при желании можно даже AI реализовать

[Vitaly1]

Ну там же при загрузке книги окошечко появляется и в нем все рассказано, что не понятно рассказано?..

[hCORe]

При загрузке книги появляется только 2 окошечка:

(см. здесь)

(наверное, это объясняет правила игры )

[Vitaly1]

Ну вот это же сообщение появляется при загрузки книги чего в нем непонятного?

Имеется пять квадратов размером 3X3. При этом, одна сторон квадрата общая со стороной соседнего квадрата. Каждый квадрат можно врашать против часовой стрелки кликом левой клавиши мыши по символу @. Из-за этого изменяется общая сторона квадратов (порядок расцветки их). Необходимо после перемешивания цветов квадратов, их вращением, востановить правильную раскраску.
Автоматически перемешать цвета можно одним, и более нажатием на кнопку "Перемешать цвета".
Нажатие на кнопку "Вернуть цвета" вы автоматически востанавливаете правильную раскраску.

[corgi]

а в первый раз ничего не вылезло

[GSerg]

Йогу нашёл
Длина строк:
3
3
7
7
7
3
3

[Vitaly1]

теперь проект ниже записан.

[corgi]

а мне понравилось
замечания:
1. ханойские башни - кольца лучше объединять, и также интересно количество ходов
2. микрошахматы - по-мойму реализация тебя малость подвела, или объясни подробней как перемещать фигуры, а то у меня мышкой они не выделялись
3. когда читаю правила и потом нажимаю в меню вернуть игровое окно ничего не происходит, если это так и задумано то лучше убрать его на время прочтения правил
4. а можно это все объединить в один файл, и остальную функциональность не убирать (к примеру пришел шеф а мы трудимся в поте лица )типа одна маленькая надстройка

[Vitaly1]

Рад что понравилось, Corgi, ответ на замечание:

1. ханойские башни - кольца лучше объединять, и также интересно количество ходов

Не понял, что значит объединять кольца? На счет ходов, скажи сколько их должно быть, когда ходишь без ошибок, это можно как нибудь расчитать?

2. микрошахматы - по-мойму реализация тебя малость подвела, или объясни подробней как перемещать фигуры, а то у меня мышкой они не выделялись

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

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

Спасибо, не доделано, не отловил ситуацию, будем думать.

4. а можно это все объединить в один файл, и остальную функциональность не убирать (к примеру пришел шеф а мы трудимся в поте лица )типа одна маленькая надстройка

Понятно желание насчет одного файла, или в качестве надстройки, но над этим надо думать.

[corgi]

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

[Vitaly1]

1. объединять кольца я имел ввиду что каждое кольцо у тебя состоит из нескольких ячеек и эти ячейки можно объединить

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

зы а окно книги у меня всегда развернута, но после твоей проги она находится в окне не на весь экран

Впринципе можно это продумать мне в коде, а пока сделай так после игры, разверни окно на полный экран и сохрани, пока игру не запустишь будут окна полноэкранные.

[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]

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