Exhausto med Flex81 modbusmodul del 1
Detaljer
- Typ
- Drivrutin
- Upplaggd av
- Ove Jansson, Abelko Innovation
- Version
- 3
- Uppdaterad
- 2015-05-27
- Skapad
- 2015-05-12
- Kategori
- Modbus, Ventilation
- Visningar
- 2441
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
% 9600 8N1
DEVICETYPE FLEX81_1 NAMED "FLEX81_1" TYPEID 14325 IS
PARAMETER
Id : "Adress";
V20 : "wBörvärde tryck" ["Pa"];
PUBLIC
V1 : "Start fläktmotor" [""];% ev kommentera bort ej läsbar?
V2 : "Värmefel" [""];% ev kommentera bort ej läsbar?
V3 : "Start motionering" [""];% ev kommentera bort ej läsbar?
V4 : "Fabriksåterställning" [""];% ev kommentera bort ej läsbar?
V5 : "Drift fläktmotor" [""];
V6 : "Fel fläktmotor" [""];
V7 : "Trycklarm" [""];
V8 : "Brand" [""];
V9 : "Service rökdetektor" [""];
V10 : "Filtervakt" [""];
V11 : "Serviceomkopplare aktiverad" [""];
V12 : "Motionering pågår" [""];
V13 : "Spjälldrift" [""];
V14 : "Spjällfel evakueringsläge" [""];
V15 : "Spjällfel driftläge" [""];
V16 : "Spjällfel 2evakueringsläge" [""];
V17 : "Spjällfel 2driftläge" [""];
V18 : "Utetemp" [""];
V19 : "Börvärde tryck" ["Pa"];
PRIVATE
count3;
count6;
tmp;
BAUDRATE 9600;
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
DATA[2] <- RWORD(
IF(count3>18) THEN count3 := 0; ENDIF;
IF (count3=0) THEN tmp := 0; % ev kommentera bort ej läsbar?
ELSIF (count3=1) THEN tmp := 1; % ev kommentera bort ej läsbar?
ELSIF (count3=2) THEN tmp := 2; % ev kommentera bort ej läsbar?
ELSIF (count3=3) THEN tmp := 12; % ev kommentera bort ej läsbar?
ELSIF (count3=4) THEN tmp := 16;
ELSIF (count3=5) THEN tmp := 17;
ELSIF (count3=6) THEN tmp := 18;
ELSIF (count3=7) THEN tmp := 19;
ELSIF (count3=8) THEN tmp := 20;
ELSIF (count3=9) THEN tmp := 21;
ELSIF (count3=10) THEN tmp := 26;
ELSIF (count3=11) THEN tmp := 27;
ELSIF (count3=12) THEN tmp := 28;
ELSIF (count3=13) THEN tmp := 31;
ELSIF (count3=14) THEN tmp := 32;
ELSIF (count3=15) THEN tmp := 33;
ELSIF (count3=16) THEN tmp := 34;
ELSIF (count3=17) THEN tmp := 51;
ELSIF (count3=18) THEN tmp := 54;
ENDIF;
DATA:= tmp;
);
DATA[4] := RWORD(01);
ANSWER SIZE 7
DATA[0] = BYTE(Id);
DATA[1] = BYTE(03);
DATA[3] -> RWORD(
IF (count3=0) THEN V1 := DATA; % ev kommentera bort ej läsbar?
ELSIF (count3=1) THEN V2 := DATA; % ev kommentera bort ej läsbar?
ELSIF (count3=2) THEN V3 := DATA; % ev kommentera bort ej läsbar?
ELSIF (count3=3) THEN V4 := DATA; % ev kommentera bort ej läsbar?
ELSIF (count3=4) THEN V5 := DATA;
ELSIF (count3=5) THEN V6 := DATA;
ELSIF (count3=6) THEN V7 := DATA;
ELSIF (count3=7) THEN V8 := DATA;
ELSIF (count3=8) THEN V9 := DATA;
ELSIF (count3=9) THEN V10 := DATA;
ELSIF (count3=10) THEN V11 := DATA;
ELSIF (count3=11) THEN V12 := DATA;
ELSIF (count3=12) THEN V13 := DATA;
ELSIF (count3=13) THEN V14 := DATA;
ELSIF (count3=14) THEN V15 := DATA;
ELSIF (count3=15) THEN V16 := DATA;
ELSIF (count3=16) THEN V17 := DATA;
ELSIF (count3=17) THEN IF (DATA>=32768) THEN V18:=(DATA-65536); ELSE V18:=DATA; ENDIF;
ELSIF (count3=18) THEN V19 := DATA;
ENDIF;
count3 := count3+1;
);
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>0) THEN count6 := 0; ENDIF;
IF (count6=0) THEN DATA := 54;
ENDIF;
); % Register adress
DATA[4] <- RWORD(
IF (count6=0) THEN DATA := V20;
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
% 9600 8N1
DEVICETYPE FLEX81_1 NAMED "FLEX81_1" TYPEID 14325 IS
PARAMETER
Id : "Adress";
V20 : "wBörvärde tryck" ["Pa"];
PUBLIC
V1 : "Start fläktmotor" [""];% ev kommentera bort ej läsbar?
V2 : "Värmefel" [""];% ev kommentera bort ej läsbar?
V3 : "Start motionering" [""];% ev kommentera bort ej läsbar?
V4 : "Fabriksåterställning" [""];% ev kommentera bort ej läsbar?
V5 : "Drift fläktmotor" [""];
V6 : "Fel fläktmotor" [""];
V7 : "Trycklarm" [""];
V8 : "Brand" [""];
V9 : "Service rökdetektor" [""];
V10 : "Filtervakt" [""];
V11 : "Serviceomkopplare aktiverad" [""];
V12 : "Motionering pågår" [""];
V13 : "Spjälldrift" [""];
V14 : "Spjällfel evakueringsläge" [""];
V15 : "Spjällfel driftläge" [""];
V16 : "Spjällfel 2evakueringsläge" [""];
V17 : "Spjällfel 2driftläge" [""];
V18 : "Utetemp" [""];
V19 : "Börvärde tryck" ["Pa"];
PRIVATE
count3;
count6;
tmp;
BAUDRATE 9600;
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
DATA[2] <- RWORD(
IF(count3>18) THEN count3 := 0; ENDIF;
IF (count3=0) THEN tmp := 0; % ev kommentera bort ej läsbar?
ELSIF (count3=1) THEN tmp := 1; % ev kommentera bort ej läsbar?
ELSIF (count3=2) THEN tmp := 2; % ev kommentera bort ej läsbar?
ELSIF (count3=3) THEN tmp := 12; % ev kommentera bort ej läsbar?
ELSIF (count3=4) THEN tmp := 16;
ELSIF (count3=5) THEN tmp := 17;
ELSIF (count3=6) THEN tmp := 18;
ELSIF (count3=7) THEN tmp := 19;
ELSIF (count3=8) THEN tmp := 20;
ELSIF (count3=9) THEN tmp := 21;
ELSIF (count3=10) THEN tmp := 26;
ELSIF (count3=11) THEN tmp := 27;
ELSIF (count3=12) THEN tmp := 28;
ELSIF (count3=13) THEN tmp := 31;
ELSIF (count3=14) THEN tmp := 32;
ELSIF (count3=15) THEN tmp := 33;
ELSIF (count3=16) THEN tmp := 34;
ELSIF (count3=17) THEN tmp := 51;
ELSIF (count3=18) THEN tmp := 54;
ENDIF;
DATA:= tmp;
);
DATA[4] := RWORD(01);
ANSWER SIZE 7
DATA[0] = BYTE(Id);
DATA[1] = BYTE(03);
DATA[3] -> RWORD(
IF (count3=0) THEN V1 := DATA; % ev kommentera bort ej läsbar?
ELSIF (count3=1) THEN V2 := DATA; % ev kommentera bort ej läsbar?
ELSIF (count3=2) THEN V3 := DATA; % ev kommentera bort ej läsbar?
ELSIF (count3=3) THEN V4 := DATA; % ev kommentera bort ej läsbar?
ELSIF (count3=4) THEN V5 := DATA;
ELSIF (count3=5) THEN V6 := DATA;
ELSIF (count3=6) THEN V7 := DATA;
ELSIF (count3=7) THEN V8 := DATA;
ELSIF (count3=8) THEN V9 := DATA;
ELSIF (count3=9) THEN V10 := DATA;
ELSIF (count3=10) THEN V11 := DATA;
ELSIF (count3=11) THEN V12 := DATA;
ELSIF (count3=12) THEN V13 := DATA;
ELSIF (count3=13) THEN V14 := DATA;
ELSIF (count3=14) THEN V15 := DATA;
ELSIF (count3=15) THEN V16 := DATA;
ELSIF (count3=16) THEN V17 := DATA;
ELSIF (count3=17) THEN IF (DATA>=32768) THEN V18:=(DATA-65536); ELSE V18:=DATA; ENDIF;
ELSIF (count3=18) THEN V19 := DATA;
ENDIF;
count3 := count3+1;
);
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>0) THEN count6 := 0; ENDIF;
IF (count6=0) THEN DATA := 54;
ENDIF;
); % Register adress
DATA[4] <- RWORD(
IF (count6=0) THEN DATA := V20;
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.