REAL побитово в UDINT

Цитата:

---

Сообщение от Валенок

какой диапазон значений ожидаемых коррекций?

---

Рандомный диапазон, например до 5кПа с дискретностью 1 Па.

В датчике отправляемое значение коррекции применяется в зависимости от выбранных единиц измерения (bar, Па, кПа и т.д., что также задаются через целочисленный ID по modbus).

На данный момент решили реализовать запись коррекции в Па без дробной части, т.к. проще преобразовать в два Word в соответствии с IEEE 754.

Всем спасибо! Вопрос успешно решен для любого REAL, в том числе и с дробной частью. Все достаточно несложно преобразуется инструментами OwenLogic. Для реализации достаточно написать формулу преобразования REAL из 32-х бит на листочке и все станет ясно.
Вложение 79826

И где собственно решение? :)

Как вариант real в udint в формате IEEE754:

Код:

---

function IEEE754_: udint;
    var_input
      VAL : real;              // Входное значение
    end_var

    var
      i : udint;
      Sign : bool;            // true - если значение отрицательное
      Ret : real;              // Вспомогательное
      Mantissa : udint;        // Мантисса
      Exponent : udint;        // Порядок
    end_var

    Mantissa := 0; Exponent := 0;
    if VAL = 0 then return; end_if

    if VAL < 0 then            // Выделяем знак числа
        Sign := true; Ret := -VAL;
    else
        Ret := VAL;
    end_if

    if Ret >= 2 then            // Нормируем
        while Ret >= 2 do
            Ret := Ret / 2; Exponent := Exponent + 1;
        end_while
    else
        while Ret < 1 do
            Ret := Ret * 2; Exponent := Exponent - 1;
        end_while
    end_if

    Ret := Ret - 1;            // Вычисляем мантиссу
    for i := 0 to 22 do
        Mantissa := shl(Mantissa, 1); Ret := Ret * 2;
        if Ret > 1 then Ret := Ret - 1; Mantissa.0 := true; end_if
    end_for
    Ret := Ret *2; if Ret > 1 then Mantissa := Mantissa + 1; end_if
    Exponent := Exponent + 127; // Вычисляем порядок
   
    IEEE754_.31 := Sign;            // Формируем в виде udint
    IEEE754_ := IEEE754_ + shl(Exponent, 23);
    IEEE754_ := IEEE754_ + Mantissa;
   
end_function

---

Цитата:

---

Сообщение от EFrol

Как вариант real в udint в формате IEEE754:

---

EFrol, ну ты прям молоток, у меня всё сошлось)))Вложение 79846

Выкладываю преобразования REAL_TO_DWORD_TO_REAL и REAL_TO__2Word_To_REAL Вложение 80809

С помощью capzap ___ https://owen.ru/forum/showthread.php?t=37203&page=10#95
и EFrol_____ (формат IEEE754) https://owen.ru/forum/showthread.php...l=1#post450141

спасиибо за помощь, я про формат формат IEEE754 не знал. а на EFrol постоянно ругался, кстати по WIN7 компилятор ругается на всё подряд изза отсутствия библиотек.