Вид для печати
Всем добрый день!
Есть ли у кого-нибудь идеи, как можно REAL преобразовать в набор бит (UDINT с побитовым доступом или массив) средствами OwenLogic?
Задача состоит в передаче вещественного значения по RS-485 двумя разными запросами (требование на стороне slave-датчика). Т.е. сначала запись в младший регистр, а следующим запросом старший регистр.
В CS3.5 задача решается разными способами: через указатели, через UNION или с помощью блока библиотеки OwenCommunication.
По моему вы запутались, что вам надо, если у вас слейв датчик, то вам надо читать 2 регистра и собрать из них REAL.Цитата:
Сообщение от zaychenko
Зачем побитово вам понадобилось, не понятно.
Что у вас за датчик такой, где в него надо записывать, да ещё и раздельно регистры?
Все правильно написано. Датчик вакуума с погрешностью 0.05% ВПИ, которому периодически необходимо делать коррекцию нуля. Эта коррекция хранится в slave-памяти в формате REAL. Но условие для приема (применения) этой коррекции датчиком состоит именно в записи двумя разными запросами.Цитата:
Сообщение от kondor3000
Уже есть реализация под CS3.5, а сейчас стоит задача повторить успех для устройств, программируемых в OwenLogic.
Киньте в сетевую переменную для слейва, а потом с каждым регистром делайте что хотите. А тю блин, ОЛ такого фокуса наверное не пропустит...
Может пробовать на ST ?
Собрать REAL из 2 WORD можно, есть ФБ, выкладывал capzap. https://owen.ru/forum/showthread.php?t=37203&page=10#95Цитата:
Сообщение от zaychenko
Как разобрать REAL на 2 WORD в Лоджике пока никто не придумал.
В том то и дело, что собрать из набора бит REAL легко, а вот в для преобразования в обратную сторону, подозреваю, очевидные инструменты типа MemMove отсутствуют.Цитата:
Сообщение от kondor3000
ОЛ ругается при добавлении каналов Modbus с пересекающимися адресамиЦитата:
Сообщение от melky
похоже без преобразований в word никак, а в ОЛ их просто нет.
Как вариант) Но может не подойти в ситуации, когда нужен второй RS-485 или для устройств с одним RS-485 типа ИПП120.Цитата:
Сообщение от Валенок
какой диапазон значений ожидаемых коррекций?Цитата:
Сообщение от zaychenko
Рандомный диапазон, например до 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, ну ты прям молоток, у меня всё сошлось)))Вложение 79846Цитата:
Сообщение от EFrol
Выкладываю преобразования 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 компилятор ругается на всё подряд изза отсутствия библиотек.