Siox RO3 via ES2
Detaljer
- Typ
- Drivrutin
- Upplaggd av
- Ove Jansson, Abelko Innovation
- Version
- 1
- Uppdaterad
- 2018-09-26
- Skapad
- 2018-09-26
- Kategori
- IO enheter, Modbus, Övriga protokoll
- Visningar
- 1783
Beskrivning
.
Bruksanvisning
.
Juridisk information
Alla skript tillhandahålls i befintligt skick och all användning sker på eget ansvar. Felaktig använding kan leda till skadad eller förstörd utrustning.
Skript kod
DEVICETYPE R03 NAMED "Siox R03" TYPEID 18379 IS
PARAMETER
Id : "Adress" [""]INT;
PUBLIC
T1 : "Temperatur" ["°C"]DEC2;
DI1 : "Input 1" INT;
DI2 : "Input 2" INT;
C1 : "Counter 1" [""]INT;
C2 : "Counter 2" [""]INT;
C1a : "Acc.Counter 1" [""]INT;
C2a : "Acc.Counter 2" [""]INT;
PRIVATE
tmp;
BAUDRATE 9600;
CHECKSUM MODBUS SWAPPED;
TELEGRAM Read4 NAMED "Read 4" IS
QUESTION
DATA[0] := BYTE(Id); % Enhetens Modbus adress
DATA[1] := HEX(03);
DATA[2] := RWORD(5); % Start address
DATA[4] := RWORD(27); % Antal register att läsa
ANSWER SIZE 59 % (Antal register * 2) + 5
DATA[0] = BYTE(Id);
DATA[1] = HEX(03);
DATA[2] = BYTE(54); % Antal Bytes
DATA[3] -> RINT(T1:=DATA/10;);
DATA[11] -> RWORD( %9
IF DATA & 1 THEN tmp:=1; ELSE tmp:=0; ENDIF; DI1:=tmp;
IF DATA & 2 THEN tmp:=1; ELSE tmp:=0; ENDIF; DI2:=tmp;
);
DATA[41] -> RWORD32(C1:=DATA;);
DATA[45] -> RWORD32(C2:=DATA;);
DATA[49] -> RWORD32(C1a:=DATA;);
DATA[53] -> RWORD32(C2a:=DATA;);
TIMEOUT 800
END;
END;
PARAMETER
Id : "Adress" [""]INT;
PUBLIC
T1 : "Temperatur" ["°C"]DEC2;
DI1 : "Input 1" INT;
DI2 : "Input 2" INT;
C1 : "Counter 1" [""]INT;
C2 : "Counter 2" [""]INT;
C1a : "Acc.Counter 1" [""]INT;
C2a : "Acc.Counter 2" [""]INT;
PRIVATE
tmp;
BAUDRATE 9600;
CHECKSUM MODBUS SWAPPED;
TELEGRAM Read4 NAMED "Read 4" IS
QUESTION
DATA[0] := BYTE(Id); % Enhetens Modbus adress
DATA[1] := HEX(03);
DATA[2] := RWORD(5); % Start address
DATA[4] := RWORD(27); % Antal register att läsa
ANSWER SIZE 59 % (Antal register * 2) + 5
DATA[0] = BYTE(Id);
DATA[1] = HEX(03);
DATA[2] = BYTE(54); % Antal Bytes
DATA[3] -> RINT(T1:=DATA/10;);
DATA[11] -> RWORD( %9
IF DATA & 1 THEN tmp:=1; ELSE tmp:=0; ENDIF; DI1:=tmp;
IF DATA & 2 THEN tmp:=1; ELSE tmp:=0; ENDIF; DI2:=tmp;
);
DATA[41] -> RWORD32(C1:=DATA;);
DATA[45] -> RWORD32(C2:=DATA;);
DATA[49] -> RWORD32(C1a:=DATA;);
DATA[53] -> RWORD32(C2a:=DATA;);
TIMEOUT 800
END;
END;
Användarnas noteringar
Du måste vara inloggad för att göra en notering. Bli medlem eller logga in. Vi använder en moderator som godkänner noteringarna innan de visas.