Registro de desplazamiento IZQUIERDA/DERECHA
Desplaza un bit ,a la derecha o a la izquierda, dentro de un bloque de datos de 16 bits.
Entrada
Izquierda/Derecha: especifica la dirección de desplazamiento:
Estado del bit que se a va a introducir para realizar el desplazamiento.
el bit de desplazamiento es TRUE = 1: la entrada está a TRUE
Activa el desplazamiento
Desplaza 1 bit a la izquierda o a la derecha en el flanco de subida de la condición de ejecución (FALSE®TRUE).
Pone a 0 todos los bits del bloque de datos especificado por d1_Start y d2_End cuando la condición de ejecución pase a TRUE.
Pone a 0 los datos del bloque especificado por d1_Start y d2_End
Área final de 16 bits
Área de inicio de 16 bits
Salida
Bit que se pierde en el desplazamiento
Desplazamiento a la izquierda
El bit de acarreo se transfiere al relé R9009 (bandera de acarreo).
LeftDirection: TRUE; ShiftTrigger: FALSE, TRUE
Si DataInput pasa a TRUE, “1” se desplaza a la posición 0.
Si DataInput pasa a FALSE, “0” se desplaza a la posición 0.
Desplazamiento a la derecha
LeftDirection: FALSE; ShiftTrigger: FALSE, TRUE
El bit de acarreo se transfiere al relé R9009 (bandera de acarreo).
Si DataInput pasa a TRUE, “1” se desplaza a la posición 15.
Si DataInput pasa a FALSE, “0” se desplaza a la posición 15.
Las variables d1_Start y d2_End tienen que ser del mismo tipo de datos.
No es necesario conectar una variable en la salida Carry.
Consiste en un registro de desplazamiento que desplaza 1 bit a la izquierda (hacia la posición superior) o a la derecha (hacia la posición inferior), dentro del bloque de datos especificado.
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
data_array: ARRAY [0..2] OF INT:=[2#0000000000000001,2#0011111111111111,2#0011111111111110];
enable_leftShift: BOOL:=FALSE;
(*function shifts left if TRUE,
else it shifts right*)
reset: BOOL:=FALSE;
(*if TRUE, the whole array
will be set to zero*)
input: BOOL:=TRUE;
(*specifies the new shift-in data*)
shift_trigger: BOOL:=FALSE;
(*activates the function at a 0->1
leading edge*)
carry_out_value: BOOL:=FALSE;
(*result after a 0->1 leading edge
from shift_trigger: 1.
After the next cycle the value will be
set back to zero.*)
END_VAR
Si la variableenable_leftShift está a TRUE, se desplaza a la izquierda, en caso contrario se desplaza a la derecha.
BODY
WORKSPACE
NETWORK_LIST_TYPE := NWTYPELD ;
ACTIVE_NETWORK := 0 ;
END_WORKSPACE
NET_WORK
NETWORK_TYPE := NWTYPELD ;
NETWORK_LABEL := ;
NETWORK_TITLE := ;
NETWORK_HEIGHT := 9 ;
NETWORK_BODY
B(B_F,F119_LRSR!,Instanz,12,1,22,9,,?DLeftDirection?DDataInput?DShiftTrigger?DReset?Dd1_Start?Dd2_End?ACarry);
B(B_CONTACT,,enable_leftShift,7,2,9,4,);
B(B_VARIN,,input,9,3,11,5,);
B(B_VARIN,,shift_trigger,9,4,11,6,);
B(B_VARIN,,reset,9,5,11,7,);
B(B_VARIN,,data_array[0],9,6,11,8,);
B(B_VARIN,,data_array[2],9,7,11,9,);
B(B_VAROUT,,carry_out_value,22,2,24,4,);
L(1,3,7,3);
L(9,3,12,3);
L(11,4,12,4);
L(11,5,12,5);
L(11,6,12,6);
L(11,7,12,7);
L(11,8,12,8);
L(1,0,1,9);
END_NETWORK_BODY
END_NET_WORK
END_BODY
carry_out_value:=F119_LRSR( LeftDirection:= enable_leftShift,
DataInput:= input,
ShiftTrigger:= shift_trigger,
Reset:= reset,
d1_Start:= data_array[0],
d1_End:= data_array[2]);