Werte hineinschieben und komprimieren
Mit diesem FP-Befehl werden neue Werte in die niedrigste Adresse des angegebenen Arrays geschoben. 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.
Eingang
Hereinzuschiebende Daten
Ausgang
Anfangsadresse des komprimierten Bereichs in den Daten aus s geschoben werden
Endadresse des komprimierten Bereichs
Die Werte in dem durch d1_Start und d2_End definierten Array werden wie folgt verschoben:
Die durch s definierten Werte werden in die mit d1_Start definierte Anfangsadresse 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
Ist s = 0, findet nur eine Datenkomprimierung statt.
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: F99_CMPW
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];
iShiftinData: INT:=32;
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_WRITE_COMPRESS!,,9,1,23,6,,?DEN?D@'s'?AENO?Cd1_Start?Cd2_End);
B(B_CONTACT,,bStart,5,2,7,4,);
B(B_VARIN,,iShiftinData,7,3,9,5,);
B(B_VAROUT,,aiDataField[0],23,3,25,5,);
B(B_VAROUT,,aiDataField[5],23,4,25,6,);
L(1,3,5,3);
L(7,3,9,3);
L(1,0,1,7);
END_NETWORK_BODY
END_NET_WORK
END_BODY
If (bStart) then
FP_DATA_WRITE_COMPRESS(s := iShiftinData,
d1_Start => aiDataField[0],
d2_End => aiDataField[5]);
End_if;