плк63 + му/мв110 по rs-485, modbus, st

Доброго всем времени суток, и с наступающим.

Так получилось, что один сотрудник ушел на вольные хлеба, и мне по наследству достался недоделанный проект. Вроде бы ничего сложного - контроллер с дополительными модулями по rs-485, алгоритм в принципе простейший... но я ж не знал, что плк63 не умеет это делать по-человечески.
Поменять состав оборудования не вариант, всё уже куплено, деваться некуда.

В общем, надо подружить между собой плк63 и модули мв110 (8АС и 16дн), мв110-16Р, всех по нескольку штук. Связь по rs-485, протокол modbus, язык ST.

Нашел пример для МДВВ, пытаюсь его перекроить и сделать подпрограмму для 110-ого, получается не очень (пока связь есть, но команды не идут, экспериментирую с одним му110-16Р).

Подскажите, в какую сторону работать напильником? Чего выкинуть/добавить/поменять? И стоит ли пихать все разновидности модулей в одну подпрограмму, или лучше резделить ввод/вывод и дискретные/аналоговые сигналы?

Буду благодарен за любую помощь.

Здравствуйте!

Запись выходных значений в МУ110-16Р организуйте по битовой маске (адрес регистра - 50). Объявите все выходные переменные типа Bool (например, var out1:bool; ... out16:bool; end_var). В первые 2 байта буфера для передачи данных, который объявлен как массив из байтов, запишите эти булевые переменные (в нулевой байт - переменные out9...out16, в первый байт - переменные out1...out8), т.е.
Buffer[0].0:=out9; Buffer[0].1:=out10; ... Buffer[0].7:=out16;
Buffer[1].0:=out1; Buffer[1].1:=out2; ... Buffer[1].7:=out8;

Примерно так?

Код:

---

IF port_opened=0 THEN
                settings.Port:=0;        (*номер порта RS-485*)
                settings.dwBaudRate:=baud_rate;        (*скорость*)
                settings.byParity:=0;
                settings.dwTimeout:=0;
                settings.byStopBits:=0;
                settings.dwBufferSize:=0;
                settings.dwScan:=0;
END_IF

(*открываем COM-порт*)

com_service1(enable:=(port_opened=0), settings:=settings, task:=open_tsk);

(*если COM-порт открыт, пепреходим к приему и передаче данных*)

IF com_service1.Ready THEN
                        port_opened:=2;
END_IF

IF (port_opened=2) THEN

Buffer[1].0:=out1;
...
Buffer[0].7:=out16;

                send_modbus(
                                enable:=enabl, (*резрешение работы блока*)
                                mode:=mb_rtu, (*режим передачи*)
                                DevAddr:=slave_addr, (*адрес*)
                                FirstAddr:=50, (*номер первого регистра*)
                                quantity:=16, (*количество записываемых регистров*)
                                ComHandle:=settings.Port, (*номер СОМ-порта*)
                                TimeOut:=TimeOut, (*таймаут, естессно*)
                                buffer:=buffer, (*ну буфер же*)
                                Complete=>cmpl, (*копировать признак завершения операции*)
                                Exception=>err, (*копируем регистр ошибок*)
                                RegCnt=>DataSize); (*кол-во записанных байтов*)
END_IF

---

Где-то что-то напутал, индикатор rs-485 теперь не загорается. Пойду разберу экибану, надо адрес перепроверить.

Если не моргает RS, то начните с проверки открытия порта. Видимо не открывается. Reset после загрузки ПРГ делаете?

Хм, com_service1.ready=TRUE.
Но settings.port пишет "invalid:0", а send_modbus.exception=254. И выхода в отладчике мигают, как будто я блок управления гирляндами программирую. Отмечать Новый Год вроде еще не начал...

Другие порты ставлю - не глючит, но тогда com_service1.ready=FALSE.

----------
UPD: Лампочки горят :) Все скопом. quantity:=1, а не 16, всего-то.
Видно, долетел до меня запах свободы - коллега рядом сидит плату моет.

Сейчас перерыв на бурную радость, и буду дальше разбираться: на очереди дискретные входы (со счетчиками и без) и 4-20 mA, будь они неладны. Решил на каждй тип прибора делать свою подпрограмму.

Всем спасибо за помощь!

Цитата:

---

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

Но settings.port пишет "invalid:0"

---

То что появляется данная ошибка, это нормально, т.к. в перечислении PORTS библиотеки SysLibCom нет порта с номером COM0, поэтому и возникает данная ошибка, но порт при этом открывается.

Цитата:

---

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

UPD: Лампочки горят :) Все скопом. quantity:=1, а не 16, всего-то.

---

Вы записываете 16 бит=2 байта=1регистр, quantity - это кол-во регистров, поэтому quantity=1.

Цепляю МВ-110-16ДН (дискретные входы).
Вышло что-то вроде

Код:

---

IF (port_opened=2) THEN

rd_regs(
                ...

                FirstAddr:=51 (*регистр*)

                Quantity:=1, (*кол-во регистров*)
                .....
);

END_IF

IF err=0 THEN (*если нет ошибок, потрошим байты на биты*)
                in1:=Buffer[1].0;
                in2:= Buffer[1].1;
                ...
                in8:=Buffer[1].7;

                in9:=Buffer[0].0;
                in10:=Buffer[0].1;
                ...
                in16:=Buffer[0].7;
END_IF

---

но это только входы. Сейчас буду проверять, если железку найду.
Как бы половчее счетчики зацепить, чтобы несколько раз не гонять чтение?

Цитата:

---

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

Как бы половчее счетчики зацепить, чтобы несколько раз не гонять чтение?

---

Естественно, групповым чтением. Укажите в функции соответствующее число регистров.

Понятно что групповым, хотел скидать в одну кучу с дискретными входами. Но, видимо, лучше все-таки отдельной подпрограммой, и сброс туда же закинуть.

Эх, все железки на работе, ничего под рукой нет - даже дискретные входы остались в нерабочем состоянии, не пойму, где косяков напорол. Праздники вредны для мозга...

Не рекомендую делать это одним запросом - есть разрыв в адресах.
Рекомендую вынести опрос в отдельный процесс и обмениваться с основной программой через глобалы или еще как. Так проще и понятнее.