Décaler et comprimer des données
Cette instruction FP décale les données différentes de zéro, sauvegardées à l’adresse du tableau la plus élevée, vers la zone indiquée et comprime les données du tableau vers l’adresse supérieure.
Sortie
Adresse de départ (inférieure) des données qui doivent être comprimées
Adresse finale (supérieure) des données qui doivent être comprimées. Les données de d2_End sont décalées vers la zone définie.
Reçoit les données décalées de d2_End
Les données du tableau spécifiées par d1_Start et d2_End sont réorganisées de la façon suivante :
Le contenu de d2_End (adresse la plus élevée) est décalé vers la zone indiquée par d3.
Les données différentes de zéro sont décalées (comprimées) dans le sens de l’adresse la plus élevée dans la zone définie.
La zone de départ d1_Start et la zone finale d2_End doivent être du même type d’opérande.
d1_Start doit être £ d2_End
Si la zone spécifiée à l’aide du modificateur d’adresse est en dehors des limites autorisées.
Si l’adresse de la variable en entrée s1_Start > s2_End.
Si s1_Start et s2_End appartiennent à différentes zones de données.
Si la zone spécifiée à l’aide du modificateur d’adresse est en dehors des limites autorisées.
Si l’adresse de la variable en entrée s1_Start > s2_End.
Si s1_Start et s2_End appartiennent à différentes zones de données.
Instructions F correspondantes : F98_CMPR
Toutes les variables d’entrée et de sortie utilisées pour programmer cette fonction ont été déclarées dans l’en-tête du POU.Le même en-tête de POU est utilisé pour tous les langages de programmation.
VAR
bStart: BOOL:=FALSE;
aiDataField: ARRAY [0..5] OF INT:=[555,444,0,11,0,10];
iShiftoutData: INT:=10;
END_VAR
La fonction est exécutée lorsque la variable bStart est définie sur TRUE.
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;