Escritura de datos de un buffer LIFO
Esta instrucción FP escribe el dato s en el buffer LIFO (Last-In-First-Out) especificado por d_Start.
Las variables s y d_Start tienen que ser del mismo tipo de datos.
Si esta instrucción se ejecuta cuando el buffer LIFO está lleno (número de datos almacenados = n_Words, el tamaño del buffer LIFO definido por FP_LIFO_DEFINE), se produce un error y la escritura no se lleva a cabo.
Si esta instrucción se ejecuta esta instrucción cuando el puntero de escritura indica la dirección final en el buffer LIFO (n_Words definido por FP_LIFO_DEFINE), el puntero de escritura se pondrá a 0.
Entrada
Área de datos o constante equivalente para almacenar los datos que se van a escribir en el buffer LIFO
Salida
Inicio del área de datos del buffer
si el tamaño (n_Words) del buffer especificado por d_Start es n_Words = 0, o si n_Words > 4096.
si el número de elementos de datos almacenados en el buffer = 0.
si el número de elementos de datos almacenados del buffer > tamaño del buffer (n_Words).
si el puntero de escritura es > tamaño del buffer (n_Words).
si el puntero de escritura es 4096 (16#1000) o mayor una vez escritos los datos.
si el tamaño (n_Words) del buffer especificado por d_Start es n_Words = 0, o si n_Words > 4096.
si el número de elementos de datos almacenados en el buffer = 0.
si el número de elementos de datos almacenados del buffer > tamaño del buffer (n_Words).
si el puntero de escritura es > tamaño del buffer (n_Words).
si el puntero de escritura es 4096 (16#1000) o mayor una vez escritos los datos.
Instrucciones F correspondientes: F117_FIFW
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
bDefineBuffer: BOOL:=FALSE;
bWriteToBuffer: BOOL:=FALSE;
iWords: INT:=8;
arrLifo: ARRAY [0..11] OF INT:=[12(0)];
END_VAR
VAR_EXTERNAL
g_arrValuesWORD: ARRAY [0..7] OF WORD:=[16#0000,16#0001,16#7FFF,16#8000,16#FFFF,16#1234,16#89AB,16#ABCD];
END_VAR
VAR
END_VAR
Cuando la variable bWriteToBuffer pasa 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 := 5 ;
NETWORK_BODY
B(B_VARIN,,iWords,10,3,12,5,);
B(B_VAROUT,,arrLifo[0],22,3,24,5,);
B(B_CONTACT,,bDefineBuffer,5,2,7,4,);
B(B_F,FP_LIFO_DEFINE!,,12,1,21,5,,?DEN?Dn_Words?AENO?Cd_Start);
L(1,3,5,3);
L(7,3,12,3);
L(21,4,22,4);
L(1,0,1,5);
END_NETWORK_BODY
END_NET_WORK
NET_WORK
NETWORK_TYPE := NWTYPELD ;
NETWORK_LABEL := ;
NETWORK_TITLE := ;
NETWORK_HEIGHT := 6 ;
NETWORK_BODY
B(B_VARIN,,g_arrValuesWORD[0],10,3,12,5,);
B(B_VAROUT,,arrLifo[0],22,3,24,5,);
B(B_CONTACT,,bWriteToBuffer,5,2,7,4,);
B(B_F,FP_LIFO_WRITE!,,12,1,21,5,,?DEN?D@'s'?AENO?Cd_Start);
L(1,3,5,3);
L(7,3,12,3);
L(21,4,22,4);
L(1,0,1,6);
END_NETWORK_BODY
END_NET_WORK
END_BODY
if (bWriteToBuffer) then
FP_LIFO_WRITE(s := g_arrValuesWORD[0],
d_Start => arrLifo[0]);
end_if;