Перевод десятичного числа в шестнадцатеричное

07.04.11

Разработка - Универсальные функции

Алгоритм перевода числа из десятичной системы в шестнадцатеричную.

Скачать файлы

Наименование Файл Версия Размер
DEC_HEX.epf
.epf 6,45Kb
14
.epf 6,45Kb 14 Скачать

Бала задача переводить цвет элементов формы в шаблон HTML. Цвет RGB из формы мог достать только по компонентам в виде числа, а в разметке умею задавать цвет только в формате #XXYYZZ где XX, YY, ZZ задаються компоненты цвета в шестнадцитеричной системе. Вот и пришлось думать о переводе.

 

В результате такие вот функции:

 

Функция ВозвестиВСтепень(Число, Степень)
    Результат = 1;
    для й =1 по Степень Цикл
       
        Результат = Результат * Число;
       
    КонецЦикла;
   
    Возврат Результат;
КонецФункции


 

Функция ПеревестиЧислоВшестнадцатеричное(Число) Экспорт
    ЧислаРазряда = Новый Соответствие;
    ВремЧисло = Число;
    максСтепень = 0;
    Пока ВремЧисло >= 16 Цикл
        ЧислоРазряда = ВремЧисло;       
        Степень = 0;
        Пока Не Цел(ЧислоРазряда) < 16 Цикл
           
            ЧислоРазряда = ЧислоРазряда / 16;
            Степень = Степень + 1;
            максСтепень = макс(максСтепень, Степень);
        КонецЦикла;
        ЧислаРазряда.Вставить(Степень,Цел(ЧислоРазряда));
        ВремЧисло = ВремЧисло - ВозвестиВСтепень(16,Степень)*Цел(ЧислоРазряда);
    КонецЦикла;
   
    ЧислаРазряда.Вставить(0,Цел(ВремЧисло));
   
    ЧислВ16 = "";
    Для й = 0 по максСтепень Цикл
        Если ЧислаРазряда.Получить(й) = Неопределено Тогда
           
            ЧислаРазряда.Вставить(й, 0);
           
        КонецЕсли;
        ЧислоРазряда = ЧислаРазряда.Получить(й);
        Если ЧислоРазряда = 10 Тогда
            ЧислВ16 = "A" + ЧислВ16;
        ИначеЕсли ЧислоРазряда = 11 Тогда
            ЧислВ16 = "B" + ЧислВ16;
        ИначеЕсли ЧислоРазряда = 12 Тогда
            ЧислВ16 = "C" + ЧислВ16;
        ИначеЕсли ЧислоРазряда = 13 Тогда
            ЧислВ16 = "D" + ЧислВ16;
        ИначеЕсли ЧислоРазряда = 14 Тогда
            ЧислВ16 = "E" + ЧислВ16;
        ИначеЕсли ЧислоРазряда = 15 Тогда
            ЧислВ16 = "F" + ЧислВ16;
        Иначе
            ЧислВ16 = Строка(ЧислоРазряда) + ЧислВ16;
        КонецЕсли;
    КонецЦикла;
   
    Возврат ЧислВ16;
КонецФункции

 

И для примера обработочка во вложении (платформа 8.2).

См. также

Вставляем картинку из буфера обмена (платформа 1С 8.3.24)

Универсальные функции Платформа 1С v8.3 Конфигурации 1cv8 Абонемент ($m)

Задача: вставить картинку из буфера обмена на форму средствами платформы 1С.

1 стартмани

18.03.2024    2655    0    John_d    8    

53

GUID в 1С 8.3 - как с ними быть

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

Пришлось помучиться с GUID-ами немного, решил поделиться опытом, мало ли кому пригодится.

12.02.2024    4590    atdonya    22    

45

Переоткрытие внешних обработок

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

На заключительных этапах, когда идет отладка или доработка интерфейса, необходимо много раз переоткрыть внешний объект. Вот один из способов автоматизации этого.

30.11.2023    3950    ke.92@mail.ru    16    

61

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

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

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

28.08.2023    8799    YA_418728146    6    

141

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

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

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

2 стартмани

22.08.2023    2069    21    progmaster    7    

3

Расширение: Быстрые отборы через буфер [Alt+C] Копировать список, [Alt+V] Вставить список, [Ctrl+C] Копировать из файлов

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

Копирует в буфер значения из списков, из ячеек отчетов, таблиц, настроек списков, других отборов и вставляет в выбранную настройку отбора. Работает с Объект не найден. Работает как в одной так и между разными базами 1С. Использует комбинации [Alt+C] Копировать список, [Alt+V] Вставить список. Также для копирования данных используется стандартная [Ctrl+C] (например из открытого xls, mxl, doc и т.п. файла скопировать список наименований)

1 стартмани

13.10.2022    16139    133    sapervodichka    112    

129

Система контроля ведения учета [БСП]

Универсальные функции Механизмы типовых конфигураций БСП (Библиотека стандартных подсистем) Платформа 1С v8.3 Конфигурации 1cv8 Бесплатно (free)

В данном материале рассмотрим типовой алгоритм подсистемы контроля учета БСП в конфигурациях на примерах.

18.07.2022    7241    quazare    8    

109
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. Armando 1399 07.04.11 15:40 Сейчас в теме
2. cool.vlad4 2 07.04.11 15:48 Сейчас в теме
:D я помню мы такие вещи в школе на qbasic-е делали...а еще раньше по математике, когда разные системы счисления изучали...грустно...
3. Арчибальд 2706 07.04.11 16:11 Сейчас в теме
//На входе – Целое положительное число
//на выходе – строка 16-ричных "цифр"
Функция ДесятьШестнадцать(пЧисло)
лЦифры = "0123456789ABCDEF";
Рез = пЧисло;
лСтр = "";
Пока Рез > 0 Цикл
Ост = Рез % 16 + 1;
лСтр = Сред(лЦифры, Ост, 1) + лСтр;
Рез = Цел(Рез / 16);
КонецЦикла;
Возврат лСтр;
КонецФункции

Да... Уж...
Lapitskiy; so-quest; ll13; adhocprog; Tedman; It-developer; Mi4man; begemot; marsohod; gaglo; +10 Ответить
4. Armando 1399 07.04.11 17:20 Сейчас в теме
Функция ВозвестиВСтепень(Число, Степень)
Результат = 1;
для й =1 по Степень Цикл

Результат = Результат * Число;

КонецЦикла;

Возврат Результат;
КонецФункции

Pow (Pow)
Синтаксис:
Pow(<Основание>, <Показатель>)
Параметры:
<Основание> (обязательный)
Тип: Число. Основание операции возведения в степень.
<Показатель> (обязательный)
Тип: Число. Показатель степени.
Возвращаемое значение:
Тип: Число. Результат возведения в степень.
Описание:
Возводит число <X> в степень <Y>.
5. Serj1C 483 08.04.11 07:13 Сейчас в теме
> Цвет RGB из формы мог достать только по компонентам в виде числа, а в разметке умею задавать цвет только в формате #XXYYZZ
в CSS цвет можно записать в форме "color: rgb(255; 0; 0)"
6. alexk-is 6533 08.04.11 07:47 Сейчас в теме
Программный код в тексте публикации можно раскрасить.

Кстати. Разукрашка умеет переводить цвета используемые в 1С для HTML оптимизируя длину строки цвета. Виды обрабатываемых цветов: ВидЦвета.Абсолютный и ВидЦвета.WebЦвет. Получится так:
RGB(255,0,0) = "red"
RGB(0,0,255) = "blue"
RGB(255,0,255) = "#FF00FF"
7. vladen 83 08.04.11 16:55 Сейчас в теме
эм... да... кон ни кто не оценил, зато получилась интересная тема :) мне интересно, думаю кому-то может быть полезна. Всем спасибо.
8. Armando 1399 09.04.11 13:23 Сейчас в теме
ни кто не оценил

Радуйся, что минусов не влипили. Хотя стоило бы.
Публикация на самом деле 100% бесполезная.
9. BigB 191 11.04.11 07:03 Сейчас в теме
10. Angeros 24.01.13 13:07 Сейчас в теме
мда слабовато. както пришлось делать перевод из 96ти ричной системы в 36 ричную и наоборот...
11. Ёпрст 1063 24.01.13 13:19 Сейчас в теме
12. vandalsvq 1537 07.02.13 13:25 Сейчас в теме
Ценности в статье никакой. В приведенном коде тоже. Поставил минус. Ничего личного.
14. DrZombi 286 26.09.14 16:10 Сейчас в теме
(12) Согласен!!! Код не рабочий :)
13. DrZombi 286 26.09.14 16:10 Сейчас в теме
Автор, твоё велосипед с квадратными колесами не работает!!!

Смотреть тут и копировать от туда http://kb.mista.ru/article.php?id=78
soroka; Jekich; +2 Ответить
15. It-developer 24 25.02.15 11:49 Сейчас в теме
перевод в систему некрасиво сделан, но идея цветов нормальная
Оставьте свое сообщение