IVT REGO 5002, 5003, 5004, 5005 Ställ AU

Detaljer

Typ
Drivrutin
Upplaggd av
Ove Jansson, Abelko Innovation
Version
2
Uppdaterad
2018-05-21
Skapad
2015-10-01
Kategori
Modbus, Värme
Visningar
2335

Beskrivning

drivrutin för IVT REGO 5002, 5003, 5004, 5005

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

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Device definition for IVT REGO 5002, 5003, 5004, 5005
%
% Settings module:
%       Parity: None
%       Baud:   9600
%       Mode:   RTU
%
% Telegram for setting Analog status
% Select registers for setting. 
% Maximum 9 registers can be selected in a device.
%
% Author:  Peter Widetun, ABELKO AB Luleå
% History: 2010-02-12 inital version
%
DEVICETYPE IvtRego5005AO1 NAMED "IVTREGO StällAU" TYPEID 21347 IS

  PARAMETER
    Id         : "Adress";

   %S01 : "X1 Kurva FramL"  ["°C"];  %40001 X1, framledningskurva (T1/T2)
   %S02 : "X2 Kurva FramL"  ["°C"];  %40002 X2, framledningskurva (T1/T2)
   %S03 : "X3 Kurva FramL"  ["°C"];  %40003 X3, framledningskurva (T1/T2)
   %S04 : "X4 Kurva FramL"  ["°C"];  %40004 X4, framledningskurva (T1/T2)
   %S05 : "X5 Kurva FramL"  ["°C"];  %40005 X5, framledningskurva (T1/T2)
   %S06 : "X6 Kurva FramL"  ["°C"];  %40006 X6, framledningskurva (T1/T2)
   %S07 : "X7 Kurva FramL"  ["°C"];  %40007 X7, framledningskurva (T1/T2)
   %S08 : "Y1 Kurva FramL"  ["°C"];  %40008 Y1, framledningskurva (T1/T2)
   %S09 : "Y2 Kurva FramL"  ["°C"];  %40009 Y2, framledningskurva (T1/T2)
   %S10 : "Y3 Kurva FramL"  ["°C"];  %40010 Y3, framledningskurva (T1/T2)
   %S11 : "Y4 Kurva FramL"  ["°C"];  %40011 Y4, framledningskurva (T1/T2)
   %S12 : "Y5 Kurva FramL"  ["°C"];  %40012 Y5, framledningskurva (T1/T2)
   %S13 : "Y6 Kurva FramL"  ["°C"];  %40013 Y6, framledningskurva (T1/T2)
   %S14 : "Y7 Kurva FramL"  ["°C"];  %40014 Y7, framledningskurva (T1/T2)
   %S15 : "Min temp FramL"  ["°C"];  %40015 Minbegränsning, framledningskurva (T1/T2)
   %S16 : "Max temp FramL"  ["°C"];  %40016 Maxbegränsning, framledningskurva (T1/T2)
   %S17 : "BV-förskjFramL"  ["°C"];  %40017 Parallelförskjutning, framledningskurva (T1/T2) 10*
   %S18 : "RegFrL P-värde"  [""];    %40018 Regulator P, framledning (T1)     10*
   %S19 : "RegFrL I-värde"  [""];    %40019 Regulator I, framledning (T1)
   %S20 : "RegFrL D-värde"  [""];    %40020 Regulator D, framledning (T1)     10*
   %S21 : "RegFrL D-max"    [""];    %40021 Regulator Dmax, framledning (T1)
   %S22 : "RegFjV P-värde"  [""];    %40022 Regulator P, fjärrvärme (T18)     10*
   %S23 : "RegFjV I-värde"  [""];    %40023 Regulator I, fjärrvärme (T18)
   %S24 : "RegFjV D-värde"  [""];    %40024 Regulator D, fjärrvärme (T18)     10*
   %S25 : "RegFjV D-max"    [""];    %40025 Regulator Dmax, fjärrvärme (T18)
   %S26 : "Larmg.T3 hög"    ["°C"];  %40026 Larmgräns, hög temperatur (T3)
   %S27 : "Larmg.T3 låg"    ["°C"];  %40027 Larmgräns, låg temperatur (T3)
   %S28 : "Startg.T2"       ["°C"];  %40028 Startgräns, G1 (T2)                             10*
   %S29 : "Startg.T2direk"  ["°C"];  %40029 Direktstartsgräns, G1 (T2)                      10*
   %S30 : "Stoppg.T2"       ["°C"];  %40030 Stoppgräns, G1 (T2)                             10*
   %S31 : "Startg.T1 hyst"  ["°C"];  %40031 Starthysteres, tillskottsvärme (T1)             10*
   %S32 : "Stoppg.T1 hyst"  ["°C"];  %40032 Stopphysteres, varmvattenladdning (T1)          10*
   %S33 : "Fördröj status"  ["min"]; %40033 Fördröjning Statusförändring kompressor (minuter)
   %S34 : "Motionskör G1"   ["t"];   %40034 Motionskörning, G1 (kalendertimme)
   %S35 : "Startg.T3 ladd"  ["°C"];  %40035 Startgräns, slingtanksladdning (T3)
   %S36 : "Stoppg.T3 ladd"  ["°C"];  %40036 Stoppgräns, slingtanksladdning (T3)
   %S37 : "Ming.T1 ladd"    ["°C"];  %40037 Minbegränsning, T1 vid slingtanksladdning (grader under T1 börvärde)
   %S38 : "Fråntid ladd"    [""];    %40038 Tidskonstant, frånkoppling slingtanksladdning om under minbegränsning
   %S39 : "Startt.A Vard"   [""];    %40039 Tidkanal A-Larm Vardag Fr.o.m. Kl.
   %S40 : "Stoppt.A Vard"   [""];    %40040 Tidkanal A-Larm Vardag T.o.m. Kl.
   %S41 : "Startt.A Lörd"   [""];    %40041 Tidkanal A-Larm Lördag Fr.o.m. Kl.
   %S42 : "Stoppt.A Lörd"   [""];    %40042 Tidkanal A-Larm Lördag T.o.m. Kl.
   %S43 : "Startt.A Sönd"   [""];    %40043 Tidkanal A-Larm Söndag Fr.o.m. Kl.
   %S44 : "Stoppt.A Sönd"   [""];    %40044 Tidkanal A-Larm Söndag T.o.m. Kl.
   %S45 : "Startt.B Vard"   [""];    %40045 Tidkanal B-Larm Vardag Fr.o.m. Kl.
   %S46 : "Stoppt.B Vard"   [""];    %40046 Tidkanal B-Larm Vardag T.o.m. Kl.
   %S47 : "Startt.B Lörd"   [""];    %40047 Tidkanal B-Larm Lördag Fr.o.m. Kl.
   %S48 : "Stoppt.B Lörd"   [""];    %40048 Tidkanal B-Larm Lördag T.o.m. Kl.
   %S49 : "Startt.B Sönd"   [""];    %40049 Tidkanal B-Larm Söndag Fr.o.m. Kl.
   %S50 : "Stoppt.B Sönd"   [""];    %40050 Tidkanal B-Larm Söndag T.o.m. Kl.
   %S51 : "Fördröj Res.A"   [""];    %40051 Fördröjning Reserv A-Larm
   %S52 : "Fördröj Res.B"   [""];    %40052 Fördröjning Reserv B-Larm
   %S53 : "Larmsänd (0-2)"  [""];    %40053 Larmsändning: Från[0], Till[1], Auto[2]
   %S54 : "Startt.Dag Var"  [""];    %40054 Tidkanal Dagtid Vardag Fr.o.m. Kl.
   %S55 : "Stoppt.Dag Var"  [""];    %40055 Tidkanal Dagtid Vardag T.o.m. Kl.
   %S56 : "Startt.Dag Lör"  [""];    %40056 Tidkanal Dagtid Lördag Fr.o.m. Kl.
   %S57 : "Stoppt.Dag Lör"  [""];    %40057 Tidkanal Dagtid Lördag T.o.m. Kl.
   %S58 : "Startt.Dag Sön"  [""];    %40058 Tidkanal Dagtid Söndag Fr.o.m. Kl.
   %S59 : "Stoppt.Dag Sön"  [""];    %40059 Tidkanal Dagtid Söndag T.o.m. Kl.
   %S60 : "Status Dag"      [""];    %40060 Status, dagtidskanal (SMS)
   %S61 : "Max koppl.diff"  ["°C"];  %40061 Maximal kopplingsdifferens (T1)
   %S62 : "Min koppl.diff"  ["°C"];  %40062 Minimal kopplingsdifferens (T1)
   %S63 : "Tid koppl.diff"  [""];    %40063 Tidskonstant för kopplingsdifferens (T1)
   %S64 : "Larm kvittering" [""];    %40064 Larmkvittering (ange no.xx, se larmstatus)
   %S65 : "Larm blockering" [""];    %40065 Larmblockering (ange no.xx, se larmstatus)
   %S66 : "Larm block. av"  [""];    %40066 Larmavblockering (ange no.xx, se larmstatus)
   %S67 : "Larmg.T1reg.avv" ["°C"];  %40067 Larmgräns, regleravvikelse framledning (T1)
   %S68 : "Startfördr.G1FL" [""];    %40068 Startfördröjning, G1 (Framledning)
   %S69 : "Stoppfördr.G1FL" [""];    %40069 Stoppfördröjning, G1 (Framledning)
   %S70 : "Startfördr.E11T" [""];    %40070 Startfördröjning, E11 (Tillskott)
   %S71 : "Stoppfördr.E11T" [""];    %40071 Stoppfördröjning, E11 (Tillskott)
   %S72 : "Larmfördr.T3låg" [""];    %40072 Larmfördröjning, låg temperatur slingtank (T3)
   %S73 : "Larmfördr.T3hög" [""];    %40073 Larmfördröjning, hög temperatur slingtank (T3)
   %S74 : "BV-funk (0-1)"   [""];    %40074 Börvärdesfunktion T1: Kurva[0], Fast[1]
   %S75 : "T7-funk (0-2)"   [""];    %40075 Funktion T7: Från[0], Ute(T2)[1], VV-ackumulator(T7)[2]
   %S76 : "Status Rego5055" [""];    %40076 Status Rego5055 (används ej)
   %S77 : "Stoppg.T3STladd" ["°C"];  %40077 Stoppgräns, slingtanksladdning (T3)           10*
   %S78 : "Ärvärde T5 rum"  ["°C"];  %40078 Ärvärde, T5 rumsgivare                        10*
   %S79 : "Börvärdesförskj" ["°C"];  %40079 Börvärdesförskjutning, T5 rumsgivare          10*
    S80 : "Börvärde T1 FL"  ["°C"];  %40080 Fast börvärde, T1 framledning                 10*
   %S81 : "Ärvärde  T1 FL"  ["°C"];  %40081 Ärvärde, T1 framledning                       10*
   %S82 : "Ärvärde  T2 UTE" ["°C"];  %40082 Ärvärde, T2 ute                               10*
   %S83 : "Ärvärde  T3 ST"  ["°C"];  %40083 Ärvärde, T3 slingtank                         10*
   %S84 : "Klocka minuter"  [""];    %40084 Klocka, minuter [0-59]
   %S85 : "Klocka timmar"   [""];    %40085 Klocka, timmar [0-23]
   %S86 : "Klocka datum"    [""];    %40086 Klocka, datum [1-31]
   %S87 : "Klocka veckodag" [""];    %40087 Klocka, veckodag [1-7, 1=måndag]
   %S88 : "Klocka vecka"    [""];    %40088 Klocka, vecka [1-53]
   %S89 : "Klocka år"       [""];    %40089 Klocka, år [0-99]
   %S90 : "Klocka månad"    [""];    %40090 Klocka, månad [1-12]
   %S91 : "Börv. E21/E22"   ["°C"];  %40091 T3/T4 (E21), T18 (E22) – Börvärde
   %S92 : "Startg.T3SLladd" ["°C"];  %40092 T3 Slingtanksladdning, starthysteres  10*

  PUBLIC

  PRIVATE
    Cnt;

  BAUDRATE 9600;
  CHECKSUM MODBUS SWAPPED;

  TELEGRAM WriteSet NAMED "Ställ register" IS

    QUESTION
      DATA[0] := BYTE(Id);                 % Modbus unit address
      DATA[1] := HEX(06);                  % Modbus command "0x06" write singel register
      DATA[2] <- RWORD(                    % Register address
        IF Cnt>8 THEN Cnt:=0; ENDIF;
        IF    Cnt=0 THEN DATA:=79;         %40080 Fast börvärde, T1 framledning 10*
        ELSIF Cnt=1 THEN DATA:=79;
        ELSIF Cnt=2 THEN DATA:=79;
        ELSIF Cnt=3 THEN DATA:=79;
        ELSIF Cnt=4 THEN DATA:=79;
        ELSIF Cnt=5 THEN DATA:=79;
        ELSIF Cnt=6 THEN DATA:=79;
        ELSIF Cnt=7 THEN DATA:=79;
        ELSIF Cnt=8 THEN DATA:=79;
        ENDIF;
      );
      DATA[4]  <- RWORD(                   % Register value
        IF    Cnt=0 THEN DATA:=(S80*10);   %40080 Fast börvärde, T1 framledning 10*
        ELSIF Cnt=1 THEN DATA:=(S80*10);
        ELSIF Cnt=2 THEN DATA:=(S80*10);
        ELSIF Cnt=3 THEN DATA:=(S80*10);
        ELSIF Cnt=4 THEN DATA:=(S80*10);
        ELSIF Cnt=5 THEN DATA:=(S80*10);
        ELSIF Cnt=6 THEN DATA:=(S80*10);
        ELSIF Cnt=7 THEN DATA:=(S80*10);
        ELSIF Cnt=8 THEN DATA:=(S80*10);
        ENDIF;
        Cnt:=Cnt+1;
      );

    ANSWER SIZE 8
      DATA[0] = BYTE(Id);
      DATA[1] = HEX(06);

    TIMEOUT 1000

  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.