AWL Bausteine aus TIA-Portal Projekt in Workspace
This commit is contained in:
@@ -1,34 +1,39 @@
|
||||
=== FC 1028: Set_Input [STL] ===
|
||||
INTERFACE:
|
||||
Input:
|
||||
Enable : Bool // Baustein aktivieren
|
||||
Status : Bool // Angegebenen Ausgang auf diesen Status steuern
|
||||
InByte : DInt // Eingangsbyte zum Steuern
|
||||
InBit : Int // Eingangsbit zum Steuern
|
||||
Output:
|
||||
InOut:
|
||||
Temp:
|
||||
AR1Zeiger : DWord // Statt AR1 (ging nur bis DB-Länge <= 8191 Bytes)
|
||||
Constant:
|
||||
Return:
|
||||
Ret_Val : Void
|
||||
FUNCTION "Set_Input" : Void
|
||||
TITLE = Eingangsbit zwangssteuern
|
||||
{ S7_Optimized_Access := 'FALSE' }
|
||||
VERSION : 0.1
|
||||
VAR_INPUT
|
||||
Enable : Bool; // Baustein aktivieren
|
||||
Status : Bool; // Angegebenen Ausgang auf diesen Status steuern
|
||||
InByte : DInt; // Eingangsbyte zum Steuern
|
||||
InBit : Int; // Eingangsbit 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: Eingang stuern ---
|
||||
L InByte // Ausgangsbyte zum Steuern
|
||||
SLD 3
|
||||
L InBit // 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
|
||||
= IX [AR1Zeiger] // Eingang steuern
|
||||
NETWORK
|
||||
TITLE = Eingang stuern
|
||||
L #InByte;//Ausgangsbyte zum Steuern
|
||||
SLD 3;
|
||||
L #InBit;//Ausgangsbit zum Steuern
|
||||
OW;
|
||||
T #AR1Zeiger;//Statt Dyn.Bereichsstop (ging nur bis DB-Länge <= 8191 Bytes)
|
||||
|
||||
U #Status;
|
||||
= E[ #AR1Zeiger];//Eingang steuern
|
||||
|
||||
--- NW 3: Ende ---
|
||||
BE
|
||||
NETWORK
|
||||
TITLE = Ende
|
||||
BE;
|
||||
|
||||
END_FUNCTION
|
||||
|
||||
|
||||
Reference in New Issue
Block a user