Уведомления
Очистить все

Индикатор выполнения для 1С 7.х

1 Записи
1 Пользователи
0 Likes
395 Просмотры
96-150 Okolokompa Форум
(@sadovod)
Prominent Member
Присоединился: 4 года назад
Записи: 258
Создатель темы  
Функция глИндикатор(Значение, Максимум = 100) Экспорт
	//
	// функция возвращает Строку индикатор длиной
	//                                                       
	Длина = 50;           
	
	Если Значение <= 0 тогда
		Стр = "";
		Для е = 1 по Длина Цикл
			Стр = Стр + ".";
			Возврат Стр;
		КонецЦикла;   
	КонецЕсли;
	
	е1 = "";
	
	Для е = 1 По Длина Цикл
		Если е <= ((Значение * Длина) / Максимум) Тогда
			е1 = е1 + "|";
		Иначе
			е1 = е1 + ".";
		КонецЕсли;      
	КонецЦикла;
	
	Возврат е1;
	
КонецФункции

   
Цитата
Поделиться: