Шкала в строке состояния

Простая шкала, не требующая дополнительных форм и элементов управления

Шкала прогресса нужна там, где есть массовая обработка данных. Ранее всегда просто выводил в строку статуса номер текущего объекта и количество объектов для обработки. Немного подумав, придумал вот это, просто вставьте процедуру в общий модуль и вызывайте оттуда (код простой, думаю, что разжевывать его не нужно):

Процедура ШкалаВСтрокеСостояния(ТекЗапись, Записей, ПоказыватьПроцент = Истина, ПоказыватьПозицию = Истина, СвойТекстВКонце = "") Экспорт
Текст = СокрЛП(СвойТекстВКонце);
Если НЕ Текст = "" Тогда Текст = " " + Текст; КонецЕсли;
Точки = "....................................................................................................";
Черточки = "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!";
Процент = ТекЗапись/Записей * 100;
Если ПоказыватьПроцент = Истина Тогда
ПроцентТекст = Формат(Процент, "ЧДЦ=1; ЧН=0,0");
Иначе
ПроцентТекст = "";
КонецЕсли;
Если ПоказыватьПозицию = Истина Тогда
Позиция = Формат(ТекЗапись, "ЧН=0; ЧГ=") + "/" + Формат(Записей, "ЧН=0; ЧГ=");
Иначе
Позиция = "";
КонецЕсли;
Шкала = Лев(Лев(Черточки, Цел(Процент)) + Точки, 100);
Если ПоказыватьПозицию И ПоказыватьПроцент Тогда
Состояние(Шкала + " (" + ПроцентТекст + "% - " + Позиция + ")" + Текст);
ИначеЕсли ПоказыватьПозицию Тогда
Состояние(Шкала + " (" + Позиция + ")" + Текст);
ИначеЕсли ПоказыватьПроцент Тогда
Состояние(Шкала + " (" + ПроцентТекст + "%)" + Текст);
Иначе
Состояние(Шкала + Текст);
КонецЕсли;
КонецПроцедуры

25 Comments

cargobird 31.08.2015 at 21:01

(0), еще бы пакетный вывод сюда (по 50, по 500 и т.д.). При большом количестве значений постоянный вывод информации в строку состояния замедляет работу, а так бы в самой процедуре решать, выводить на данном значении строку состояния или нет.

Reply ↓
Diversus 31.08.2015 at 22:50

Давно, давно делал обработку пример микрографики в динамическом списке

Советую использовать не восклицательный знак, а как в обработке красивые спецсимволы.

Reply ↓
Ivon 31.08.2015 at 22:51

(1) cargobird, Вообще это можно сделать и вне процедуры, а на процедуру подавать значения, кратные нужным. Хотя код несложный, можно самому доделать.

Reply ↓
Ivon 31.08.2015 at 22:53

(2) Diversus, Сама идея пришла спонтанно, изначально не было цели писать что-то в этом роде. Символы подбирал так, чтобы они в итоге сложились в прогресс-бар.

Reply ↓
Alex_E 31.08.2015 at 23:17

Главное — это для обычного приложения, для управляемого символов придумывать не надо 🙂

Reply ↓
rare-avis 01.09.2015 at 02:15

Клёво! Очень интересно наблюдать за появлением простых вещей — понимаешь, что она элементарная, и удивляешься — почему раньше до этого ни кто не додумался, в том числе и я. А потом начинается «copy-past»… На счет замедления правильно (и как было сказано, решается кратностью), но идея интересная.

Reply ↓
Igorro82IT 01.09.2015 at 07:32

Все гениальное- ПРОСТО!

Ничего сверхъестественного, но позитивно и информативно. Спасибо за идею, статью и код!

Обязательно буду использовать в личных наработках.

Reply ↓

cargobird 01.09.2015 at 10:22

(1), Кого пакетный вывод интересует…

Процедура СчетчикВСостояние(Нумератор, Делитель = 500, Всего = 0) Экспорт
// предназначена для вызова из любого цикла
// выводит в строку состояния значение Нумератора, если Нумератор нацело делится на Делитель
// когда задан параметр Всего дополнительно выводится текущий процент выполнения от Всего
// обязательно! перед циклом задать значение нумератора равное 0 (Нумератор = 0;)
// Вариант вызова 1: СчетчикВСостояние(Нумератор); — вывод в строке состояния числа с шагом 500
// Вариант вызова 2: СчетчикВСостояние(Нумератор, 200); — вывод в строке состояния числа с шагом 200
// Вариант вызова 3: СчетчикВСостояние(Нумератор, 300, ТЗ.Количество()); — вывод в строке состояния числа с шагом 300 и процента от количества строк ТЗ
#Если Клиент Тогда
Если Делитель < 0 Тогда
Возврат;
КонецЕсли;
Нумератор = Нумератор + 1;
Если Цел(Нумератор / Делитель) = Нумератор / Делитель Тогда
Состояние(Строка(Нумератор) + ?(Всего = 0, «», » (» + Формат((Нумератор / Всего) * 100, «ЧДЦ=2») + «%)»));
КонецЕсли;
#КонецЕсли
КонецПроцедуры

Показать

Reply ↓

Ivon 01.09.2015 at 14:53

(8) cargobird,

я бы заменил

Цел(Нумератор / Делитель) = Нумератор / Делитель

на

Нумератор % Делитель = 0

И быстрее и правильнее.

Reply ↓

cargobird 01.09.2015 at 15:26

(9) век живи, век учись, не видел такой конструкции, спасибо)

Reply ↓
nSpirit2 01.09.2015 at 17:22

Я так понимаю это для обычного приложения ?

Reply ↓
lrs 01.09.2015 at 17:40

Вот ссылка на публикацию, на более изящное решение:

http://infostart.ru/public/59581/

Reply ↓
3.14159 01.09.2015 at 18:06

когда-то давным-давно, еще на 1С7.7 глобальную функцию делал… только вместо точек и восклицаний использовал ||||——————

Reply ↓
Ivon 01.09.2015 at 18:38

(11) nSpirit2, Только для обычного.

Reply ↓
Ivon 01.09.2015 at 18:41

(12) lrs, Ваше решение выводит только индикатор и процент. В моем варианте можно выводить так же и другую информацию.

Reply ↓
hillsnake 02.09.2015 at 11:10

(14) а кто подскажет, что с управляемым?

стандартную если честно даже включать не хочется … сразу тормоза..

Reply ↓
Tilirxs 03.09.2015 at 00:26

Супер, Спасибо помогло

Reply ↓
denis_aka_wolf 03.09.2015 at 05:46

(6) rare-avis, уже не один раз писалось и в различных обработках встречается

Reply ↓
Ivon 03.09.2015 at 10:28

(16) ЛеваРоскошный, Это только для толстого клиента. Для управляемых форм нужно придумывать что-то другое.

Reply ↓
Alex_E 03.09.2015 at 10:46

(19)

Для управляемых форм нужно придумывать что-то другое.

— там синтаксис помощник уже все придумал:

Глобальный контекст (Global context)

Состояние (Status)

Синтаксис:

Состояние(<ТекстСообщения>, <Прогресс>, <Пояснение>, <Картинка>)

— передаем в параметр <Прогресс> кратное 100 значение — получаем градусник в окне состояния…

Reply ↓
Yashazz 03.09.2015 at 11:59

(6), (7), вообще это лютый баян. Мы так ещё в ячейках таблиц значений на 7.7 делали имитацию прогресс-баров, вот как (13) пишет. Посему мне не вполне понятны восторги.

Reply ↓
nSpirit2 03.09.2015 at 13:57

(21) Yashazz, А какже крутая анимация из Доса с меняющимися символами «-» » /» » |» » » » -» вот это сила прогресбара

Reply ↓
bsturtle 03.09.2015 at 15:57

красавчик

Reply ↓
Rustig 06.09.2015 at 19:10

(21)

Посему мне не вполне понятны восторги

вполне понятны, если принимать людей такими какие они есть. пришло время, когда новое поколение не знает семерку… я начинал программировать в 2008 году и сразу на 8.1, так что я тоже отношу себя к новому поколению…

Reply ↓
Ivon 10.03.2016 at 14:52

(22) nSpirit2,

Добавлю в код.

Reply ↓

Шкала в строке состояния

Related Posts

25 Comments

Leave a Comment Отменить ответ