Игральная кость. Обработка для 1С


Простая обработка с использованием ГенераторСлучайныхЧисел() и элементов формы. Не требует внешних картинок. Подходит для платформы от 1С:Предприятие 8.2 (8.2.13.205) и выше.

Всё просто. Отнеситесь к этому как к развлечению. Иногда хочется и в серьезном деле поставить смайлик)

Добавлена вторая версия обработки. С оптимизацией кода 2012_03_04

 

27 Comments

  1. olegtymko

    чисто для фана?))) еще бы шутер на 1с-8.2 написали, было бы забавно)

    Reply ↓
  2. haland

    (5) favorit432, (5), (6), (7) согласен) а за плюс большое спасибо!

    Reply ↓
  3. рибак

    какое-то разнообразие, хорошо бы сделать несколько по вкусу,как в винде)

    Reply ↓
  4. s3nsay

    спасиби, прикольная штука)

    Reply ↓
  5. serko8547

    Привет, а можно я доработаю игрушку? сделаю второго игрока — компьютер, сделаю счет, возможность ставки, возможно цвет дорисую…

    а по поводу различных троллей, пишущих про шутер, уведомляю — на семерке дум таки написали, ходят о том упорные слухи.

    И еще: Критиковать — может — даже только что родившийся младенец, троллить — любой, не, не так, а вот так: ЛЮБОЙ кто может дотянуться до клавиатуры. А ты попробуй — напиши Фичу, придумай новую идею! напиши хотя бы пару страниц ИНТЕРЕСНОГО текста! что слабо? то-то же! А напишешь — понабежит троллей и критиков — так руки опустятся! НИЧЕГО творить не захочется!

    Автору: Респект и УВАЖУХА! за новую идею!

    Reply ↓
  6. haland

    (11) serko8547, Спасибо за отзыв. Конечно можно дорабатывать. Буду только рад)

    Reply ↓
  7. MaxDavid

    (11)

    По поводу дума — не об этом речь?

    Reply ↓
  8. serko8547

    MaxDavid — Да.

    Reply ↓
  9. echo77

    (0) Не пойму, кость выглядит как в анонсе или как на скриншотах?

    (11)на семерке дум таки написали или об этом ходят упорные слухи?

    Знаю точно что есть игра лабиринт на 1С (7.7, 8) есть и они на инфостарте

    Reply ↓
  10. haland

    (15) echo77, Кость выглядит как на скриншотах. Целью данной обработки было показать возможность писать что то кроме БД только языком 1С, без подключения внешних компонент и флеш анимации.

    Reply ↓
  11. serko8547

    кость выглядит как на скриншотах. Лабиринт — ссылка в этом посте есть. сообщение № 13

    Reply ↓
  12. Tatitutu

    Я всегда за игрущки и их приветствую

    И всегда их смотрю и проверяю.

    В данном случаю ваша обработка не работает

    (сразу видно кто комментировал ее даже не скачивал, а если скачал то увы на запускал)

    Скажите номер релиза ? 1С:Предприятие 8.2 (8.2.14.537)

    Почему же не работает ?

    Потому что в процедуре ПриОткрытии()

    лишние «шевеления»

    ЭлементыФормы.Переключатель1.Доступность = Ложь;

    ЭлементыФормы.Переключатель2.Доступность = Ложь;

    ЭлементыФормы.Переключатель3.Доступность = Ложь;

    ЭлементыФормы.Переключатель4.Доступность = Ложь;

    ЭлементыФормы.Переключатель5.Доступность = Ложь;

    ЭлементыФормы.Переключатель6.Доступность = Ложь;

    ЭлементыФормы.Переключатель7.Доступность = Ложь;

    а .доступность = Истина

    не где не возвращаешь

    а реквизит Переключатель при Доступность = Ложь

    не виден на форме

    2.

    код ваш

    ЭлементыФормы.Переключатель1.Видимость = Ложь;

    ЭлементыФормы.Переключатель2.Видимость = Ложь;

    ЭлементыФормы.Переключатель3.Видимость = Ложь;

    ЭлементыФормы.Переключатель4.Видимость = Ложь;

    ЭлементыФормы.Переключатель5.Видимость = Ложь;

    ЭлементыФормы.Переключатель6.Видимость = Ложь;

    ЭлементыФормы.Переключатель7.Видимость = Ложь;

    можно заменить на

    Для Сч=1 По 7 Цикл

    ЭлементыФормы[«Переключатель»+Сч].Видимость= ложь;

    КонецЦикла;

    3.»Некрасиво» при открытии видеть пустую форму, почему сразу не бросить кубик ?

    Приложил исправленный файл

    По поводу лабиринтов

    Игра: Лабиринт для 1С (теперь и для 8.0-8.2)

    Игра: Лабиринт для 1С 7.7

    Reply ↓
  13. Tatitutu

    сделай трехмерный вариант

    я сделал кубик рубик

    Reply ↓
  14. popovalex

    Если бы кость 3D была бы, интереснее стало

    Reply ↓
  15. roa4ik

    если бы еще немного над дизайном поработать…

    Reply ↓
  16. krund

    отличный вариант скоротать время.

    Reply ↓
  17. krund

    (21) popovalex, Это точно. Жаль автор сам не додумался. Тогда делай сам и прикалывайся

    Reply ↓
  18. protlt

    Неплохо. Можно еще каких нибудь игрушек понаделать. Только вот обычно бухам вовсе не до них. Так что это все лишь пустая трата времени.)))))

    Reply ↓
  19. serpisal

    Пасьянс прикрутить к 1су, открыл программу (бух, зуп, ут и т.д.) и играй себе, в крупных компаниях могут отключать стандартные игры, или вести лог открываемых программ.

    Reply ↓
  20. FatHer1C

    А моя демо-разработка http://infostart.ru/public/116204/ не нравится? Написана полностью на чистом 1С, но силами 1С реализовано только 10 кадров в секунду.

    Reply ↓
  21. haland

    (27) FatHer1C, Возможно я чего то не понимаю, или обработка «Doodler» скомпилирована. Код совсем не прозрачен, это точно на чистом 1С?

    Reply ↓
  22. Zas1402
    спасиби, прикольная штука)

    Та да прикольно

    Reply ↓
  23. FatHer1C

    (28) я убрал код из поставки, а картинки в макетах в виде двоичных данных. Игровой цикл организуется так «ПодключитьОбработчикОжидания(«БезПараметров», 0.1, Истина)»(0.1 минимальное значение параметра для этой функции)именно по этому на чистом 1С не получается обойти ограничение в 10 кадров(в 7.7 можно было с помощью _GetPerformanceCount(), но кроме обработки больше ни к чему не было доступа во время игры!)

    Reply ↓
  24. haland

    (24) krund, 3D без рисунков делать не получиться, а это уже совсем другая область. Кстати, подтверждаю свободное использование данной обработки в любом виде.

    Reply ↓
  25. haland

    Для тех кого интересовал дизайн и 3D переделал данную обработку, прошу сюда: http://infostart.ru/public/120952/

    Reply ↓
  26. haland

    (21) popovalex, вариант с 3D здесь http://infostart.ru/public/120952/

    Reply ↓
  27. haland

    (22) roa4ik, Поработал над дизайном http://infostart.ru/public/120952/

    Reply ↓

Leave a Comment

Ваш адрес email не будет опубликован. Обязательные поля помечены *