ReadDataFromFileRegisterBankLire des données à partir de la base de registre fichier 1 ou 2
Cette instruction lit le nombre de mots indiqué par DataNumberOfWords à partir de la base de registre fichier 1 ou 2, désignée par BankNumber à partir de l’offset de base spécifié par BankOffset, et l’écrit dans DataStartAddress.

Entrée
Indique le numéro de la base
Indique l’offset du numéro de base
Nombre de mots qui doivent être lus à partir de la base de registre fichier
Sortie
Adresse vers laquelle les données lues à partir de la base de registre fichier sont écrites
Cette fonction ne permet pas de lire des données dans la zone FL (base de registre fichier 0), c.à-d. la variable utilisée pour DataStartAddress ne doit pas être située dans la zone FL.

Toutes les variables d’entrée et de sortie utilisées pour programmer cette fonction ont été déclarées dans l’en-tête du POU. Le même en-tête de POU est utilisé pour tous les langages de programmation.

_VAR
VAR_OUTPUT
p32ActualPosition: POINTER32;
(*shows the area, offset and size where the data of the IC card is stored*)
END_VAR
VAR
END_VAR
VAR_INPUT
p32Pointer: POINTER32;
(*area, offset and size of data values*)
diPosition: DINT:=0;
(*beginning position from which the data should be read from the IC card*)
END_VAR
VAR_OUTPUT
p32ActualPosition: POINTER32;
(*shows the area, offset and size where the data of the IC card is stored*)
END_VAR
VAR
END_VAR

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_VARIN,,2,20,3,22,5,);
B(B_VARIN,,1000,20,4,22,6,);
B(B_VARIN,,awProcessDataToGet[0],10,5,12,7,);
B(B_CONTACT,,bGetData,5,2,7,4,R);
B(B_F,Size_Of_Var!,Instance,12,5,19,7,,?D?C);
B(B_F,E_ReadFromIcCard!,Instance,22,1,37,7,,?DEN?DBankNumber?DBankOffset?DDataNumberOfWords?AENO?CDataStartAddress);
B(B_F,Adr_Of_Var_O!,Instance,37,3,45,5,,?D?C);
B(B_VAROUT,,awProcessDataToGet,45,3,47,5,);
L(1,3,5,3);
L(19,6,22,6);
L(1,0,1,9);
L(7,3,22,3);
END_NETWORK_BODY
END_NET_WORK
END_BODY
if (DF(bGetData)) then
ReadDataFromFileRegisterBank(BankNumber := 2,
BankOffset := 1000,
DataNumberOfWords := Size_Of_Var(awProcessDataToGet),
DataStartAddress => Adr_Of_Var(awProcessDataToGet));
end_if;