Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Игровой файл - 3 бочки - VBS в HTA - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, китин  
Мир MS Excel » Вопросы и решения » Готовые решения » Игровой файл - 3 бочки - VBS в HTA (VBA)
Игровой файл - 3 бочки - VBS в HTA
Rioran Дата: Понедельник, 14.09.2015, 20:41 | Сообщение № 1
Группа: Авторы
Ранг: Ветеран
Сообщений: 903
Репутация: 290 ±
Замечаний: 0% ±

Excel 2013
Всем привет и хорошего настроения!

Предлагаю Вашему вниманию новую игру - 3 бочки!

Игра основана на классической загадке. Необходимо переливать жидкость между тремя бочками (12, 8 и 5 литров) чтобы в бочке 12л оказалось 6 литров. Когда услышал загадку - решил за 15 минут во время обеда. Побъёте моё время? =)

Немного о формате игры. С удивлением открыл для себя возможность создания интерфейсов с помощью соединения VBS и HTML в формате HTA. Где HTA - это HTML Application, работает через программу "Microsoft® HTML приложение", по умолчанию должна быть на любом Windows. Данная игра сделана как проба пера в новой для меня технологии.

С нетерпением жду Ваших отзывов! =)
К сообщению приложен файл: RioGame_12-8-5_.hta (5.6 Kb)

Роман, Москва, voronov_rv@mail.ru
Яндекс-Деньги: 41001312674279
 
Ответить
СообщениеВсем привет и хорошего настроения!

Предлагаю Вашему вниманию новую игру - 3 бочки!

Игра основана на классической загадке. Необходимо переливать жидкость между тремя бочками (12, 8 и 5 литров) чтобы в бочке 12л оказалось 6 литров. Когда услышал загадку - решил за 15 минут во время обеда. Побъёте моё время? =)

Немного о формате игры. С удивлением открыл для себя возможность создания интерфейсов с помощью соединения VBS и HTML в формате HTA. Где HTA - это HTML Application, работает через программу "Microsoft® HTML приложение", по умолчанию должна быть на любом Windows. Данная игра сделана как проба пера в новой для меня технологии.

С нетерпением жду Ваших отзывов! =)
Автор - Rioran
Дата добавления - 14.09.2015 в 20:41
Udik Дата: Понедельник, 14.09.2015, 23:13 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 1588
Репутация: 192 ±
Замечаний: 0% ±

Excel 2016 х 64
Запустить получилось только из под IE (на лисе не заработало), решение не захотело находиться :D
С интерфейсом вроде все понятно.
При нажиме Restart размер окна сбрасывается, немного бесит.
Может стоить добавить кнопку отмены последнего хода, а то иногда не то нажмешь и всё...

вот вам барабан
яд 41001231307558 wm R419131876897
udik1968@gmail.com

Сообщение отредактировал Udik - Понедельник, 14.09.2015, 23:30
 
Ответить
СообщениеЗапустить получилось только из под IE (на лисе не заработало), решение не захотело находиться :D
С интерфейсом вроде все понятно.
При нажиме Restart размер окна сбрасывается, немного бесит.
Может стоить добавить кнопку отмены последнего хода, а то иногда не то нажмешь и всё...
Автор - Udik
Дата добавления - 14.09.2015 в 23:13
KSV Дата: Понедельник, 14.09.2015, 23:51 | Сообщение № 3
Группа: Друзья
Ранг: Ветеран
Сообщений: 770
Репутация: 255 ±
Замечаний: 0% ±

Excel 2013
Прикольная игрушка! :)
Только "одноразовая"...
К сообщению приложен файл: 9156320.png (40.3 Kb)

KSV.VBA@gmail.com
Яндекс.Деньги: 410011921213333
 
Ответить
СообщениеПрикольная игрушка! :)
Только "одноразовая"...
Автор - KSV
Дата добавления - 14.09.2015 в 23:51
Pelena Дата: Вторник, 15.09.2015, 08:03 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 19195
Репутация: 4423 ±
Замечаний: ±

Excel 365 & Mac Excel
Цитата Rioran, 14.09.2015 в 20:41, в сообщении № 1
Когда услышал загадку

Давным-давно, когда ещё только появился в школах предмет Информатика, в учебнике была такая задачка. Называлась Переливашка. А когда в школах появились компьютеры (это было гораздо позже информатики), я задавала школьникам реализовывать её на Бейсике :)

К сообщению приложен файл: 8244455.png (38.9 Kb)

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
Сообщение
Цитата Rioran, 14.09.2015 в 20:41, в сообщении № 1
Когда услышал загадку

Давным-давно, когда ещё только появился в школах предмет Информатика, в учебнике была такая задачка. Называлась Переливашка. А когда в школах появились компьютеры (это было гораздо позже информатики), я задавала школьникам реализовывать её на Бейсике :)

Автор - Pelena
Дата добавления - 15.09.2015 в 08:03
Rioran Дата: Вторник, 15.09.2015, 09:38 | Сообщение № 5
Группа: Авторы
Ранг: Ветеран
Сообщений: 903
Репутация: 290 ±
Замечаний: 0% ±

Excel 2013
Цитата Udik, 14.09.2015 в 23:13, в сообщении № 2
При нажиме Restart размер окна сбрасывается, немного бесит.

Udik, тут признаю свой эгоизм, не знаю как сделать удобным для всех. Если что - можно открыть файл блокнотом и поправить расширение в строке ниже:

[vba]
Код
Sub Window_onLoad
     window.resizeTo 1000,610 ' Вот это виновник изменения размера
     Jug12.InnerHTML = Render_Tank(12, 12)
     Jug8.InnerHTML = Render_Tank(8, 0)
     Jug5.InnerHTML = Render_Tank(5, 0)
End Sub
[/vba]
Цитата KSV, 14.09.2015 в 23:51, в сообщении № 3
Прикольная игрушка!

Спасибо, Сергей, очень приятно! =) Да, одноразовая, так и было задумано.

Цитата Pelena, 15.09.2015 в 08:03, в сообщении № 4
я задавала школьникам реализовывать её на Бейсике

Интересно =) И как, дотягиваю я до школьника?))

Роман, Москва, voronov_rv@mail.ru
Яндекс-Деньги: 41001312674279
 
Ответить
Сообщение
Цитата Udik, 14.09.2015 в 23:13, в сообщении № 2
При нажиме Restart размер окна сбрасывается, немного бесит.

Udik, тут признаю свой эгоизм, не знаю как сделать удобным для всех. Если что - можно открыть файл блокнотом и поправить расширение в строке ниже:

[vba]
Код
Sub Window_onLoad
     window.resizeTo 1000,610 ' Вот это виновник изменения размера
     Jug12.InnerHTML = Render_Tank(12, 12)
     Jug8.InnerHTML = Render_Tank(8, 0)
     Jug5.InnerHTML = Render_Tank(5, 0)
End Sub
[/vba]
Цитата KSV, 14.09.2015 в 23:51, в сообщении № 3
Прикольная игрушка!

Спасибо, Сергей, очень приятно! =) Да, одноразовая, так и было задумано.

Цитата Pelena, 15.09.2015 в 08:03, в сообщении № 4
я задавала школьникам реализовывать её на Бейсике

Интересно =) И как, дотягиваю я до школьника?))
Автор - Rioran
Дата добавления - 15.09.2015 в 09:38
Pelena Дата: Вторник, 15.09.2015, 09:42 | Сообщение № 6
Группа: Админы
Ранг: Местный житель
Сообщений: 19195
Репутация: 4423 ±
Замечаний: ±

Excel 365 & Mac Excel
Цитата Rioran, 15.09.2015 в 09:38, в сообщении № 5
дотягиваю я до школьника?

На комплимент напрашиваешься? :D

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
Сообщение
Цитата Rioran, 15.09.2015 в 09:38, в сообщении № 5
дотягиваю я до школьника?

На комплимент напрашиваешься? :D
Автор - Pelena
Дата добавления - 15.09.2015 в 09:42
Rioran Дата: Вторник, 15.09.2015, 09:43 | Сообщение № 7
Группа: Авторы
Ранг: Ветеран
Сообщений: 903
Репутация: 290 ±
Замечаний: 0% ±

Excel 2013
Pelena, уклонюсь от ответа и скажу, что мне интересно взглянуть на реализации "конкурентов" =)

Роман, Москва, voronov_rv@mail.ru
Яндекс-Деньги: 41001312674279
 
Ответить
СообщениеPelena, уклонюсь от ответа и скажу, что мне интересно взглянуть на реализации "конкурентов" =)
Автор - Rioran
Дата добавления - 15.09.2015 в 09:43
Pelena Дата: Вторник, 15.09.2015, 09:49 | Сообщение № 8
Группа: Админы
Ранг: Местный житель
Сообщений: 19195
Репутация: 4423 ±
Замечаний: ±

Excel 365 & Mac Excel
Это было о-очень давно, в "дооконную" эпоху, всё управлялось с клавиатуры... Тексты программ вряд ли сохранились. Да и интерпретатор QBasic, наверное, уже днём с огнём не сыщешь.

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеЭто было о-очень давно, в "дооконную" эпоху, всё управлялось с клавиатуры... Тексты программ вряд ли сохранились. Да и интерпретатор QBasic, наверное, уже днём с огнём не сыщешь.
Автор - Pelena
Дата добавления - 15.09.2015 в 09:49
nerv Дата: Вторник, 15.09.2015, 11:40 | Сообщение № 9
Группа: Редакторы
Ранг: Обитатель
Сообщений: 431
Репутация: 193 ±
Замечаний: 0% ±

Цитата Rioran, 14.09.2015 в 20:41, в сообщении № 1
С удивлением открыл

как открыл, так и закрыл :) Насколько мне известно данный формат устарел.

Чебурашка стал символом олимпийских игр. А чего достиг ты?
Тишина - самый громкий звук

YM 41001156540584 / WM WMR R21924176233

https://github.com/nervgh/vba
 
Ответить
Сообщение
Цитата Rioran, 14.09.2015 в 20:41, в сообщении № 1
С удивлением открыл

как открыл, так и закрыл :) Насколько мне известно данный формат устарел.
Автор - nerv
Дата добавления - 15.09.2015 в 11:40
Rioran Дата: Вторник, 15.09.2015, 11:56 | Сообщение № 10
Группа: Авторы
Ранг: Ветеран
Сообщений: 903
Репутация: 290 ±
Замечаний: 0% ±

Excel 2013
Цитата nerv, 15.09.2015 в 11:40, в сообщении № 9
данный формат устарел

nerv, а какой формат на твой взгляд нынче в чести для оборачивания VBS в графическую оболочку?

Роман, Москва, voronov_rv@mail.ru
Яндекс-Деньги: 41001312674279
 
Ответить
Сообщение
Цитата nerv, 15.09.2015 в 11:40, в сообщении № 9
данный формат устарел

nerv, а какой формат на твой взгляд нынче в чести для оборачивания VBS в графическую оболочку?
Автор - Rioran
Дата добавления - 15.09.2015 в 11:56
MCH Дата: Четверг, 17.09.2015, 14:32 | Сообщение № 11
Группа: Админы
Ранг: Старожил
Сообщений: 2003
Репутация: 751 ±
Замечаний: ±

Цитата Rioran, 14.09.2015 в 20:41, в сообщении № 1
Побъёте моё время? =)

Легко, решение находится менее чем за секунду (см. вложение).
Решал подобную задачу с водой и ведрами программным способом, решение, если оно есть, находится очень быстро.
К сообщению приложен файл: 9911936.xlsm (17.9 Kb)
 
Ответить
Сообщение
Цитата Rioran, 14.09.2015 в 20:41, в сообщении № 1
Побъёте моё время? =)

Легко, решение находится менее чем за секунду (см. вложение).
Решал подобную задачу с водой и ведрами программным способом, решение, если оно есть, находится очень быстро.
Автор - MCH
Дата добавления - 17.09.2015 в 14:32
Rioran Дата: Пятница, 18.09.2015, 10:50 | Сообщение № 12
Группа: Авторы
Ранг: Ветеран
Сообщений: 903
Репутация: 290 ±
Замечаний: 0% ±

Excel 2013
MCH, привет.

Выглядит круто. Можешь рассказать про алгоритм, который лежит в основе твоей решалки?

Роман, Москва, voronov_rv@mail.ru
Яндекс-Деньги: 41001312674279
 
Ответить
СообщениеMCH, привет.

Выглядит круто. Можешь рассказать про алгоритм, который лежит в основе твоей решалки?
Автор - Rioran
Дата добавления - 18.09.2015 в 10:50
Мир MS Excel » Вопросы и решения » Готовые решения » Игровой файл - 3 бочки - VBS в HTA (VBA)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!