Netavent NESL Rumsregulator Write Holding
Detaljer
- Typ
- Drivrutin
- Upplaggd av
- Ove Jansson, Abelko Innovation
- Version
- 1
- Uppdaterad
- 2013-08-28
- Skapad
- 2013-08-28
- Kategori
- Kyla, Modbus, Värme, Ventilation
- Visningar
- 3152
Beskrivning
Drivrutin
Bruksanvisning
Hur man installerar typdefinitionerna och driftsätter modulerna finns beskrivet i användarmanualen, kapitel 18.7.
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 Netavent NAMED "NESL_Write_Holding" TYPEID 10004 IS
PARAMETER
Id : "Adress";
PUBLIC
V1 : "RegSet1" [""]; % Regulator börvärde
V2 : "RegSet2" [""]; % Regulator börvärde
V3 : "PbVent" ["°C"]DEC1; % P band ventilation
V4 : "PbHeat" ["°C"]DEC1; % P band värme
PRIVATE
count6;
BAUDRATE 9600;
PARITY EVEN;
CHECKSUM MODBUS SWAPPED;
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>3) THEN count6 := 0; ENDIF;
IF (count6=0) THEN DATA := 4096;
ELSIF (count6=1) THEN DATA := 4097;
ELSIF (count6=2) THEN DATA := 4103;
ELSIF (count6=3) THEN DATA := 4104;
ENDIF;
); % Register adress
DATA[4] <- RWORD(
IF (count6=0) THEN DATA := V1;
ELSIF (count6=1) THEN DATA := V2;
ELSIF (count6=2) THEN DATA := V3*10;
ELSIF (count6=3) THEN DATA := V4*10;
ENDIF;
);
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
DEVICETYPE Netavent NAMED "NESL_Write_Holding" TYPEID 10004 IS
PARAMETER
Id : "Adress";
PUBLIC
V1 : "RegSet1" [""]; % Regulator börvärde
V2 : "RegSet2" [""]; % Regulator börvärde
V3 : "PbVent" ["°C"]DEC1; % P band ventilation
V4 : "PbHeat" ["°C"]DEC1; % P band värme
PRIVATE
count6;
BAUDRATE 9600;
PARITY EVEN;
CHECKSUM MODBUS SWAPPED;
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>3) THEN count6 := 0; ENDIF;
IF (count6=0) THEN DATA := 4096;
ELSIF (count6=1) THEN DATA := 4097;
ELSIF (count6=2) THEN DATA := 4103;
ELSIF (count6=3) THEN DATA := 4104;
ENDIF;
); % Register adress
DATA[4] <- RWORD(
IF (count6=0) THEN DATA := V1;
ELSIF (count6=1) THEN DATA := V2;
ELSIF (count6=2) THEN DATA := V3*10;
ELSIF (count6=3) THEN DATA := V4*10;
ENDIF;
);
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.