У меня есть четыре вида географических приложений:
• Гео-Клик — это когда на физической карте сперва выбирается локация, где находится искомый объект, а потом на открывшейся мини-карте из 4х квадрантов уточняется его местоположение. https://dzen.ru/video/watch/67cc832668f39b0d93bea240
• Гео-Тык - это когда на политической или административной карте нужно нажать тайл, на котором есть фрагмент заданного региона (штата, области, провинции...) и затем игроку предложено из всех объектов, фрагменты которых имеются на выбранном тайле, определить нужный по цвету. Ведь все регионы раскрашены в разные цвета. https://dzen.ru/video/watch/67d2ecdad645511dd22251e6
• Гео-Пазл - это проще всего - надо просто собрать из тайлов карту в первозданном виде
• Гео-Замечательности - это практически путешествие по достопримечательностям страны, а затем игра, где нужно из дюжины "случайных" элементов найти 4, относящихся к одному региону и назвать этот регион.
Сегодня я хочу показать как за считанные часы (можно уложиться и в два-три), сделать викторину Гео-Тык на примере провинций Франции.
Я давно хотела разобраться где находится Шампань, Прованс, Гасконь, Гюйень, Анжу, Пикардия... (теперь в сети вместо Гюйени только Гиень - хочется зайтись мерзким смешком гиены). Для этого я нашла карту провинций Франции. Оказалось она устаревшая, но в литературе по-прежнему встречаются упразднённые названия, поэтому начну с этой устаревшей карты 2ой половины XX века
Итак, у нас получилось 42 тайла для будущей викторины. Идем в файл Excel
Пишем макрос "Пазл", который определяет имя нажатого тайла, выделяет его, вырезает и вставляет в активную ячейку.
- Sub Пазл()
- '
- tek = ActiveSheet.Shapes(Application.Caller).Name
- ActiveSheet.Shapes(tek).Select
- Selection.Cut
- ActiveSheet.Paste
- End Sub
Теперь вставляем с помощью команды меню — Вставка--->Рисунок--->Из файла... — все наши тайлы. Выделяем их все с помощью команды — Ctrl-G ----> Выделить...--->Объекты —; Задаём им одинаковый размер через "Формат рисунка". У меня это для квадратной ячейки екселя в 116пиксел получается квадратик в 3,07см. И задаю им наш макрос "Пазл".
Быстренько кликаю, расставляя части карты по местам. Когда карта собрана, нам надо присвоить тайлам окончательные уникальные имена
пишем макрос "Имена" и создаём две именованные ячейки - "нама" и "намба". В "намба" для начала ставим 1; В "нама" пишем формулу ="дет"&ТЕКСТ(намба;"00")
- Sub Имена()
- tek = ActiveSheet.Shapes(Application.Caller).Name
- nama = Range("нама").Value
- Range("намба").Value = Range("намба").Value + 1
- ActiveSheet.Shapes(tek).Select
- Selection.Name = nama
- Selection.OnAction = "Клик"
- Range("A1").Select
- Calculate
- End Sub
Теперь при нажатии на любой тайл (а я прожимаю их по порядку - змейкой первый ряд слева-направо, следующий справа-налево и так весь массив). Ни один из них не пронумеруется по ошибке дважды, потому что при завершении макрос присваивает тайлу уже другой макрос - Клик. Это уже окончательный игровой макрос.
Заготовка у нас уже есть. Более того, мы можем опять выделить все тайлы ctrl-G, назначить им макрос "Пазл" и щелкать разбирая и вновь собирая карту.
Игру я начну стряпать в следующем выпуске.