UH07 Original .awl Bausteine von Andi importiert

This commit is contained in:
2026-07-08 12:13:12 +02:00
parent 6c1a343fa8
commit 2cf730b338
125 changed files with 49373 additions and 41019 deletions
@@ -1,34 +1,39 @@
=== FC 127: Set_Output [STL] ===
INTERFACE:
Input:
Enable : Bool // Baustein aktivieren
Status : Bool // Angegebenen Ausgang auf diesen Status steuern
OutByte : DInt // Ausgangsbyte zum Steuern
OutBit : Int // Ausgangsbit zum Steuern
Output:
InOut:
Temp:
AR1Zeiger : DWord // Statt AR1 (ging nur bis DB-Länge <= 8191 Bytes)
Constant:
Return:
Ret_Val : Void
FUNCTION "Set_Output" : Void
TITLE = Ausgangsbit zwangsstuern
{ S7_Optimized_Access := 'FALSE' }
VERSION : 0.1
VAR_INPUT
Enable : Bool; // Baustein aktivieren
Status : Bool; // Angegebenen Ausgang auf diesen Status steuern
OutByte : DInt; // Ausgangsbyte zum Steuern
OutBit : Int; // Ausgangsbit zum Steuern
END_VAR
--- NW 1: Baustein aktiviert ? ---
AN Enable
BEC
VAR_TEMP
AR1Zeiger : DWord; // Statt AR1 (ging nur bis DB-Länge <= 8191 Bytes)
END_VAR
--- NW 2: Ausgang steuern ---
L OutByte // Ausgangsbyte zum Steuern
SLD 3
L OutBit // Ausgangsbit zum Steuern
OW
T AR1Zeiger // Statt Dyn.Bereichsstop (ging nur bis DB-Länge <= 8191 Bytes)
BEGIN
NETWORK
TITLE = Baustein aktiviert ?
UN #Enable;
BEB;
A Status
= QX [AR1Zeiger] // Ausgang steuern
NETWORK
TITLE = Ausgang steuern
L #OutByte;//Ausgangsbyte zum Steuern
SLD 3;
L #OutBit;//Ausgangsbit zum Steuern
OW;
T #AR1Zeiger;//Statt Dyn.Bereichsstop (ging nur bis DB-Länge <= 8191 Bytes)
U #Status;
= A[ #AR1Zeiger];//Ausgang steuern
--- NW 3: Ende ---
BE
NETWORK
TITLE = Ende
BE;
END_FUNCTION