Обмен байтами в REAL ABCD-ABDC

[sergo978]

Здраствуйте !
Опыт программирования не очень большой, но по работе пришлось столкнуться.
Подскажите пожалуйста, как в TIA Portal можно сделать замену байтов в REAL ABCD-ABDC?
Понимаю что в 300-1500 контролерах есть функция CAW через которую можно было это реализовать, в проекте использую 1200 плк этой функции там нет! И не могу найти альтернативу как это сделать ?

[Jackson]

Масками. Из DWORD выделяете два слова WORD_AB с AB и WORD_CD с CD. Затем из слова WORD_CD выделяете ещё два слова WORD_C содержащее только C и WORD_D содержащее только D. Затем сдвигаете биты, закидывая в старшие биты D а в младшие C. Затем WORD_2 = WORD_C + WORD_D. Затем преобразуете WORD_AB в DWORD_AB и в нём делаете то же самое - сдвигаете младшие 16 бит в старшие 16 бит. Затем WORD_2 преобразуете в DWORD_2. И, наконец, результат DWORD_RESULT = DWORD_AB + DWORD_2.

Это по сложному на элементарном уровне. Зато гарантированно.

[sergo978]

Спасибо большое за быстрый ответ, но не подскажите через какой инструмент это можно сделать по точнее?

[Jackson]

Спасибо большое за быстрый ответ, но не подскажите через какой инструмент это можно сделать по точнее?

Очень странный вопрос. :)
Это операции обычного сложения и умножения. А инструмент всего один - калькулятор в виндовсе, в режиме "программист" сами посмотрите что с битами происходит.

За S7 не скажу, но поищите операции "сдвиг бита" и "циклический сдвиг", они много где есть. Это всё упростит.

[LexSL]

Подскажите пожалуйста, как в TIA Portal можно сделать замену байтов в REAL ABCD-ABDC?

Перестановка слов в REAL тут

а в слове байты поменять так:

Код: Выделить всё

...
псевдокод SCL, пишу на память:
old_word : WORD;
new_word : WORD;
new_word := SHL(IN:= (old_word AND 16#FF), N:= 8) + SHR(IN:= (old_word AND 16#FF00), N:=8); 

и там же по ссылке в конце темы функция STL CAW.
...и вообще, Jackson уже все написал...

[M3f]

sergo978, в дополнение к выше сказанному, еще можно воспользоваться функцией SWAP (для 1200 и 1500 ПЛК).

Код: Выделить всё

"Tag_Result" := SWAP("Tag_Value");
// Tag_Value = 0000 1111 0101 0101
// Tag_Result = 0101 0101 0000 1111

или

Код: Выделить всё

#word2.%B0 := #word1.%B1;
#word2.%B1 := #word1.%B0;

[sergo978]

При много всем благодарен !!!!

[LexSL]

Код: Выделить всё

#word2.%B0 := #word1.%B1;
#word2.%B1 := #word1.%B0;

Спасибо, сам все время забываю о "синтаксическом сахаре" в Tia Portal-е