Alfacontrol läs/skriv
Detaljer
- Typ
- Drivrutin
- Upplaggd av
- Ove Jansson, Abelko Innovation
- Version
- 9
- Uppdaterad
- 2013-05-23
- Skapad
- 2013-05-08
- Kategori
- Kyla, Modbus, Ventilation
- Visningar
- 3115
Beskrivning
Läser värden från ett ventilationsagregat och skriver börvärde. Modbus enheten är från Ziehl-Abegg AG
Bruksanvisning
Otestat, bör pollas varje sekund..
Vilka modbus adresser som finns varierar från applikation till applikation.
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
DEVICETYPE alfacontrol NAMED "alfacontrol" TYPEID 10807 IS
PARAMETER
Id : "Adress";
V5 : "wBörvärde" [""];
PUBLIC
V1 : "Ärvärde" [""]; % 2740 entspricht 0, Kommastelle abhängig v. Messbereich
V2 : "Börvärde" [""]; % 2740 entspricht 0, Kommastelle abhängig v. Messbereich
V3 : "Styrsignal" [""]; % Aussteuerung relativ 0?100 entspricht 0?100%
V4 : "Felkod" [""]; % 128 = inget fel
PRIVATE
count4;
tmp;
BAUDRATE 19200;
PARITY EVEN;
CHECKSUM MODBUS SWAPPED;
TELEGRAM write6 NAMED "Write 6" IS
QUESTION
DATA[0] := BYTE(Id);
DATA[1] := BYTE(06);
DATA[2] := RWORD(07);
DATA[4] <- RWORD(DATA := V5;);
ANSWER SIZE 8
DATA[0] = BYTE(Id);
DATA[1] = BYTE(06);
TIMEOUT 300
END;
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>3) THEN count4 := 0; ENDIF;
IF (count4=0) THEN tmp := 2;
ELSIF (count4=1) THEN tmp := 4;
ELSIF (count4=2) THEN tmp := 7;
ELSIF (count4=3) THEN tmp := 10;
ENDIF;
DATA:= tmp;
);
DATA[4] := RWORD(01);
ANSWER SIZE 7
DATA[0] = BYTE(Id);
DATA[1] = BYTE(04);
DATA[3] -> RWORD(
IF (count4=0) THEN V1 := DATA;
ELSIF (count4=1) THEN V2 := DATA;
ELSIF (count4=2) THEN V3 := DATA;
ELSIF (count4=3) THEN V4 := DATA;
ENDIF;
count4 := count4+1;
);
TIMEOUT 300
END;
END;
PARAMETER
Id : "Adress";
V5 : "wBörvärde" [""];
PUBLIC
V1 : "Ärvärde" [""]; % 2740 entspricht 0, Kommastelle abhängig v. Messbereich
V2 : "Börvärde" [""]; % 2740 entspricht 0, Kommastelle abhängig v. Messbereich
V3 : "Styrsignal" [""]; % Aussteuerung relativ 0?100 entspricht 0?100%
V4 : "Felkod" [""]; % 128 = inget fel
PRIVATE
count4;
tmp;
BAUDRATE 19200;
PARITY EVEN;
CHECKSUM MODBUS SWAPPED;
TELEGRAM write6 NAMED "Write 6" IS
QUESTION
DATA[0] := BYTE(Id);
DATA[1] := BYTE(06);
DATA[2] := RWORD(07);
DATA[4] <- RWORD(DATA := V5;);
ANSWER SIZE 8
DATA[0] = BYTE(Id);
DATA[1] = BYTE(06);
TIMEOUT 300
END;
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>3) THEN count4 := 0; ENDIF;
IF (count4=0) THEN tmp := 2;
ELSIF (count4=1) THEN tmp := 4;
ELSIF (count4=2) THEN tmp := 7;
ELSIF (count4=3) THEN tmp := 10;
ENDIF;
DATA:= tmp;
);
DATA[4] := RWORD(01);
ANSWER SIZE 7
DATA[0] = BYTE(Id);
DATA[1] = BYTE(04);
DATA[3] -> RWORD(
IF (count4=0) THEN V1 := DATA;
ELSIF (count4=1) THEN V2 := DATA;
ELSIF (count4=2) THEN V3 := DATA;
ELSIF (count4=3) THEN V4 := DATA;
ENDIF;
count4 := count4+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.