Systemair CXE
Detaljer
- Typ
- Drivrutin
- Upplaggd av
- Ove Jansson, Abelko Innovation
- Version
- 1
- Uppdaterad
- 2017-02-15
- Skapad
- 2017-02-15
- Kategori
- Modbus, Ventilation
- Visningar
- 1867
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
% Skapad med Modbus Creator
% - OBS! Användaren ansvarar själv för att samma TYPID inte används flera gånger i samma apparat.
% TYPID 10000-19999 är för användardefinierade enheter
DEVICETYPE CXE NAMED "CXE" TYPEID 17925 IS
PARAMETER
Id : "Adress" [""]INT;
V8 : "wSetpoint1" ["Pa"]DEC1;
V9 : "wSetpoint2" ["Pa"]DEC1;
PUBLIC
V1 : "Manual mode" [""]INT; % 1=manual
V2 : "E1 Actual" ["Pa"]DEC1; % 3
V3 : "E2 Actual" ["Pa"]DEC1;
V4 : "Setpoint1" ["Pa"]DEC1;
V5 : "Setpoint2" ["Pa"]DEC1;
V6 : "Fanlevel" ["%"]INT;
V7 : "Error" ["No,Gen,Mot,Blckd,T+,Grnd,HALL,A+,Line,HSens,V+,Dir,LTmp,Con,DI"]ENUM;
PRIVATE
count6;
BAUDRATE 19200;
PARITY EVEN;
CHECKSUM MODBUS SWAPPED;
TELEGRAM Read3 NAMED "Read 3" IS
QUESTION
DATA[0] := BYTE(Id); % Enhetens Modbus adress
DATA[1] := HEX(03); % Modbus kommando för att läsa register kod 03
DATA[2] := RWORD(19); % Start address
DATA[4] := RWORD(1); % Antal register att läsa
ANSWER SIZE 7 % (Antal register * 2) + 5
DATA[0] = BYTE(Id);
DATA[1] = BYTE(03);
DATA[2] = BYTE(2); % Antal Bytes
DATA[3] -> RWORD(V1 := DATA;);
TIMEOUT 300
END;
TELEGRAM Read4 NAMED "Read 4" IS
QUESTION
DATA[0] := BYTE(Id); % Enhetens Modbus adress
DATA[1] := HEX(04); % Modbus kommando för att läsa register kod 04
DATA[2] := RWORD(3); % Start address
DATA[4] := RWORD(9); % Antal register att läsa
ANSWER SIZE 23 % (Antal register * 2) + 5
DATA[0] = BYTE(Id);
DATA[1] = BYTE(04);
DATA[2] = BYTE(18); % Antal Bytes
DATA[3] -> RWORD(V2 := (DATA-2740)/10;);
DATA[5] -> RWORD(V3 := (DATA-2740)/10;);
DATA[7] -> RWORD(V4 := (DATA-2740)/10;);
DATA[9] -> RWORD(V5 := (DATA-2740)/10;);
DATA[13] -> RWORD(V6 := DATA;);
DATA[19] -> RWORD(V7 := DATA-128;);
TIMEOUT 300
END;
TELEGRAM WriteRegister NAMED "Write Register" IS
QUESTION
DATA[0] := BYTE(Id); % Enhetens Modbus adress
DATA[1] := HEX(06); % Modbus kommando för att skriva ett register
DATA[2] <- RWORD(
IF(count6>1) THEN count6 := 0; ENDIF;
IF (count6=0) THEN DATA := 6;
ELSIF (count6=1) THEN DATA := 7;
ENDIF;
); % Register adress
DATA[4] <- RWORD(
IF (count6=0) THEN DATA := (V8*10)+2740;
ELSIF (count6=1) THEN DATA := (V9*10)+2740;
ENDIF;
count6 := count6+1;
);
ANSWER SIZE 8
DATA[0] = BYTE(Id);
DATA[1] = BYTE(06);
TIMEOUT 300
END;
END;
% - OBS! Användaren ansvarar själv för att samma TYPID inte används flera gånger i samma apparat.
% TYPID 10000-19999 är för användardefinierade enheter
DEVICETYPE CXE NAMED "CXE" TYPEID 17925 IS
PARAMETER
Id : "Adress" [""]INT;
V8 : "wSetpoint1" ["Pa"]DEC1;
V9 : "wSetpoint2" ["Pa"]DEC1;
PUBLIC
V1 : "Manual mode" [""]INT; % 1=manual
V2 : "E1 Actual" ["Pa"]DEC1; % 3
V3 : "E2 Actual" ["Pa"]DEC1;
V4 : "Setpoint1" ["Pa"]DEC1;
V5 : "Setpoint2" ["Pa"]DEC1;
V6 : "Fanlevel" ["%"]INT;
V7 : "Error" ["No,Gen,Mot,Blckd,T+,Grnd,HALL,A+,Line,HSens,V+,Dir,LTmp,Con,DI"]ENUM;
PRIVATE
count6;
BAUDRATE 19200;
PARITY EVEN;
CHECKSUM MODBUS SWAPPED;
TELEGRAM Read3 NAMED "Read 3" IS
QUESTION
DATA[0] := BYTE(Id); % Enhetens Modbus adress
DATA[1] := HEX(03); % Modbus kommando för att läsa register kod 03
DATA[2] := RWORD(19); % Start address
DATA[4] := RWORD(1); % Antal register att läsa
ANSWER SIZE 7 % (Antal register * 2) + 5
DATA[0] = BYTE(Id);
DATA[1] = BYTE(03);
DATA[2] = BYTE(2); % Antal Bytes
DATA[3] -> RWORD(V1 := DATA;);
TIMEOUT 300
END;
TELEGRAM Read4 NAMED "Read 4" IS
QUESTION
DATA[0] := BYTE(Id); % Enhetens Modbus adress
DATA[1] := HEX(04); % Modbus kommando för att läsa register kod 04
DATA[2] := RWORD(3); % Start address
DATA[4] := RWORD(9); % Antal register att läsa
ANSWER SIZE 23 % (Antal register * 2) + 5
DATA[0] = BYTE(Id);
DATA[1] = BYTE(04);
DATA[2] = BYTE(18); % Antal Bytes
DATA[3] -> RWORD(V2 := (DATA-2740)/10;);
DATA[5] -> RWORD(V3 := (DATA-2740)/10;);
DATA[7] -> RWORD(V4 := (DATA-2740)/10;);
DATA[9] -> RWORD(V5 := (DATA-2740)/10;);
DATA[13] -> RWORD(V6 := DATA;);
DATA[19] -> RWORD(V7 := DATA-128;);
TIMEOUT 300
END;
TELEGRAM WriteRegister NAMED "Write Register" IS
QUESTION
DATA[0] := BYTE(Id); % Enhetens Modbus adress
DATA[1] := HEX(06); % Modbus kommando för att skriva ett register
DATA[2] <- RWORD(
IF(count6>1) THEN count6 := 0; ENDIF;
IF (count6=0) THEN DATA := 6;
ELSIF (count6=1) THEN DATA := 7;
ENDIF;
); % Register adress
DATA[4] <- RWORD(
IF (count6=0) THEN DATA := (V8*10)+2740;
ELSIF (count6=1) THEN DATA := (V9*10)+2740;
ENDIF;
count6 := count6+1;
);
ANSWER SIZE 8
DATA[0] = BYTE(Id);
DATA[1] = BYTE(06);
TIMEOUT 300
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.