1С 8.3 БСП ТипУстройства - Программист 1С Минск. Автоматизация бизнеса.

Популярные страницы:
Перейти к контенту

1С 8.3 БСП ТипУстройства

Данные > Примеры кода 1С > 1С 8.3 БСП > Прочее
Перейти в раздел примеры кода 1С 8.3:
1С 8.3 БСП ТипУстройства. Возвращает строковое представление типа используемого устройства.
Код БСП
Результат = ОбщегоНазначения.ТипУстройства(); // строка

// Возвращает строковое представление типа используемого устройства.
//
// Возвращаемое значение:
//   Строка - тип используемого устройства.
//
Функция ТипУстройства() Экспорт

   ИнформацияЭкрана = ПараметрыЭкранаУстройства();

   DPI    = ИнформацияЭкрана.DPI; // АПК:1353 - не требуется перевод на русский язык.
   Высота = ИнформацияЭкрана.Высота;
   Ширина = ИнформацияЭкрана.Ширина;

   РазмерЭкрана = Sqrt((Высота/DPI*Высота/DPI)+(Ширина/DPI*Ширина/DPI));
   Если РазмерЭкрана > 16 Тогда
       Возврат "ПерсональныйКомпьютер";
   ИначеЕсли РазмерЭкрана >= ?(DPI > 310, 7.85, 9) Тогда
       Возврат "Планшет";
   ИначеЕсли РазмерЭкрана >= 4.9 Тогда
       Возврат "Фаблет";
   Иначе
       Возврат "Телефон";
   КонецЕсли;

КонецФункции

// Автор библиотеки: ООО "1С-Софт". Все права защищены © 2021
// Типовая конфигурация Библиотека стандартных подсистем (далее - БСП)
// Код БСП распространяется по лицензии Attribution 4.0 International (CC BY 4.0):
// ссылка на лицензию: https://creativecommons.org/licenses/by/4.0/legalcode
Поиск кода
0
Комментарии
____________________
Copyright©, «Программист 1С в г.Минске», 23.08.2021
Перепечатка текста и фотографий разрешена при наличии прямой ссылки на источник
Назад к содержимому