MODBUS 2 "38400b8pns1NONE" rega=0 : para=8 DIM RTU(10) CONST REG_AD 0 CONST ONOFF_CMD 1 CONST ON_CMD &hFF00 CONST OFF_CMD &h0000 DO RTU(ONOFF_CMD)=ON_CMD FOR RTU(REG_AD)=16 TO 23 *ret0 X_RTU 10 5 "WW" RTU(REG_AD) IF R_RTU(6)!=1 THEN : GOTO *ret0 : END_IF R_RTU a b "WW" RTU(8) TIME 5 NEXT RTU(ONOFF_CMD)=OFF_CMD FOR RTU(REG_AD)=16 TO 23 *ret1 X_RTU 10 5 "WW" RTU(REG_AD) IF R_RTU(6)!=1 THEN : GOTO *ret1 : END_IF *ret2 X_RTU 10 1 rega~Wrd para~Wrd IF R_RTU(4)!=1 THEN : GOTO *ret2 : END_IF ' R_RTU a c "W" RTU(8) : PRX a c RTU(8) R_RTU a c dmy~Byt io~Byt : PRX a c io TIME 5 NEXT LOOP |