VAR CONSTANT
c_tInterval : TIME := T#1S;
c_udiInterval : UDINT :=
3
* TIME_TO_UDINT(c_tInterval)/
1000
;
END_VAR
VAR
ipAddress : NBS.IPv4Address;
fbTcpClient : NBS.TCP_Client;
fbTcpRead : NBS.TCP_Read;
fbTcpWrite : NBS.TCP_Write;
abyTx : ARRAY [
0
..gvlSetting.gc_wMaxTelegram] OF BYTE;
abyRx : ARRAY [
0
..gvlSetting.gc_wMaxTelegram] OF BYTE;
fbBlink : BLINK := (TIMELOW := c_tInterval, TIMEHIGH := c_tInterval);
xBlink : BOOL;
udiVal : UDINT;
pudiVal : POINTER TO BYTE;
iIndex : INT;
xConnect : BOOL;
xRead : BOOL;
xMissingAck : BOOL;
udiResult : UDINT;
udiLastAck : UDINT;
udiNow : UDINT;
udiRead : UDINT;
eRErrorID : NBS.ERROR;
eWErrorID : NBS.ERROR;
END_VAR
IF NOT fbTcpClient.xActive THEN
ipAddress.SetInitialValue(ipAddress := gvlSetting.gc_stIpAddr);
END_IF
fbTcpClient(xEnable := xConnect, itfIPAddress := ipAddress, uiPort := gvlSetting.gc_uiPort, udiTimeOut :=
0
);
fbBlink(ENABLE := TRUE);
IF (fbBlink.OUT AND (xBlink <> fbBlink.OUT) ) THEN
udiVal := udiVal +
1
;
FOR iIndex :=
0
TO gvlSetting.gc_wMaxTelegram DO
abyTx[iIndex] :=
0
;
END_FOR
abyTx[
0
] :=
87
;
abyTx[
1
] :=
0" class="post-container bg-white pb-3" style="min-height:360px;">
{{item.nickname}}
{{key+1}}楼{{item.content}}
{{item2.nickname}}
{{item2.content}}