Цвет индикатора в зависимости от значения

29.08.17

Функция, которая выдает значение цвета, в зависимости от передаваемого значения и максимально возможного значения.

Скачать файл

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование		По подписке [?]	Купить один файл
Цвет индикатора в зависимости от значения: .epf 7,39Kb ver:1 6	6	Скачать (1 SM)	Купить за 1 850 руб.

Очень часто, для лучшего восприятия, необходимо окрасить индикатор в зависимости от значения.
Данная обработка является оберткой для демонстрации работы функции ПолучитьОттенок.
Фактически нужен градиент от красного(255,0,0) до зеленого(0,255,0) или от 0 до 120 H в HSV шкале.

Функция ПолучитьОттенок на входе получает текущее Значение и Максимальное значение, а на выход выдает цвет.

Функция ПолучитьОттенок(ТекущееЗначение,Максимум) экспорт // зеленый -максимальный, красный - минимальный
	
//Определяем часть
часть=ТекущееЗначение/максимум;
шаг=510/максимум; //сквозной шаг

//зеленый (0,255,0)
//желтый  (255,255,0)
//красный(255,0,0)
// фактически это движение в HSV, где меняется только Hue в пределах от 0 до 120
компонентR=0;
компонентG=0;
//определяем к какой половине спектра отностится наше число
Если часть > 0.5 тогда
	компонентR=цел(255-((ТекущееЗначение-0.5*максимум)*шаг));
	компонентG=255;
	
Иначе	
	компонентR=255;
	компонентG=цел(ТекущееЗначение*шаг);
		
КонецЕсли;	
	
возврат Новый Цвет(компонентR,компонентG,0);
	
КонецФункции

Индикатор цвет

+18 –

См. также

Инфоборды

Работа с интерфейсом Анализ учета Мониторинг Платформа 1С v8.3 8.3.14 1C:Бухгалтерия 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 Платные (руб)

Создайте свой функциональный интерфейс в любой конфигурации 1С с помощью подсистемы "Инфоборды". Настраивайте панели виджетов с метриками, индикаторами и показателями на начальном экране. Подсистема реализована в форме расширения 1С.

27.03.2025 1242 3 developer118 7

[Расширения] Динамическое управление видимостью и доступностью элементов форм (УФ) (8.3.6+)

Работа с интерфейсом Системный администратор Программист Платформа 1С v8.3 Управляемые формы 1C:Бухгалтерия Платные (руб)

Механизм «Динамическое управление доступом к элементам форм объектов 1С8» предназначен для обеспечения возможности оперативного управления видимостью и доступностью элементов форм документов и справочников продуктов фирмы «1С» «1С:Предприятие 8». Решение универсальное, встраивается в любую конфигурацию с минимальными доработками, что позволяет без проблем обновлять типовые решения.

6000 руб.

14.01.2016 56575 19 25

Универсальный редактор картинок 1С, хранимых в базе, с возможностью рисования

Работа с интерфейсом Рабочее место Платформа 1С v8.3 Управляемые формы 1C:Бухгалтерия Платные (руб)

Универсальный редактор картинок 1С предназначен для обработки изображений в режиме «Предприятие», с возможностью рисовать на них. Поддерживается работа как в обычных формах (толстый клиент) так и на управляемых формах (тонкий клиент). Обработка позволяет редактировать как картинки, хранимые в базе, так и графические файлы с диска на файловой системе. Помимо базовых функций (изменение размеров, преобразование формата, обрезание картинки, повороты и т.п.) – редактор имеет богатый набор инструментов для рисования. Доступна функция вставки изображения из буфера обмена. Объект может быть использован: на стороне клиента, на стороне сервера, из внешнего соединения. Обработка будет особенно полезна тем, кто вносит картинки в базу (изображения номенклатуры, фотографии физических лиц и т.п.). Функционал реализуется с использованием JavaScript и бесплатного ПО ImageMagick (без использования внешних компонент).

6000 руб.

16.01.2015 64737 45 60

Управление дашбордами

Работа с интерфейсом Программист Платформа 1С v8.3 1C:Бухгалтерия 1С:ERP Управление предприятием 2 Платные (руб)

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

2400 руб.

29.06.2020 20572 30 6

Загрузка табличного документа в таблицу значений. Пять строк кода, которые изменили мир

Универсальные функции Программист Платформа 1С v8.3 1C:Бухгалтерия Бесплатно (free)

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

21.05.2024 32578 dimanich70 83

154

Валидация JSON через XDTO (включая массивы)

WEB-интеграция Универсальные функции Механизмы платформы 1С Программист Платформа 1С v8.3 1C:Бухгалтерия Бесплатно (free)

При работе с интеграциями рано или поздно придется столкнуться с получением JSON файлов. И, конечно же, жизнь заставит проверять файлы перед тем, как записывать данные в БД.

28.08.2023 18605 YA_418728146 8

173

Печать непроведенных документов для УТ, КА, ERP. Настройка печати по пользователям, документам и печатным формам

Пакетная печать Печатные формы Адаптация типовых решений Универсальные функции Платформа 1С v8.3 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Россия Абонемент ($m)

Расширение для программ 1С:Управление торговлей, 1С:Комплексная автоматизация, 1С:ERP, которое позволяет распечатывать печатные формы для непроведенных документов. Можно настроить, каким пользователям, какие конкретные формы документов разрешено печатать без проведения документа.

2 стартмани

22.08.2023 5010 80 progmaster 11

Модель состояния для MVC

Работа с интерфейсом Программист Платформа 1С v8.3 1C:Бухгалтерия Абонемент ($m)

"MVC плохо применима в 1С" - познакомьтесь с моделью состояния и, возможно, ваше мнение поменяется! Представленное решение является эволюционным развитием идеи реализации MVC для 1С. В новой версии добавлены DSL для описания модели состояния, а также параметризация свойств параметров и элементов формы.

1 стартмани

05.07.2022 9860 kalyaka 6

Комментарии

Подписаться на ответы Инфостарт бот

Свернуть все

1. webester 26 30.08.17 05:05 Сейчас в теме

Еще надо параметр "Инвертировать" в функцию, что бы она выдавала красный ближе к концу :)

2. kc-ropa 42 30.08.17 08:58 Сейчас в теме

Функция ПолучитьОттенок(ТекущееЗначение,Максимум,инвертировать=ложь) экспорт // зеленый -максимальный, красный - минимальный
	
//Определяем часть
часть=ТекущееЗначение/максимум;
шаг=510/максимум; //сквозной шаг

//зеленый (0,255,0)
//желтый  (255,255,0)
//красный(255,0,0)
// фактически это движение в HSV, где меняется только Hue в пределах от 0 до 120
компонентR=0;
компонентG=0;
//определяем к какой половине спектра отностится наше число
Если часть > 0.5 тогда
	компонентR=цел(255-((ТекущееЗначение-0.5*максимум)*шаг));
	компонентG=255;
	
Иначе	
	компонентR=255;
	компонентG=цел(ТекущееЗначение*шаг);
		
КонецЕсли;	
Если инвертировать тогда возврат Новый Цвет(компонентG,компонентR,0);	
				   иначе возврат Новый Цвет(компонентR,компонентG,0);
КонецЕсли;	
	
КонецФункции

Показать

3. artbear 1568 30.08.17 16:50 Сейчас в теме

А Управляемые формы?

7. kc-ropa 42 31.08.17 09:05 Сейчас в теме

(3) Нет необходимости.

4. Fragster 1157 30.08.17 19:34 Сейчас в теме

Не интересно. Например в https://infostart.ru/public/551431/ начальные и конечные цвета задаются, а далее получается плавный градиент между ними.

6. kc-ropa 42 31.08.17 09:04 Сейчас в теме

(4) Спасибо, я его не видел.

5. DrAku1a 1760 31.08.17 04:41 Сейчас в теме

Немножко математической магии:

компоненты = ТекущееЗначение / Максимум * 510;
компонентR = Мин(510 - компоненты, 255);
компонентG = Мин(компоненты, 255);
возврат Новый Цвет(компонентR,компонентG,0)

Для того, чтобы инвертировать - меняем местами R и G

8. kc-ropa 42 31.08.17 09:06 Сейчас в теме

(5) Красота! Так гораздо компактней и быстрее, но менее очевидно.

9. DrAku1a 1760 31.08.17 17:09 Сейчас в теме

(8) На самом деле - всё становится очевидно, если нарисовать графики изменения цвета.
Кстати, из этого графика становится примерно ясен алгоритм перехода из одного произвольного цвета в другой произвольный цвет.

Прикрепленные файлы:

10. DrAku1a 1760 01.09.17 08:33 Сейчас в теме

(9)

Функция ПолучитьКомпонентОттенка(КомпонентНач, КомпонентКон, Коэффициент)
	Если КомпонентКон=КомпонентНач Тогда
		Возврат КомпонентНач;
	ИначеЕсли КомпонентКон>КомпонентНач Тогда
		Возврат КомпонентНач + 2 * (КомпонентКон - КомпонентНач) * Коэффициент;
	Иначе
		Возврат КомпонентНач + 2 * (КомпонентНач - КомпонентКон) * (1-Коэффициент);
	КонецЕсли;
КонецФункции

Функция ПолучитьОттенокЦвета(ЦветНач, ЦветКон, ТекущееЗначение, МаксЗначение, МинЗначение=0)
	Если МаксЗначение<=МинЗначение или ТекущееЗначение<МинЗначение Тогда
		Возврат ЦветНач;
	ИначеЕсли ТекущееЗначение>МаксЗначение Тогда
		Возврат ЦветКон;
	КонецЕсли;
	Коэффициент = ТекущееЗначение / (МаксЗначение - МинЗначение);
	КомпонентКрасный = ПолучитьКомпонентОттенка(ЦветНач.Красный, ЦветКон.Красный, Коэффициент);
	КомпонентЗеленый = ПолучитьКомпонентОттенка(ЦветНач.Зеленый, ЦветКон.Зеленый, Коэффициент);
	КомпонентСиний = ПолучитьКомпонентОттенка(ЦветНач.Синий, ЦветКон.Синий, Коэффициент);
	Возврат Новый Цвет(КомпонентКрасный, КомпонентЗеленый, КомпонентСиний);
КонецФункции

Показать

11. TreeDogNight 22 17.11.17 20:51 Сейчас в теме

(10)

Сделал обработку на основании вашего алгоритма

Прикрепленные файлы:

ГенераторЦветов.epf

12. DrAku1a 1760 19.11.17 09:33 Сейчас в теме

(11) Нужно подправить "ПолучитьКомпонентОттенка": добавить ограничения максимума и минимума возвращаемого значения, и когда цвет темнеет (третья формула условия) - нужно вместо КомпонентНач брать КомпонентКон:

Функция ПолучитьКомпонентОттенка(КомпонентНач, КомпонентКон, Коэффициент)
    Если КомпонентКон=КомпонентНач Тогда
        Возврат КомпонентНач;
    ИначеЕсли КомпонентКон>КомпонентНач Тогда
        Возврат Макс(Мин(КомпонентНач + 2 * (КомпонентКон - КомпонентНач) * Коэффициент, КомпонентКон), КомпонентНач);
    Иначе
        Возврат Макс(Мин(КомпонентКон + 2 * (КомпонентНач - КомпонентКон) * (1 - Коэффициент), КомпонентНач), КомпонентКон);
    КонецЕсли;
КонецФункции

Показать

По-хорошему, ещё можно бы округлять результат или отбрасывать дробную часть, но 1С отрабатывает и так.

Прикрепленные файлы: