Desplazar el bloque de datos hacia la izquierda
Esta instrucción FP desplaza el rango de datos especificado por d1_Start y d2_End el número de palabras especificado por n_Words hacia la izquierda (hacia la posición más alta) si el trigger EN es TRUE.
Las posiciones vacías se rellenan con ceros.
Entrada
Número de palabras (rango admisible: 0–255)
Salida
Dirección de inicio
Dirección final
si d1_Start > d2_End
si d1_Start > d2_End
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;
(*activates the function*)
awDataField: ARRAY [0..3] OF WORD:=[16#1001,16#1000,16#0011,16#1010];
(*result after a 0->1 leading edge
from start: [2,0,3,4]*)
iNumWords: INT:=0;
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_VAROUT,,awDataField[1],19,3,21,5,);
B(B_VARIN,,iNumWords,7,3,9,5,);
B(B_CONTACT,,bStart,4,2,6,4,R);
B(B_F,FP_WSHL_BLOCK!,,9,1,19,6,,?DEN?Dn_Words?AENO?Cd1_Start?Cd2_End);
B(B_VAROUT,,awDataField[3],19,4,21,6,);
L(1,3,4,3);
L(6,3,9,3);
L(1,0,1,7);
END_NETWORK_BODY
END_NET_WORK
END_BODY
IF DF(bStart) then
FP_WSHL_BLOCK(d1_Start := awDataField[1],
d2_End => awDataField[3],
n_Words => iNumWords);
END_IF;