Функции String

Цитата:

---

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

Ну нет в ST такого. Там есть VAR := ЛЮБОЕ_TO_OBJECT. Из области ANY. ЛЮБОЕ - это INT, REAL ... Какую переменную VAR задашь для результата - такое OBJECT тебе и сделает.
Но OBJECT может быть только OBJECT_TO_STRING();

---

Ещё один реальный вариант дал в 17 сообщении, только вы даже не смотрели его.

Цитата:

---

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

Можно из 4 байт собрать 2 WORD, а потом с помощью функции собрать REAL

Код:

---

W1:=(Byte1+shl(Byte2,8));
 W2:=(Byte3+shl(Byte4,8));

---

---

Смотрел. На каком это языке? Что такое "shl" ? Как это применимо к ST ?

Цитата:

---

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

Смотрел. На каком это языке? Что такое "shl" ? Как это применимо к ST ?

---

Да вроде нормальный ST:
Вложение 77895

И функция сдвига стандартная...

Цитата:

---

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

Смотрел. На каком это языке? Что такое "shl" ? Как это применимо к ST ?

---

прочтите документацию, например функции сдвига
Вам вообще то предлагали код формирования вещественного числа, да это сложно, но простой вариант не получится

Код:

---

VAR
        inpW0, inpW1 :DWORD;
        stuff: ARRAY [0..3] OF BYTE := 234,89,6,61;

        k          : REAL;
        sign        : REAL;
        exponent    : REAL;
        mant_mult  : REAL;
        stuffAdd    : DWORD;
        exp_raw    : DWORD;
        mantissa    : DWORD;
        i          : INT;
        negative    : BOOL;

        arrWToReal : REAL;
END_VAR



inpW1 :=SHL(BYTE_TO_WORD(stuff[3]),8) OR BYTE_TO_WORD(stuff[2]);
inpW0 :=SHL(BYTE_TO_WORD(stuff[1]),8) OR BYTE_TO_WORD(stuff[0]);
stuffAdd := SHL(inpW1, 16) +  inpW0;
negative := SHR(stuffAdd, 31) > 0;
mant_mult := 1.0;
IF negative THEN
        sign := -1.0;
ELSE
        sign := 1.0;
END_IF;
exp_raw := SHR((stuffAdd MOD 2147483648), 23);
exponent := DWORD_TO_REAL(exp_raw) - 127;

mantissa := stuffAdd MOD 8388608;
FOR i := 0 TO 22 DO
        IF (SHR(mantissa, (22 - i)) MOD 2) = 1 THEN
              k := INT_TO_REAL(23 - (22 - i));
                    mant_mult := mant_mult + 1/(EXPT(2,k));
        END_IF;
END_FOR;

arrWToReal := sign * (EXPT(2, exponent)) * mant_mult;

---

примерно так должно получится требуемое число

что касается этого утверждения

Цитата:

---

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

Есть 4 байта вырванных из ответа прибора в виде STRING.

---

У Вас же получалось с ComPortByte, который сразу возвращает массив байт, поэтому все и спрашивают зачем строки

Понятно. Как потом из двух WORD собрать REAL ?

А чем ТС не устраивает объединение:

Вложение 77897

Цитата:

---

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

У Вас же получалось с ComPortByte, который сразу возвращает массив байт, поэтому все и спрашивают зачем строки

---

В ответном массиве куча байт, а мне нужно только 4. Поэтому вырезать их реально с помощью STRING. Есть другой способ? Подскажи.
ФБ "ComPortByte" выдаёт массив. Его в STRING и обрезаю. Ещё не делал, но думаю получится. Можно из массива сразу убрать лишнее? Подскажи.

Вот ответ
11 57 35 85 01 0E EA 59 06 3D 01 00 B9 2D
и в нём сидит цифра 0.0328006
Т.е. EA 59 06 3D

Цитата:

---

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

В ответном массиве куча байт, а мне нужно только 4. Поэтому вырезать их реально с помощью STRING. Есть другой способ? Подскажи.
ФБ "ComPortByte" выдаёт массив. Его в STRING и обрезаю. Ещё не делал, но думаю получится. Можно из массива сразу убрать лишнее? Подскажи.

Вот ответ
11 57 35 85 01 0E EA 59 06 3D 01 00 B9 2D
и в нём сидит цифра 0.0328006
Т.е. EA 59 06 3D

---

Вам сложно из массива использоовать с 6 по 9 элементы?
Вложение 77898

Не сложно. Каждый из 4-х элементов массива присвоить переменной?
Ну это уже детали. Сейчас опробую алгоритм, который Вы прислали.
Головняк, конечно, ещё тот, с этими преобразованиями. Знал, что не будет легко, но чтоб так ...

Цитата:

---

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

прочтите документацию, например функции сдвига
Вам вообще то предлагали код формирования вещественного числа, да это сложно, но простой вариант не получится

Код:

---

VAR
        inpW0, inpW1 :DWORD;
        stuff: ARRAY [0..3] OF BYTE := 234,89,6,61;

        k          : REAL;
        sign        : REAL;
        exponent    : REAL;
        mant_mult  : REAL;
        stuffAdd    : DWORD;
        exp_raw    : DWORD;
        mantissa    : DWORD;
        i          : INT;
        negative    : BOOL;

        arrWToReal : REAL;
END_VAR



inpW1 :=SHL(BYTE_TO_WORD(stuff[3]),8) OR BYTE_TO_WORD(stuff[2]);
inpW0 :=SHL(BYTE_TO_WORD(stuff[1]),8) OR BYTE_TO_WORD(stuff[0]);
stuffAdd := SHL(inpW1, 16) +  inpW0;
negative := SHR(stuffAdd, 31) > 0;
mant_mult := 1.0;
IF negative THEN
        sign := -1.0;
ELSE
        sign := 1.0;
END_IF;
exp_raw := SHR((stuffAdd MOD 2147483648), 23);
exponent := DWORD_TO_REAL(exp_raw) - 127;

mantissa := stuffAdd MOD 8388608;
FOR i := 0 TO 22 DO
        IF (SHR(mantissa, (22 - i)) MOD 2) = 1 THEN
              k := INT_TO_REAL(23 - (22 - i));
                    mant_mult := mant_mult + 1/(EXPT(2,k));
        END_IF;
END_FOR;

arrWToReal := sign * (EXPT(2, exponent)) * mant_mult;

---

---

ОГРОМНОЕ СПАСИБО !!! РАБОТАЕТ !!!
Если бы не Ваша помощь, я бы ещё долго голову ломал с этим IEEE754.
Я, правда, думал, что будет проще.