dritte Steuerung hinzugefügt

2026-06-23 09:41:20 +02:00
parent 6a6d981178
commit a6295901a5
286 changed files with 72573 additions and 0 deletions
@@ -0,0 +1,73 @@
+FUNCTION "FC_Direction" : Void
+{ S7_Optimized_Access := 'TRUE' }
+VERSION : 0.1
+   VAR_INPUT 
+      nInSwitchNo : USInt;
+   END_VAR
+
+   VAR_OUTPUT 
+      nOutDirection : USInt;   // Ziel für Switch-Baustein
+   END_VAR
+
+   VAR_IN_OUT 
+      InOutCarrier : "stCarrier";
+   END_VAR
+
+
+BEGIN
+	// Destination vom Carrier, immer unterschiedlich je nach Anlagenbereich, soll übertragen werden auf universale Switch Direction (1-4)
+	
+	// TEST TEST TEST
+	REGION Vergabe Direction
+	    CASE #nInSwitchNo OF
+	        "cSwi405.1":
+	            REGION Switch 405.1
+	                IF (#InOutCarrier.nDestination = "cDestLeaveAmr") THEN // Verlasse AMR (empty carrier)
+	                    #nOutDirection := 1; // LINKS, 1->3
+	                ELSE // Im AMR bleiben, alle anderen Fälle + Fallbackstrategie (?)
+	                    #nOutDirection := 2; // RECHTS, 1->4
+	                END_IF;
+	            END_REGION
+	            
+	        "cSwi407.1":
+	            REGION Switch 407.1
+	                IF #InOutCarrier.nDestination = "cDestMps3" THEN // MPS 3
+	                    #nOutDirection := 1; // LINKS, 1->3
+	                ELSIF #InOutCarrier.nDestination = "cDestStayAmr"
+	                    OR #InOutCarrier.nDestination = "cDestRecirc"
+	                THEN // Auf Kreisel bleiben
+	                    #nOutDirection := 2; // RECHTS, 1->4
+	                ELSE
+	                    #nOutDirection := 2; // Fallback, falls unerwartetes Ziel
+	                END_IF;
+	            END_REGION
+	            
+	        "cSwi410.1":
+	            REGION Switch 410.1
+	                IF #InOutCarrier.nDestination = "cDestMps2" THEN // MPS 2
+	                    #nOutDirection := 1; // LINKS, 1->3
+	                ELSIF #InOutCarrier.nDestination = "cDestStayAmr"
+	                    OR #InOutCarrier.nDestination = "cDestRecirc"
+	                THEN // Auf Kreisel bleiben
+	                    #nOutDirection := 2; // RECHTS, 1->4
+	                ELSE
+	                    #nOutDirection := 2; // Fallback, falls unerwartetes Ziel
+	                END_IF;
+	            END_REGION
+	            
+	        "cSwi413.1":
+	            REGION Switch 413.1
+	                IF #InOutCarrier.nDestination = "cDestMps1" THEN // MPS 1
+	                    #nOutDirection := 1; // LINKS, 1->3
+	                ELSIF #InOutCarrier.nDestination = "cDestStayAmr"
+	                    OR #InOutCarrier.nDestination = "cDestRecirc"
+	                THEN // Auf Kreisel bleiben
+	                    #nOutDirection := 2; // RECHTS, 1->4
+	                ELSE
+	                    #nOutDirection := 2; // Fallback, falls unerwartetes Ziel
+	                END_IF;
+	            END_REGION
+	    END_CASE;
+	END_REGION
+END_FUNCTION
+