40 lines
862 B
Plaintext
40 lines
862 B
Plaintext
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
|
|
|
|
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 = 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
|
|
|
|
NETWORK
|
|
TITLE = Ende
|
|
BE;
|
|
|
|
END_FUNCTION
|
|
|