Вид для печати
Как без лишних танцев с бубном связать ПЛК308, ПЛК304 со СКАДА системой по ModBus TCP.
Вопрос относится только к конфигурированию ПЛК, так как ПЛК1xx на CoDeSys 2.3, прекрасно связываются и работают.
Более того в CoDeSys 2.3 на одну область памяти можно назначить несколько TCP портов, что дает возможность без лишних заморочек опрашивать ПЛК более чем одним "рабочим местом".
Это не только Вам интересно. :D
Так в том то и дело, что выпустили коммуникационный ПЛК, но о простом конфигурировании коммуникаций позабыли!Цитата:
Сообщение от smk1635
Конечно наверное не без вины CoDeSys 3!
Но все равно проблему решать нужно, может "овеновцы" выпустят библиотеки ModBus TCP (Master, Slave) на базе SysLibSocket?
Ну так какие есть варианты? Где пропал модератор ?
Прошу прощения, а в чем конкретно проблема?
Попробовал в CDS3 - вроде добавляется интерфейс.
Просто придется в скором времени делать проект, со связью СПК - контроллеры именно по Ethernet.
Хочется знать, в чем могут быть проблемы.
Давно уже все придумано, в оскат-нетворк есть модбас, там из переделок надо только адаптировать открытие сокета из v23 в.v3Цитата:
Сообщение от Леонид
Я где то выкладывал пробный пример,года два назад, ни кого не заинтересовало я и не стал развивать дальше
проблемы были в ограниченном количестве регистровЦитата:
Сообщение от приборист
Да это я все в курсе дела!
Вот только придется опять идти по принципу, в умелых руках и .... напильник, а охота так чтоб без любви, из коробки все работало!
Ну что-же достанем этот самый напильник!
Начал осваивать SysSocket на ПЛК304! Начал с серверной части, прием данных заработал без проблем. Но стоит вытащить провод связи Ethernet из ПЛК клиента, или не вставить его еще до включения ПЛК304, в роли клиента ПЛК100, и сразу происходит остановка обработки программы в ПЛК304, если воткнуть провод обратно, через некоторое время связь восстанавливается и ПЛК304 продолжает выполнение программы.Цитата:
Сообщение от capzap
Сразу уточню что сокет перевожу в неблокирующий режим!
Что я делаю не так?
Цитата:
CASE Step OF
0: (* Шаг создания и настройки сокета *)
hServerSocket:= SysSockCreate(iAddressFamily:= SOCKET_AF_INET, diType:= SOCKET_STREAM, diProtocol:= SOCKET_IPPROTO_TCP, pResult:= ADR(Result_SysSockCreate));
Result_SysSockIoctl:= SysSockIoctl(hSocket:= hServerSocket, diCommand:= SOCKET_FIONBIO, pdiParameter:= ADR(mode)); (* Переводи сокет в не блокирующий режим *)
Socket.sin_family:= SOCKET_AF_INET;
Socket.sin_addr.ulAddr := SOCKET_INADDR_ANY; (* Принимать от любого адреса *)
Socket.sin_port := SysSockHtons(usHost:= Port); (* Порт по которому будет осуществляться прием *)
Result_SysSockBind:= SysSockBind(hSocket:= hServerSocket, pSockAddr:= ADR(Socket), diSockAddrSize:= SIZEOF(Socket)); (* Привязываем порт к сокету *)
Result_SysSockListen:= SysSockListen(hSocket:= hServerSocket, diMaxConnections:= MaxConnections);
(* Включаем прослушивание сокета *)
Step:= 1;
1:
Tries_1:= Tries_1 + 1;
hClientSocket:= SysSockAccept(hSocket:= hServerSocket, pSockAddr:= ADR(Socket), pdiSockAddrSize:= ADR(SocketSize), pResult:= ADR(Result_SysSockAccept)); (* Ожидание соединение от клиента, возвращаем номер сокета клиента *)
IF hClientSocket <> 16#FFFFFFFF THEN
Result_SysSockInetNtoa:= SysSockInetNtoa(pInAddr:= ADR(Socket.sin_addr.ulAddr), szIPADDR:= Client_IP, diIPAddrSize:= SIZEOF(Client_IP));
Step:= 3;
ELSIF Tries_1 > 10 THEN
Tries_1:= 0;
Step:= 5;
END_IF;
2:
Tries_2:= Tries_2 + 1;
Send_Buf[1]:= Send_Buf[1] + 1;
Send_Buf[2000]:= Send_Buf[2000] + 1;
Send_Buf[3000]:= Send_Buf[3000] + 1;
Send_Buf[5000]:= 50;
SendByte:= SysSockSend(hSocket:= hClientSocket, pbyBuffer:= ADR(Send_Msg), diBufferSize:= SIZEOF(Send_Msg), diFlags:= 0, pResult:= ADR(Result_SysSockSend)); (* Отправляем сообщение *)
IF SendByte > 0 THEN
Step:= 3;
END_IF
IF Tries > 1000 THEN
Step:= 3;
END_IF;
3:
Tries_3:= Tries_3 + 1;
Recv_Msg:= '';
RecvByte:= SysSockRecv(hSocket:= hClientSocket, pbyBuffer:= ADR(Recv_Buf), diBufferSize:= 256, diFlags:= 0, pResult:= ADR(Result_SysSockRecv));
Step:= 4;
IF RecvByte > 0 THEN
Step:= 3;
Tries_3:= 0;
ELSIF
Tries_3 > 10
THEN
Tries_3:= 0;
Step:= 4;
END_IF;
4:
SysSockClose(hSocket:= hClientSocket);
Step:= 5;
Tries_4:= Tries_4 + 1;
5:
SysSockClose(hSocket:= hServerSocket);
Step:= 0;
Tries:= 0;
Tries_5:= Tries_5 + 1;
END_CASE;
Ну и добавлю, чтоб не смущать, сторожевой таймер я отключил в процессе изысканий причины проблемы, а то ПЛК сваливался в "исключение".