#Область ПрограммныйИнтерфейс

// Воспроизводит короткую вибрацию для имитации тактильного отклика
//
Процедура ТактильныйОтклик() Экспорт
	
	Вибрация();
	
КонецПроцедуры

// Воспроизводит вибрацию (короткую или длинну) для мобильного приложения. 
//
// Параметры:
//   Короткий - Булево - Определяет длительность вибрации. 
//                       Если истина, то короткая вибрация длительностью в 50 мс, если ложь, то длинная вибрация длительностью 300 мс.
//
Процедура Вибрация(Длинная = Ложь) Экспорт
	
	#Если МобильноеПриложениеКлиент Тогда
	
	ОписаниеВибрации = НовыйОписаниеВибрации(Длинная);
	СредстваМультимедиа.ВоспроизвестиЗвуковоеОповещение(ЗвуковоеОповещение.Нет, ОписаниеВибрации);

	#КонецЕсли
	
КонецПроцедуры

#КонецОбласти

#Область СлужебныеПроцедурыИФункции

// Параметры:
//  Длинная - Булево - если истина, то вибрация длительность 300 мс, иначе вибрация длительностью 50 мс.
//
// Возвращаемое значение:
//  Массив - описание вибрации для оповещения.
//
Функция НовыйОписаниеВибрации(Длинная)
	
	ОписаниеВибрации = Новый Массив;
	ОписаниеВибрации.Добавить(1);
	Если Длинная Тогда
		ОписаниеВибрации.Добавить(300);
	Иначе
		ОписаниеВибрации.Добавить(50);
	КонецЕсли;
	Возврат ОписаниеВибрации;
	
КонецФункции

#КонецОбласти

{"contextData":{},"contextMarkers":[]}