Desplazar y comprimir datos
Esta instrucción FP desplaza los datos de las direcciones inferiores de la tabla especificada y los comprime en la parte superior de la tabla.
Entrada
Datos a desplazar
Salida
Dirección inicial del área comprimida donde se desplazan los datos de s
Dirección final del área donde se comprimen los datos
Los datos de la tabla determinada por d1_Start y d2_End se comprimen de la siguiente forma:
El dato especificado por s se transfiere al área especificada por d1_Start (dirección inicial).
Los datos se desplazan (comprimen) en orden secuencial, hacia la parte superior de la tabla, dentro del rango especificado.
Los operandos d1_Start (área inicial) y d2_End (área final) tienen que ser del mismo tipo.
d1_Start debe estar £d2_End
Si el contenido de s es "0", solo se lleva a cabo un desplazamiento.
si el área especificada utilizando el modificador índice supera el límite.
si la dirección de la variable de entrada s1_Start > s2_End.
Si s1_Start y s2_End pertenecen a diferentes áreas de datos
si el área especificada utilizando el modificador índice supera el límite.
si la dirección de la variable de entrada s1_Start > s2_End.
Si s1_Start y s2_End pertenecen a diferentes áreas de datos
Instrucciones F correspondientes: F99_CMPW
Todas las variables de entrada y de salida utilizadas para la programación de esta función han sido declaradas en la Cabecera de la POU.Se utiliza la misma cabecera de la POU para todos los lenguajes de programación.
VAR
bStart: BOOL:=FALSE;
aiDataField: ARRAY [0..5] OF INT:=[555,444,0,11,0,10];
iShiftinData: INT:=32;
END_VAR
Cuando la variable bStart se encuentra a TRUE, se ejecuta la función.
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;