Rechercher des données 16 bits dans un tableau
Cette fonction recherche la valeur identique à s1 dans le bloc des zones de 16 bits indiquées par s2_Start (zone de départ) et s3_End (zone finale) lorsque le déclencheur EN est TRUE.
Entrée
Zone de 16 bits ou constante équivalente de sauvegarde de la valeur recherchée
Zone de départ de 16 bits du bloc
Zone finale de 16 bits du bloc
Lorsque la recherche est exécutée, les résultats sont sauvegardés de la façon suivante :
Le nombre de données recherchées, identiques à s1 est transféré vers sys_iNumberOfFoundMatches.
La position à laquelle la première donnée a été trouvée, à partir de la zone de départ de 16 bits, est transférée vers sys_iPositionOfFirstMatch.
s2_Start doit être £ s3_End.
Les variables s1, s2_Start et s3_End doivent être du même type de données.
Si la zone spécifiée à l’aide du modificateur d’adresse est en dehors des limites autorisées.
Si s2_Start>s3_End
Si la zone spécifiée à l’aide du modificateur d’adresse est en dehors des limites autorisées.
Si s2_Start>s3_End
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
start: BOOL:=FALSE;
(*activates the fuction*)
search_value: WORD:=16#20;
(*specifies the value to
search for*)
data_array: ARRAY [0..3] OF WORD:=[16#101,16#2A04,16#20,16#20];
(*2 matches for 16#20
data_array[2] = 1st match*)
number_matches: INT:=0;
position1_match: INT:=0;
END_VAR
La fonction est exécutée lorsque la variable start est sur TRUE.
BODY
WORKSPACE
NETWORK_LIST_TYPE := NWTYPELD ;
ACTIVE_NETWORK := 3 ;
END_WORKSPACE
NET_WORK
NETWORK_TYPE := NWTYPELD ;
NETWORK_LABEL := ;
NETWORK_TITLE := ;
NETWORK_HEIGHT := 7 ;
NETWORK_BODY
B(B_CONTACT,,start,4,2,6,4,);
B(B_VARIN,,search_value,7,3,9,5,);
B(B_VARIN,,data_array[0],7,4,9,6,);
B(B_VARIN,,data_array[3],7,5,9,7,);
B(B_F,F96_SRC,,9,1,16,7,,?DEN?D@'s1'?Ds2?Ds3?AENO);
L(1,3,4,3);
L(6,3,9,3);
L(1,0,1,7);
END_NETWORK_BODY
END_NET_WORK
NET_WORK
NETWORK_TYPE := NWTYPELD ;
NETWORK_LABEL := ;
NETWORK_TITLE := ;
NETWORK_HEIGHT := 6 ;
NETWORK_BODY
B(B_CONTACT,,start,4,1,6,3,);
B(B_F,E_MOVE,,9,0,16,4,,?DEN?Da_Num?AENO?C);
B(B_VARIN,,DT90037,7,2,9,4,);
B(B_VAROUT,,number_matches,16,2,18,4,);
L(1,0,1,6);
L(1,2,4,2);
L(6,2,9,2);
END_NETWORK_BODY
END_NET_WORK
NET_WORK
NETWORK_TYPE := NWTYPELD ;
NETWORK_LABEL := ;
NETWORK_TITLE := ;
NETWORK_HEIGHT := 5 ;
NETWORK_BODY
B(B_CONTACT,,start,4,1,6,3,);
B(B_F,E_MOVE,,9,0,16,4,,?DEN?Da_Num?AENO?C);
B(B_VARIN,,DT90038,7,2,9,4,);
B(B_VAROUT,,position1_match,16,2,18,4,);
L(1,2,4,2);
L(6,2,9,2);
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
L(1,0,1,6);
END_NETWORK_BODY
END_NET_WORK
END_BODY
IF start then
F96_SRC( s1:= search_value ,
s2_Start:= data_array[0] ,
s3_End:= data_array[3] );
number_matches:=DT90037;
position_1match:=DT90038;
END_IF;