Durchflussüberwachung Schneidgas

Logical/Communication/GlobalCom.var

@@ -3,6 +3,7 @@ VAR
 	gIPGLaserInterface : gytp_IPGInterface; (*Interface IPG Laser*)
 	gRTLaserInterface : gytp_RTInterface; (*Interface Raytools*)
 	gLineInterface : gytp_LineInterface; (*Interface Liniensteuerung*)
+	gbLaserCutGasFault : BOOL;
 END_VAR
 (*Variablen / Strukturen*)
 VAR

Logical/Communication/IPG/IPG/Cyclic.st

@@ -104,13 +104,26 @@ PROGRAM _CYCLIC
   
 	//Ausg<EFBFBD>nge
   //==============================================
-
   //Schneidgas (Mit Laser Einschalten oder <EFBFBD>ber M-Befahl aus CNC Task
   FUBs.TOF_CuttingGas.IN := (LaserOut.uiOutPutPower > 0) AND LaserOut.Control.bLaserOn;
   FUBs.TOF_CuttingGas.PT := t#1s;
   FUBs.TOF_CuttingGas ();
   bOuCuttingGas := FUBs.TOF_CuttingGas.Q OR gIPGLaserInterface.Out.bCuttingGasOn;
+
+  FUBs.TON_ChkCuttingGasOk.IN := bOuCuttingGas;
+  FUBs.TON_ChkCuttingGasOk.PT := t#1s500ms;
+  FUBs.TON_ChkCuttingGasOk ();
   
+  FUBs.TOF_CuttingGasOk.IN := bInCuttingGasFlowOk;
+  FUBs.TOF_CuttingGasOk.PT := t#1s;
+  FUBs.TOF_CuttingGasOk ();
+  
+  IF FUBs.TON_ChkCuttingGasOk.Q AND NOT FUBs.TOF_CuttingGasOk.Q THEN
+    gbLaserCutGasFault := TRUE;
+  ELSIF gCmd1.bResetErrors THEN
+    gbLaserCutGasFault := FALSE;
+  END_IF
+      
   //Byte 1
   LaserOut.Control.bRequestLaser := TRUE;
   usOuByte[1].0 := LaserOut.Control.bRequestLaser;
@@ -260,4 +273,9 @@ PROGRAM _CYCLIC
   FUBs.Alarm_Shotmode.sInAlName := 'IPGShotMode';
   FUBs.Alarm_Shotmode ();
   
+  //Schneidgas / Durchfluss
+  FUBs.Alarm_CuttingGas.MpLink := gMpAlarmXCore;
+  FUBs.Alarm_CuttingGas.bInAlarmSignal := gbLaserCutGasFault;
+  FUBs.Alarm_CuttingGas.sInAlName := 'IPGGuttingGas';
+  FUBs.Alarm_CuttingGas ();
 END_PROGRAM

Logical/Communication/IPG/IPG/IOs.var

@@ -3,4 +3,5 @@ VAR
 	usInByte : ARRAY[1..32] OF USINT;
 	usOuByte : ARRAY[1..32] OF USINT;
 	bOuCuttingGas : BOOL;
+	bInCuttingGasFlowOk : BOOL;
 END_VAR

Logical/Communication/IPG/IPG/TxtAlarms.tmx

@@ -90,5 +90,10 @@
         <seg>Laser: Einzelschussbetrieb</seg>
       </tuv>
     </tu>
+    <tu tuid="IPGGuttingGas">
+      <tuv xml:lang="de">
+        <seg>Laser: Durchfluss Schneidgas</seg>
+      </tuv>
+    </tu>
   </body>
 </tmx>

Logical/Communication/IPG/IPG/Types.typ

@@ -71,6 +71,8 @@ TYPE
 	typ_FUBs : 	STRUCT 
 		TON_Shot : TON; (*Einzelschuss*)
 		TOF_CuttingGas : TOF; (*Schneidgas nachlauf*)
+		TON_ChkCuttingGasOk : TON;
+		TOF_CuttingGasOk : TOF;
 		Alarm_SystemWarning : FUB_AlarmSimple; (*Systemwarnung*)
 		Alarm_SoftwareCtrlActive : FUB_AlarmSimple; (*Lasercontrl Steuerung aktiv*)
 		Alarm_RobotModeNotActive : FUB_AlarmSimple; (*Lasercontrl Robotermodeus nicht aktiv*)
@@ -88,5 +90,6 @@ TYPE
 		Alarm_CommunicationError : FUB_AlarmSimple; (*Kommunikationsfehler*)
 		Alarm_LocalMode : FUB_AlarmSimple; (*Laser Lokale Steuerung (Einrichten)*)
 		Alarm_Shotmode : FUB_AlarmSimple; (*Einzelschussbetrieb*)
+		Alarm_CuttingGas : FUB_AlarmSimple; (*Einzelschussbetrieb*)
 	END_STRUCT;
 END_TYPE

Logical/MachCtrl/MachCtrl/Cyclic.st

@@ -732,7 +732,7 @@ PROGRAM _CYCLIC
           States.bErrorDuringCycle := TRUE;
         END_IF
         
-        IF VCButtons.AutoStopCNCCycle.bCommand OR gRTLaserInterface.In.bHeadLimitPos THEN
+        IF VCButtons.AutoStopCNCCycle.bCommand OR gRTLaserInterface.In.bHeadLimitPos OR gbLaserCutGasFault THEN
           //Abbruch 
           MpFUB.MpCNC5Axis.MoveProgram := FALSE;
           States.bStoppedCycle := TRUE;

Physical/Config0/5APC3100_KBU0_000/IoMap.iom

@@ -300,4 +300,5 @@ VAR_CONFIG
 	MachCtrl:bOuValveCleanSh1 AT %QX."62K1_X20DO9322-Allg".DigitalOutput07;
 	MachCtrl:bOuValveCleanSh2 AT %QX."62K1_X20DO9322-Allg".DigitalOutput08;
 	gbSOuSTOGates AT %QX."X20SO4110".DigitalOutput02;
+	IPG:bInCuttingGasFlowOk AT %IX."60K1_X20DI9371-Allg".DigitalInput06;
 END_VAR

Physical/Config0/5APC3100_KBU0_000/mappServices/CfgAlarmX.mpalarmxcore

@@ -402,18 +402,27 @@
         </Selector>
       </Group>
       <Group ID="[37]" Description="x">
-        <Property ID="Name" Value="FrontGateNotOpen" />
+        <Property ID="Name" Value="IPGGuttingGas" />
-        <Property ID="Message" Value="Einlegetor Endlage offen nicht erreicht" />
+        <Property ID="Message" Value="{=$IPG/Alarms/IPGGuttingGas}" />
-        <Property ID="Code" Value="120" />
+        <Property ID="Code" Value="121" />
-        <Property ID="Severity" Value="12" />
+        <Property ID="Severity" Value="11" />
         <Selector ID="Behavior" Value="UserDefined">
           <Property ID="Acknowledge" Value="0" />
         </Selector>
       </Group>
       <Group ID="[38]" Description="x">
+        <Property ID="Name" Value="FrontGateNotOpen" />
+        <Property ID="Message" Value="Einlegetor Endlage offen nicht erreicht" />
+        <Property ID="Code" Value="122" />
+        <Property ID="Severity" Value="12" />
+        <Selector ID="Behavior" Value="UserDefined">
+          <Property ID="Acknowledge" Value="0" />
+        </Selector>
+      </Group>
+      <Group ID="[39]" Description="x">
         <Property ID="Name" Value="FrontGateNotClosed" />
-        <Property ID="Message" Value="Einlegetör schließt nicht" />
+        <Property ID="Message" Value="Einlegetor schließt nicht" />
-        <Property ID="Code" Value="121" />
+        <Property ID="Code" Value="123" />
         <Property ID="Severity" Value="12" />
       </Group>
     </Group>

Physical/Config0/Hardware.hwl

@@ -2,7 +2,7 @@
 <?AutomationStudio FileVersion="4.9"?>
 <BR.AS.HardwareTopology>
   <TimeStamps>
-    <TimeStamp LogicalPath="Config0.Hardware.hw" LastWriteTime="04/05/2024 13:39:36" />
+    <TimeStamp LogicalPath="Config0.Hardware.hw" LastWriteTime="11/25/2025 11:27:25" />
   </TimeStamps>
   <Modules>
     <Module Name="X20SL8100" Type="X20SL8100" X="318" Y="680" />
@@ -27,9 +27,9 @@
     <Module Name="8BVI0028HCDS.000-CA" Type="8BVI0028HCDS.000-1" X="1312" Y="129" />
     <Module Name="8BVSV2SAFE1-A" Type="8BVSV2SAFE1-1" X="1331.6" Y="304" />
     <Module Name="8BVSV2SAFE1-C" Type="8BVSV2SAFE1-1" X="1314.8" Y="304" />
-    <Module Name="8BVI0110HCDS.000-SH12" Type="8BVI0110HCDS.000-1" X="1452.1" Y="129" />
+    <Module Name="8BVI0110HCDS.000-SH12" Type="8BVI0110HCDS.000-1" X="1452" Y="129" />
-    <Module Name="8BVSV2SAFE1-SH2" Type="8BVSV2SAFE1-1" X="1471.7" Y="304" />
+    <Module Name="8BVSV2SAFE1-SH2" Type="8BVSV2SAFE1-1" X="1471.6" Y="304" />
-    <Module Name="8BVSV2SAFE1-SH1" Type="8BVSV2SAFE1-1" X="1454.9" Y="304" />
+    <Module Name="8BVSV2SAFE1-SH1" Type="8BVSV2SAFE1-1" X="1454.8" Y="304" />
     <Module Name="5APC3100_KBU0_000" Type="5APC3100.KBU0-000" X="115" Y="100" />
     <Module Name="5AC901.IPLK-00" Type="5AC901.IPLK-00" X="120.8" Y="123" />
     <Module Name="X20BB82a" Type="X20BB82" X="393" Y="318" />
@@ -100,14 +100,14 @@
     <Module Name="X20TB12" Type="X20TB12" X="468" Y="345" />
     <Module Name="X20BC1083" Type="X20BC1083" X="443" Y="318" />
     <Module Name="IPG_Laser" Type="FBD.Hilscher.EIGenEDSAdapterDTM.COMX 100XX-RE$002FEIS V1.1" X="780" Y="830" />
-    <Module Name="8V1090.00-DSh1" Type="8V1090.00-2" X="1069.7" Y="318" />
+    <Module Name="8V1090.00-DSh1" Type="8V1090.00-2" X="1069" Y="318" />
-    <Module Name="8AC121.60-1b" Type="8AC121.60-1" X="1083.7" Y="524.5" />
+    <Module Name="8AC121.60-1b" Type="8AC121.60-1" X="1083" Y="524.5" />
-    <Module Name="8AC114.60-2b" Type="8AC114.60-2" X="1072.5" Y="524.5" />
+    <Module Name="8AC114.60-2b" Type="8AC114.60-2" X="1071.8" Y="524.5" />
     <Module Name="8V1090.00-DSh2" Type="8V1090.00-2" X="970" Y="318" />
     <Module Name="8AC121.60-1a" Type="8AC121.60-1" X="984" Y="524.5" />
     <Module Name="8AC114.60-2a" Type="8AC114.60-2" X="972.8" Y="524.5" />
-    <Module Name="DRL80M4BB2-TE-ASTW" Type="MotorInduction_any" X="1069.7" Y="630.5" />
+    <Module Name="DRL80M4BB2-TE-ASTW" Type="MotorInduction_any" X="1069" Y="630" />
-    <Module Name="DRL80M4BB2-TE-ASTWa" Type="MotorInduction_any" X="970" Y="630.5" />
+    <Module Name="DRL80M4BB2-TE-ASTWa" Type="MotorInduction_any" X="970" Y="630" />
     <Module Name="X20BB80" Type="X20BB80" X="818" Y="498" />
     <Module Name="X20BM33b" Type="X20BM33" X="856" Y="498" />
     <Module Name="X20SO4110" Type="X20SO4110" X="856" Y="498" />
@@ -172,6 +172,14 @@
       <Point X="1211.8" Y="136" />
       <Point X="1211.8" Y="136" />
     </Link>
+    <Link From="8BVI0028HCDS.000-CA" To="8BVI0110HCDS.000-SH12" FromPort="PLK2" ToPort="PLK1" IsRoutedByUser="False">
+      <Point X="1335.8" Y="136" />
+      <Point X="1335.8" Y="136" />
+      <Point X="1349.8" Y="136" />
+      <Point X="1452" Y="136" />
+      <Point X="1464" Y="136" />
+      <Point X="1464" Y="136" />
+    </Link>
     <Link From="8BVI0330HCSS.000-X" To="8BVP0880HC00.004-1" FromPort="PLK1" ToPort="PLK2" IsRoutedByUser="False">
       <Point X="974.9" Y="136" />
       <Point X="974.9" Y="136" />
@@ -282,14 +290,6 @@
       <Point X="340" Y="754" />
       <Point X="355" Y="754" />
     </Link>
-    <Link From="8BVI0028HCDS.000-CA" To="8BVI0110HCDS.000-SH12" FromPort="PLK2" ToPort="PLK1" IsRoutedByUser="False">
-      <Point X="1335.8" Y="136" />
-      <Point X="1335.8" Y="136" />
-      <Point X="1349.8" Y="136" />
-      <Point X="1452" Y="136" />
-      <Point X="1464" Y="136" />
-      <Point X="1464" Y="136" />
-    </Link>
   </Links>
   <InfoElements />
 </BR.AS.HardwareTopology>