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;

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.