Werte herausschieben und komprimieren
Der Wert ungleich 0 mit der höchsten Adresse innerhalb eines Arrays wird in die angegebene Variable geschoben, und die Werte im Array werden zur höheren Adresse hin komprimiert. Dabei werden alle Werte, die 0 sind, in den unteren Adressbereich des Puffers gestellt und alle Werte ungleich 0 rücken auf in den oberen Bereich.
Ausgang
Anfangsadresse (niedrigste) der zu komprimierenden Daten
Endadresse (höchste) der zu komprimierenden Daten. Daten werden aus d2_End herausgeschoben.
Empfängt Daten, die aus d2_End herausgeschoben werden.
Die Werte in dem durch d1_Start und d2_End definierten Array werden wie folgt verschoben:
Der Inhalt von d2_End (höchste Adresse) wird in die mit d3 definierte Variable geschoben.
Werte ungleich 0 werden innerhalb des definierten Bereichs in Richtung der höheren Adresse verschoben (komprimiert).
Die Anfangsadresse d1_Start und die Endadresse d2_End müssen im gleichen Speicherbereich liegen.
d1_Start muss £d2_End sein
wenn der mit dem Index-Modifizierer definierte Bereich größer ist als der zulässige Bereich
wenn die Adresse der Variablen an den Eingängen von s1_Start > s2_End ist.
wenn s1_Start und s2_End zu verschiedenen Datenbereichen gehören
wenn der mit dem Index-Modifizierer definierte Bereich größer ist als der zulässige Bereich
wenn die Adresse der Variablen an den Eingängen von s1_Start > s2_End ist.
wenn s1_Start und s2_End zu verschiedenen Datenbereichen gehören
Verwandte F-Befehle: F98_CMPR
Im POE-Kopf werden alle Ein- und Ausgangsvariablen deklariert, die für die Programmierung dieser Funktion verwendet werden.Für alle Programmiersprachen wird der gleiche POE-Kopf verwendet.
VAR
bStart: BOOL:=FALSE;
aiDataField: ARRAY [0..5] OF INT:=[555,444,0,11,0,10];
iShiftoutData: INT:=10;
END_VAR
Wenn die Variable bStart auf TRUE gesetzt wird, wird die Funktion ausgeführt.
BODY
WORKSPACE
NETWORK_LIST_TYPE := NWTYPELD ;
ACTIVE_NETWORK := 0 ;
END_WORKSPACE
NET_WORK
NETWORK_TYPE := NWTYPELD ;
NETWORK_LABEL := ;
NETWORK_TITLE := ;
NETWORK_HEIGHT := 7 ;
NETWORK_BODY
B(B_F,FP_DATA_READ_COMPRESS!,,10,1,24,7,,?DEN?AENO?Cd1_Start?Cd2_End?Cd3);
B(B_CONTACT,,bStart,5,2,7,4,);
B(B_VAROUT,,aiDataField[0],24,3,26,5,);
B(B_VAROUT,,aiDataField[5],24,4,26,6,);
B(B_VAROUT,,iShiftoutData,24,5,26,7,);
L(1,3,5,3);
L(7,3,10,3);
L(1,0,1,7);
END_NETWORK_BODY
END_NET_WORK
END_BODY
If (bStart) then
FP_DATA_READ_COMPRESS(d1_Start => aiDataField[0],
d2_End => aiDataField[5],
d3 => iShiftoutData);
End_if;