Décaler et comprimer des données
Cette instruction FP décale les nouvelles données vers l’adresse inférieure du tableau de données spécifié et comprime les données dans le tableau vers l’adresse supérieure.
Entrée
Données qui doivent être décalées
Sortie
Adresse de départ de la zone comprimée dans laquelle les données de s sont décalées
Adresse finale de la zone dans laquelle les données sont comprimées
Les données du tableau spécifiées par d1_Start et d2_End sont réorganisées de la façon suivante :
Les données spécifiées par s sont décalées dans la zone désignée par d1_Start (adresse de départ).
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 s = "0", seule une compression des données est exécutée.
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 : F99_CMPW
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];
iShiftinData: INT:=32;
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_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;