Exomatic DUC
Detaljer
- Typ
- Drivrutin
- Upplaggd av
- Ove Jansson, Abelko Innovation
- Version
- 5
- Uppdaterad
- 2014-03-12
- Skapad
- 2013-10-08
- Kategori
- Modbus, Ventilation
- Visningar
- 3310
Beskrivning
Modbus drivrutin till ventillationsstyrning
Bruksanvisning
Exomatic är programmerbar och detta skript är för en enhet där temperaturer anges med en decimal och övriga värden som tex tryck anges i heltal.
OBS! Dokumentationen var fel för att läsa Input Register, den började på adress 1 istället för 0. Det är justerat med DATA:= tmp + 1;
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
DEVICETYPE ExomaticLarm NAMED "Exomatic Larm" TYPEID 22114 IS
PARAMETER
Id : "Adress";
PUBLIC
V1 : "GT81 Frysvakt larm" [""];
V2 : "LB1 VÅV låg verkningsgrad" [""];
V3 : "LB1 GT11 låg temp" [""];
V4 : "LB1 GT11 hög temp " [""];
V5 : "LB1 GP11 lågt tryck" [""];
V6 : "LB1 GP11 högt tryck" [""];
V7 : "LB1 GP12 Lågt tryck" [""];
V8 : "LB1 GP12 Högt tryck" [""];
V9 : "GX71 GX72 Röklarm" [""];
V10 : "LB2 GT81 frysvakts" [""];
V11 : "LB2 GT11 låg temp" [""];
V12 : "LB2 GT11 hög temp" [""];
V13 : "Centralt Brandlarm" [""];
PRIVATE
BAUDRATE 9600;
CHECKSUM MODBUS SWAPPED;
TELEGRAM Read2 NAMED "Read 2" IS
QUESTION
DATA[0] := BYTE(Id); % Enhetens Modbus adress
DATA[1] := HEX(02); % Modbus kommando för att läsa register kod 02
DATA[2] := RWORD(45); % Start address
DATA[4] := RWORD(34); % Antal register att läsa
ANSWER SIZE 10 % (Antal register / 8) avrundat uppåt + 5
DATA[0] = BYTE(Id);
DATA[1] = BYTE(02);
DATA[2] = BYTE(5); % Antal Bytes
DATA[3] -> BYTE(
IF (DATA & 1) THEN V1 := 1; ELSE V1 := 0; ENDIF;
IF (DATA & 2) THEN V2 := 1; ELSE V2 := 0; ENDIF;
IF (DATA & 4) THEN V3 := 1; ELSE V3 := 0; ENDIF;
IF (DATA & 8) THEN V4 := 1; ELSE V4 := 0; ENDIF;
IF (DATA & 16) THEN V5 := 1; ELSE V5 := 0; ENDIF;
IF (DATA & 32) THEN V6 := 1; ELSE V6 := 0; ENDIF;
IF (DATA & 64) THEN V7 := 1; ELSE V7 := 0; ENDIF;
IF (DATA & 128) THEN V8 := 1; ELSE V8 := 0; ENDIF;
);
DATA[4] -> BYTE(
IF (DATA & 1) THEN V9 := 1; ELSE V9 := 0; ENDIF;
);
DATA[5] -> BYTE(
IF (DATA & 16) THEN V10 := 1; ELSE V10 := 0; ENDIF;
IF (DATA & 32) THEN V11 := 1; ELSE V11 := 0; ENDIF;
IF (DATA & 64) THEN V12 := 1; ELSE V12 := 0; ENDIF;
);
DATA[7] -> BYTE(
IF (DATA & 2) THEN V13 := 1; ELSE V13 := 0; ENDIF;
);
TIMEOUT 300
END;
END;
% Skapad med Modbus Creator
DEVICETYPE ExomaticInput NAMED "Exomatic Input" TYPEID 22115 IS
PARAMETER
Id : "Adress";
PUBLIC
V1 : "LB1 GT11" ["°C"]DEC1;
V2 : "LB1 GT31" ["°C"]DEC1;
V3 : "LB1 GT41" ["°C"]DEC1;
V4 : "LB1 GT42" ["°C"]DEC1;
V5 : "LB1 GT81" ["°C"]DEC1;
V6 : "LB2 GT11" ["°C"]DEC1;
V7 : "LB2 GT81" ["°C"]DEC1;
V8 : "FF4 GT51" ["°C"]DEC1;
V9 : "LB1 GP11" ["Pa"];
V10 : "LB1 GP12" ["Pa"];
V11 : "LB1 SV21" ["%"];
V12 : "LB1 SV31" ["%"];
V13 : "LB1 TA1 Omformare" ["%"];
V14 : "LB1 FA1 Omformare" ["%"];
V15 : "LB2 SV21" ["%"];
V16 : "LB2 FF2 Omformare" ["%"];
V17 : "RAD GT11" ["°C"]DEC1;
V18 : "RAD SV21" ["%"];
PRIVATE
count4;
tmp;
BAUDRATE 9600;
CHECKSUM MODBUS SWAPPED;
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
DATA[2] <- RWORD(
IF(count4>17) THEN count4 := 0; ENDIF;
IF (count4=0) THEN tmp := 0;
ELSIF (count4=1) THEN tmp := 1;
ELSIF (count4=2) THEN tmp := 2;
ELSIF (count4=3) THEN tmp := 3;
ELSIF (count4=4) THEN tmp := 4;
ELSIF (count4=5) THEN tmp := 5;
ELSIF (count4=6) THEN tmp := 6;
ELSIF (count4=7) THEN tmp := 7;
ELSIF (count4=8) THEN tmp := 8;
ELSIF (count4=9) THEN tmp := 9;
ELSIF (count4=10) THEN tmp := 10;
ELSIF (count4=11) THEN tmp := 11;
ELSIF (count4=12) THEN tmp := 12;
ELSIF (count4=13) THEN tmp := 13;
ELSIF (count4=14) THEN tmp := 14;
ELSIF (count4=15) THEN tmp := 15;
ELSIF (count4=16) THEN tmp := 16;
ELSIF (count4=17) THEN tmp := 17;
ENDIF;
DATA:= tmp + 1;
);
DATA[4] := RWORD(01);
ANSWER SIZE 7
DATA[0] = BYTE(Id);
DATA[1] = BYTE(04);
DATA[3] -> RWORD(
IF (count4=0) THEN V1 := DATA/10;
ELSIF (count4=1) THEN V2 := DATA/10;
ELSIF (count4=2) THEN V3 := DATA/10;
ELSIF (count4=3) THEN V4 := DATA/10;
ELSIF (count4=4) THEN V5 := DATA/10;
ELSIF (count4=5) THEN V6 := DATA/10;
ELSIF (count4=6) THEN V7 := DATA/10;
ELSIF (count4=7) THEN V8 := DATA/10;
ELSIF (count4=8) THEN V9 := DATA/10;
ELSIF (count4=9) THEN V10 := DATA/10;
ELSIF (count4=10) THEN V11 := DATA/10;
ELSIF (count4=11) THEN V12 := DATA/10;
ELSIF (count4=12) THEN V13 := DATA/10;
ELSIF (count4=13) THEN V14 := DATA/10;
ELSIF (count4=14) THEN V15 := DATA/10;
ELSIF (count4=15) THEN V16 := DATA/10;
ELSIF (count4=16) THEN V17 := DATA/10;
ELSIF (count4=17) THEN V18 := DATA/10;
ENDIF;
count4 := count4+1;
);
TIMEOUT 800
END;
END;
% Skapad med Modbus Creator
DEVICETYPE ExomaticW NAMED "ExomaticW" TYPEID 22116 IS
PARAMETER
Id : "Adress";
V9 : "wLB1 TA1 bör tryck" ["Pa"];
V10 : "wLB1 FA1 Bör tryck" ["Pa"];
V11 : "wLB2 Bör temp" ["°C"]DEC1;
V12 : "wFF2 Bör steg 1" ["Pa"];
V13 : "wFF2 Bör steg 2" ["Pa"];
V14 : "wFF2 Bör steg 3" ["Pa"];
V15 : "wFF4 start temp" ["°C"]DEC1;
V16 : "FF4 stop temp" ["°C"]DEC1;
PUBLIC
V1 : "LB1 TA1 börvärde tryck" ["Pa"];
V2 : "LB1 FA1 Bör tryck" ["Pa"];
V3 : "LB2 Bör temp " ["°C"]DEC1;
V4 : "FF2 Bör steg 1" ["Pa"];
V5 : "FF2 Bör steg 2" ["Pa"];
V6 : "FF2 Bör steg 3" ["Pa"];
V7 : "FF4 start temp" ["°C"]DEC1;
V8 : "FF4 stop temp" ["°C"]DEC1;
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>7) THEN count3 := 0; ENDIF;
IF (count3=0) THEN tmp := 28;
ELSIF (count3=1) THEN tmp := 29;
ELSIF (count3=2) THEN tmp := 39;
ELSIF (count3=3) THEN tmp := 43;
ELSIF (count3=4) THEN tmp := 44;
ELSIF (count3=5) THEN tmp := 45;
ELSIF (count3=6) THEN tmp := 48;
ELSIF (count3=7) THEN tmp := 49;
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;
ELSIF (count3=1) THEN V2 := DATA/10;
ELSIF (count3=2) THEN V3 := DATA/10;
ELSIF (count3=3) THEN V4 := DATA;
ELSIF (count3=4) THEN V5 := DATA;
ELSIF (count3=5) THEN V6 := DATA;
ELSIF (count3=6) THEN V7 := DATA/10;
ELSIF (count3=7) THEN V8 := DATA/10;
ENDIF;
count3 := count3+1;
);
TIMEOUT 800
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>7) THEN count6 := 0; ENDIF;
IF (count6=0) THEN DATA := 28;
ELSIF (count6=1) THEN DATA := 29;
ELSIF (count6=2) THEN DATA := 39;
ELSIF (count6=3) THEN DATA := 43;
ELSIF (count6=4) THEN DATA := 44;
ELSIF (count6=5) THEN DATA := 45;
ELSIF (count6=6) THEN DATA := 48;
ELSIF (count6=7) THEN DATA := 49;
ENDIF;
); % Register adress
DATA[4] <- RWORD(
IF (count6=0) THEN DATA := V9;
ELSIF (count6=1) THEN DATA := V10*10;
ELSIF (count6=2) THEN DATA := V11*10;
ELSIF (count6=3) THEN DATA := V12;
ELSIF (count6=4) THEN DATA := V13;
ELSIF (count6=5) THEN DATA := V14;
ELSIF (count6=6) THEN DATA := V15*10;
ELSIF (count6=7) THEN DATA := V16*10;
ENDIF;
count6 := count6+1;
);
ANSWER SIZE 8
DATA[0] = BYTE(Id);
DATA[1] = BYTE(06);
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.