90 lines
3.2 KiB
Markdown
90 lines
3.2 KiB
Markdown
|
```pascal
|
||
|
|
|
||
|
|
/////////////////////// Motors ////////////////////////
|
||
|
|
|
||
|
|
//ingressi motore M231 - M20160
|
||
|
|
if Motor[1].Presence then
|
||
|
|
CPS(M20160:I,Motor[1].Drive.Telegram.I,1);
|
||
|
|
Motor[1].I.CircuitBreaker:=IO45340.0; // Added direct plc input as disconnector feedback cable removed //Motor[1].Drive.Telegram.I.DigIn3Active;
|
||
|
|
Motor[1].I.Thermic:=1;
|
||
|
|
Motor[1].I.Pht1:=IO45341.0; // B50010
|
||
|
|
|
||
|
|
end_if;
|
||
|
|
|
||
|
|
//ingressi motore M232
|
||
|
|
if Motor[2].Presence then
|
||
|
|
CPS(M20260:I,Motor[2].Drive.Telegram.I,1);
|
||
|
|
Motor[2].I.CircuitBreaker:=IO45340.1; // Added direct plc input as disconnector feedback cable removed //Motor[1].Drive.Telegram.I.DigIn3Active;
|
||
|
|
Motor[2].I.Thermic:=1;
|
||
|
|
Motor[2].I.Sn1:=IO45341.2; // S50030 PROD SPEED ALIGNER
|
||
|
|
Motor[2].I.Sn2:=IO45341.3; // S50040 MIN ACCUM ALIGNER
|
||
|
|
end_if;
|
||
|
|
|
||
|
|
//ingressi motore M233
|
||
|
|
if Motor[3].Presence then
|
||
|
|
CPS(M20360:I,Motor[3].Drive.Telegram.I,1);
|
||
|
|
Motor[3].I.CircuitBreaker:=IO45340.2; // Added direct plc input as disconnector feedback cable removed //Motor[1].Drive.Telegram.I.DigIn3Active;
|
||
|
|
|
||
|
|
end_if;
|
||
|
|
|
||
|
|
//ingressi motore M234
|
||
|
|
if Motor[4].Presence then
|
||
|
|
CPS(M20460:I,Motor[4].Drive.Telegram.I,1);
|
||
|
|
Motor[4].I.CircuitBreaker:=IO45340.3; // Added direct plc input as disconnector feedback cable removed //Motor[1].Drive.Telegram.I.DigIn3Active;
|
||
|
|
Motor[4].I.Thermic:=1;
|
||
|
|
Motor[4].I.Pht1:=IO45341.5; // B50060 FALLEN BOTTLE HIGH CONTROL
|
||
|
|
Motor[4].I.Pht2:=IO45341.6; // B50070 FALLEN BOTTLE LOW CONTROL
|
||
|
|
Motor[4].I.Pht3:=IO45350.0; // B50110 ALIGNER FULL
|
||
|
|
Motor[4].I.Pht4:=IO45350.1; // B50120 JAMMINH CONTROL ALIGNER
|
||
|
|
|
||
|
|
end_if;
|
||
|
|
|
||
|
|
//ingressi motore M235
|
||
|
|
if Motor[5].Presence then
|
||
|
|
CPS(M20560:I,Motor[5].Drive.Telegram.I,1);
|
||
|
|
Motor[5].I.CircuitBreaker:=IO45340.4; // Added direct plc input as disconnector feedback cable removed //Motor[1].Drive.Telegram.I.DigIn3Active;
|
||
|
|
Motor[5].I.Thermic:=1;
|
||
|
|
|
||
|
|
end_if;
|
||
|
|
|
||
|
|
//ingressi motore M236
|
||
|
|
if Motor[6].Presence then
|
||
|
|
CPS(M20660:I,Motor[6].Drive.Telegram.I,1);
|
||
|
|
Motor[6].I.CircuitBreaker:=IO45340.5; // Added direct plc input as disconnector feedback cable removed //Motor[1].Drive.Telegram.I.DigIn3Active;
|
||
|
|
Motor[6].I.Thermic:=1;
|
||
|
|
Motor[6].I.Pht1:=IO45350.4; // B50150 ACCUM M20660
|
||
|
|
|
||
|
|
end_if;
|
||
|
|
|
||
|
|
//ingressi motore M237
|
||
|
|
if Motor[7].Presence then
|
||
|
|
CPS(M20760:I,Motor[7].Drive.Telegram.I,1);
|
||
|
|
Motor[7].I.CircuitBreaker:=IO45340.6; // Added direct plc input as disconnector feedback cable removed //Motor[1].Drive.Telegram.I.DigIn3Active;
|
||
|
|
Motor[7].I.Thermic:=1;
|
||
|
|
Motor[7].I.Pht1:=IO45351.1; // B50220 ACCUM M20760 LEFT
|
||
|
|
Motor[7].I.Pht2:=IO45351.4; // B50250 ACCUM M20760 RIGHT
|
||
|
|
|
||
|
|
Motor[7].I.Sn1:=IO45351.2; // S50230 CHANNEL RH DIVIER M20760-M23160
|
||
|
|
Motor[7].I.Sn2:=IO45351.5; // S50260 CHANNEL LH DIVIER M20860-M27460
|
||
|
|
|
||
|
|
end_if;
|
||
|
|
|
||
|
|
//ingressi motore M238
|
||
|
|
if Motor[8].Presence then
|
||
|
|
CPS(M20860:I,Motor[8].Drive.Telegram.I,1);
|
||
|
|
Motor[8].I.CircuitBreaker:=IO45340.7; // Added direct plc input as disconnector feedback cable removed //Motor[1].Drive.Telegram.I.DigIn3Active;
|
||
|
|
Motor[8].I.Thermic:=1;
|
||
|
|
|
||
|
|
end_if;
|
||
|
|
|
||
|
|
//////////////////////// External Signals ////////////////////////
|
||
|
|
|
||
|
|
//segnali esterni Depal
|
||
|
|
if ExtMachine[KDepal].Presence then
|
||
|
|
ExtMachine[KDepal].I.Signal_0:=IO45360.0; // DEPAL RUNNING
|
||
|
|
ExtMachine[KDepal].I.Signal_1:=IO45360.1; // DEPAL IN ALLARM
|
||
|
|
ExtMachine[KDepal].I.Signal_2:=IO45360.2; // DEPAL SPARE
|
||
|
|
|
||
|
|
end_if;
|
||
|
|
|
||
|
|
```
|