% 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 wIV_AHUClimatix NAMED "wIV_AHUClimatix" TYPEID 10330 IS

 PARAMETER
  Id       : "Adress";
  V1 : "wONCSteps" [""]; % auto*off*stage1-3
  V2 : "wComfortTempDZ" ["°C"]DEC1;
  V3 : "wComfortHeatSP" ["°C"]DEC1;
  V4 : "wSummerWinterComp" ["°C"]DEC1;
  V5 : "wSupplyTempMinSP" ["°C"]DEC1;
  V6 : "wSupplyTempMaxSP" ["°C"]DEC1;
  V7 : "wSupplyFanSt1SP" [""]; % %, Pa, l/s
  V8 : "wSupplyFanSt2SP" [""];
  
 PUBLIC

 PRIVATE
  count6;

 BAUDRATE 9600;
 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>7) THEN count6 := 0; ENDIF;
    IF (count6=0) THEN DATA := 4;
    ELSIF (count6=1) THEN DATA := 20;
    ELSIF (count6=2) THEN DATA := 21;
    ELSIF (count6=3) THEN DATA := 31;
    ELSIF (count6=4) THEN DATA := 35;
    ELSIF (count6=5) THEN DATA := 36;
    ELSIF (count6=6) THEN DATA := 49;
    ELSIF (count6=7) THEN DATA := 50;
    ENDIF;
   ); % Register adress
   DATA[4] <- RWORD(
    IF (count6=0) THEN DATA := V1;
    ELSIF (count6=1) THEN DATA := V2*10;
    ELSIF (count6=2) THEN DATA := V3*10;
    ELSIF (count6=3) THEN DATA := V4*10;
    ELSIF (count6=4) THEN DATA := V5*10;
    ELSIF (count6=5) THEN DATA := V6*10;
    ELSIF (count6=6) THEN DATA := V7;
    ELSIF (count6=7) THEN DATA := V8;
    ENDIF;
    count6 := count6+1;
   );
  ANSWER SIZE 8
   DATA[0] = BYTE(Id);
   DATA[1] = BYTE(06);
  TIMEOUT 300
 END;
END;

% 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 w2IV_AHUClimatix NAMED "w2IV_AHUClimatix" TYPEID 10331 IS

 PARAMETER
  Id       : "Adress";
  V9 : "wSupplyFanSt3SP" [""];
  V10 : "wExhFanSt1SP" [""];
  V11 : "wExhFanSt2SP" [""];
  V12 : "wExhFanSt3SP" [""];
  V13 : "wStartHeatStart" ["°C"]DEC1;
  V14 : "wStartHeatSP" ["°C"]DEC1;

 PUBLIC

 PRIVATE
  count6;

 BAUDRATE 9600;
 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>5) THEN count6 := 0; ENDIF;
    IF (count6=0) THEN DATA := 51;
    ELSIF (count6=1) THEN DATA := 53;
    ELSIF (count6=2) THEN DATA := 54;
    ELSIF (count6=3) THEN DATA := 55;
    ELSIF (count6=4) THEN DATA := 73;
    ELSIF (count6=5) THEN DATA := 74;
    ENDIF;
   ); % Register adress
   DATA[4] <- RWORD(
    IF (count6=0) THEN DATA := V9;
    ELSIF (count6=1) THEN DATA := V10;
    ELSIF (count6=2) THEN DATA := V11;
    ELSIF (count6=3) THEN DATA := V12;
    ELSIF (count6=4) THEN DATA := V13*10;
    ELSIF (count6=5) THEN DATA := V14*10;
    ENDIF;
    count6 := count6+1;
   );
  ANSWER SIZE 8
   DATA[0] = BYTE(Id);
   DATA[1] = BYTE(06);
  TIMEOUT 300
 END;
END;