40 lines
867 B
Plaintext
40 lines
867 B
Plaintext
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
|
|
|
|
VAR_TEMP
|
|
AR1Zeiger : DWord; // Statt AR1 (ging nur bis DB-Länge <= 8191 Bytes)
|
|
END_VAR
|
|
|
|
|
|
BEGIN
|
|
NETWORK
|
|
TITLE = Baustein aktiviert ?
|
|
UN #Enable;
|
|
BEB;
|
|
|
|
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
|
|
|
|
NETWORK
|
|
TITLE = Ende
|
|
BE;
|
|
|
|
END_FUNCTION
|
|
|