Regin Corrigo E 2010
Detaljer
- Typ
- Drivrutin
- Upplaggd av
- Ove Jansson, Abelko Innovation
- Version
- 3
- Uppdaterad
- 2013-08-28
- Skapad
- 2013-08-27
- Kategori
- Modbus, Övrig utrustning
- Visningar
- 2887
Beskrivning
Drivrutin Corrigo E
Bruksanvisning
Hur man installerar typdefinitionerna och driftsätter modulerna finns beskrivet i användarmanualen, kapitel 18.7.
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
% History: 2009-02-01 Ändrat utetemp för negativa tal
% History: 2008-12-10 Fel answer size Digital Input, Ändrat 7 till 9
% AO1-5 visning i procent (ingen division med 10)
% History: 2010-02-19 Timeout ändrad till 2 sekunder NÖDVÄNDIGT !!!
% History: 2010-06-18 Anpassning för Svensk Styrteknik
% History: 2010-06-20 En del rättade fel i koden.
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Device definition for CORRIGO E Analog inputs/outputs
%
% Settings module:
% Parity: None
% Baud: 9600
% Mode: RTU
%
% Note! Telegram for reading Analog status AI and AO
%
% Author: Peter Widetun, ABELKO AB Luleå
% History: 2008-10-14 inital version
% History: 2010-06-18 Anpassning för Svensk Styrteknik
%
DEVICETYPE CorrigoEAnalog NAMED "CorrigoE AI/AU" TYPEID 21270 IS
PARAMETER
Id : "Adress";
PUBLIC
V1 : "Utetemperatur" ["°C"]; %1 Outdoor temperature
%V2 : "VVX effekt" ["%"]; %2 Exch. Efficiency (%)
%V3 : "Driftläge" [""]; %3 (I) Run mode, 0=Stopped,
% % 1=Starting up,
% % 2=Starting reduced speed,
% % 3=Starting full speed,
% % 4=Starting normal run,
% % 5=Normal run,
% % 6=Support control heating,
% % 7=Support control cooling,
% % 8=CO2 run,
% % 9=Night cooling,
% % 10=Full speed stop,
% % 11=Stopping fan
%V4 : "Drifttid TF" ["h"]; %4 Running time (h) supply air fan
%V5 : "Drifttid FF" ["h"]; %5 Running time (h) exhaust air fan
%V6 : "Förlängd drift" ["min"]; %6 (I) Number of minutes extended operation
V7 : "Temp tilluft" ["°C"]; %7 Supply air temperature
%V8 : "BV tilluft" ["°C"]; %8 Calculated setpoint supply air
V9 : "Temp frånluft" ["°C"]; %9 Exhaust air temp
%V10 : "Temp 1 rum" ["°C"]; %10 Room temperature 1
%V11 : "Temp 2 rum" ["°C"]; %11 Room temperature 2
%V12 : "Drifttid Vä/Ky" ["min"]; %12 (I) Number of minutes in ongoing support heating/cooling
V13 : "Tryck tilluft" ["Pa"]; %13 Supply air fan pressure (Pa)
V14 : "Tryck frånluft" ["Pa"]; %14 Exhaust air fan pressure (Pa)
%V15 : "Flöde tilluft" ["m3/h"]; %15 Supply air fan flow (m3/h) Scale factor = 1
%V16 : "Flöde frånluft" ["m3/h"]; %16 Exhaust air fan flow (m3/h) Scale factor = 1
%V17 : "CO2-halt" ["ppm"]; %17 CO2 (ppm)
%V18 : "Drifttid CO2" ["min"]; %18 (I) Number of minutes support run time CO2
V19 : "Temp frysvakt" ["°C"]; %19 Frost protection temp
%V20 : "Temp frånluft" ["°C"]; %20 Extract air temp
%V21 : "Temp avfrost." ["°C"]; %21 De-icing temp exchanger
%V22 : "Drifttid Avis." ["min"]; %22 (I) Number of minutes for ongoing de-icing
%V23 : "Fuktighet rum" ["%RH"]; %23 Humidity room
%V24 : "Fuktighet TF" ["%RH"]; %24 Humidity duct
%V25 : "Temp extra" ["°C"]; %25 Additional sensor / External setpoint
% AI functions %%%%%%%%%%%%%%%
% 0=Not used 5=Roomtemp2 10=Deicingtemp 15=Extra unit temp
% 1=Outdoortemp 6=Extracttemp 11=Frost prot.temp 16=External SAF control
% 2=Supplytemp 7=Extrasensor 12=CO2 17=External EAF control
% 3=Exhausttemp 8=SAF pressure 13=Humidity room 18=SAF pressure 2
% 4=Roomtemp1 9=EAF pressure 14=Humidity duct
V26 : "AI1" [""]; %26 The scaled and filtered value of AI1 R,4
V27 : "AI2" [""]; %27 The scaled and filtered value of AI2 R,4
V28 : "AI3" [""]; %28 The scaled and filtered value of AI3 R,4
V29 : "AI4" [""]; %29 The scaled and filtered value of AI4 R,4
V30 : "AI5" [""]; %30 The scaled and filtered value of UAI1 R,4
V31 : "AI6" [""]; %31 The scaled and filtered value of UAI2 R,4
V32 : "AI7" [""]; %32 The scaled and filtered value of UAI3 R,4
V33 : "AI8" [""]; %33 The scaled and filtered value of UAI4 R,4
% AO function %%%%%%%%%%%%%%%%%
% 0=Not used 5=EAF
% 1=Y1-Heating 6=Y6-Humidity
% 2=Y2-Exchanger 7=Sequence
% 3=Y3-Cooling 8=Extra unit
% 4=SAF 9=Heat/Cool (change over)
V54 : "AO1" ["%"]; %54 Value of AO1
V55 : "AO2" ["%"]; %55 Value of AO2
V56 : "AO3" ["%"]; %56 Value of AO3
V57 : "AO4" ["%"]; %57 Value of AO4
V58 : "AO5" ["%"]; %58 Value of AO5
PRIVATE
BAUDRATE 9600;
CHECKSUM MODBUS SWAPPED;
TELEGRAM AnalogInput NAMED "Läs Analog IN" IS
QUESTION
DATA[0] := BYTE(Id); % Modbus unit address
DATA[1] := HEX(04); % Modbus command "04h" Read registers
DATA[2] := RWORD(0); % Start address register
DATA[4] := RWORD(33); % Number of registers
ANSWER SIZE 71
DATA[0] = BYTE(Id); % ID
DATA[1] = HEX(04); % Modbus command "04h" Read registers
%DATA[2] = BYTE(66); % Byte count
DATA[3] -> RWORD(IF (DATA>=32768) THEN V1 :=(DATA-65536)/10; ELSE V1 :=DATA/10; ENDIF;);
%DATA[5] -> RWORD(V2 := DATA / 10;);
%DATA[7] -> RWORD(V3 := DATA;);
%DATA[9] -> RWORD(V4 := DATA / 10;);
%DATA[11] -> RWORD(V5 := DATA / 10;);
%DATA[13] -> RWORD(V6 := DATA;);
DATA[15] -> RWORD(IF (DATA>=32768) THEN V7 :=(DATA-65536)/10; ELSE V7 :=DATA/10; ENDIF;);
%DATA[17] -> RWORD(IF (DATA>=32768) THEN V8 :=(DATA-65536)/10; ELSE V8 :=DATA/10; ENDIF;);
DATA[19] -> RWORD(IF (DATA>=32768) THEN V9 :=(DATA-65536)/10; ELSE V9 :=DATA/10; ENDIF;);
%DATA[21] -> RWORD(IF (DATA>=32768) THEN V10:=(DATA-65536)/10; ELSE V10:=DATA/10; ENDIF;);
%DATA[23] -> RWORD(IF (DATA>=32768) THEN V11:=(DATA-65536)/10; ELSE V11:=DATA/10; ENDIF;);
%DATA[25] -> RWORD(V12:= DATA;);
DATA[27] -> RWORD(V13:= DATA / 10;);
DATA[29] -> RWORD(V14:= DATA / 10;);
%DATA[31] -> RWORD(V15:= DATA;);
%DATA[33] -> RWORD(V16:= DATA;);
%DATA[35] -> RWORD(V17:= DATA / 10;);
%DATA[37] -> RWORD(V18:= DATA;);
DATA[39] -> RWORD(IF (DATA>=32768) THEN V19:=(DATA-65536)/10; ELSE V19:=DATA/10; ENDIF;);
%DATA[41] -> RWORD(IF (DATA>=32768) THEN V20:=(DATA-65536)/10; ELSE V20:=DATA/10; ENDIF;);
%DATA[43] -> RWORD(IF (DATA>=32768) THEN V21:=(DATA-65536)/10; ELSE V21:=DATA/10; ENDIF;);
%DATA[45] -> RWORD(V22:= DATA;);
%DATA[47] -> RWORD(V23:= DATA / 10;);
%DATA[49] -> RWORD(V24:= DATA / 10;);
%DATA[51] -> RWORD(IF (DATA>=32768) THEN V25:=(DATA-65536)/10; ELSE V25:=DATA/10; ENDIF;);
DATA[53] -> RWORD(V26:= DATA / 10;); %OBS! Ej skalat värde !!!!
DATA[55] -> RWORD(V27:= DATA / 10;); %OBS! Ej skalat värde !!!!
DATA[57] -> RWORD(V28:= DATA / 10;); %OBS! Ej skalat värde !!!!
DATA[59] -> RWORD(V29:= DATA / 10;); %OBS! Ej skalat värde !!!!
DATA[61] -> RWORD(V30:= DATA / 10;); %OBS! Ej skalat värde !!!!
DATA[63] -> RWORD(V31:= DATA / 10;); %OBS! Ej skalat värde !!!!
DATA[65] -> RWORD(V32:= DATA / 10;); %OBS! Ej skalat värde !!!!
DATA[67] -> RWORD(V33:= DATA / 10;); %OBS! Ej skalat värde !!!!
TIMEOUT 2000
END;
TELEGRAM AnalogOutput NAMED "Läs AU 1-5" IS
QUESTION
DATA[0] := BYTE(Id); % Modbus unit address
DATA[1] := HEX(04); % Modbus command "04h" Read registers
DATA[2] := RWORD(53); % Start address register (Reg.nr-1)
DATA[4] := RWORD(5); % Number of registers
ANSWER SIZE 15
DATA[0] = BYTE(Id); % ID
DATA[1] = HEX(04); % Modbus command "04h" Read registers
DATA[2] = BYTE(10); % Byte count
DATA[3] -> RWORD(V54:= DATA;); % Ändrat Volt till %
DATA[5] -> RWORD(V55:= DATA;);
DATA[7] -> RWORD(V56:= DATA;);
DATA[9] -> RWORD(V57:= DATA;);
DATA[11] -> RWORD(V58:= DATA;);
TIMEOUT 2000
END;
END;
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Device definition for CORRIGO E, Digtal inputs
%
% Settings module:
% Parity: None
% Baud: 9600
% Mode: RTU
%
% Note! Telegram for reading Digital status DI and DO
%
% Author: Peter Widetun, ABELKO AB Luleå
% History: 2008-10-14 inital version
% History: 2010-06-18 Anpassning för Svensk Styrteknik
%
DEVICETYPE CorrigoEDigital NAMED "CorrigoE DI/DU" TYPEID 21271 IS
PARAMETER
Id : "Adress";
PUBLIC
%D1 : "Helfart aktiv"; %1 Is set if timechannel full speed is active
%D2 : "Halvfart aktiv"; %2 Is set if timechannel reduced speed is active
%D3 : "Timer 1 aktiv"; %3 Is set if timer output 1 is active
%D4 : "Timer 2 aktiv"; %4 Is set if timer output 2 is active
%D5 : "Timer 3 aktiv"; %5 Is set if timer output 3 is active
%D6 : "Timer 4 aktiv"; %6 Is set if timer output 4 is active
%D7 : "Timer 5 aktiv"; %7 Is set if timer output 5 is active
%D8 : "Helfart extra"; %8 Is set if extended operation full speed
%D9 : "Halvfart extra"; %9 Is set if extended operation half speed
%D10 : "VärmeReglering"; %10 Is set if ongoing support heating
%D11 : "KylaReglering"; %11 Is set if ongoing support cooling
%D12 : "CO2-reglering"; %12 Is set if ongoing support CO2
%D13 : "Avisning aktiv"; %13 DeIcingActive
% DI / UDI Function %%%%%%%%%%%%%%%%
% 0=Not used 5=P1-Cooling 10=Ext run ½ 15=De-icing
% 1=SAF-Ind 6=Filter alarm 11=External alarm 16=Frostprotection
% 2=EAF-Ind 7=Fire alarm 12=External switch 17=Overheatprotection
% 3=P1-Heating 8=Fire damper-ind 13=Flow guard 18=Recirculation run
% 4=P1-Exchanger 9=Ext run 1/1 14=Rot.sent.exch 19=Change over
%
D14 : "DI1 status"; %14 Value of DI1
D15 : "DI2 status"; %15 Value of DI2
D16 : "DI3 status"; %16 Value of DI3
D17 : "DI4 status"; %17 Value of DI4
D18 : "DI5 status"; %18 Value of DI5
D19 : "DI6 status"; %19 Value of DI6
D20 : "DI7 status"; %20 Value of DI7
D21 : "DI8 status"; %21 Value of DI8
D22 : "DI9 status"; %22 Value of DI9, Value of UDI1
D23 : "DI10 status"; %23 Value of DI10, Value of UDI2
D24 : "DI11 status"; %24 Value of DI11, Value of UDI3
D25 : "DI12 status"; %25 Value of DI12, Value of UDI4
% DO function %%%%%%%%%%%%%%%%%%%
% 0 = Not Used 11 = SumAlarmB 22 = ExchangerIncrease 33 = TimeChannel1
% 1 = SAFStart1 12 = SAFFrequencyStart 23 = ExchangerDecrease 34 = TimeChannel2
% 2 = EAFStart1 13 = EAFFrequencyStart 24 = CoolingIncrease 35 = TimeChannel3
% 3 = SAFStart2 14 = HeatingActivate 25 = CoolingDecrease 36 = TimeChannel4
% 4 = EAFStart2 15 = ExchangerActivate 26 = HeatStep1 37 = TimeChannel5
% 5 = HeatingPumpStart 16 = CoolingActivate 27 = HeatStep2 38 = Humidity start
% 6 = ExchangerStart 17 = RecycleAirDamper 28 = HeatStep3 39 = Extra unit start
% 7 = CoolingPumpStart 18 = FreshAirDamper 29 = HeatStep4 40 = Heat/Cool step 1
% 8 = FireDamper 19 = ExtractAirDamper 30 = CoolStep1 41 = Heat/Cool step 2
% 9 = SumAlarm 20 = HeatingIncrease 31 = CoolStep2 42 = Heat/Cool step 3
% 10 = SumAlarmA 21 = HeatingDecrease 32 = CoolStep3
D26 : "DU1"; %26 Value of DO1
D27 : "DU2"; %27 Value of DO2
D28 : "DU3"; %28 Value of DO3
D29 : "DU4"; %29 Value of DO4
D30 : "DU5"; %30 Value of DO5
D31 : "DU6"; %31 Value of DO6
D32 : "DU7"; %32 Value of DO7
PRIVATE
BAUDRATE 9600;
CHECKSUM MODBUS SWAPPED;
TELEGRAM DigitalInput NAMED "Digital status" IS
QUESTION
DATA[0] := BYTE(Id); % Modbus unit address
DATA[1] := HEX(02); % Modbus command "02h" read discrete input (bit)
DATA[2] := RWORD(0); % Start adress
DATA[4] := RWORD(32); % Number of inputs
ANSWER SIZE 9
DATA[0] = BYTE(Id);
DATA[1] = HEX(02);
%DATA[2] = BYTE(4);
%DATA[3] -> BYTE(
% IF (DATA & 1) THEN D1 := 1; ELSE D1 := 0; ENDIF;
% IF (DATA & 2) THEN D2 := 1; ELSE D2 := 0; ENDIF;
% IF (DATA & 4) THEN D3 := 1; ELSE D3 := 0; ENDIF;
% IF (DATA & 8) THEN D4 := 1; ELSE D4 := 0; ENDIF;
% IF (DATA & 16) THEN D5 := 1; ELSE D5 := 0; ENDIF;
% IF (DATA & 32) THEN D6 := 1; ELSE D6 := 0; ENDIF;
% IF (DATA & 64) THEN D7 := 1; ELSE D7 := 0; ENDIF;
% IF (DATA & 128) THEN D8 := 1; ELSE D8 := 0; ENDIF;
% );
DATA[4] -> BYTE(
% IF (DATA & 1) THEN D9 := 1; ELSE D9 := 0; ENDIF;
% IF (DATA & 2) THEN D10:= 1; ELSE D10:= 0; ENDIF;
% IF (DATA & 4) THEN D11:= 1; ELSE D11:= 0; ENDIF;
% IF (DATA & 8) THEN D12:= 1; ELSE D12:= 0; ENDIF;
% IF (DATA & 16) THEN D13:= 1; ELSE D13:= 0; ENDIF;
IF (DATA & 32) THEN D14:= 1; ELSE D14:= 0; ENDIF;
IF (DATA & 64) THEN D15:= 1; ELSE D15:= 0; ENDIF;
IF (DATA & 128) THEN D16:= 1; ELSE D16:= 0; ENDIF;
);
DATA[5] -> BYTE(
IF (DATA & 1) THEN D17:= 1; ELSE D17:= 0; ENDIF;
IF (DATA & 2) THEN D18:= 1; ELSE D18:= 0; ENDIF;
IF (DATA & 4) THEN D19:= 1; ELSE D19:= 0; ENDIF;
IF (DATA & 8) THEN D20:= 1; ELSE D20:= 0; ENDIF;
IF (DATA & 16) THEN D21:= 1; ELSE D21:= 0; ENDIF;
IF (DATA & 32) THEN D22:= 1; ELSE D22:= 0; ENDIF;
IF (DATA & 64) THEN D23:= 1; ELSE D23:= 0; ENDIF;
IF (DATA & 128) THEN D24:= 1; ELSE D24:= 0; ENDIF;
);
DATA[6] -> BYTE(
IF (DATA & 1) THEN D25:= 1; ELSE D25:= 0; ENDIF;
IF (DATA & 2) THEN D26:= 1; ELSE D26:= 0; ENDIF;
IF (DATA & 4) THEN D27:= 1; ELSE D27:= 0; ENDIF;
IF (DATA & 8) THEN D28:= 1; ELSE D28:= 0; ENDIF;
IF (DATA & 16) THEN D29:= 1; ELSE D29:= 0; ENDIF;
IF (DATA & 32) THEN D30:= 1; ELSE D30:= 0; ENDIF;
IF (DATA & 64) THEN D31:= 1; ELSE D31:= 0; ENDIF;
IF (DATA & 128) THEN D32:= 1; ELSE D32:= 0; ENDIF;
);
TIMEOUT 2000
END;
END;
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Device definition for CORRIGO E, Alarm inputs
%
% Settings module:
% Parity: None
% Baud: 9600
% Mode: RTU
%
% Notera!
% Kvittera genom att öka kanalvärdet kopplat till "Kvittering".
% Om man har en checkbox (kryssruta) för att utföra kvittering går det kanske
% att koppla en logisk funktion som efter viss timeout ställer tillbaka
% kvitteringskanalen (och checkboxen). Den timeouten måste anpassas efter
% skriptets ställda uppdateringstid.
%
% Author: Peter Widetun, ABELKO AB Luleå
% History: 2008-10-14 inital version
% History: 2010-06-18 Anpassning för Svensk Styrteknik
%
DEVICETYPE CorrigoEAlarm NAMED "CorrigoE Larm1" TYPEID 21272 IS
PARAMETER
Id : "Adress";
Ack : "Kvittering"; %3 Command to acknowledge all alarms L,1
PUBLIC
AL1 : "Fel TF Fläkt"; %33* Run Error Supply Air Fan
AL2 : "Fel FL Fläkt"; %34* Run Error Exhaust Air Fan
AL3 : "Fel P1 Värme"; %35 Run Error P1-Heater
AL4 : "Fel P1 Kyla"; %36 Run Error P1-Cooler
AL5 : "Fel P1 VVX"; %37 Run Error P1-Exchanger
AL6 : "Larm Filtervakt"; %38 Filter guard
AL7 : "Larm Flödesvakt"; %39 Flow guard
AL8 : "Larm ExFrysvakt"; %40 External frost guard
AL9 : "Larm Avfrost."; %41 Deicing pressure guard
AL10 : "Larm BRAND"; %42 Fire alarm
%AL11 : "Larm Ext. relä"; %43 External switch
%AL12 : "Larm Externt"; %44 External alarm
AL13 : "Larm TF regler"; %45 Supply Air control error
%AL14 : "Larm Avv. fukt"; %46 Deviation Humidity control
AL15 : "Larm TF HögTem"; %47* High supply air temp
AL16 : "Larm TF LågTem"; %48* Low supply air temp
%AL17 : "Larm TF Max"; %49 Supply Air Fan max limit
%AL18 : "Larm TF Min"; %50 Supply Air Fan min limit
%AL19 : "Larm Rum HögT."; %51 High room temp
%AL20 : "Larm Rum LågT."; %52 Low room temp
AL53 : "Larm FF HögTem"; %53 High exhaust air temp
AL54 : "Larm FF LågTem"; %54 Low exhaust air temp
%AL55 : "Larm ElvärmeHög"; %55 Electric heating is overheated
AL56 : "Larm Frysrisk"; %56 Frost risk
AL57 : "Larm Frysva.Låg"; %57 Low frost guard temp
%AL58 : "Larm Effekt Låg" %58 Low efficiency
AL59 : "Givarfel Utetemp"; %59 Sensor error outdoor temp
%AL60 : "Analogue deicing"; %60 Analogue deicing
AL61 : "Larm VVX r.vakt"; %61 Rotation guard exchanger
%AL62 : "Fel Brandspjäll"; %62 Fire damper is out of operation
AL63 : "Fel Reg TFfläkt"; %63 Supply Air Fan control error
AL64 : "Fel Reg FFfläkt"; %64 Exhaust Air Fan control error
%AL65 : "Supply Air Fan extern"; %65 Supply Air Fan external operation
%AL66 : "Exhaust Air Fan exter"; %66 Exhaust Air Fan external operation
%AL67 : "Ventilation Manual mo"; %67 Ventilation Manual mode
PRIVATE
Started;
AckMemory;
BAUDRATE 9600;
CHECKSUM MODBUS SWAPPED;
TELEGRAM DigitalAlarm NAMED "Larm status" IS
QUESTION
DATA[0] := BYTE(Id); % Modbus unit address
DATA[1] := HEX(02); % Modbus command "02h" read discrete input (bit)
DATA[2] := RWORD(32); % Start adress (33-1)
DATA[4] := RWORD(35); % Number of inputs
ANSWER SIZE 10
DATA[0] = BYTE(Id);
DATA[1] = HEX(02);
%DATA[2] = BYTE(5);
DATA[3] -> BYTE(
IF (DATA & 1) THEN AL1 := 1; ELSE AL1 := 0; ENDIF;
IF (DATA & 2) THEN AL2 := 1; ELSE AL2 := 0; ENDIF;
IF (DATA & 4) THEN AL3 := 1; ELSE AL3 := 0; ENDIF;
IF (DATA & 8) THEN AL4 := 1; ELSE AL4 := 0; ENDIF;
IF (DATA & 16) THEN AL5 := 1; ELSE AL5 := 0; ENDIF;
IF (DATA & 32) THEN AL6 := 1; ELSE AL6 := 0; ENDIF;
IF (DATA & 64) THEN AL7 := 1; ELSE AL7 := 0; ENDIF;
IF (DATA & 128) THEN AL8 := 1; ELSE AL8 := 0; ENDIF;
);
DATA[4] -> BYTE(
IF (DATA & 1) THEN AL9 := 1; ELSE AL9 := 0; ENDIF;
IF (DATA & 2) THEN AL10:= 1; ELSE AL10:= 0; ENDIF;
% IF (DATA & 4) THEN AL11:= 1; ELSE AL11:= 0; ENDIF;
% IF (DATA & 8) THEN AL12:= 1; ELSE AL12:= 0; ENDIF;
IF (DATA & 16) THEN AL13:= 1; ELSE AL13:= 0; ENDIF;
% IF (DATA & 32) THEN AL14:= 1; ELSE AL14:= 0; ENDIF;
IF (DATA & 64) THEN AL15:= 1; ELSE AL15:= 0; ENDIF;
IF (DATA & 128) THEN AL16:= 1; ELSE AL16:= 0; ENDIF;
);
DATA[5] -> BYTE(
% IF (DATA & 1) THEN AL17:= 1; ELSE AL17:= 0; ENDIF;
% IF (DATA & 2) THEN AL18:= 1; ELSE AL18:= 0; ENDIF;
% IF (DATA & 4) THEN AL19:= 1; ELSE AL19:= 0; ENDIF;
% IF (DATA & 8) THEN AL20:= 1; ELSE AL20:= 0; ENDIF;
IF (DATA & 16) THEN AL53:= 1; ELSE AL53:= 0; ENDIF;
IF (DATA & 32) THEN AL54:= 1; ELSE AL54:= 0; ENDIF;
% IF (DATA & 64) THEN AL55:= 1; ELSE AL55:= 0; ENDIF;
IF (DATA & 128) THEN AL56:= 1; ELSE AL56:= 0; ENDIF;
);
DATA[6] -> BYTE(
IF (DATA & 1) THEN AL57:= 1; ELSE AL57:= 0; ENDIF;
% IF (DATA & 2) THEN AL58:= 1; ELSE AL58:= 0; ENDIF;
IF (DATA & 4) THEN AL59:= 1; ELSE AL59:= 0; ENDIF;
% IF (DATA & 8) THEN AL60:= 1; ELSE AL60:= 0; ENDIF;
IF (DATA & 16) THEN AL61:= 1; ELSE AL61:= 0; ENDIF;
% IF (DATA & 32) THEN AL62:= 1; ELSE AL62:= 0; ENDIF;
IF (DATA & 64) THEN AL63:= 1; ELSE AL63:= 0; ENDIF;
IF (DATA & 128) THEN AL64:= 1; ELSE AL64:= 0; ENDIF;
);
% DATA[7] -> BYTE(
% IF (DATA & 1) THEN AL65:= 1; ELSE AL65:= 0; ENDIF;
% IF (DATA & 2) THEN AL66:= 1; ELSE AL66:= 0; ENDIF;
% IF (DATA & 4) THEN AL67:= 1; ELSE AL67:= 0; ENDIF;
% );
TIMEOUT 2000
END;
TELEGRAM Acknowledge NAMED "Larmkvittering" IS
QUESTION
DATA[0] := BYTE(Id);
DATA[1] := HEX(05); %Write singel coil
DATA[2] <- RWORD(DATA := 2;); %Start adress (regnr-1)
DATA[4] <- RWORD(IF (Started = 0) THEN
AckMemory := Ack;
Started := 1;
ENDIF;
IF (Ack > AckMemory) THEN
DATA := 65280; % FF00h
ELSE
DATA := 0;
ENDIF;
AckMemory := Ack;
);
ANSWER SIZE 8
DATA[0] = BYTE(Id);
DATA[1] = HEX(05);
TIMEOUT 2000
END;
END;
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Device definition for CORRIGO E, Alarm inputs
%
% Settings module:
% Parity: None
% Baud: 9600
% Mode: RTU
%
% Note! Telegram for reading Alarm inputs
%
% Author: Peter Widetun, ABELKO AB Luleå
% History: 2010-06-18 Nytt, Anpassning för Svensk Styrteknik
%
DEVICETYPE CorrigoEAlarm2 NAMED "CorrigoE Larm2" TYPEID 21275 IS
PARAMETER
Id : "Adress";
PUBLIC
%AL68 : "Manual supply a"; %68 Manual supply air control
%AL69 : "Manual Supply A"; %69 Manual Supply Air Fan mode
%AL70 : "Manual Supply A"; %70 Manual Supply Air Fan freq control
%AL71 : "Manual Exhaust "; %71 Manual Exhaust Air Fan mode
%AL72 : "Manual Exhaust "; %72 Manual Exhaust Air Fan freq control
%AL73 : "Manual heater c"; %73 Manual heater control
%AL74 : "Manual cooler c"; %74 Manual cooler control
%AL75 : "Manual exchange"; %75 Manual exchanger control
%AL76 : "Manual P1-Heate"; %76 Manual P1-Heater
%AL77 : "Manual P1-Coole"; %77 Manual P1-Cooler
%AL78 : "Manual P1-Excha"; %78 Manual P1-Exchanger
%AL79 : "Manual fire dam"; %79 Manual fire damper
%AL80 : "Internal batter"; %80 Internal battery error
%AL81 : "Start signal fu"; %81 Start signal full speed supply air fan
%AL82 : "Start signal fu"; %82 Start signal full speed exhaust air fan
%AL83 : "Start signal ha"; %83 Start signal half speed supply air fan
%AL84 : "Start signal ha"; %84 Start signal half speed exhaust air fan
%AL85 : "Start signal He"; %85 Start signal Heat Pump
%AL86 : "Start signal Ex"; %86 Start signal Exchanger
%AL87 : "Start signal Co"; %87 Start signal Cool Pump
%AL88 : "Start signal fr"; %88 Start signal frequencer supply air fan
%AL89 : "Start signal fr"; %89 Start signal frequencer exhaust air fan
AL90 : "Givarfel TLtemp"; %90 Sensor error Supply Air temp
AL91 : "Givarfel FLtemp"; %91 Sensor error Exhaust Air temp
AL92 : "Givarfel R1temp"; %92 Sensor error Room temp 1
AL93 : "Givarfel R2temp"; %93 Sensor error Room temp 2
AL94 : "Givarfel ALtemp"; %94 Sensor error Extract Air temp
AL95 : "Givarfel EXtemp"; %95 Sensor error Extra sensor
AL96 : "Givarfel SAFtry"; %96 Sensor error SAF pressure
AL97 : "Givarfel EAFtry"; %97 Sensor error EAF pressure
AL98 : "Givarfel AFtemp"; %98 Sensor error Deicing temp
AL99 : "Givarfel FPtemp"; %99 Sensor error Frost Protection temp
AL100 : "Givarfel CO2"; %100 Sensor error CO2
AL101 : "Givarfel Rfukt"; %101 Sensor error Humidity room
AL102 : "Givarfel Dfukt"; %102 Sensor error Humidity duct
%AL103 : "ReservedActive1" %103 Not used L,2
%AL104 : "ReservedActive2" %104 Not used L,2
%AL105 : "ReservedActive3" %105 Not used L,2
%AL106 : "ReservedActive4" %106 Not used L,2
%AL107 : "ReservedActive5" %107 Not used L,2
%AL108 : "ReservedActive6" %108 Not used L,2
%AL109 : "ReservedActive7" %109 Not used L,2
%AL110 : "ReservedActive8" %110 Not used L,2
%AL111 : "ReservedActive9" %111 Not used L,2
%AL112 : "ReservedActive10" %112 Not used L,2
PRIVATE
BAUDRATE 9600;
CHECKSUM MODBUS SWAPPED;
TELEGRAM DigitalAlarm2 NAMED "Givarfel" IS
QUESTION
DATA[0] := BYTE(Id); % Modbus unit address
DATA[1] := HEX(02); % Modbus command "02h" read discrete input (bit)
DATA[2] := RWORD(67); % Start adress (68-1)
DATA[4] := RWORD(45); % Number of inputs
ANSWER SIZE 11
DATA[0] = BYTE(Id);
DATA[1] = HEX(02);
%DATA[2] = BYTE(6);
%DATA[3] -> BYTE(
% IF (DATA & 1) THEN AL68 := 1; ELSE AL68 := 0; ENDIF;
% IF (DATA & 2) THEN AL69 := 1; ELSE AL69 := 0; ENDIF;
% IF (DATA & 4) THEN AL70 := 1; ELSE AL70 := 0; ENDIF;
% IF (DATA & 8) THEN AL71 := 1; ELSE AL71 := 0; ENDIF;
% IF (DATA & 16) THEN AL72 := 1; ELSE AL72 := 0; ENDIF;
% IF (DATA & 32) THEN AL73 := 1; ELSE AL73 := 0; ENDIF;
% IF (DATA & 64) THEN AL74 := 1; ELSE AL74 := 0; ENDIF;
% IF (DATA & 128) THEN AL75 := 1; ELSE AL75 := 0; ENDIF;
% );
%DATA[4] -> BYTE(
% IF (DATA & 1) THEN AL76 := 1; ELSE AL76 := 0; ENDIF;
% IF (DATA & 2) THEN AL77 := 1; ELSE AL77 := 0; ENDIF;
% IF (DATA & 4) THEN AL78 := 1; ELSE AL78 := 0; ENDIF;
% IF (DATA & 8) THEN AL79 := 1; ELSE AL79 := 0; ENDIF;
% IF (DATA & 16) THEN AL80 := 1; ELSE AL80 := 0; ENDIF;
% IF (DATA & 32) THEN AL81 := 1; ELSE AL81 := 0; ENDIF;
% IF (DATA & 64) THEN AL82 := 1; ELSE AL82 := 0; ENDIF;
% IF (DATA & 128) THEN AL83 := 1; ELSE AL83 := 0; ENDIF;
% );
DATA[5] -> BYTE(
% IF (DATA & 1) THEN AL84 := 1; ELSE AL84 := 0; ENDIF;
% IF (DATA & 2) THEN AL85 := 1; ELSE AL85 := 0; ENDIF;
% IF (DATA & 4) THEN AL86 := 1; ELSE AL86 := 0; ENDIF;
% IF (DATA & 8) THEN AL87 := 1; ELSE AL87 := 0; ENDIF;
% IF (DATA & 16) THEN AL88 := 1; ELSE AL88 := 0; ENDIF;
% IF (DATA & 32) THEN AL89 := 1; ELSE AL89 := 0; ENDIF;
IF (DATA & 64) THEN AL90 := 1; ELSE AL90 := 0; ENDIF;
IF (DATA & 128) THEN AL91 := 1; ELSE AL91 := 0; ENDIF;
);
DATA[6] -> BYTE(
IF (DATA & 1) THEN AL92 := 1; ELSE AL92 := 0; ENDIF;
IF (DATA & 2) THEN AL93 := 1; ELSE AL93 := 0; ENDIF;
IF (DATA & 4) THEN AL94 := 1; ELSE AL94 := 0; ENDIF;
IF (DATA & 8) THEN AL95 := 1; ELSE AL95 := 0; ENDIF;
IF (DATA & 16) THEN AL96 := 1; ELSE AL96 := 0; ENDIF;
IF (DATA & 32) THEN AL97 := 1; ELSE AL97 := 0; ENDIF;
IF (DATA & 64) THEN AL98 := 1; ELSE AL98 := 0; ENDIF;
IF (DATA & 128) THEN AL99 := 1; ELSE AL99 := 0; ENDIF;
);
DATA[7] -> BYTE(
IF (DATA & 1) THEN AL100:= 1; ELSE AL100:= 0; ENDIF;
IF (DATA & 2) THEN AL101:= 1; ELSE AL101:= 0; ENDIF;
IF (DATA & 4) THEN AL102:= 1; ELSE AL102:= 0; ENDIF;
% IF (DATA & 8) THEN AL103:= 1; ELSE AL103:= 0; ENDIF;
% IF (DATA & 16) THEN AL104:= 1; ELSE AL104:= 0; ENDIF;
% IF (DATA & 32) THEN AL105:= 1; ELSE AL105:= 0; ENDIF;
% IF (DATA & 64) THEN AL106:= 1; ELSE AL106:= 0; ENDIF;
% IF (DATA & 128) THEN AL107:= 1; ELSE AL107:= 0; ENDIF;
);
% DATA[8] -> BYTE(
% IF (DATA & 1) THEN AL108:= 1; ELSE AL108:= 0; ENDIF;
% IF (DATA & 2) THEN AL109:= 1; ELSE AL109:= 0; ENDIF;
% IF (DATA & 4) THEN AL110:= 1; ELSE AL110:= 0; ENDIF;
% IF (DATA & 8) THEN AL111:= 1; ELSE AL111:= 0; ENDIF;
% IF (DATA & 16) THEN AL112:= 1; ELSE AL112:= 0; ENDIF;
% );
TIMEOUT 2000
END;
END;
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Device definition for CORRIGO E Analog settings
%
% Settings module:
% Parity: None
% Baud: 9600
% Mode: RTU
%
% Note! Telegram for setting Analog status
%
% Author: Peter Widetun, ABELKO AB Luleå
% History: 2008-10-14 inital version
% History: 2010-06-18 Anpassning för Svensk Styrteknik
%
DEVICETYPE CorrigoESet1 NAMED "CorrigoE Börv." TYPEID 21273 IS
PARAMETER
Id : "Adress";
S1 : "Börvärde TL" ["°C"]; %1 Setpoint constant supply air temperature
%S2 : "Kurva1 X1" ["°C"]; %2 Outdoor temp, First curvepoint for outdoor compensated setpoint
%S3 : "Kurva1 X2" ["°C"]; %3 Second
%S4 : "Kurva1 X3" ["°C"]; %4 Third
%S5 : "Kurva1 X4" ["°C"]; %5 Fourth
%S6 : "Kurva1 X5" ["°C"]; %6 Fifth
%S7 : "Kurva1 X6" ["°C"]; %7 Sixth
%S8 : "Kurva1 X7" ["°C"]; %8 Seventh
%S9 : "Kurva1 X8" ["°C"]; %9 Eighth
%S10 : "Kurva1 Y1" ["°C"]; %10 Setpoint, First curvepoint for outdoor compensated setpoint
%S11 : "Kurva1 Y2" ["°C"]; %11 Second
%S12 : "Kurva1 Y3" ["°C"]; %12 Third
%S13 : "Kurva1 Y4" ["°C"]; %13 Fourth
%S14 : "Kurva1 Y5" ["°C"]; %14 Fifth
%S15 : "Kurva1 Y6" ["°C"]; %15 Sixth
%S16 : "Kurva1 Y7" ["°C"]; %16 Seventh
%S17 : "Kurva1 Y8" ["°C"]; %17 Eight
%S18 : "Börvärde FL" ["°C"]; %18 Setpoint exhaust air temp
%S19 : "Börvärde Rum" ["°C"]; %19 Setpoint room temp
%S20 : "Värme start" ["°C"]; %20 Room temp for start heating
%S21 : "Värme stopp" ["°C"]; %21 Room temp for stop heating
%S22 : "Kyla start" ["°C"]; %22 Room temp for start cooling
%S23 : "Kyla stopp" ["°C"]; %23 Room temp for stop cooling
S24 : "BVTryck TF 1/1" ["Pa"]; %24 Setpoint full speed supply air fan pressure
S25 : "BVTryck TF 1/2" ["Pa"]; %25 Setpoint reduced speed supply air fan pressure
S26 : "BVTryck FF 1/1" ["Pa"]; %26 Setpoint full speed exhaust air fan pressure
S27 : "BVTryck FF 1/2" ["Pa"]; %27 Setpoint reduced speed exhaust air fan pressure
%S28 : "BVFlöde TF 1/1" ["m3/h"]; %28 Setpoint full speed supply air fan flow. Scale factor = 1
%S29 : "BVFlöde TF 1/2" ["m3/h"]; %29 Setpoint reduced speed supply air fan flow. Scale factor = 1
%S30 : "BVFlöde FF 1/1" ["m3/h"]; %30 Setpoint full speed exhaust air fan flow. Scale factor = 1
%S31 : "BVFlöde FF 1/2" ["m3/h"]; %31 Setpoint reduced speed exhaust air fan flow. Scale factor = 1
%S32 : "Börvärde CO2" ["ppm"]; %32 Setpoint CO2
S33 : "BVVarmhållning" ["°C"]; %33 25°C Setpoint frost protection if the ventilation unit is stoped
S34 : "Larmgr.Frysvakt"["°C"]; %34 5° P-Gain frost protection when running (alarm limit+PGain)
%S35 : "Avfrosttemp" ["°C"]; %35 Setpoint de-icing temp
%S36 : "Avfrosthyst." ["°C"]; %36 Hysteresis for stop of de-icing
%S37 : "BVFukt Rum" ["%RH"]; %37 Setpoint humidity room
%S38 : "BVFukt TL ["%RH"]; %38 Max limit humidity duct
%S39 : "BVFukthyst." ["%RH"]; %39 Hysteresis to start humidity control after stop max limitation
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
S439 : "BV Pumpstopp" ["°C"]; %439 18 °C Recirculation setpoint R,3
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% S393 : "Fläktstyr 1/1"; %393 TimeGroupStatusFanFullSpeed X,3 Manual/Auto Full Speed time channel
% % 0=Manual-Off
% % 1=Manual-On
% % 2=Forced Off
% % 3=Forced On
% % 4=Auto
% S394 : "Fläktstyr 1/2"; %394 TimeGroupStatusFanHalfSpeed X,3 Manual/Auto Half Speed time channel
% % 0=Manual-Off
% % 1=Manual-On
% % 2=Forced Off
% % 3=Forced On
% % 4=Auto
%
% Set bit value
% Ventilation1.Cor_AlaAcknowAll L,1 3 0 Command to acknowledge all alarms
PUBLIC
PRIVATE
Cnt;
BAUDRATE 9600;
CHECKSUM MODBUS SWAPPED;
TELEGRAM Settings1 NAMED "Ställ Börvärden" IS
QUESTION
DATA[0] := BYTE(Id);
DATA[1] := HEX(06); %Write singel register
DATA[2] <- RWORD( %Start adress (regnr-1)
IF Cnt>8 THEN Cnt:=0; ENDIF;
%% Adress=Register-1
IF Cnt=0 THEN DATA := 0; %S1
ELSIF Cnt=1 THEN DATA := 23; %S24
ELSIF Cnt=2 THEN DATA := 24; %S25
ELSIF Cnt=3 THEN DATA := 25; %S26
ELSIF Cnt=4 THEN DATA := 26; %S27
ELSIF Cnt=5 THEN DATA := 0; %S1
ELSIF Cnt=6 THEN DATA := 32; %S33
ELSIF Cnt=7 THEN DATA := 33; %S34
ELSE DATA := 438; %S439
ENDIF;
);
DATA[4] <- RWORD(
IF Cnt=0 THEN
IF S1<10 THEN DATA := 100; % S1 : "Börvärde TL"
ELSIF S1>40 THEN DATA := 400;
ELSE DATA := S1*10;
ENDIF;
ELSIF Cnt=1 THEN
IF S24<20 THEN DATA := 200; % S24: "BVTryck TF 1/1"
ELSIF S24>750 THEN DATA := 7500;
ELSE DATA := S24*10;
ENDIF;
ELSIF Cnt=2 THEN
IF S25<20 THEN DATA := 200; % S25: "BVTryck TF 1/2"
ELSIF S25>750 THEN DATA := 7500;
ELSE DATA := 25*10;
ENDIF;
ELSIF Cnt=3 THEN
IF S26<20 THEN DATA := 200; % S26: "BVTryck FF 1/1"
ELSIF S26>750 THEN DATA := 7500;
ELSE DATA := S26*10;
ENDIF;
ELSIF Cnt=4 THEN
IF S27<20 THEN DATA := 200; % S27: "BVTryck FF 1/2"
ELSIF S27>750 THEN DATA := 7500;
ELSE DATA := S27*10;
ENDIF;
ELSIF Cnt=5 THEN
IF S1<10 THEN DATA := 100; % S1 : "Börvärde TL"
ELSIF S1>40 THEN DATA := 400;
ELSE DATA := S1*10;
ENDIF;
ELSIF Cnt=6 THEN
IF S33<10 THEN DATA := 100; % S33: "BVVarmhållning"
ELSIF S33>40 THEN DATA := 400;
ELSE DATA := S33*10;
ENDIF;
ELSIF Cnt=7 THEN
IF S34<4 THEN DATA := 40; % S34: "Larmgr.Frysvakt"
ELSIF S34>40 THEN DATA := 400;
ELSE DATA := S34*10;
ENDIF;
ELSE
IF S439<10 THEN DATA := 100; % S439: "BV Pumpstopp"
ELSIF S439>40 THEN DATA := 400;
ELSE DATA := S439*10;
ENDIF;
ENDIF;
Cnt := Cnt + 1;
IF Cnt>8 THEN Cnt := 0;
ENDIF;
);
ANSWER SIZE 8
DATA[0] = BYTE(Id);
DATA[1] = HEX(06);
TIMEOUT 2000
END;
END;
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Device definition for CORRIGO E Analog settings 2
%
% Settings module:
% Parity: None
% Baud: 9600
% Mode: RTU
%
% Note! Telegram for setting Analog status
%
% Author: Peter Widetun, ABELKO AB Luleå
% History: 2010-06-18 Nytt, Anpassning för Svensk Styrteknik
%
DEVICETYPE CorrigoESet2 NAMED "CorrigoE Fläkt" TYPEID 21274 IS
PARAMETER
Id : "Adress";
S340 : "Max avv.tryckTF"; %340 SAFMaxDiffPressure 50 Pa Max control deviation pressure SAF
S341 : "Max avv.tryckFF"; %341 EAFMaxDiffPressure 50 Pa Max control deviation pressure EAF
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
S393 : "Fläktstyr 1/1"; %393 TimeGroupStatusFanFullSpeed X,3 Manual/Auto Full Speed time channel
% 0=Manual-Off
% 1=Manual-On
% 2=Forced Off
% 3=Forced On
% 4=Auto
S394 : "Fläktstyr 1/2"; %394 TimeGroupStatusFanHalfSpeed X,3 Manual/Auto Half Speed time channel
% 0=Manual-Off
% 1=Manual-On
% 2=Forced Off
% 3=Forced On
% 4=Auto
PUBLIC
PRIVATE
Cnt;
BAUDRATE 9600;
CHECKSUM MODBUS SWAPPED;
TELEGRAM Settings2 NAMED "Ställ Fläktpar." IS
QUESTION
DATA[0] := BYTE(Id);
DATA[1] := HEX(06); %Write singel register
DATA[2] <- RWORD( %Start adress (regnr-1)
IF Cnt>3 THEN Cnt:=0; ENDIF;
%% Adress=Register-1
IF Cnt=0 THEN DATA := 392; %S393
ELSIF Cnt=1 THEN DATA := 339; %S340
ELSIF Cnt=2 THEN DATA := 340; %S341
%ELSIF Cnt=3 THEN DATA := 25; %
%ELSIF Cnt=4 THEN DATA := 26; %
%ELSIF Cnt=5 THEN DATA := 0; %
%ELSIF Cnt=6 THEN DATA := 32; %
%ELSIF Cnt=7 THEN DATA := 33; %
ELSE DATA := 393; %S394
ENDIF;
);
DATA[4] <- RWORD(
IF Cnt=0 THEN
IF S393<0 THEN DATA := 0; % S393: "Fläktstyr 1/1";
ELSIF S393>4 THEN DATA := 4;
ELSE DATA := S393;
ENDIF;
ELSIF Cnt=1 THEN
IF S340<10 THEN DATA := 100; % S340: "Max avv.tryckTF"
ELSIF S340>200 THEN DATA := 2000;
ELSE DATA := S340*10;
ENDIF;
ELSIF Cnt=2 THEN
IF S341<10 THEN DATA := 100; % S341: "Max avv.tryckFF"
ELSIF S341>200 THEN DATA := 2000;
ELSE DATA := S341*10;
ENDIF;
%ELSIF Cnt=3 THEN
% IF S26<20 THEN DATA := 200; %
% ELSIF S26>750 THEN DATA := 7500;
% ELSE DATA := S26*10;
% ENDIF;
%ELSIF Cnt=4 THEN
% IF S27<20 THEN DATA := 200; %
% ELSIF S27>750 THEN DATA := 7500;
% ELSE DATA := S27*10;
% ENDIF;
%ELSIF Cnt=5 THEN
% IF S1<10 THEN DATA := 100; %
% ELSIF S1>40 THEN DATA := 400;
% ELSE DATA := S1*10;
% ENDIF;
%ELSIF Cnt=6 THEN
% IF S33<10 THEN DATA := 100; %
% ELSIF S33>40 THEN DATA := 400;
% ELSE DATA := S33*10;
% ENDIF;
%ELSIF Cnt=7 THEN
% IF S34<4 THEN DATA := 40; %
% ELSIF S34>40 THEN DATA := 400;
% ELSE DATA := S34*10;
% ENDIF;
ELSE
IF S394<0 THEN DATA := 0; % S394: "Fläktstyr 1/2";
ELSIF S394>4 THEN DATA := 4;
ELSE DATA := S394;
ENDIF;
ENDIF;
Cnt := Cnt + 1;
IF Cnt>3 THEN Cnt := 0;
ENDIF;
);
ANSWER SIZE 8
DATA[0] = BYTE(Id);
DATA[1] = HEX(06);
TIMEOUT 2000
END;
END;
% History: 2008-12-10 Fel answer size Digital Input, Ändrat 7 till 9
% AO1-5 visning i procent (ingen division med 10)
% History: 2010-02-19 Timeout ändrad till 2 sekunder NÖDVÄNDIGT !!!
% History: 2010-06-18 Anpassning för Svensk Styrteknik
% History: 2010-06-20 En del rättade fel i koden.
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Device definition for CORRIGO E Analog inputs/outputs
%
% Settings module:
% Parity: None
% Baud: 9600
% Mode: RTU
%
% Note! Telegram for reading Analog status AI and AO
%
% Author: Peter Widetun, ABELKO AB Luleå
% History: 2008-10-14 inital version
% History: 2010-06-18 Anpassning för Svensk Styrteknik
%
DEVICETYPE CorrigoEAnalog NAMED "CorrigoE AI/AU" TYPEID 21270 IS
PARAMETER
Id : "Adress";
PUBLIC
V1 : "Utetemperatur" ["°C"]; %1 Outdoor temperature
%V2 : "VVX effekt" ["%"]; %2 Exch. Efficiency (%)
%V3 : "Driftläge" [""]; %3 (I) Run mode, 0=Stopped,
% % 1=Starting up,
% % 2=Starting reduced speed,
% % 3=Starting full speed,
% % 4=Starting normal run,
% % 5=Normal run,
% % 6=Support control heating,
% % 7=Support control cooling,
% % 8=CO2 run,
% % 9=Night cooling,
% % 10=Full speed stop,
% % 11=Stopping fan
%V4 : "Drifttid TF" ["h"]; %4 Running time (h) supply air fan
%V5 : "Drifttid FF" ["h"]; %5 Running time (h) exhaust air fan
%V6 : "Förlängd drift" ["min"]; %6 (I) Number of minutes extended operation
V7 : "Temp tilluft" ["°C"]; %7 Supply air temperature
%V8 : "BV tilluft" ["°C"]; %8 Calculated setpoint supply air
V9 : "Temp frånluft" ["°C"]; %9 Exhaust air temp
%V10 : "Temp 1 rum" ["°C"]; %10 Room temperature 1
%V11 : "Temp 2 rum" ["°C"]; %11 Room temperature 2
%V12 : "Drifttid Vä/Ky" ["min"]; %12 (I) Number of minutes in ongoing support heating/cooling
V13 : "Tryck tilluft" ["Pa"]; %13 Supply air fan pressure (Pa)
V14 : "Tryck frånluft" ["Pa"]; %14 Exhaust air fan pressure (Pa)
%V15 : "Flöde tilluft" ["m3/h"]; %15 Supply air fan flow (m3/h) Scale factor = 1
%V16 : "Flöde frånluft" ["m3/h"]; %16 Exhaust air fan flow (m3/h) Scale factor = 1
%V17 : "CO2-halt" ["ppm"]; %17 CO2 (ppm)
%V18 : "Drifttid CO2" ["min"]; %18 (I) Number of minutes support run time CO2
V19 : "Temp frysvakt" ["°C"]; %19 Frost protection temp
%V20 : "Temp frånluft" ["°C"]; %20 Extract air temp
%V21 : "Temp avfrost." ["°C"]; %21 De-icing temp exchanger
%V22 : "Drifttid Avis." ["min"]; %22 (I) Number of minutes for ongoing de-icing
%V23 : "Fuktighet rum" ["%RH"]; %23 Humidity room
%V24 : "Fuktighet TF" ["%RH"]; %24 Humidity duct
%V25 : "Temp extra" ["°C"]; %25 Additional sensor / External setpoint
% AI functions %%%%%%%%%%%%%%%
% 0=Not used 5=Roomtemp2 10=Deicingtemp 15=Extra unit temp
% 1=Outdoortemp 6=Extracttemp 11=Frost prot.temp 16=External SAF control
% 2=Supplytemp 7=Extrasensor 12=CO2 17=External EAF control
% 3=Exhausttemp 8=SAF pressure 13=Humidity room 18=SAF pressure 2
% 4=Roomtemp1 9=EAF pressure 14=Humidity duct
V26 : "AI1" [""]; %26 The scaled and filtered value of AI1 R,4
V27 : "AI2" [""]; %27 The scaled and filtered value of AI2 R,4
V28 : "AI3" [""]; %28 The scaled and filtered value of AI3 R,4
V29 : "AI4" [""]; %29 The scaled and filtered value of AI4 R,4
V30 : "AI5" [""]; %30 The scaled and filtered value of UAI1 R,4
V31 : "AI6" [""]; %31 The scaled and filtered value of UAI2 R,4
V32 : "AI7" [""]; %32 The scaled and filtered value of UAI3 R,4
V33 : "AI8" [""]; %33 The scaled and filtered value of UAI4 R,4
% AO function %%%%%%%%%%%%%%%%%
% 0=Not used 5=EAF
% 1=Y1-Heating 6=Y6-Humidity
% 2=Y2-Exchanger 7=Sequence
% 3=Y3-Cooling 8=Extra unit
% 4=SAF 9=Heat/Cool (change over)
V54 : "AO1" ["%"]; %54 Value of AO1
V55 : "AO2" ["%"]; %55 Value of AO2
V56 : "AO3" ["%"]; %56 Value of AO3
V57 : "AO4" ["%"]; %57 Value of AO4
V58 : "AO5" ["%"]; %58 Value of AO5
PRIVATE
BAUDRATE 9600;
CHECKSUM MODBUS SWAPPED;
TELEGRAM AnalogInput NAMED "Läs Analog IN" IS
QUESTION
DATA[0] := BYTE(Id); % Modbus unit address
DATA[1] := HEX(04); % Modbus command "04h" Read registers
DATA[2] := RWORD(0); % Start address register
DATA[4] := RWORD(33); % Number of registers
ANSWER SIZE 71
DATA[0] = BYTE(Id); % ID
DATA[1] = HEX(04); % Modbus command "04h" Read registers
%DATA[2] = BYTE(66); % Byte count
DATA[3] -> RWORD(IF (DATA>=32768) THEN V1 :=(DATA-65536)/10; ELSE V1 :=DATA/10; ENDIF;);
%DATA[5] -> RWORD(V2 := DATA / 10;);
%DATA[7] -> RWORD(V3 := DATA;);
%DATA[9] -> RWORD(V4 := DATA / 10;);
%DATA[11] -> RWORD(V5 := DATA / 10;);
%DATA[13] -> RWORD(V6 := DATA;);
DATA[15] -> RWORD(IF (DATA>=32768) THEN V7 :=(DATA-65536)/10; ELSE V7 :=DATA/10; ENDIF;);
%DATA[17] -> RWORD(IF (DATA>=32768) THEN V8 :=(DATA-65536)/10; ELSE V8 :=DATA/10; ENDIF;);
DATA[19] -> RWORD(IF (DATA>=32768) THEN V9 :=(DATA-65536)/10; ELSE V9 :=DATA/10; ENDIF;);
%DATA[21] -> RWORD(IF (DATA>=32768) THEN V10:=(DATA-65536)/10; ELSE V10:=DATA/10; ENDIF;);
%DATA[23] -> RWORD(IF (DATA>=32768) THEN V11:=(DATA-65536)/10; ELSE V11:=DATA/10; ENDIF;);
%DATA[25] -> RWORD(V12:= DATA;);
DATA[27] -> RWORD(V13:= DATA / 10;);
DATA[29] -> RWORD(V14:= DATA / 10;);
%DATA[31] -> RWORD(V15:= DATA;);
%DATA[33] -> RWORD(V16:= DATA;);
%DATA[35] -> RWORD(V17:= DATA / 10;);
%DATA[37] -> RWORD(V18:= DATA;);
DATA[39] -> RWORD(IF (DATA>=32768) THEN V19:=(DATA-65536)/10; ELSE V19:=DATA/10; ENDIF;);
%DATA[41] -> RWORD(IF (DATA>=32768) THEN V20:=(DATA-65536)/10; ELSE V20:=DATA/10; ENDIF;);
%DATA[43] -> RWORD(IF (DATA>=32768) THEN V21:=(DATA-65536)/10; ELSE V21:=DATA/10; ENDIF;);
%DATA[45] -> RWORD(V22:= DATA;);
%DATA[47] -> RWORD(V23:= DATA / 10;);
%DATA[49] -> RWORD(V24:= DATA / 10;);
%DATA[51] -> RWORD(IF (DATA>=32768) THEN V25:=(DATA-65536)/10; ELSE V25:=DATA/10; ENDIF;);
DATA[53] -> RWORD(V26:= DATA / 10;); %OBS! Ej skalat värde !!!!
DATA[55] -> RWORD(V27:= DATA / 10;); %OBS! Ej skalat värde !!!!
DATA[57] -> RWORD(V28:= DATA / 10;); %OBS! Ej skalat värde !!!!
DATA[59] -> RWORD(V29:= DATA / 10;); %OBS! Ej skalat värde !!!!
DATA[61] -> RWORD(V30:= DATA / 10;); %OBS! Ej skalat värde !!!!
DATA[63] -> RWORD(V31:= DATA / 10;); %OBS! Ej skalat värde !!!!
DATA[65] -> RWORD(V32:= DATA / 10;); %OBS! Ej skalat värde !!!!
DATA[67] -> RWORD(V33:= DATA / 10;); %OBS! Ej skalat värde !!!!
TIMEOUT 2000
END;
TELEGRAM AnalogOutput NAMED "Läs AU 1-5" IS
QUESTION
DATA[0] := BYTE(Id); % Modbus unit address
DATA[1] := HEX(04); % Modbus command "04h" Read registers
DATA[2] := RWORD(53); % Start address register (Reg.nr-1)
DATA[4] := RWORD(5); % Number of registers
ANSWER SIZE 15
DATA[0] = BYTE(Id); % ID
DATA[1] = HEX(04); % Modbus command "04h" Read registers
DATA[2] = BYTE(10); % Byte count
DATA[3] -> RWORD(V54:= DATA;); % Ändrat Volt till %
DATA[5] -> RWORD(V55:= DATA;);
DATA[7] -> RWORD(V56:= DATA;);
DATA[9] -> RWORD(V57:= DATA;);
DATA[11] -> RWORD(V58:= DATA;);
TIMEOUT 2000
END;
END;
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Device definition for CORRIGO E, Digtal inputs
%
% Settings module:
% Parity: None
% Baud: 9600
% Mode: RTU
%
% Note! Telegram for reading Digital status DI and DO
%
% Author: Peter Widetun, ABELKO AB Luleå
% History: 2008-10-14 inital version
% History: 2010-06-18 Anpassning för Svensk Styrteknik
%
DEVICETYPE CorrigoEDigital NAMED "CorrigoE DI/DU" TYPEID 21271 IS
PARAMETER
Id : "Adress";
PUBLIC
%D1 : "Helfart aktiv"; %1 Is set if timechannel full speed is active
%D2 : "Halvfart aktiv"; %2 Is set if timechannel reduced speed is active
%D3 : "Timer 1 aktiv"; %3 Is set if timer output 1 is active
%D4 : "Timer 2 aktiv"; %4 Is set if timer output 2 is active
%D5 : "Timer 3 aktiv"; %5 Is set if timer output 3 is active
%D6 : "Timer 4 aktiv"; %6 Is set if timer output 4 is active
%D7 : "Timer 5 aktiv"; %7 Is set if timer output 5 is active
%D8 : "Helfart extra"; %8 Is set if extended operation full speed
%D9 : "Halvfart extra"; %9 Is set if extended operation half speed
%D10 : "VärmeReglering"; %10 Is set if ongoing support heating
%D11 : "KylaReglering"; %11 Is set if ongoing support cooling
%D12 : "CO2-reglering"; %12 Is set if ongoing support CO2
%D13 : "Avisning aktiv"; %13 DeIcingActive
% DI / UDI Function %%%%%%%%%%%%%%%%
% 0=Not used 5=P1-Cooling 10=Ext run ½ 15=De-icing
% 1=SAF-Ind 6=Filter alarm 11=External alarm 16=Frostprotection
% 2=EAF-Ind 7=Fire alarm 12=External switch 17=Overheatprotection
% 3=P1-Heating 8=Fire damper-ind 13=Flow guard 18=Recirculation run
% 4=P1-Exchanger 9=Ext run 1/1 14=Rot.sent.exch 19=Change over
%
D14 : "DI1 status"; %14 Value of DI1
D15 : "DI2 status"; %15 Value of DI2
D16 : "DI3 status"; %16 Value of DI3
D17 : "DI4 status"; %17 Value of DI4
D18 : "DI5 status"; %18 Value of DI5
D19 : "DI6 status"; %19 Value of DI6
D20 : "DI7 status"; %20 Value of DI7
D21 : "DI8 status"; %21 Value of DI8
D22 : "DI9 status"; %22 Value of DI9, Value of UDI1
D23 : "DI10 status"; %23 Value of DI10, Value of UDI2
D24 : "DI11 status"; %24 Value of DI11, Value of UDI3
D25 : "DI12 status"; %25 Value of DI12, Value of UDI4
% DO function %%%%%%%%%%%%%%%%%%%
% 0 = Not Used 11 = SumAlarmB 22 = ExchangerIncrease 33 = TimeChannel1
% 1 = SAFStart1 12 = SAFFrequencyStart 23 = ExchangerDecrease 34 = TimeChannel2
% 2 = EAFStart1 13 = EAFFrequencyStart 24 = CoolingIncrease 35 = TimeChannel3
% 3 = SAFStart2 14 = HeatingActivate 25 = CoolingDecrease 36 = TimeChannel4
% 4 = EAFStart2 15 = ExchangerActivate 26 = HeatStep1 37 = TimeChannel5
% 5 = HeatingPumpStart 16 = CoolingActivate 27 = HeatStep2 38 = Humidity start
% 6 = ExchangerStart 17 = RecycleAirDamper 28 = HeatStep3 39 = Extra unit start
% 7 = CoolingPumpStart 18 = FreshAirDamper 29 = HeatStep4 40 = Heat/Cool step 1
% 8 = FireDamper 19 = ExtractAirDamper 30 = CoolStep1 41 = Heat/Cool step 2
% 9 = SumAlarm 20 = HeatingIncrease 31 = CoolStep2 42 = Heat/Cool step 3
% 10 = SumAlarmA 21 = HeatingDecrease 32 = CoolStep3
D26 : "DU1"; %26 Value of DO1
D27 : "DU2"; %27 Value of DO2
D28 : "DU3"; %28 Value of DO3
D29 : "DU4"; %29 Value of DO4
D30 : "DU5"; %30 Value of DO5
D31 : "DU6"; %31 Value of DO6
D32 : "DU7"; %32 Value of DO7
PRIVATE
BAUDRATE 9600;
CHECKSUM MODBUS SWAPPED;
TELEGRAM DigitalInput NAMED "Digital status" IS
QUESTION
DATA[0] := BYTE(Id); % Modbus unit address
DATA[1] := HEX(02); % Modbus command "02h" read discrete input (bit)
DATA[2] := RWORD(0); % Start adress
DATA[4] := RWORD(32); % Number of inputs
ANSWER SIZE 9
DATA[0] = BYTE(Id);
DATA[1] = HEX(02);
%DATA[2] = BYTE(4);
%DATA[3] -> BYTE(
% IF (DATA & 1) THEN D1 := 1; ELSE D1 := 0; ENDIF;
% IF (DATA & 2) THEN D2 := 1; ELSE D2 := 0; ENDIF;
% IF (DATA & 4) THEN D3 := 1; ELSE D3 := 0; ENDIF;
% IF (DATA & 8) THEN D4 := 1; ELSE D4 := 0; ENDIF;
% IF (DATA & 16) THEN D5 := 1; ELSE D5 := 0; ENDIF;
% IF (DATA & 32) THEN D6 := 1; ELSE D6 := 0; ENDIF;
% IF (DATA & 64) THEN D7 := 1; ELSE D7 := 0; ENDIF;
% IF (DATA & 128) THEN D8 := 1; ELSE D8 := 0; ENDIF;
% );
DATA[4] -> BYTE(
% IF (DATA & 1) THEN D9 := 1; ELSE D9 := 0; ENDIF;
% IF (DATA & 2) THEN D10:= 1; ELSE D10:= 0; ENDIF;
% IF (DATA & 4) THEN D11:= 1; ELSE D11:= 0; ENDIF;
% IF (DATA & 8) THEN D12:= 1; ELSE D12:= 0; ENDIF;
% IF (DATA & 16) THEN D13:= 1; ELSE D13:= 0; ENDIF;
IF (DATA & 32) THEN D14:= 1; ELSE D14:= 0; ENDIF;
IF (DATA & 64) THEN D15:= 1; ELSE D15:= 0; ENDIF;
IF (DATA & 128) THEN D16:= 1; ELSE D16:= 0; ENDIF;
);
DATA[5] -> BYTE(
IF (DATA & 1) THEN D17:= 1; ELSE D17:= 0; ENDIF;
IF (DATA & 2) THEN D18:= 1; ELSE D18:= 0; ENDIF;
IF (DATA & 4) THEN D19:= 1; ELSE D19:= 0; ENDIF;
IF (DATA & 8) THEN D20:= 1; ELSE D20:= 0; ENDIF;
IF (DATA & 16) THEN D21:= 1; ELSE D21:= 0; ENDIF;
IF (DATA & 32) THEN D22:= 1; ELSE D22:= 0; ENDIF;
IF (DATA & 64) THEN D23:= 1; ELSE D23:= 0; ENDIF;
IF (DATA & 128) THEN D24:= 1; ELSE D24:= 0; ENDIF;
);
DATA[6] -> BYTE(
IF (DATA & 1) THEN D25:= 1; ELSE D25:= 0; ENDIF;
IF (DATA & 2) THEN D26:= 1; ELSE D26:= 0; ENDIF;
IF (DATA & 4) THEN D27:= 1; ELSE D27:= 0; ENDIF;
IF (DATA & 8) THEN D28:= 1; ELSE D28:= 0; ENDIF;
IF (DATA & 16) THEN D29:= 1; ELSE D29:= 0; ENDIF;
IF (DATA & 32) THEN D30:= 1; ELSE D30:= 0; ENDIF;
IF (DATA & 64) THEN D31:= 1; ELSE D31:= 0; ENDIF;
IF (DATA & 128) THEN D32:= 1; ELSE D32:= 0; ENDIF;
);
TIMEOUT 2000
END;
END;
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Device definition for CORRIGO E, Alarm inputs
%
% Settings module:
% Parity: None
% Baud: 9600
% Mode: RTU
%
% Notera!
% Kvittera genom att öka kanalvärdet kopplat till "Kvittering".
% Om man har en checkbox (kryssruta) för att utföra kvittering går det kanske
% att koppla en logisk funktion som efter viss timeout ställer tillbaka
% kvitteringskanalen (och checkboxen). Den timeouten måste anpassas efter
% skriptets ställda uppdateringstid.
%
% Author: Peter Widetun, ABELKO AB Luleå
% History: 2008-10-14 inital version
% History: 2010-06-18 Anpassning för Svensk Styrteknik
%
DEVICETYPE CorrigoEAlarm NAMED "CorrigoE Larm1" TYPEID 21272 IS
PARAMETER
Id : "Adress";
Ack : "Kvittering"; %3 Command to acknowledge all alarms L,1
PUBLIC
AL1 : "Fel TF Fläkt"; %33* Run Error Supply Air Fan
AL2 : "Fel FL Fläkt"; %34* Run Error Exhaust Air Fan
AL3 : "Fel P1 Värme"; %35 Run Error P1-Heater
AL4 : "Fel P1 Kyla"; %36 Run Error P1-Cooler
AL5 : "Fel P1 VVX"; %37 Run Error P1-Exchanger
AL6 : "Larm Filtervakt"; %38 Filter guard
AL7 : "Larm Flödesvakt"; %39 Flow guard
AL8 : "Larm ExFrysvakt"; %40 External frost guard
AL9 : "Larm Avfrost."; %41 Deicing pressure guard
AL10 : "Larm BRAND"; %42 Fire alarm
%AL11 : "Larm Ext. relä"; %43 External switch
%AL12 : "Larm Externt"; %44 External alarm
AL13 : "Larm TF regler"; %45 Supply Air control error
%AL14 : "Larm Avv. fukt"; %46 Deviation Humidity control
AL15 : "Larm TF HögTem"; %47* High supply air temp
AL16 : "Larm TF LågTem"; %48* Low supply air temp
%AL17 : "Larm TF Max"; %49 Supply Air Fan max limit
%AL18 : "Larm TF Min"; %50 Supply Air Fan min limit
%AL19 : "Larm Rum HögT."; %51 High room temp
%AL20 : "Larm Rum LågT."; %52 Low room temp
AL53 : "Larm FF HögTem"; %53 High exhaust air temp
AL54 : "Larm FF LågTem"; %54 Low exhaust air temp
%AL55 : "Larm ElvärmeHög"; %55 Electric heating is overheated
AL56 : "Larm Frysrisk"; %56 Frost risk
AL57 : "Larm Frysva.Låg"; %57 Low frost guard temp
%AL58 : "Larm Effekt Låg" %58 Low efficiency
AL59 : "Givarfel Utetemp"; %59 Sensor error outdoor temp
%AL60 : "Analogue deicing"; %60 Analogue deicing
AL61 : "Larm VVX r.vakt"; %61 Rotation guard exchanger
%AL62 : "Fel Brandspjäll"; %62 Fire damper is out of operation
AL63 : "Fel Reg TFfläkt"; %63 Supply Air Fan control error
AL64 : "Fel Reg FFfläkt"; %64 Exhaust Air Fan control error
%AL65 : "Supply Air Fan extern"; %65 Supply Air Fan external operation
%AL66 : "Exhaust Air Fan exter"; %66 Exhaust Air Fan external operation
%AL67 : "Ventilation Manual mo"; %67 Ventilation Manual mode
PRIVATE
Started;
AckMemory;
BAUDRATE 9600;
CHECKSUM MODBUS SWAPPED;
TELEGRAM DigitalAlarm NAMED "Larm status" IS
QUESTION
DATA[0] := BYTE(Id); % Modbus unit address
DATA[1] := HEX(02); % Modbus command "02h" read discrete input (bit)
DATA[2] := RWORD(32); % Start adress (33-1)
DATA[4] := RWORD(35); % Number of inputs
ANSWER SIZE 10
DATA[0] = BYTE(Id);
DATA[1] = HEX(02);
%DATA[2] = BYTE(5);
DATA[3] -> BYTE(
IF (DATA & 1) THEN AL1 := 1; ELSE AL1 := 0; ENDIF;
IF (DATA & 2) THEN AL2 := 1; ELSE AL2 := 0; ENDIF;
IF (DATA & 4) THEN AL3 := 1; ELSE AL3 := 0; ENDIF;
IF (DATA & 8) THEN AL4 := 1; ELSE AL4 := 0; ENDIF;
IF (DATA & 16) THEN AL5 := 1; ELSE AL5 := 0; ENDIF;
IF (DATA & 32) THEN AL6 := 1; ELSE AL6 := 0; ENDIF;
IF (DATA & 64) THEN AL7 := 1; ELSE AL7 := 0; ENDIF;
IF (DATA & 128) THEN AL8 := 1; ELSE AL8 := 0; ENDIF;
);
DATA[4] -> BYTE(
IF (DATA & 1) THEN AL9 := 1; ELSE AL9 := 0; ENDIF;
IF (DATA & 2) THEN AL10:= 1; ELSE AL10:= 0; ENDIF;
% IF (DATA & 4) THEN AL11:= 1; ELSE AL11:= 0; ENDIF;
% IF (DATA & 8) THEN AL12:= 1; ELSE AL12:= 0; ENDIF;
IF (DATA & 16) THEN AL13:= 1; ELSE AL13:= 0; ENDIF;
% IF (DATA & 32) THEN AL14:= 1; ELSE AL14:= 0; ENDIF;
IF (DATA & 64) THEN AL15:= 1; ELSE AL15:= 0; ENDIF;
IF (DATA & 128) THEN AL16:= 1; ELSE AL16:= 0; ENDIF;
);
DATA[5] -> BYTE(
% IF (DATA & 1) THEN AL17:= 1; ELSE AL17:= 0; ENDIF;
% IF (DATA & 2) THEN AL18:= 1; ELSE AL18:= 0; ENDIF;
% IF (DATA & 4) THEN AL19:= 1; ELSE AL19:= 0; ENDIF;
% IF (DATA & 8) THEN AL20:= 1; ELSE AL20:= 0; ENDIF;
IF (DATA & 16) THEN AL53:= 1; ELSE AL53:= 0; ENDIF;
IF (DATA & 32) THEN AL54:= 1; ELSE AL54:= 0; ENDIF;
% IF (DATA & 64) THEN AL55:= 1; ELSE AL55:= 0; ENDIF;
IF (DATA & 128) THEN AL56:= 1; ELSE AL56:= 0; ENDIF;
);
DATA[6] -> BYTE(
IF (DATA & 1) THEN AL57:= 1; ELSE AL57:= 0; ENDIF;
% IF (DATA & 2) THEN AL58:= 1; ELSE AL58:= 0; ENDIF;
IF (DATA & 4) THEN AL59:= 1; ELSE AL59:= 0; ENDIF;
% IF (DATA & 8) THEN AL60:= 1; ELSE AL60:= 0; ENDIF;
IF (DATA & 16) THEN AL61:= 1; ELSE AL61:= 0; ENDIF;
% IF (DATA & 32) THEN AL62:= 1; ELSE AL62:= 0; ENDIF;
IF (DATA & 64) THEN AL63:= 1; ELSE AL63:= 0; ENDIF;
IF (DATA & 128) THEN AL64:= 1; ELSE AL64:= 0; ENDIF;
);
% DATA[7] -> BYTE(
% IF (DATA & 1) THEN AL65:= 1; ELSE AL65:= 0; ENDIF;
% IF (DATA & 2) THEN AL66:= 1; ELSE AL66:= 0; ENDIF;
% IF (DATA & 4) THEN AL67:= 1; ELSE AL67:= 0; ENDIF;
% );
TIMEOUT 2000
END;
TELEGRAM Acknowledge NAMED "Larmkvittering" IS
QUESTION
DATA[0] := BYTE(Id);
DATA[1] := HEX(05); %Write singel coil
DATA[2] <- RWORD(DATA := 2;); %Start adress (regnr-1)
DATA[4] <- RWORD(IF (Started = 0) THEN
AckMemory := Ack;
Started := 1;
ENDIF;
IF (Ack > AckMemory) THEN
DATA := 65280; % FF00h
ELSE
DATA := 0;
ENDIF;
AckMemory := Ack;
);
ANSWER SIZE 8
DATA[0] = BYTE(Id);
DATA[1] = HEX(05);
TIMEOUT 2000
END;
END;
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Device definition for CORRIGO E, Alarm inputs
%
% Settings module:
% Parity: None
% Baud: 9600
% Mode: RTU
%
% Note! Telegram for reading Alarm inputs
%
% Author: Peter Widetun, ABELKO AB Luleå
% History: 2010-06-18 Nytt, Anpassning för Svensk Styrteknik
%
DEVICETYPE CorrigoEAlarm2 NAMED "CorrigoE Larm2" TYPEID 21275 IS
PARAMETER
Id : "Adress";
PUBLIC
%AL68 : "Manual supply a"; %68 Manual supply air control
%AL69 : "Manual Supply A"; %69 Manual Supply Air Fan mode
%AL70 : "Manual Supply A"; %70 Manual Supply Air Fan freq control
%AL71 : "Manual Exhaust "; %71 Manual Exhaust Air Fan mode
%AL72 : "Manual Exhaust "; %72 Manual Exhaust Air Fan freq control
%AL73 : "Manual heater c"; %73 Manual heater control
%AL74 : "Manual cooler c"; %74 Manual cooler control
%AL75 : "Manual exchange"; %75 Manual exchanger control
%AL76 : "Manual P1-Heate"; %76 Manual P1-Heater
%AL77 : "Manual P1-Coole"; %77 Manual P1-Cooler
%AL78 : "Manual P1-Excha"; %78 Manual P1-Exchanger
%AL79 : "Manual fire dam"; %79 Manual fire damper
%AL80 : "Internal batter"; %80 Internal battery error
%AL81 : "Start signal fu"; %81 Start signal full speed supply air fan
%AL82 : "Start signal fu"; %82 Start signal full speed exhaust air fan
%AL83 : "Start signal ha"; %83 Start signal half speed supply air fan
%AL84 : "Start signal ha"; %84 Start signal half speed exhaust air fan
%AL85 : "Start signal He"; %85 Start signal Heat Pump
%AL86 : "Start signal Ex"; %86 Start signal Exchanger
%AL87 : "Start signal Co"; %87 Start signal Cool Pump
%AL88 : "Start signal fr"; %88 Start signal frequencer supply air fan
%AL89 : "Start signal fr"; %89 Start signal frequencer exhaust air fan
AL90 : "Givarfel TLtemp"; %90 Sensor error Supply Air temp
AL91 : "Givarfel FLtemp"; %91 Sensor error Exhaust Air temp
AL92 : "Givarfel R1temp"; %92 Sensor error Room temp 1
AL93 : "Givarfel R2temp"; %93 Sensor error Room temp 2
AL94 : "Givarfel ALtemp"; %94 Sensor error Extract Air temp
AL95 : "Givarfel EXtemp"; %95 Sensor error Extra sensor
AL96 : "Givarfel SAFtry"; %96 Sensor error SAF pressure
AL97 : "Givarfel EAFtry"; %97 Sensor error EAF pressure
AL98 : "Givarfel AFtemp"; %98 Sensor error Deicing temp
AL99 : "Givarfel FPtemp"; %99 Sensor error Frost Protection temp
AL100 : "Givarfel CO2"; %100 Sensor error CO2
AL101 : "Givarfel Rfukt"; %101 Sensor error Humidity room
AL102 : "Givarfel Dfukt"; %102 Sensor error Humidity duct
%AL103 : "ReservedActive1" %103 Not used L,2
%AL104 : "ReservedActive2" %104 Not used L,2
%AL105 : "ReservedActive3" %105 Not used L,2
%AL106 : "ReservedActive4" %106 Not used L,2
%AL107 : "ReservedActive5" %107 Not used L,2
%AL108 : "ReservedActive6" %108 Not used L,2
%AL109 : "ReservedActive7" %109 Not used L,2
%AL110 : "ReservedActive8" %110 Not used L,2
%AL111 : "ReservedActive9" %111 Not used L,2
%AL112 : "ReservedActive10" %112 Not used L,2
PRIVATE
BAUDRATE 9600;
CHECKSUM MODBUS SWAPPED;
TELEGRAM DigitalAlarm2 NAMED "Givarfel" IS
QUESTION
DATA[0] := BYTE(Id); % Modbus unit address
DATA[1] := HEX(02); % Modbus command "02h" read discrete input (bit)
DATA[2] := RWORD(67); % Start adress (68-1)
DATA[4] := RWORD(45); % Number of inputs
ANSWER SIZE 11
DATA[0] = BYTE(Id);
DATA[1] = HEX(02);
%DATA[2] = BYTE(6);
%DATA[3] -> BYTE(
% IF (DATA & 1) THEN AL68 := 1; ELSE AL68 := 0; ENDIF;
% IF (DATA & 2) THEN AL69 := 1; ELSE AL69 := 0; ENDIF;
% IF (DATA & 4) THEN AL70 := 1; ELSE AL70 := 0; ENDIF;
% IF (DATA & 8) THEN AL71 := 1; ELSE AL71 := 0; ENDIF;
% IF (DATA & 16) THEN AL72 := 1; ELSE AL72 := 0; ENDIF;
% IF (DATA & 32) THEN AL73 := 1; ELSE AL73 := 0; ENDIF;
% IF (DATA & 64) THEN AL74 := 1; ELSE AL74 := 0; ENDIF;
% IF (DATA & 128) THEN AL75 := 1; ELSE AL75 := 0; ENDIF;
% );
%DATA[4] -> BYTE(
% IF (DATA & 1) THEN AL76 := 1; ELSE AL76 := 0; ENDIF;
% IF (DATA & 2) THEN AL77 := 1; ELSE AL77 := 0; ENDIF;
% IF (DATA & 4) THEN AL78 := 1; ELSE AL78 := 0; ENDIF;
% IF (DATA & 8) THEN AL79 := 1; ELSE AL79 := 0; ENDIF;
% IF (DATA & 16) THEN AL80 := 1; ELSE AL80 := 0; ENDIF;
% IF (DATA & 32) THEN AL81 := 1; ELSE AL81 := 0; ENDIF;
% IF (DATA & 64) THEN AL82 := 1; ELSE AL82 := 0; ENDIF;
% IF (DATA & 128) THEN AL83 := 1; ELSE AL83 := 0; ENDIF;
% );
DATA[5] -> BYTE(
% IF (DATA & 1) THEN AL84 := 1; ELSE AL84 := 0; ENDIF;
% IF (DATA & 2) THEN AL85 := 1; ELSE AL85 := 0; ENDIF;
% IF (DATA & 4) THEN AL86 := 1; ELSE AL86 := 0; ENDIF;
% IF (DATA & 8) THEN AL87 := 1; ELSE AL87 := 0; ENDIF;
% IF (DATA & 16) THEN AL88 := 1; ELSE AL88 := 0; ENDIF;
% IF (DATA & 32) THEN AL89 := 1; ELSE AL89 := 0; ENDIF;
IF (DATA & 64) THEN AL90 := 1; ELSE AL90 := 0; ENDIF;
IF (DATA & 128) THEN AL91 := 1; ELSE AL91 := 0; ENDIF;
);
DATA[6] -> BYTE(
IF (DATA & 1) THEN AL92 := 1; ELSE AL92 := 0; ENDIF;
IF (DATA & 2) THEN AL93 := 1; ELSE AL93 := 0; ENDIF;
IF (DATA & 4) THEN AL94 := 1; ELSE AL94 := 0; ENDIF;
IF (DATA & 8) THEN AL95 := 1; ELSE AL95 := 0; ENDIF;
IF (DATA & 16) THEN AL96 := 1; ELSE AL96 := 0; ENDIF;
IF (DATA & 32) THEN AL97 := 1; ELSE AL97 := 0; ENDIF;
IF (DATA & 64) THEN AL98 := 1; ELSE AL98 := 0; ENDIF;
IF (DATA & 128) THEN AL99 := 1; ELSE AL99 := 0; ENDIF;
);
DATA[7] -> BYTE(
IF (DATA & 1) THEN AL100:= 1; ELSE AL100:= 0; ENDIF;
IF (DATA & 2) THEN AL101:= 1; ELSE AL101:= 0; ENDIF;
IF (DATA & 4) THEN AL102:= 1; ELSE AL102:= 0; ENDIF;
% IF (DATA & 8) THEN AL103:= 1; ELSE AL103:= 0; ENDIF;
% IF (DATA & 16) THEN AL104:= 1; ELSE AL104:= 0; ENDIF;
% IF (DATA & 32) THEN AL105:= 1; ELSE AL105:= 0; ENDIF;
% IF (DATA & 64) THEN AL106:= 1; ELSE AL106:= 0; ENDIF;
% IF (DATA & 128) THEN AL107:= 1; ELSE AL107:= 0; ENDIF;
);
% DATA[8] -> BYTE(
% IF (DATA & 1) THEN AL108:= 1; ELSE AL108:= 0; ENDIF;
% IF (DATA & 2) THEN AL109:= 1; ELSE AL109:= 0; ENDIF;
% IF (DATA & 4) THEN AL110:= 1; ELSE AL110:= 0; ENDIF;
% IF (DATA & 8) THEN AL111:= 1; ELSE AL111:= 0; ENDIF;
% IF (DATA & 16) THEN AL112:= 1; ELSE AL112:= 0; ENDIF;
% );
TIMEOUT 2000
END;
END;
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Device definition for CORRIGO E Analog settings
%
% Settings module:
% Parity: None
% Baud: 9600
% Mode: RTU
%
% Note! Telegram for setting Analog status
%
% Author: Peter Widetun, ABELKO AB Luleå
% History: 2008-10-14 inital version
% History: 2010-06-18 Anpassning för Svensk Styrteknik
%
DEVICETYPE CorrigoESet1 NAMED "CorrigoE Börv." TYPEID 21273 IS
PARAMETER
Id : "Adress";
S1 : "Börvärde TL" ["°C"]; %1 Setpoint constant supply air temperature
%S2 : "Kurva1 X1" ["°C"]; %2 Outdoor temp, First curvepoint for outdoor compensated setpoint
%S3 : "Kurva1 X2" ["°C"]; %3 Second
%S4 : "Kurva1 X3" ["°C"]; %4 Third
%S5 : "Kurva1 X4" ["°C"]; %5 Fourth
%S6 : "Kurva1 X5" ["°C"]; %6 Fifth
%S7 : "Kurva1 X6" ["°C"]; %7 Sixth
%S8 : "Kurva1 X7" ["°C"]; %8 Seventh
%S9 : "Kurva1 X8" ["°C"]; %9 Eighth
%S10 : "Kurva1 Y1" ["°C"]; %10 Setpoint, First curvepoint for outdoor compensated setpoint
%S11 : "Kurva1 Y2" ["°C"]; %11 Second
%S12 : "Kurva1 Y3" ["°C"]; %12 Third
%S13 : "Kurva1 Y4" ["°C"]; %13 Fourth
%S14 : "Kurva1 Y5" ["°C"]; %14 Fifth
%S15 : "Kurva1 Y6" ["°C"]; %15 Sixth
%S16 : "Kurva1 Y7" ["°C"]; %16 Seventh
%S17 : "Kurva1 Y8" ["°C"]; %17 Eight
%S18 : "Börvärde FL" ["°C"]; %18 Setpoint exhaust air temp
%S19 : "Börvärde Rum" ["°C"]; %19 Setpoint room temp
%S20 : "Värme start" ["°C"]; %20 Room temp for start heating
%S21 : "Värme stopp" ["°C"]; %21 Room temp for stop heating
%S22 : "Kyla start" ["°C"]; %22 Room temp for start cooling
%S23 : "Kyla stopp" ["°C"]; %23 Room temp for stop cooling
S24 : "BVTryck TF 1/1" ["Pa"]; %24 Setpoint full speed supply air fan pressure
S25 : "BVTryck TF 1/2" ["Pa"]; %25 Setpoint reduced speed supply air fan pressure
S26 : "BVTryck FF 1/1" ["Pa"]; %26 Setpoint full speed exhaust air fan pressure
S27 : "BVTryck FF 1/2" ["Pa"]; %27 Setpoint reduced speed exhaust air fan pressure
%S28 : "BVFlöde TF 1/1" ["m3/h"]; %28 Setpoint full speed supply air fan flow. Scale factor = 1
%S29 : "BVFlöde TF 1/2" ["m3/h"]; %29 Setpoint reduced speed supply air fan flow. Scale factor = 1
%S30 : "BVFlöde FF 1/1" ["m3/h"]; %30 Setpoint full speed exhaust air fan flow. Scale factor = 1
%S31 : "BVFlöde FF 1/2" ["m3/h"]; %31 Setpoint reduced speed exhaust air fan flow. Scale factor = 1
%S32 : "Börvärde CO2" ["ppm"]; %32 Setpoint CO2
S33 : "BVVarmhållning" ["°C"]; %33 25°C Setpoint frost protection if the ventilation unit is stoped
S34 : "Larmgr.Frysvakt"["°C"]; %34 5° P-Gain frost protection when running (alarm limit+PGain)
%S35 : "Avfrosttemp" ["°C"]; %35 Setpoint de-icing temp
%S36 : "Avfrosthyst." ["°C"]; %36 Hysteresis for stop of de-icing
%S37 : "BVFukt Rum" ["%RH"]; %37 Setpoint humidity room
%S38 : "BVFukt TL ["%RH"]; %38 Max limit humidity duct
%S39 : "BVFukthyst." ["%RH"]; %39 Hysteresis to start humidity control after stop max limitation
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
S439 : "BV Pumpstopp" ["°C"]; %439 18 °C Recirculation setpoint R,3
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% S393 : "Fläktstyr 1/1"; %393 TimeGroupStatusFanFullSpeed X,3 Manual/Auto Full Speed time channel
% % 0=Manual-Off
% % 1=Manual-On
% % 2=Forced Off
% % 3=Forced On
% % 4=Auto
% S394 : "Fläktstyr 1/2"; %394 TimeGroupStatusFanHalfSpeed X,3 Manual/Auto Half Speed time channel
% % 0=Manual-Off
% % 1=Manual-On
% % 2=Forced Off
% % 3=Forced On
% % 4=Auto
%
% Set bit value
% Ventilation1.Cor_AlaAcknowAll L,1 3 0 Command to acknowledge all alarms
PUBLIC
PRIVATE
Cnt;
BAUDRATE 9600;
CHECKSUM MODBUS SWAPPED;
TELEGRAM Settings1 NAMED "Ställ Börvärden" IS
QUESTION
DATA[0] := BYTE(Id);
DATA[1] := HEX(06); %Write singel register
DATA[2] <- RWORD( %Start adress (regnr-1)
IF Cnt>8 THEN Cnt:=0; ENDIF;
%% Adress=Register-1
IF Cnt=0 THEN DATA := 0; %S1
ELSIF Cnt=1 THEN DATA := 23; %S24
ELSIF Cnt=2 THEN DATA := 24; %S25
ELSIF Cnt=3 THEN DATA := 25; %S26
ELSIF Cnt=4 THEN DATA := 26; %S27
ELSIF Cnt=5 THEN DATA := 0; %S1
ELSIF Cnt=6 THEN DATA := 32; %S33
ELSIF Cnt=7 THEN DATA := 33; %S34
ELSE DATA := 438; %S439
ENDIF;
);
DATA[4] <- RWORD(
IF Cnt=0 THEN
IF S1<10 THEN DATA := 100; % S1 : "Börvärde TL"
ELSIF S1>40 THEN DATA := 400;
ELSE DATA := S1*10;
ENDIF;
ELSIF Cnt=1 THEN
IF S24<20 THEN DATA := 200; % S24: "BVTryck TF 1/1"
ELSIF S24>750 THEN DATA := 7500;
ELSE DATA := S24*10;
ENDIF;
ELSIF Cnt=2 THEN
IF S25<20 THEN DATA := 200; % S25: "BVTryck TF 1/2"
ELSIF S25>750 THEN DATA := 7500;
ELSE DATA := 25*10;
ENDIF;
ELSIF Cnt=3 THEN
IF S26<20 THEN DATA := 200; % S26: "BVTryck FF 1/1"
ELSIF S26>750 THEN DATA := 7500;
ELSE DATA := S26*10;
ENDIF;
ELSIF Cnt=4 THEN
IF S27<20 THEN DATA := 200; % S27: "BVTryck FF 1/2"
ELSIF S27>750 THEN DATA := 7500;
ELSE DATA := S27*10;
ENDIF;
ELSIF Cnt=5 THEN
IF S1<10 THEN DATA := 100; % S1 : "Börvärde TL"
ELSIF S1>40 THEN DATA := 400;
ELSE DATA := S1*10;
ENDIF;
ELSIF Cnt=6 THEN
IF S33<10 THEN DATA := 100; % S33: "BVVarmhållning"
ELSIF S33>40 THEN DATA := 400;
ELSE DATA := S33*10;
ENDIF;
ELSIF Cnt=7 THEN
IF S34<4 THEN DATA := 40; % S34: "Larmgr.Frysvakt"
ELSIF S34>40 THEN DATA := 400;
ELSE DATA := S34*10;
ENDIF;
ELSE
IF S439<10 THEN DATA := 100; % S439: "BV Pumpstopp"
ELSIF S439>40 THEN DATA := 400;
ELSE DATA := S439*10;
ENDIF;
ENDIF;
Cnt := Cnt + 1;
IF Cnt>8 THEN Cnt := 0;
ENDIF;
);
ANSWER SIZE 8
DATA[0] = BYTE(Id);
DATA[1] = HEX(06);
TIMEOUT 2000
END;
END;
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Device definition for CORRIGO E Analog settings 2
%
% Settings module:
% Parity: None
% Baud: 9600
% Mode: RTU
%
% Note! Telegram for setting Analog status
%
% Author: Peter Widetun, ABELKO AB Luleå
% History: 2010-06-18 Nytt, Anpassning för Svensk Styrteknik
%
DEVICETYPE CorrigoESet2 NAMED "CorrigoE Fläkt" TYPEID 21274 IS
PARAMETER
Id : "Adress";
S340 : "Max avv.tryckTF"; %340 SAFMaxDiffPressure 50 Pa Max control deviation pressure SAF
S341 : "Max avv.tryckFF"; %341 EAFMaxDiffPressure 50 Pa Max control deviation pressure EAF
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
S393 : "Fläktstyr 1/1"; %393 TimeGroupStatusFanFullSpeed X,3 Manual/Auto Full Speed time channel
% 0=Manual-Off
% 1=Manual-On
% 2=Forced Off
% 3=Forced On
% 4=Auto
S394 : "Fläktstyr 1/2"; %394 TimeGroupStatusFanHalfSpeed X,3 Manual/Auto Half Speed time channel
% 0=Manual-Off
% 1=Manual-On
% 2=Forced Off
% 3=Forced On
% 4=Auto
PUBLIC
PRIVATE
Cnt;
BAUDRATE 9600;
CHECKSUM MODBUS SWAPPED;
TELEGRAM Settings2 NAMED "Ställ Fläktpar." IS
QUESTION
DATA[0] := BYTE(Id);
DATA[1] := HEX(06); %Write singel register
DATA[2] <- RWORD( %Start adress (regnr-1)
IF Cnt>3 THEN Cnt:=0; ENDIF;
%% Adress=Register-1
IF Cnt=0 THEN DATA := 392; %S393
ELSIF Cnt=1 THEN DATA := 339; %S340
ELSIF Cnt=2 THEN DATA := 340; %S341
%ELSIF Cnt=3 THEN DATA := 25; %
%ELSIF Cnt=4 THEN DATA := 26; %
%ELSIF Cnt=5 THEN DATA := 0; %
%ELSIF Cnt=6 THEN DATA := 32; %
%ELSIF Cnt=7 THEN DATA := 33; %
ELSE DATA := 393; %S394
ENDIF;
);
DATA[4] <- RWORD(
IF Cnt=0 THEN
IF S393<0 THEN DATA := 0; % S393: "Fläktstyr 1/1";
ELSIF S393>4 THEN DATA := 4;
ELSE DATA := S393;
ENDIF;
ELSIF Cnt=1 THEN
IF S340<10 THEN DATA := 100; % S340: "Max avv.tryckTF"
ELSIF S340>200 THEN DATA := 2000;
ELSE DATA := S340*10;
ENDIF;
ELSIF Cnt=2 THEN
IF S341<10 THEN DATA := 100; % S341: "Max avv.tryckFF"
ELSIF S341>200 THEN DATA := 2000;
ELSE DATA := S341*10;
ENDIF;
%ELSIF Cnt=3 THEN
% IF S26<20 THEN DATA := 200; %
% ELSIF S26>750 THEN DATA := 7500;
% ELSE DATA := S26*10;
% ENDIF;
%ELSIF Cnt=4 THEN
% IF S27<20 THEN DATA := 200; %
% ELSIF S27>750 THEN DATA := 7500;
% ELSE DATA := S27*10;
% ENDIF;
%ELSIF Cnt=5 THEN
% IF S1<10 THEN DATA := 100; %
% ELSIF S1>40 THEN DATA := 400;
% ELSE DATA := S1*10;
% ENDIF;
%ELSIF Cnt=6 THEN
% IF S33<10 THEN DATA := 100; %
% ELSIF S33>40 THEN DATA := 400;
% ELSE DATA := S33*10;
% ENDIF;
%ELSIF Cnt=7 THEN
% IF S34<4 THEN DATA := 40; %
% ELSIF S34>40 THEN DATA := 400;
% ELSE DATA := S34*10;
% ENDIF;
ELSE
IF S394<0 THEN DATA := 0; % S394: "Fläktstyr 1/2";
ELSIF S394>4 THEN DATA := 4;
ELSE DATA := S394;
ENDIF;
ENDIF;
Cnt := Cnt + 1;
IF Cnt>3 THEN Cnt := 0;
ENDIF;
);
ANSWER SIZE 8
DATA[0] = BYTE(Id);
DATA[1] = HEX(06);
TIMEOUT 2000
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.