Desplazar y comprimir datos
Esta instrucción FP desplaza todos los datos distintos de cero a la parte superior de la tabla.
Salida
Dirección inicial (más baja) de la tabla a comprimir
dirección final (más alta) de los datos a comprimir, se desplazan los datos en d2_End
Almacena los datos desplazados desde d2_End
Los datos de la tabla determinada por d1_Start y d2_End se comprimen de la siguiente forma:
El contenido de d2_End (dirección superior) se desplaza al área especificado por d3.
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 á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: F98_CMPR
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];
iShiftoutData: INT:=10;
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_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;