Mitsubishi värmepump med Procon A1M Modbus modul del 2

Detaljer

Typ
Drivrutin
Upplaggd av
Ove Jansson, Abelko Innovation
Version
2
Uppdaterad
2016-09-06
Skapad
2016-09-06
Kategori
Kyla, Modbus, Värme, Ventilation
Visningar
2695

Beskrivning

Detta skript är skapat för IMSE UltraBase30/IPX3

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 ProconA1Mp2 NAMED "ProconA1Mp2" TYPEID 13030 IS

 PARAMETER
  Id       : "Adress";

 PUBLIC
  V1 : "Flow/Water outlet Temperature" ["ºC"]DEC2;
  V2 : "Return/Water inlet Temperature" ["ºC"]DEC2;
  V3 : "Tank Water Temperature" ["ºC"]DEC2;
  V4 : "Flow Temperature – Zone 1 " ["ºC"]DEC2;
  V5 : "Return Temperature – Zone 1 " ["ºC"]DEC2;
  V6 : "Flow Temperature – Zone 2" ["ºC"]DEC2;
  V7 : "Return Temperature – Zone 2" ["ºC"]DEC2;
  V8 : "Boiler Flow Temperature" ["ºC"]DEC2;
  V9 : "Boiler Return Temperature" ["ºC"]DEC2;
  V10 : "Room Thermo 1 (IN1)" [""]; % 0 = OFF, 1 = ON 
  V11 : "Room Thermo 2 (IN6)" [""];
  V12 : "Flow SW1 (IN2)" [""];
  V13 : "Flow SW2 (IN3)" [""];
  V14 : "Flow SW3 (IN7)" [""];
  V15 : "Demand (IN4)" [""];
  V16 : "Outdoor Thermo (IN5)" [""];
  V17 : "DIP Switch SW2" [""]; % Bit 0 = Switch 2 -1 (0 = OFF, 1 = ON) … Bit 9 = Switch 2 -10 (0 = OFF, 1 = ON)
  V18 : "Heat Pump Master ON/OFF" [""]; % 0 = Stop, 1 = Run
  V19 : "Heat Pump Slave 1 ON/OFF" [""]; % (address 2 for CAHV/CRHV)
  V20 : "Heat Pump Slave 2 ON/OFF" [""]; % (address 3 for CAHV/CRHV)
  V21 : "Heat Pump Slave 3 ON/OFF" [""]; % (address 4 for CAHV/CRHV)
  V22 : "Heat Pump Slave 4 ON/OFF" [""]; % (address 5 for CAHV/CRHV)
  V23 : "Heat Pump Slave 5 ON/OFF" [""]; % (address 6 for CAHV/CRHV)
  V24 : "Heat Pump Slave 6 ON/OFF" [""]; % (address 7 for CAHV/CRHV
  V25 : "Heat Pump Slave 7 ON/OFF" [""]; % (address 8 for CAHV/CRHV)
  V26 : "Heat Pump Slave 8 ON/OFF" [""]; % (address 9 for CAHV/CRHV)
  V27 : "Heat Pump Run Time " ["h"];
  V28 : "Heat Pump Run Time " ["100h"];
  V29 : "Heat Pump Refrigerant Address 1 Run Time" ["100h"];
  V30 : "Heat Pump Refrigerant Address 2 Run Time" ["100h"];
  V31 : "Heat Pump Refrigerant Address 3 Run Time " ["100h"];
  V32 : "Heat Pump Refrigerant Address 4 Run Time" ["100h"];
  V33 : "Heat Pump Refrigerant Address 5 Run Time" ["100h"];
  V34 : "Heat Pump Refrigerant Address 6 Run Time (hours x100)" ["100h"];
  V35 : "Boiler/Ext Heater 1 ON/OFF" [""]; % 0 = Stop, 1 = Run
  V36 : "Booster Heater 1 ON/OFF" [""];
  V37 : "Booster Heater 2 ON/OFF" [""];
  V38 : "Booster Heater 2+ ON/OFF" [""];
  V39 : "Immersion Heater ON/OFF" [""];
  V40 : "Water Pump 1 ON/OFF" [""];
  V41 : "Water Pump 2 ON/OFF" [""];
  V42 : "Water Pump 3 ON/OFF" [""];
  V43 : "3 -Way Valve ON/OFF" [""];
  V44 : "2 -Way Valve 2 ON/OFF" [""];
  V45 : "Mixing Valve Step" [""]; % 0 = Step 0 … 10 = Step 10
  V46 : "Refrigerant 1 Error Code Digit 1" [""];
  V47 : "Refrigerant 1 Error Code Digit 2" [""];
  V48 : "Refrigerant 2 Error Code Digit 1" [""];
  V49 : "Refrigerant 2 Error Code Digit 2" [""];
  V50 : "Refrigerant 3 Error Code Digit 1" [""];
  V51 : "Refrigerant 3 Error Code Digit 2" [""];
  V52 : "Refrigerant 4 Error Code Digit 1" [""];
  V53 : "Refrigerant 4 Error Code Digit 2" [""];
  V54 : "Refrigerant 5 Error Code Digit 1" [""];
  V55 : "Refrigerant 5 Error Code Digit 2" [""];
  V56 : "Refrigerant 6 Error Code Digit 1" [""];
  V57 : "Refrigerant 6 Error Code Digit 2" [""];
  V58 : "Heat Pump Frequency – Slave 7" ["Hz"];
  V59 : "Heat Pump Frequency – Slave 8" ["Hz"];
  V60 : "Heat Pump Frequency – Slave 9" ["Hz"];
  V61 : "Heat Pump Frequency – Slave 10" ["Hz"];
  V62 : "Heat Pump Frequency – Slave 11" ["Hz"];
  V63 : "Heat Pump Frequency – Slave 12" ["Hz"];
  V64 : "Heat Pump Frequency – Slave 13" ["Hz"];
  V65 : "Heat Pump Frequency – Slave 14" ["Hz"];
  V66 : "Heat Pump Frequency – Slave 15" ["Hz"];
  V67 : "Heat Pump 10 ON/OFF" [""]; % 0 = Stop, 1 = Run
  V68 : "Heat Pump 11 ON/OFF" [""];
  V69 : "Heat Pump 12 ON/OFF" [""];
  V70 : "Heat Pump 13 ON/OFF" [""];
  V71 : "Heat Pump 14 ON/OFF" [""];
  V72 : "Heat Pump 15 ON/OFF" [""];
  V73 : "Heat Pump 16 ON/OFF" [""];
  V74 : "Heat Pump 17 ON/OFF" [""];
  V75 : "Heat Pump 18 ON/OFF" [""];
  V76 : "Heat Pump 19 ON/OFF" [""];
  V77 : "Heat Pump 20 ON/OFF" [""];
  V78 : "Heat Pump 21 ON/OFF" [""];
  V79 : "Heat Pump 22 ON/OFF" [""];
  V80 : "Heat Pump 23 ON/OFF" [""];
  V81 : "Heat Pump 24 ON/OFF" [""];
  V82 : "Heat Pump 25 ON/OFF" [""];
  V83 : "Heat Pump 26 ON/OFF" [""];
  V84 : "Heat Pump 27 ON/OFF" [""];
  V85 : "Heat Pump 28 ON/OFF" [""];
  V86 : "Heat Pump 29 ON/OFF" [""];
  V87 : "Heat Pump 30 ON/OFF" [""];
  V88 : "Heat Pump 31 ON/OFF" [""];
  V89 : "Heat Pump 32 ON/OFF" [""];

 PRIVATE

 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 kod 03
   DATA[2] := RWORD(101); % Start address
   DATA[4] := RWORD(98); % Antal register att läsa
  ANSWER SIZE 201 % (Antal register * 2) + 5
   DATA[0] = BYTE(Id);
   DATA[1] = BYTE(03);
   DATA[2] = BYTE(196); % Antal Bytes
   DATA[3] -> RWORD(IF (DATA>=32768) THEN V1:=(DATA-65536)/100; ELSE V1:=DATA/100; ENDIF;);
   DATA[7] -> RWORD(IF (DATA>=32768) THEN V2:=(DATA-65536)/100; ELSE V2:=DATA/100; ENDIF;);
   DATA[11] -> RWORD(IF (DATA>=32768) THEN V3:=(DATA-65536)/100; ELSE V3:=DATA/100; ENDIF;);
   DATA[15] -> RWORD(IF (DATA>=32768) THEN V4:=(DATA-65536)/100; ELSE V4:=DATA/100; ENDIF;);
   DATA[19] -> RWORD(IF (DATA>=32768) THEN V5:=(DATA-65536)/100; ELSE V5:=DATA/100; ENDIF;);
   DATA[23] -> RWORD(IF (DATA>=32768) THEN V6:=(DATA-65536)/100; ELSE V6:=DATA/100; ENDIF;);
   DATA[27] -> RWORD(IF (DATA>=32768) THEN V7:=(DATA-65536)/100; ELSE V7:=DATA/100; ENDIF;);
   DATA[31] -> RWORD(IF (DATA>=32768) THEN V8:=(DATA-65536)/100; ELSE V8:=DATA/100; ENDIF;);
   DATA[35] -> RWORD(IF (DATA>=32768) THEN V9:=(DATA-65536)/100; ELSE V9:=DATA/100; ENDIF;);
   DATA[39] -> RWORD(V10 := DATA;);
   DATA[41] -> RWORD(V11 := DATA;);
   DATA[43] -> RWORD(V12 := DATA;);
   DATA[45] -> RWORD(V13 := DATA;);
   DATA[47] -> RWORD(V14 := DATA;);
   DATA[49] -> RWORD(V15 := DATA;);
   DATA[51] -> RWORD(V16 := DATA;);
   DATA[53] -> RWORD(V17 := DATA;);
   DATA[55] -> RWORD(V18 := DATA;);
   DATA[57] -> RWORD(V19 := DATA;);
   DATA[59] -> RWORD(V20 := DATA;);
   DATA[61] -> RWORD(V21 := DATA;);
   DATA[63] -> RWORD(V22 := DATA;);
   DATA[65] -> RWORD(V23 := DATA;);
   DATA[67] -> RWORD(V24 := DATA;);
   DATA[69] -> RWORD(V25 := DATA;);
   DATA[71] -> RWORD(V26 := DATA;);
   DATA[73] -> RWORD(V27 := DATA;);
   DATA[75] -> RWORD(V28 := DATA;);
   DATA[77] -> RWORD(V29 := DATA;);
   DATA[79] -> RWORD(V30 := DATA;);
   DATA[81] -> RWORD(V31 := DATA;);
   DATA[83] -> RWORD(V32 := DATA;);
   DATA[85] -> RWORD(V33 := DATA;);
   DATA[87] -> RWORD(V34 := DATA;);
   DATA[89] -> RWORD(V35 := DATA;);
   DATA[91] -> RWORD(V36 := DATA;);
   DATA[93] -> RWORD(V37 := DATA;);
   DATA[95] -> RWORD(V38 := DATA;);
   DATA[97] -> RWORD(V39 := DATA;);
   DATA[99] -> RWORD(V40 := DATA;);
   DATA[101] -> RWORD(V41 := DATA;);
   DATA[103] -> RWORD(V42 := DATA;);
   DATA[105] -> RWORD(V43 := DATA;);
   DATA[107] -> RWORD(V44 := DATA;);
   DATA[109] -> RWORD(V45 := DATA;);
   DATA[111] -> RWORD(V46 := DATA;);
   DATA[113] -> RWORD(V47 := DATA;);
   DATA[115] -> RWORD(V48 := DATA;);
   DATA[117] -> RWORD(V49 := DATA;);
   DATA[119] -> RWORD(V50 := DATA;);
   DATA[121] -> RWORD(V51 := DATA;);
   DATA[123] -> RWORD(V52 := DATA;);
   DATA[125] -> RWORD(V53 := DATA;);
   DATA[127] -> RWORD(V54 := DATA;);
   DATA[129] -> RWORD(V55 := DATA;);
   DATA[131] -> RWORD(V56 := DATA;);
   DATA[133] -> RWORD(V57 := DATA;);
   DATA[135] -> RWORD(V58 := DATA;);
   DATA[137] -> RWORD(V59 := DATA;);
   DATA[139] -> RWORD(V60 := DATA;);
   DATA[141] -> RWORD(V61 := DATA;);
   DATA[143] -> RWORD(V62 := DATA;);
   DATA[145] -> RWORD(V63 := DATA;);
   DATA[147] -> RWORD(V64 := DATA;);
   DATA[149] -> RWORD(V65 := DATA;);
   DATA[151] -> RWORD(V66 := DATA;);
   DATA[153] -> RWORD(V67 := DATA;);
   DATA[155] -> RWORD(V68 := DATA;);
   DATA[157] -> RWORD(V69 := DATA;);
   DATA[159] -> RWORD(V70 := DATA;);
   DATA[161] -> RWORD(V71 := DATA;);
   DATA[163] -> RWORD(V72 := DATA;);
   DATA[165] -> RWORD(V73 := DATA;);
   DATA[167] -> RWORD(V74 := DATA;);
   DATA[169] -> RWORD(V75 := DATA;);
   DATA[171] -> RWORD(V76 := DATA;);
   DATA[173] -> RWORD(V77 := DATA;);
   DATA[175] -> RWORD(V78 := DATA;);
   DATA[177] -> RWORD(V79 := DATA;);
   DATA[179] -> RWORD(V80 := DATA;);
   DATA[181] -> RWORD(V81 := DATA;);
   DATA[183] -> RWORD(V82 := DATA;);
   DATA[185] -> RWORD(V83 := DATA;);
   DATA[187] -> RWORD(V84 := DATA;);
   DATA[189] -> RWORD(V85 := DATA;);
   DATA[191] -> RWORD(V86 := DATA;);
   DATA[193] -> RWORD(V87 := DATA;);
   DATA[195] -> RWORD(V88 := DATA;);
   DATA[197] -> RWORD(V89 := DATA;);
  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.