Fläkt Wood Holding
Detaljer
- Typ
- Drivrutin
- Upplaggd av
- Ove Jansson, Abelko Innovation
- Version
- 3
- Uppdaterad
- 2015-10-26
- Skapad
- 2015-10-16
- Kategori
- Modbus, Ventilation
- Visningar
- 2246
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 fwHolding NAMED "Fläkt Woods holding" TYPEID 12356 IS
PARAMETER
Id : "Adress";
PUBLIC
V1 : "som/vinter TL komp" ["C"]DEC1;
V2 : "TLfläkt steg1 bv" ["l/s"];
V3 : "FLfläkt steg1 bv" ["l/s"];
V4 : "Sommar komptemp" ["K"]DEC1;
V5 : "Vinter komptemp" ["K"]DEC1;
PRIVATE
count3;
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>4) THEN count3 := 0; ENDIF;
IF (count3=0) THEN tmp := 32;
ELSIF (count3=1) THEN tmp := 50;
ELSIF (count3=2) THEN tmp := 54;
ELSIF (count3=3) THEN tmp := 84;
ELSIF (count3=4) THEN tmp := 85;
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 IF (DATA>=32768) THEN V1:=(DATA-65536)/10; ELSE V1:=DATA/10; ENDIF;
ELSIF (count3=1) THEN V2 := DATA;
ELSIF (count3=2) THEN V3 := DATA;
ELSIF (count3=3) THEN V4 := DATA/10;
ELSIF (count3=4) THEN V5 := DATA/10;
ENDIF;
count3 := count3+1;
);
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 fwHolding NAMED "Fläkt Woods holding" TYPEID 12356 IS
PARAMETER
Id : "Adress";
PUBLIC
V1 : "som/vinter TL komp" ["C"]DEC1;
V2 : "TLfläkt steg1 bv" ["l/s"];
V3 : "FLfläkt steg1 bv" ["l/s"];
V4 : "Sommar komptemp" ["K"]DEC1;
V5 : "Vinter komptemp" ["K"]DEC1;
PRIVATE
count3;
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>4) THEN count3 := 0; ENDIF;
IF (count3=0) THEN tmp := 32;
ELSIF (count3=1) THEN tmp := 50;
ELSIF (count3=2) THEN tmp := 54;
ELSIF (count3=3) THEN tmp := 84;
ELSIF (count3=4) THEN tmp := 85;
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 IF (DATA>=32768) THEN V1:=(DATA-65536)/10; ELSE V1:=DATA/10; ENDIF;
ELSIF (count3=1) THEN V2 := DATA;
ELSIF (count3=2) THEN V3 := DATA;
ELSIF (count3=3) THEN V4 := DATA/10;
ELSIF (count3=4) THEN V5 := DATA/10;
ENDIF;
count3 := count3+1;
);
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.