Буфер записи по modbus

Добрый день! Подскажите, пожалуйста, как сформировать буфер для записи значений WORD в МУ110-8И с помощью библиотеки modbus.lib. С записью битовой маски проблем нет, но записать 6 значений WORD возникли проблемы.

Уважаемые разработчики могли бы и выложить РАБОЧИЕ примеры чтения/записи значений по modbus для Мх110

PHP код:

---

FUNCTION_BLOCK mbus_set
VAR_INPUT
    In:BOOL:=FALSE;
    Dev_adr:BYTE;
    Start_reg:WORD;
    TimeOut: TIME;    
    Polling_Time:TIME;        

    y1:WORD; 
    y2:WORD; 
    y3:WORD; 
    y4:WORD; 
    y5:WORD; 
    y6:WORD; 
END_VAR
VAR_OUTPUT
    Ready:BOOL:=FALSE;
    err: WORD;
END_VAR
VAR
        com_num: PORTS;                            
    Settings: COMSETTINGS;                    
    COM_SERVICE1: COM_SERVICE;            
    com_ready: BOOL;                        
    buffer: ARRAY [0..255] OF BYTE;
    set_modbus:MB_WR_REGS;
    stat :WORD;
    rt:R_TRIG;
    y:WORD;
    timer:TON;
    ptr_byte:POINTER TO BYTE;
    rt_in:R_TRIG;

    y1_old:WORD; 
    y2_old:WORD; 
    y3_old:WORD; 
    y4_old:WORD; 
    y5_old:WORD; 
    y6_old:WORD; 

END_VAR 


---

PHP код:

---

rt_in(CLK:=IN);

IF rt_in.Q THEN
    stat:=0;
    Ready:=FALSE;
    err:=0;
    com_ready:=FALSE;
END_IF
IF  IN=TRUE THEN

    
    IF COM_SERVICE1.ready=FALSE THEN
    
        com_num:=0;
    
        Settings.Port:=com_num;
        Settings.dwBaudRate:=115200;
        Settings.byParity:=0;
        Settings.dwTimeout:=0;
        Settings.byStopBits:=0;
        Settings.dwBufferSize:=0;
        Settings.dwScan:=0;
    
        COM_SERVICE1(Enable:=TRUE , Settings:=Settings , Task:=OPEN_TSK  );
        com_ready:=FALSE;
    ELSE
        COM_SERVICE1.Enable:=FALSE;
        com_ready:=TRUE;
    END_IF


    IF com_ready=TRUE THEN

        CASE stat OF

0:
Ready:=FALSE;
set_modbus(
    Enable:=TRUE ,
    Mode:=MB_RTU ,
    DevAddr:=Dev_adr,
    FirstAddr:=Start_reg,
    Quantity:=6,
    ComHandle:=Settings.Port ,
    TimeOut:=TimeOut ,
    Buffer:=buffer ,
    Complete=> ,
    Exception=> , 
    RegCnt=> );

IF set_modbus.Complete THEN

    ptr_byte:=ADR(y1_old);
       ptr_byte^:=buffer[0] ;
buffer[1] :=WORD_TO_BYTE (y2_old);
buffer[2] := WORD_TO_BYTE(y3_old);
buffer[3] := WORD_TO_BYTE(y4_old);
buffer[4] := WORD_TO_BYTE(y5_old);
buffer[5] := WORD_TO_BYTE(y6_old);


set_modbus(
    Enable:=FALSE ,
    Mode:=MB_RTU ,
    DevAddr:=Dev_adr,
    FirstAddr:=Start_reg,
    Quantity:=6,
    ComHandle:=Settings.Port ,
    TimeOut:=TimeOut ,
    Buffer:=buffer ,
    Complete=> ,
    Exception=> , 
    RegCnt=> );
stat:=1;
END_IF
    1:
            timer(IN:=TRUE , PT:=Polling_Time );
            timer;
            stat:=2;
        2:
            timer;
            IF timer.Q THEN
                timer(IN:=FALSE , PT:=Polling_Time );
                timer;
                stat:=0;
                Ready:=TRUE;
            END_IF

        END_CASE
    
    END_IF


END_IF;
y1_old:=y1;
y2_old:=y2;
y3_old:=y3;
y4_old:=y4;
y5_old:=y5;
y6_old:=y6; 


---

Сделайте указатель на массив байт, далее этому указателю через ADR нужно присвоить первое слово, затем прибавит к указателю двойку и повторите присваивание уже второго слова и т. д.

Цитата:

---

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

Сделайте указатель на массив байт, далее этому указателю через ADR нужно присвоить первое слово, затем прибавит к указателю двойку и повторите присваивание уже второго слова и т. д.

---

по вашему совету смастерил такое:

ptr_byte:=ADR(y1_old);
ptr_byte^:=buffer[0] ;

ptr_byte:=ptr_byte+2;
ptr_byte^:=buffer[1] ;

ptr_byte:=ADR(y2_old);
ptr_byte^:=buffer[2] ;

ptr_byte:=ptr_byte+2;
ptr_byte^:=buffer[3] ;

но, видимо, не то. запись не идет. А преобразование WORD_TO_BYTE надо делать?

Цитата:

---

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

Индусятины все меньше.
Зачем в буфер класть старье если уже есть новье ?

PS
sysmemcopy(adr(buffer), adr(y1_old), sizeof(y1_old) * 6); // buffer[0].. <= y1..6_old
//помним про сетевой порядок модбаса ...

---

Где-то на просторах форума читал, что запись выполняется за несколько циклов программы, а я записываю на 3 выхода считанные значения с МВ1108АС.
Структуры пока сложно...
мне б на пальцах разобраться для начала

возмите пример http://www.owen.ru/forum/showthread.php?t=13584 по работе с модбас через библиотеку, марка прибора не принципиальна, отличие только в начальном регистре и количестве, а то что у Вас это вообще не рабочее

capzap, так по этим примерам и пытаюсь сделать, но там везде либо запись единичного регистра MB_WR_SNG_REG, либо запись одного значения Write Multiple registers, и буфер нигде не формируется.
в РЭ МУ110-8И сказано использовать для записи команду 16, адресация регистров начинается с 0, при этом записывать значения WORD.
Мне требуется записать 6 значений WORD, но как сформировать буфер не могу разобраться

PHP код:

---

    ptr_byte:=ADR(y1)+2;
            buffer[0]:=ptr_byte^;
            ptr_byte:=ADR(y1);
            buffer[1]:=ptr_byte^;

            ptr_byte:=ADR(y2)+2;
            buffer[2]:=ptr_byte^;
            ptr_byte:=ADR(y2);
            buffer[3]:=ptr_byte^;

            ptr_byte:=ADR(y3)+2;
            buffer[4]:=ptr_byte^;
            ptr_byte:=ADR(y3);
            buffer[5]:=ptr_byte^;

            ptr_byte:=ADR(y4)+2;
            buffer[6]:=ptr_byte^;
            ptr_byte:=ADR(y4);
            buffer[7]:=ptr_byte^; 


---

ну как нет то, REAL(флоат) больше регистра в два раза

С указателями и Sysmem интересно, но для начинающего мне кажется проще так:

Цитата:

---

Buffer[1]:=WORD_TO_BYTE(y1);
Buffer[0]:=WORD_TO_BYTE(SHR(y1,8));


Buffer[3]:=WORD_TO_BYTE(y2);
Buffer[2]:=WORD_TO_BYTE(SHR(y2,8));


Buffer[5]:=WORD_TO_BYTE(y3);
Buffer[4]:=WORD_TO_BYTE(SHR(y3,8));


и т.д.

---

Цитата:

---

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

ну вот смотрите, Вы взяли и скопипастили и теперь в Вашем коде ошибка

---

Пардон :)
Вечер четверга слишком похож на вечер пятницы..

Кстати, а функция SysMemSwap, она делает не тоже самое?
Если сделать так:
sysmemcopy(adr(buffer), adr(w), sizeof(w));
sysmemswap(adr(buffer), 2, sizeof(w));


PS
Проверять лень :)

Цитата:

---

Сообщение от приборист

С указателями и Sysmem интересно, но для начинающего мне кажется проще так:

---

Спасибо, Уважаемый!) именно это и нужно было