Hagab SEHA-M2
Detaljer
- Typ
- Drivrutin
- Upplaggd av
- Ove Jansson, Abelko Innovation
- Version
- 2
- Uppdaterad
- 2016-09-22
- Skapad
- 2016-09-21
- Kategori
- Modbus, Ventilation
- Visningar
- 1990
Beskrivning
.
Bruksanvisning
OBS! det finns en bugg i HAGAB SEHA-M2 version 1.3 eller tidigare. De går bara att köra modbus mot om de är enda enheten på slingan. Enligt HAGAB ska dessa bytas ut.
Serienumret är de två sista siffrorna i serienumret xxxx13 = version 1.3
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 SEHAM2 NAMED "Hagab SEHAM2" TYPEID 17288 IS
PARAMETER
Id : "Adress";
PUBLIC
S1 : "Fire alarm relay output is activated" [""]INT;
S2 : "Fault alarm relay output is activated" [""]INT;
S3 : "Fan 1 relay output is activated" [""]INT;
S4 : "Fan 2 relay output is activated" [""]INT;
S5 : "Hardware nighttime input is activated" [""]INT;
S6 : "Hardware external fire alarm input is activated" [""]INT;
S7 : "Hardware pressure sensor input is activated" [""]INT;
S8 : "Hardware auxilliary input is activated" [""]INT;
S9 : "Slave communication error (non-latching)" [""]INT;
S10 : "Exhaust fan test is in progress in FG1 (function group 1)" [""]INT;
S11 : "Exhaust fan test is in progress in FG2 (function group 2)" [""]INT;
S12 : "Damper test is in progress in FG1 (function group 1)" [""]INT;
S13 : "Damper test is in progress in FG2 (function group 2)" [""]INT;
PRIVATE
BAUDRATE 9600;
PARITY EVEN;
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 kod 04
DATA[2] := RWORD(1296); % 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(04);
DATA[2] = BYTE(2); % Antal Bytes
DATA[3] -> RWORD(
IF DATA & 1 THEN S1:=1; ELSE S1:=0; ENDIF;
IF DATA & 2 THEN S2:=1; ELSE S2:=0; ENDIF;
IF DATA & 4 THEN S3:=1; ELSE S3:=0; ENDIF;
IF DATA & 8 THEN S4:=1; ELSE S4:=0; ENDIF;
IF DATA & 16 THEN S5:=1; ELSE S5:=0; ENDIF;
IF DATA & 32 THEN S6:=1; ELSE S6:=0; ENDIF;
IF DATA & 64 THEN S7:=1; ELSE S7:=0; ENDIF;
IF DATA & 128 THEN S8:=1; ELSE S8:=0; ENDIF;
IF DATA & 256 THEN S9:=1; ELSE S9:=0; ENDIF;
IF DATA & 512 THEN S10:=1; ELSE S10:=0; ENDIF;
IF DATA & 1024 THEN S11:=1; ELSE S11:=0; ENDIF;
IF DATA & 2048 THEN S12:=1; ELSE S12:=0; ENDIF;
IF DATA & 4096 THEN S13:=1; ELSE S13:=0; ENDIF;
);
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 SEHAM2 NAMED "Hagab SEHAM2" TYPEID 17288 IS
PARAMETER
Id : "Adress";
PUBLIC
S1 : "Fire alarm relay output is activated" [""]INT;
S2 : "Fault alarm relay output is activated" [""]INT;
S3 : "Fan 1 relay output is activated" [""]INT;
S4 : "Fan 2 relay output is activated" [""]INT;
S5 : "Hardware nighttime input is activated" [""]INT;
S6 : "Hardware external fire alarm input is activated" [""]INT;
S7 : "Hardware pressure sensor input is activated" [""]INT;
S8 : "Hardware auxilliary input is activated" [""]INT;
S9 : "Slave communication error (non-latching)" [""]INT;
S10 : "Exhaust fan test is in progress in FG1 (function group 1)" [""]INT;
S11 : "Exhaust fan test is in progress in FG2 (function group 2)" [""]INT;
S12 : "Damper test is in progress in FG1 (function group 1)" [""]INT;
S13 : "Damper test is in progress in FG2 (function group 2)" [""]INT;
PRIVATE
BAUDRATE 9600;
PARITY EVEN;
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 kod 04
DATA[2] := RWORD(1296); % 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(04);
DATA[2] = BYTE(2); % Antal Bytes
DATA[3] -> RWORD(
IF DATA & 1 THEN S1:=1; ELSE S1:=0; ENDIF;
IF DATA & 2 THEN S2:=1; ELSE S2:=0; ENDIF;
IF DATA & 4 THEN S3:=1; ELSE S3:=0; ENDIF;
IF DATA & 8 THEN S4:=1; ELSE S4:=0; ENDIF;
IF DATA & 16 THEN S5:=1; ELSE S5:=0; ENDIF;
IF DATA & 32 THEN S6:=1; ELSE S6:=0; ENDIF;
IF DATA & 64 THEN S7:=1; ELSE S7:=0; ENDIF;
IF DATA & 128 THEN S8:=1; ELSE S8:=0; ENDIF;
IF DATA & 256 THEN S9:=1; ELSE S9:=0; ENDIF;
IF DATA & 512 THEN S10:=1; ELSE S10:=0; ENDIF;
IF DATA & 1024 THEN S11:=1; ELSE S11:=0; ENDIF;
IF DATA & 2048 THEN S12:=1; ELSE S12:=0; ENDIF;
IF DATA & 4096 THEN S13:=1; ELSE S13:=0; ENDIF;
);
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.