PYROTEC Pyrocontrol pannstyrning

Detaljer

Typ
Drivrutin
Upplaggd av
Ove Jansson, Abelko Innovation
Version
1
Uppdaterad
2013-08-28
Skapad
2013-08-28
Kategori
Modbus, Övrig utrustning, Värme
Visningar
2592

Beskrivning

Drivrutin

Bruksanvisning

Ladda in typdefinitionen enligt beskrivningen i manualen kapitel 18.2.

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 PYROTEC Pyrocontrol
%
% Settings module:
%       Parity: None
%       Baud:   9600
%       Mode:   RTU
%

% Author: Peter Malmberg, ABELKO AB Luleå 
%
% History:  
% 2011-10-17 Ove Jansson v2
% 2011-10-28 Ove Jansson v3
%
DEVICETYPE Pyrocontrol NAMED "Pyrocontrol" TYPEID 21426 IS 

 PARAMETER
  Id       : "Adress";

 PUBLIC
  V0 : "Panna framledning" ["°C"]DEC1;
  V1 : "Panna retur" ["°C"]DEC1;
  V2 : "Panna Rökgas" ["°C"]DEC1;
  V3 : "Panna O2-halt" ["% O2"]DEC1;
  V4 : "Panna Eldstad" ["°C"];
  V5 : "Panna Undertryck" ["Pa"];
  V6 : "Panna Temperatur Matarskruv" ["°C"]DEC1;
  V7 : "Panna Matarskruv" ["%"];
  V8 : "Panna Rökgas" ["%"];
  V9 : "Panna Primär" ["%"];
  V10 : "Panna Sekundär" ["%"];
  V11 : "Timmar Last" ["h"];
  V12 : "Timmar Underhållsdrift" ["h"];
  V13 : "Timmar Beredskap" ["h"];
  V14 : "Effektspecifikation" ["%"];
  V15 : "Ackum B 28 1" ["°C"]DEC1;
  V16 : "Ackum B 28 3" ["°C"]DEC1;
  V17 : "Ackum B 28 5" ["°C"]DEC1;
  V18 : "Ackum medelvärde" ["°C"]DEC1;
  V19 : "Utomhustemperatur" ["°C"]DEC1;

 PRIVATE
  count;
  tmp;

 BAUDRATE 9600;

 CHECKSUM MODBUS SWAPPED;

 TELEGRAM ReadInputs NAMED "Read input" IS
  QUESTION
   DATA[0] := BYTE(Id); % Enhetens Modbus adress
   DATA[1] :=  HEX(03); % Mpdbus kommando f r att l sa input
   DATA[2] := RWORD(110);
   DATA[4] := RWORD(31);
  ANSWER SIZE 67
   DATA[0] = BYTE(Id);
   DATA[1] = BYTE(03);
   DATA[3] -> RWORD(V0 := DATA/10;); %110   
   DATA[5] -> RWORD(V1 := DATA/10;); %111
   DATA[7] -> RWORD(V2 := DATA/10;); %112
   DATA[9] -> RWORD(V3 := DATA/10;); %113
   DATA[11] -> RWORD(V4 := DATA;); %114
   DATA[13] -> RWORD(V5 := DATA;); %115
   DATA[15] -> RWORD(V6 := DATA/10;); %116
   DATA[17] -> RWORD(V7 := DATA;); %117
   DATA[19] -> RWORD(V8 := DATA;); %118
   DATA[21] -> RWORD(V9 := DATA;); %119
   DATA[23] -> RWORD(V10 := DATA;); %120
   DATA[25] -> RWORD(V11 := DATA;); %121
   DATA[27] -> RWORD(V12 := DATA;); %122
   DATA[29] -> RWORD(V13 := DATA;); %123
   DATA[31] -> RWORD(V14 := DATA;); %124
   DATA[49] -> RWORD(V15 := DATA/10;); %133
   DATA[53] -> RWORD(V16 := DATA/10;); %135
   DATA[57] -> RWORD(V17 := DATA/10;); %137
   DATA[59] -> RWORD(V18 := DATA/10;); %138
   DATA[63] -> RWORD(IF (DATA>=32768) THEN V19:=(DATA-65536)/10; ELSE V19:=DATA/10; ENDIF;); %140

  TIMEOUT 2000
 END;
END;

DEVICETYPE Pyrocontrol2 NAMED "Pyrocontrol2" TYPEID 21427 IS

 PARAMETER
  Id       : "Adress";

 PUBLIC
  % Larm Givare
  A1 : "AL Lambdasond"; %Larm Lambda Sond
  A2 : "AL UndTryReg"; %Larm Undertrycksreglering
  A3 : "AL GivarKod"; %Varning Permanent kod
  % Varning Panna
  A4 : "AL Panna kod" [""]; %Varning Permanent kod
  A5 : "AL MatSkruvStop" [""];%Varning Matarskruv Stopp intryck
  A6 : "AL Dörr Öppen" [""];%Varning Eldstadsdörr Öppen  
  %Larm Panna
  A7 : "AL Bakbrand"; %Larm Bakbrand
  A8 : "AL Övertemp"; %Larm Övertemperatur
  A9 : "AL Rökfläkt"; %Larm FU Rökgasfläkt
  A10 : "AL PrimFläkt"; %Larm FU Primärfläkt
  A11 : "AL SekFläkt"; %Larm FU Sekundärfläkt
  A12 : "AL Tändning"; %Larm Tändning Wiederholen
  A13 : "AL Över/Nedsl"; %Larm Överfylld eller Nedsläkt
  A14 : "AL Pannkretspump"; %Larm Motorskydd Pannkretspump
  A15 : "AL Släckvatten"; %Larm Släckvattenbehållare
  A16 : "AL Spärrad"; %Larm Permanent kod spärrad
  A17 : "AL Undertryck"; %Larm Undertryck eldstad
  A18 : "AL CANFURökg"; %Larm CAN FU Rökgasfläkt
  A19 : "AL CANFUPrim"; %Larm CAN FU Primärfläkt
  A20 : "AL CANFUSek"; %Larm CAN FU Sekundärfläkt
  
 PRIVATE
  count;
  tmp;

 BAUDRATE 9600;

 CHECKSUM MODBUS SWAPPED;

 TELEGRAM ReadInputs NAMED "Read input" IS
  QUESTION
   DATA[0] := BYTE(Id); % Enhetens Modbus adress
   DATA[1] :=  HEX(03); % Mpdbus kommando f r att l sa input
   DATA[2] <- RWORD(
    IF(count>4) THEN count := 0; ENDIF;
    IF (count=0) THEN tmp := 167;
    ELSIF (count=1) THEN tmp := 168;
    ELSIF (count=2) THEN tmp := 169;
    ENDIF;
    DATA:= tmp;
   );
   DATA[4] := RWORD(01);
  ANSWER SIZE 7   
   DATA[0] = BYTE(Id);
   DATA[1] = BYTE(03);
   DATA[3] -> RWORD(
    IF (count=0) THEN
      IF (DATA & 1) THEN A7 := 1; ELSE A7 := 0; ENDIF;
      IF (DATA & 2) THEN A8 := 1; ELSE A8 := 0; ENDIF;
      IF (DATA & 16) THEN A9 := 1; ELSE A9 := 0; ENDIF;
      IF (DATA & 32) THEN A10 := 1; ELSE A10 := 0; ENDIF;
      IF (DATA & 64) THEN A11 := 1; ELSE A11 := 0; ENDIF;
      IF (DATA & 128) THEN A12 := 1; ELSE A12 := 0; ENDIF;
      IF (DATA & 256) THEN A13 := 1; ELSE A13 := 0; ENDIF;
      IF (DATA & 512) THEN A14 := 1; ELSE A14 := 0; ENDIF;
      IF (DATA & 1024) THEN A15 := 1; ELSE A15 := 0; ENDIF;
      IF (DATA & 2048) THEN A16 := 1; ELSE A16 := 0; ENDIF;
      IF (DATA & 4096) THEN A17 := 1; ELSE A17 := 0; ENDIF;
      IF (DATA & 8192) THEN A18 := 1; ELSE A18 := 0; ENDIF;
      IF (DATA & 16384) THEN A19 := 1; ELSE A19 := 0; ENDIF;
      IF (DATA & 32768) THEN A20 := 1; ELSE A20 := 0; ENDIF;
    ELSIF (count=1) THEN 
      IF (DATA & 1) THEN A1 := 1; ELSE A1 := 0; ENDIF;
      IF (DATA & 2) THEN A2 := 1; ELSE A2 := 0; ENDIF;
      IF (DATA & 4) THEN A3 := 1; ELSE A3 := 0; ENDIF;
    ELSIF (count=2) THEN 
      IF (DATA & 1) THEN A4 := 1; ELSE A4 := 0; ENDIF;
      IF (DATA & 2) THEN A5 := 1; ELSE A5 := 0; ENDIF;
      IF (DATA & 4) THEN A6 := 1; ELSE A6 := 0; ENDIF;
    ENDIF;
    count := count+1;
   );

  TIMEOUT 2000
 END;
END;

DEVICETYPE Pyrocontrol3 NAMED "Pyrocontrol 3" TYPEID 21428 IS

  PARAMETER

   Id   : "Address";

  PUBLIC
    R1   : "Temp Panna Framledning" ["°C"];     
    R2   : "O2-halt panna" ["%"];
    R3   : "Temp Panna Eldstad" ["°C"];
    R4   : "Undertryck Panna Eldstad" ["Pa"];
    R5   : "Taktmatarskruv Nöddrift" ["%"];
    R6   : "Effekt Panna Nöddrift" ["%"];
    R7   : "System Temperatur Minimal" ["°C"];
    R8   : "Temperatur avleda övervärme" ["°C"];
    R9   : "Varvtal rökgasfläkt underhållsdrift" ["%"];
    R10   : "O2-halt Minimal" ["%"];

  PRIVATE
   Cnt;

  BAUDRATE 9600;

  CHECKSUM MODBUS SWAPPED;

  TELEGRAM Readinputs NAMED "Readinputs" IS

    QUESTION
      DATA[0]  := BYTE(Id);
      DATA[1]  := HEX(03);   %Read input registers
      DATA[2]  := RWORD(1);     %Start adress (regnr-1)
      DATA[4] := RWORD(20);

    ANSWER SIZE 45
      DATA[0] = BYTE(Id);
      DATA[1] = HEX(03);
      DATA[3]  -> RWORD(R1 := DATA/10;); %1
      DATA[9]  -> RWORD(R2 := DATA;); %4
      DATA[11]  -> RWORD(R3 := DATA;); %5
      DATA[13]  -> RWORD(R4 := DATA;); %6
      DATA[17]  -> RWORD(R5 := DATA;); %8
      DATA[19]  -> RWORD(R6 := DATA;); %9
      DATA[23]  -> RWORD(R7 := DATA/10;); %11
      DATA[35]  -> RWORD(R8 := DATA/10;); %17
      DATA[37]  -> RWORD(R9 := DATA;); %18
      DATA[41]  -> RWORD(R10 := DATA/10;); %20

    TIMEOUT 1300
  END;
END;

DEVICETYPE Pyrocontrol4 NAMED "Pyrocontrol 4" TYPEID 22102 IS

 PARAMETER
  Id       : "Adress";

 PUBLIC
  % Panna Drifttyp
  A1 : "Panna Av";
  A2 : "VarmMatarSkruv"; %Matarskruv varm
  A3 : "Beredskap";
  A4 : "Fyller skruv";
  A5 : "Fyller eldstad";
  A6 : "Tänder";  
  A7 : "Tändning";
  A8 : "Last";
  A9 : "Underhållsdrift";
  A10 : "Tömmer MatarS "; % Tömmer mattarskruv
  A11 : "Nedeldning"; 
  A12 : "Mätdrift ";
  
 PRIVATE

 BAUDRATE 9600;

 CHECKSUM MODBUS SWAPPED;

 TELEGRAM ReadInputs NAMED "Read input" IS
  QUESTION
   DATA[0] := BYTE(Id); % Enhetens Modbus adress
   DATA[1] :=  HEX(03); % Modbus kommando för att läsa input
   DATA[2] := RWORD(165);
   DATA[4] := RWORD(01);
  ANSWER SIZE 7   
   DATA[0] = BYTE(Id);
   DATA[1] = BYTE(03);
   DATA[3] -> RWORD(
      IF (DATA & 1) THEN A1 := 1; ELSE A1 := 0; ENDIF;
      IF (DATA & 2) THEN A2 := 1; ELSE A2 := 0; ENDIF;
      IF (DATA & 16) THEN A3 := 1; ELSE A3 := 0; ENDIF;
      IF (DATA & 32) THEN A4 := 1; ELSE A4 := 0; ENDIF;
      IF (DATA & 64) THEN A5 := 1; ELSE A5 := 0; ENDIF;
      IF (DATA & 128) THEN A6 := 1; ELSE A6 := 0; ENDIF;
      IF (DATA & 256) THEN A7 := 1; ELSE A7 := 0; ENDIF;
      IF (DATA & 512) THEN A8 := 1; ELSE A8 := 0; ENDIF;
      IF (DATA & 1024) THEN A9 := 1; ELSE A9 := 0; ENDIF;
      IF (DATA & 2048) THEN A10 := 1; ELSE A10 := 0; ENDIF;
      IF (DATA & 4096) THEN A11 := 1; ELSE A11 := 0; ENDIF;
      IF (DATA & 8192) THEN A12 := 1; ELSE A12 := 0; ENDIF;
   );

  TIMEOUT 1300
 END;
END;

DEVICETYPE Pyrocontrol5 NAMED "Pyrocontrol 5" TYPEID 22103 IS

 PARAMETER
  Id       : "Adress";

 PUBLIC
  % Larm Bränsletransport
  A1 : "AL InspLucka"; %Larm Inspektionslucka öppen
  A2 : "AL Transportör"; %Larm Motorskydd transportör
  A3 : "AL HydrAgg"; %Larm Temperatur eller nivå Hydraulikaggregat
  A4 : "AL Skjutspjäll"; %Larm skjutspjäll kärvar
  A5 : "AL ExtBränsTp"; %Larm extern Bränsletransport
  A6 : "AL MatBrist"; %Larm Materialbrist
  A7 : "AL NivåMatSkruv"; %Larm Nivåvakt Matarskruv
  A8 : "AL NivåGlödBäd"; %Larm Nivåvakt Glödbädd
  A9 : "AL NivåAskmat"; %Larm Nivåvakt askutmatning
  A10 : "AL MotorAskMat"; %Larm Motorskydd askutmatning
  A11 : "AL Asktunna"; %Larm Asktunna borttagen
  A12 : "AL förb IO"; %Larm CAN ingen förbindelse med I/O – Modul
  
 PRIVATE

 BAUDRATE 9600;

 CHECKSUM MODBUS SWAPPED;

 TELEGRAM ReadInputs NAMED "Read input" IS
  QUESTION
   DATA[0] := BYTE(Id); % Enhetens Modbus adress
   DATA[1] :=  HEX(03); % Modbus kommando för att läsa input
   DATA[2] := RWORD(165);
   DATA[4] := RWORD(01);
  ANSWER SIZE 7   
   DATA[0] = BYTE(Id);
   DATA[1] = BYTE(03);
   DATA[3] -> RWORD(
      IF (DATA & 1) THEN A1 := 1; ELSE A1 := 0; ENDIF;
      IF (DATA & 2) THEN A2 := 1; ELSE A2 := 0; ENDIF;
      IF (DATA & 16) THEN A3 := 1; ELSE A3 := 0; ENDIF;
      IF (DATA & 32) THEN A4 := 1; ELSE A4 := 0; ENDIF;
      IF (DATA & 64) THEN A5 := 1; ELSE A5 := 0; ENDIF;
      IF (DATA & 128) THEN A6 := 1; ELSE A6 := 0; ENDIF;
      IF (DATA & 256) THEN A7 := 1; ELSE A7 := 0; ENDIF;
      IF (DATA & 512) THEN A8 := 1; ELSE A8 := 0; ENDIF;
      IF (DATA & 1024) THEN A9 := 1; ELSE A9 := 0; ENDIF;
      IF (DATA & 2048) THEN A10 := 1; ELSE A10 := 0; ENDIF;
      IF (DATA & 4096) THEN A11 := 1; ELSE A11 := 0; ENDIF;
      IF (DATA & 8192) THEN A12 := 1; ELSE A12 := 0; ENDIF;
   );

  TIMEOUT 1300
 END;
END;

% OBS Du kan bara ha en pyrocontroller inkopplad, annars tar den här bara värdena från den sista.
GROUP Pyro4 OF MAX 1 DEVICE TYPEID 22102 SELECT ALL
  ITERATOR UPDATE  
  ALIAS
    Drifttyp0 = CHANNEL[116]; %Panna Av
    Drifttyp1 = CHANNEL[117]; %Matarskruv varm
    Drifttyp2 = CHANNEL[118]; %Beredskap
    Drifttyp3 = CHANNEL[119]; %Fyller Skruv
    Drifttyp4 = CHANNEL[120]; %Fyller eldstad
    Drifttyp5 = CHANNEL[121]; %Tänder
    Drifttyp6 = CHANNEL[122]; %Tändning
    Drifttyp7 = CHANNEL[123]; %Last
    Drifttyp8 = CHANNEL[124]; %Underhållsdrift
    Drifttyp9 = CHANNEL[125]; %Tömmer Matarskruv
    Drifttyp10 = CHANNEL[126]; %Nedeldning
    Drifttyp11 = CHANNEL[127]; %Mätdrift
    Drifttyp20 = CHANNEL[128]; %Nöddrift Aktiv
  BEGIN
    Drifttyp0 <- A1;
    Drifttyp1 <- A2;
    Drifttyp2 <- A3;
    Drifttyp3 <- A4;
    Drifttyp4 <- A5;
    Drifttyp5 <- A6;
    Drifttyp6 <- A7;
    Drifttyp7 <- A8;
    Drifttyp8 <- A9;
    Drifttyp9 <- A10;
    Drifttyp10 <- A11;
    Drifttyp11 <- A12;
   
  END;
END;
% OBS Du kan bara ha en pyrocontroller inkopplad, annars tar den här bara värdena från den sista.
GROUP Pyro2 OF MAX 1 DEVICE TYPEID 21427 SELECT ALL
  ITERATOR UPDATE  
  ALIAS
        LPanna0 = CHANNEL[141]; %Larm Bakbrand
        LPanna1 = CHANNEL[142]; %Larm Övertemperatur
        LPanna4 = CHANNEL[143]; %Larm FU Rökgasfläkt
        LPanna5 = CHANNEL[144]; %Larm FU Primärfläkt
        LPanna6 = CHANNEL[145]; %Larm FU Sekundärfläkt
        LPanna7 = CHANNEL[146]; %Larm Tändning Wiederholen
        LPanna8 = CHANNEL[147]; %Larm Överfylld eller Nedsläkt
        LPanna9 = CHANNEL[148]; %Larm Motorskydd Pannkretspump
        LPanna10 = CHANNEL[149]; %Larm Släckvattenbehållare
        LPanna11 = CHANNEL[150]; %Larm Permanent kod spärrad
        LPanna12 = CHANNEL[151]; %Larm Undertryck eldstad
        LPanna13 = CHANNEL[152]; %Larm CAN FU Rökgasfläkt
        LPanna14 = CHANNEL[153]; %Larm CAN FU Primärfläkt
        LPanna15 = CHANNEL[154]; %Larm CAN FU Sekundärfläkt

        LGivare0 = CHANNEL[155]; %Larm Lambda Sond
        LGivare1 = CHANNEL[156]; %Larm Undertrycksreglering
        LGivare2 = CHANNEL[157]; %Larm Eldstadsgivare

        VPanna0 = CHANNEL[158]; %Varning Permanent kod
        VPanna1 = CHANNEL[159]; %Varning Matarskruv Stopp intryck
        VPanna2 = CHANNEL[160]; %Varning Eldstadsdörr Öppen

  BEGIN
    LGivare0 <- A1;
    LGivare1 <- A2;
    LGivare2 <- A3;
    VPanna0 <- A4;
    VPanna1 <- A5;
    VPanna2 <- A6;
    LPanna0 <- A7;
    LPanna1 <- A8;
    LPanna4 <- A9;
    LPanna5 <- A10;
    LPanna6 <- A11;
    LPanna7 <- A12;
    LPanna8 <- A13;
    LPanna9 <- A14;
    LPanna10 <- A15;
    LPanna11 <- A16;
    LPanna12 <- A17;
    LPanna13 <- A18;
    LPanna14 <- A19;
    LPanna15 <- A20;

  END;
END;

% OBS Du kan bara ha en pyrocontroller inkopplad, annars tar den här bara värdena från den sista.
GROUP Pyro5 OF MAX 1 DEVICE TYPEID 22103 SELECT ALL
  ITERATOR UPDATE  
  ALIAS
        TransP0 = CHANNEL[129]; %Larm Inspektionslucka öppen
        TransP1 = CHANNEL[130]; %Larm Motorskydd transportör
        TransP2 = CHANNEL[131]; %Larm Temperaturr
        TransP3 = CHANNEL[132]; %Larm Skjutspjäll kärvar
        TransP4 = CHANNEL[133]; %Larm Extern Bränsletransport
        TransP5 = CHANNEL[134]; %Larm Materialbrist
        TransP6 = CHANNEL[135]; %Larm Nivåvakt Matarskruv
        TransP7 = CHANNEL[136]; %Larm Nivåvakt Glödbädd
        TransP8 = CHANNEL[137]; %Larm Nivåvakt Askutmatning
        TransP9 = CHANNEL[138]; %Larm Motorskydd Askutmatning
        TransP10 = CHANNEL[139]; %Larm Asktunna borttagen
        TransP11 = CHANNEL[140]; %Larm ingen förbindelse I/O-modul
  BEGIN
    TransP0 <- A1;
    TransP1 <- A2;
    TransP2 <- A3;
    TransP3 <- A4;
    TransP4 <- A5;
    TransP5 <- A6;
    TransP6 <- A7;
    TransP7 <- A8;
    TransP8 <- A9;
    TransP9 <- A10;
    TransP10 <- A11;
    TransP11 <- A12;
  END;
END;





% Den här rutinen ska ligga sist för att alla värdena ska vara lästa
ROUTINE Programmet
  BEGIN
    CALL Pyro2.UPDATE; % Anropar Pyro4 så att kanalerna får värdena
    CALL Pyro4.UPDATE; % Anropar Pyro2 så att kanalerna får värdena
    CALL Pyro5.UPDATE; % Anropar Pyro5 så att kanalerna får värdena
  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.