gifts2017

Поздравлялка с 8 марта

Опубликовал V. L. (Vladal) в раздел Сообщество - Поздравления

30 открыток и генератор случайных чисел, чтобы у 10 женщин не вылазила одна и та же картинка ;)
Ну и для разнообразия кнопка "Еще!" - выдает случайную картинку из набора.
Версии платформы 8.1 и 8.2 (обычное приложение).

Обработка сделана на платформе 8.2, но в режиме совместимости 8.1.

За основу была взята  "коллекция ГБ" (http://infostart.ru/public/74947/), но что мешает прилепить генератор случайных чисел и дамам открытки? Wink

Так как генератор случайных чисел работает на разнице дат ТекущееВремя - НачалоСуток, то быстрое нажатие кнопки "Ещё!" иногда выдает ту же картинку.

Как это исправить:

Первую строку модуля формы заменить на Перем НомерКартинки;, а в процедуре УстановитьКартинкуПоНомеру() эту строку убрать.

В строке, где инициируется новая последовательность, добавить эту переменную. Должно получиться вот что:

НомерПоследовательностиГСЧ (ТекущаяДата() - НачалоДня(ТекущаяДата())) + НомерКартинки;

Чтобы поместить обработку в автозагрузку, надо в модуле приложения в процедуре ПриНачалеРаботыСистемы() дописать такую строчку:
Обработки.Поздравлялка8марта.ПолучитьФорму().Открыть();

Это если обработка встроенная, заодно проверить на доступность прав и по физлицу пользователя проверить пол м/ж.

Я сделал это, используя ПланВидовХарактеристик.НастройкиПользователей, создав новый предопределенный элемент и в модуле приложения проверял эту настройку:


Если УправлениеПользователями.ПолучитьЗначениеПоУмолчанию(глЗначениеПеременной("глТекущийПользователь"), "ЗапуститьПоздравлялку") = Истина Тогда
  Обработки.Поздравлялк8марта.ПолучитьФорму().Открыть
();
КонецЕсли;

 

P.S. За идею с картинками благодарю Sirruf (http://infostart.ru/profile/47009/)

Раз уж я взял без спроса его идею, прошу также отблагодарить и автора оригинала
http://infostart.ru/public/74947/

Обновление: добавил и для платформы 8.1

Скачать файлы

Наименование Файл Версия Размер
Обработка "Поздравлялка с 8 марта" (8.2) 198
.7z 3,31Mb
21.02.13
198
.7z 3,31Mb Скачать
Поздравлялка для платформы 8.1 56
.epf 3,45Mb
27.02.12
56
.epf 3,45Mb Скачать
Обработка "Поздравлялка с 8 марта" (8.2) - не сжатая 31
.epf 3,45Mb
21.02.13
31
.epf 3,45Mb Скачать

См. также

Внимание! У вас нет прав на просмотр топика