Имитация бурной деятельности (шутка)

02.12.10

Разработка - Работа с интерфейсом

Как изобразить бурную деятельность программы для нежелательного контролера

Недавно обратились ко мне с просьбой проимитировать работу отчета для нежелательного контролера так, чтобы он не дождался окончания формирования отчета.

Результат (с учетом критики в комментариях) получился такой:

Процедура Тормозилка() Экспорт
    // имитирует бурную деятельность программы
    Перем ч,м,с,чн,мн,сн,чт,мт,ст;
    нв = 19;
    тв = ТекущееВремя(чн,мн,сн);
    п = "Х";
    Для сч=2 по 60 Цикл
        п = п+"-";
    КонецЦикла;
    Пока Число(тв)<19 Цикл
        Если тв<>ТекущееВремя() Тогда
            тв = ТекущееВремя(чт,мт,ст);
            Если мн<>мт Тогда сн=0 КонецЕсли;
            Если чн<>чт Тогда мн=0 КонецЕсли;
            Если  ч<>чт Тогда  ч=чт КонецЕсли;
            Если  м<>мт Тогда  м=мт; мс=м+(ч*60+м*60+с)%7/7 КонецЕсли;
            Если  с<>ст Тогда  с=ст; сс=с+(ч*60+м*60+с)%7/7 КонецЕсли;;
            тс    = "Выполнено: "
                + Формат(Макс(0,(ч-чн)/(нв-чн))*100,"Ч5.2") + "%; "
                + Формат(((мс-мн)/(60-мн))*100,"Ч5.2") +  "%; "
                + Формат(((сс-сн)/(60-сн))*100,"Ч5.2") +  "%";
            п = Прав(п,1)+Лев(п,59);
            Состояние(тс);
            Предупреждение("Обрабатываются данные...
            |" + тв + "
            |" + тс + "
            |" + п,1);
        КонецЕсли;
    КонецЦикла;
    Предупреждение("Системная ошибка!!!
    |Переполнение памяти",10);
    ЗавершитьРаботуСистемы();
КонецПроцедуры

Нежелательный зритель, не больно-то секущий, что же ему сообщает Предупреждение() подождал-подождал, да и ушел восвояси...

См. также

1С:Фото номенклатуры 7.7 - решение для работы с фотографиями номенклатуры в 1С:7.7 (включая формат PNG)

Работа с интерфейсом Логистика, склад и ТМЦ Платформа 1С v7.7 1С:Торговля и склад 7.7 Оптовая торговля, дистрибуция, логистика Управленческий учет Платные (руб)

Решение для разработчика и конечного пользователя для работы с фотографиями номенклатуры: систематизация, хранение, отображение, а также выгрузка на Яндекс-Диск и FTP (кроме версии лайт). Поддерживаются графические форматы: bmp, jpg, gif, tiff, а также png - не поддерживаемый штатными средствами 1С. Выполнено без использования внешних компонент (кроме функции выгрузки на FTP). Поставляется как в виде пустой конфигурации с набором объектов и модулей для работы с фото, так и в виде обновления к 1С:Торговля и склад 7.7. Выполнено в двух версиях: "полная" и "лайт".

5000 руб.

18.10.2022    5160    1    45    

3

WebЦвета для 1с77 FormEx

Инструментарий разработчика Работа с интерфейсом Платформа 1С v7.7 Абонемент ($m)

Обработка с фрагментами кода для программного использования набора цветов из коллекции WebЦвета 1с версии 8+ в 1с версии 77. Требуется предварительное подключение сторонней библиотеки FormEх. Будет полезно программистам 1с 77, 1с 8. Да и вообще при программировании на любом языке при потребности использовать коллекцию цветов WebЦвета.

1 стартмани

30.03.2022    4543    2    igor7777    4    

5

К привязкам элементов форм (1С 7.7, FormEx)

Работа с интерфейсом Платформа 1С v7.7 Конфигурации 1cv7 Бесплатно (free)

Публикация имеет цель обратить внимание на возможность улучшения интерфейса.

15.12.2021    4466    62    Cерый    13    

6

Выбор цвета для 1С 7.7

Работа с интерфейсом Платформа 1С v7.7 Конфигурации 1cv7 Абонемент ($m)

Простая и удобная внешняя обработка для выбора цвета без применения внешних компонент.

1 стартмани

09.06.2020    7025    3    vap_pig    5    

3

Производственный календарь для 1С 7.7

Учет рабочего времени Работа с интерфейсом Платформа 1С v7.7 Конфигурации 1cv7 Россия Абонемент ($m)

Обработка производственного календаря с возможностью импорта и экспорта xls для 1С 7.7 (7.70.027) без изменения конфигурации.

1 стартмани

18.09.2019    12580    6    Jill    8    

3

Альтернативная обработка "Выбор периода"

Работа с интерфейсом Оперативный учет 7.7 1С:Торговля и склад 7.7 Абонемент ($m)

Альтернативная обработка ввода периода для 1С 7.7.

1 стартмани

27.03.2019    6588    3    v.a.n-    11    

2

Несколько табличных частей в 1С:7.7 - это просто

Работа с интерфейсом Платформа 1С v7.7 Конфигурации 1cv7 Абонемент ($m)

При программировании на платформе V7 достаточно часто возникает задача создать несколько табличных частей документа (или справочника). Традиционно эта задача имеет несколько решений..

1 стартмани

01.05.2018    22421    27    Gkmy    11    

5
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. support 4484 01.12.10 09:27 Сейчас в теме
для нежелательного контролера так, чтобы он не дождался окончания формирования отчета.

пять баллов!
2. Nicholas 887 01.12.10 10:09 Сейчас в теме
3. N!GhT 01.12.10 16:30 Сейчас в теме
Эх, еще бы обработку, создающую голограмму усиленно работающего меня - и на работу можно только за ЗП приходить ))
4. Black Cat 32 01.12.10 17:27 Сейчас в теме
Эх. Еще б кнопку для бухгалтера "Все будет хорошо", по нажатию которой будет вводится приход, расход и т.д. Пришел на работу, нажал эту кнопку и все: можно наливать чай обсуждать прически, читать газету, спать...
5. SatanClaws 143 01.12.10 19:43 Сейчас в теме
1) Постоянно выскакивающее предупреждение сразу намекает на то, что что-то здесь не так. А выскакивают они., если я правильно понял, каждую секунду.
2) Вместо Предупреждение + завершить работу системы можно использовать какой-нить стандартный 1Совский баг. Например, выгрузить СЗ в самого себя же. Или сериализовать СЗ, в котором есть ссылка на самого себя же.
nekit_rdx; support; +2 Ответить
6. Abadonna 3958 02.12.10 13:51 Сейчас в теме
тв = ТекущееВремя();
Если мн<>Число(Сред(тв,4)) Тогда сн = 0 КонецЕсли;
Если чн<>Число(тв) Тогда мн = 0 КонецЕсли;
Если ч<>Число(тв) Тогда ч = Число(тв) КонецЕсли;

Если помнить функцию только с этой стороны, тогда как вверху.
А вообще-то у неё есть и другая сторона:
Синтаксис:
ТекущееВремя(<Час>,<Мин>,<Сек>)
Назначение:
Параметры:
<Час> - имя переменной для получения числа часов текущего времени (необязателен),
<Мин> - имя переменной для получения числа минут текущего времени (необязателен),
<Сек> - имя переменной для получения числа секунд текущего времени (необязателен)

И тогда не надо никаких Сред(...) и Число(...)
;)))
7. waol 313 03.12.10 12:00 Сейчас в теме
(6) имитация бурной деятельности тоже должна быть грамотной :D
8. Franchiser 47 30.03.11 15:31 Сейчас в теме
Посмеялся, для лохов сойдет)
9. vladimir1980 22.09.11 20:13 Сейчас в теме
прикольно. не думал действительно, что такое кому то требуется
10. ekors 10 12.02.12 20:53 Сейчас в теме
Класс!
Особенно когда проводят замеры рабочего времени :)
11. AlexO 135 12.02.12 21:53 Сейчас в теме
(0) не знаю, что у вас проверят контроллеры, но вообще, аудит запрашивает и базу и ваши же отчеты.
И выявляет достоверность бумажной и БД-шной инфо.
И если какой-то отчет выполняется "ждите...ждите..ждите", то возникает резонный впорос - "а покажите-ка, как вы сами сформировали вот этот предоставленный отчет?".
Так что кого тут обманывают - непонятно :))
Оставьте свое сообщение