1С 8.3 БСП ТипУстройства
Данные > 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 Тогда
Возврат "Фаблет";
Иначе
Возврат "Телефон";
КонецЕсли;
КонецФункции
//
// Возвращаемое значение:
// Строка - тип используемого устройства.
//
Функция ТипУстройства() Экспорт
ИнформацияЭкрана = ПараметрыЭкранаУстройства();
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
// Код БСП распространяется по лицензии Attribution 4.0 International (CC BY 4.0):
// ссылка на лицензию: https://creativecommons.org/licenses/by/4.0/legalcode
0
комментарии
____________________
Перепечатка текста и фотографий разрешена при наличии прямой ссылки на источник