Связь со мной: telegram: @JuneSmellsLikeBlood | e-mail: e.kislov@owen.ru (личка на форуме - не подходит)
Раздел CDS V3.5 на сайте | Основные темы по CDS V3.5 на форуме: Вопросы и ответы | Визуализация | Настройка обмена с другими устройствами
Repository Archive V3.5 SP4 (необходим для СПК207/СПК1хх без Eth/ПЛК3xx)
oscat.ru | Как обратиться в техподдержку? | Как отлаживать ошибки | Отладка проектов в CODESYS V3.5 | Проблема XY | Как правильно задавать вопросы | AnyDesk
Вот весь "Код")) удалил все...
IF EnableRead THEN
CASE ReadState OF
STATE_MB_RD.CONNECTING:
fbTcpClient
(
xEnable := TRUE ,
tTimeout := T#5S,
sIpAddr := '192.168.0.7',
uiPort :=502
);
IF fbTcpClient.xActive THEN
fbReadRequest (xExecute := TRUE);
ReadState := STATE_MB_RD.READ;
ELSIF fbTcpClient.xError THEN
fbTcpClient(xEnable := FALSE);
ReadState := STATE_MB_RD.CONNECTING;
END_IF
STATE_MB_RD.READ:
fbReadRequest
(
xExecute:=TRUE,
tTimeout:=T#5S,
usiRetry:=5,
hConnection:=fbTcpClient.hConnection,
xIsRtuOverTcpMode:=FALSE,
usiUnitId:=1,
eFuncCode:=OCL.MB_FC.READ_INPUT_REGISTERS,
uiDataAddr:=1,
uiDataCount:=32,
pData:=ADR (DatafORFANK),
szSize:=SIZEOF (DatafORFANK)
);
EnableRead:=FALSE;
ReadState := STATE_MB_RD.CONNECTING;
END_CASE
END_IF