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;
% 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.