Fläktwoods 227VM-MB
Detaljer
- Typ
- Drivrutin
- Upplaggd av
- Ove Jansson, Abelko Innovation
- Version
- 1
- Uppdaterad
- 2017-01-24
- Skapad
- 2017-01-24
- Kategori
- Modbus, Ventilation
- Visningar
- 2187
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 FW227VMMB NAMED "Fläktwoods 227VMMB" TYPEID 16380 IS
PARAMETER
Id : "Adress" [""]INT;
V10 : "wsetpoint" ["%"]DEC2;
V11 : "woverride control" [""]; % 0=- 1=open 2=close 3=min 4=max 5=between
V12 : "wcommand" [""]INT; % 0=- 1=adaption 2=- 3=- 4=controller reset
V13 : "wdeviceID" [""]INT; % 0=- 1=standard actuator 2=VAV 3=fire damper
PUBLIC
V1 : "setpoint" ["%"]DEC2;
V2 : "override control" [""]INT;
V3 : "command" [""]INT;
V4 : "device ID" [""]INT;
V5 : "relative position" ["%"]DEC2;
V6 : "absolute position" ["%"]DEC2;
V7 : "relative flow" ["%"]DEC2;
V8 : "absolute flow" ["%"]DEC2;
V9 : "sensor value" ["mV"]INT;
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(0); % 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(03);
DATA[2] = BYTE(18); % Antal Bytes
DATA[3] -> RWORD(V1 := DATA/100;);
DATA[5] -> RWORD(V2 := DATA;);
DATA[7] -> RWORD(V3 := DATA;);
DATA[9] -> RWORD(V4 := DATA;);
DATA[11] -> RWORD(V5 := DATA/100;);
DATA[13] -> RWORD(V6 := DATA/100;);
DATA[15] -> RWORD(V7 := DATA/100;);
DATA[17] -> RWORD(V8 := DATA/100;);
DATA[19] -> RWORD(V9 := DATA;);
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>3) THEN count6 := 0; ENDIF;
IF (count6=0) THEN DATA := 0;
ELSIF (count6=1) THEN DATA := 1;
ELSIF (count6=2) THEN DATA := 2;
ELSIF (count6=3) THEN DATA := 3;
ENDIF;
); % Register adress
DATA[4] <- RWORD(
IF (count6=0) THEN DATA := V10*100;
ELSIF (count6=1) THEN DATA := V11;
ELSIF (count6=2) THEN DATA := V12;
ELSIF (count6=3) THEN DATA := V13;
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 FW227VMMB NAMED "Fläktwoods 227VMMB" TYPEID 16380 IS
PARAMETER
Id : "Adress" [""]INT;
V10 : "wsetpoint" ["%"]DEC2;
V11 : "woverride control" [""]; % 0=- 1=open 2=close 3=min 4=max 5=between
V12 : "wcommand" [""]INT; % 0=- 1=adaption 2=- 3=- 4=controller reset
V13 : "wdeviceID" [""]INT; % 0=- 1=standard actuator 2=VAV 3=fire damper
PUBLIC
V1 : "setpoint" ["%"]DEC2;
V2 : "override control" [""]INT;
V3 : "command" [""]INT;
V4 : "device ID" [""]INT;
V5 : "relative position" ["%"]DEC2;
V6 : "absolute position" ["%"]DEC2;
V7 : "relative flow" ["%"]DEC2;
V8 : "absolute flow" ["%"]DEC2;
V9 : "sensor value" ["mV"]INT;
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(0); % 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(03);
DATA[2] = BYTE(18); % Antal Bytes
DATA[3] -> RWORD(V1 := DATA/100;);
DATA[5] -> RWORD(V2 := DATA;);
DATA[7] -> RWORD(V3 := DATA;);
DATA[9] -> RWORD(V4 := DATA;);
DATA[11] -> RWORD(V5 := DATA/100;);
DATA[13] -> RWORD(V6 := DATA/100;);
DATA[15] -> RWORD(V7 := DATA/100;);
DATA[17] -> RWORD(V8 := DATA/100;);
DATA[19] -> RWORD(V9 := DATA;);
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>3) THEN count6 := 0; ENDIF;
IF (count6=0) THEN DATA := 0;
ELSIF (count6=1) THEN DATA := 1;
ELSIF (count6=2) THEN DATA := 2;
ELSIF (count6=3) THEN DATA := 3;
ENDIF;
); % Register adress
DATA[4] <- RWORD(
IF (count6=0) THEN DATA := V10*100;
ELSIF (count6=1) THEN DATA := V11;
ELSIF (count6=2) THEN DATA := V12;
ELSIF (count6=3) THEN DATA := V13;
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.