Rechercher la valeur minimale dans un tableau de données
Cette instruction FP détermine la valeur minimale et sa position dans un tableau de données.
Entrée
Zone de départ du tableau de données
Zone finale du tableau de données
Sortie
Valeur minimale
Position de la valeur minimale
L’entrée s1_Start désigne le début du tableau de données et s2_End indique la fin. La valeur minimale est renvoyée en sortie d1_Min et sa position en sortie d2_Pos.
d2_Pos correspond à la position de la première valeur minimale trouvée à partir du début du tableau de données.
Si la zone spécifiée à l’aide du modificateur d’adresse est en dehors des limites autorisées.
Si s1_Start > s2_End
Si s1_Start et s2_End appartiennent à différentes zones de données.
Si la zone spécifiée à l’aide du modificateur d’adresse est en dehors des limites autorisées.
Si s1_Start > s2_End
Si s1_Start et s2_End appartiennent à différentes zones de données.
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
bStart: BOOL:=FALSE;
(*activates the function*)
adiDataField: ARRAY [0..4] OF DINT:=[2,3,222222,-333333,1];
diOutputMin: DINT:=0;
(*the maximum value of
data_array; here: -333333*)
diOutputPos: DINT:=0;
(*the position of the
maximum value; here: 3*)
END_VAR
La fonction est exécutée lorsque la variable bStart est définie sur TRUE.
BODY
WORKSPACE
NETWORK_LIST_TYPE := NWTYPELD ;
ACTIVE_NETWORK := 0 ;
END_WORKSPACE
NET_WORK
NETWORK_TYPE := NWTYPELD ;
NETWORK_LABEL := ;
NETWORK_TITLE := ;
NETWORK_HEIGHT := 6 ;
NETWORK_BODY
B(B_CONTACT,,bStart,5,2,7,4,);
B(B_VARIN,,adiDataField[0],10,3,12,5,);
B(B_VARIN,,adiDataField[4],10,4,12,6,);
B(B_VAROUT,,diOutputMin,22,3,24,5,);
B(B_VAROUT,,diOutputPos,22,4,24,6,);
B(B_F,FP_DATA_MIN_POS!,,12,1,22,6,,?DEN?Ds1_Start?Ds2_End?AENO?Cd1_Min?Cd2_Pos);
L(1,3,5,3);
L(7,3,12,3);
L(1,0,1,6);
END_NETWORK_BODY
END_NET_WORK
END_BODY
IF bStart then
FP_DATA_MIN_POS(s1_Start := adiDataField[0],
s2_End := adiDataField[4],
d1_Max => diOutputMin,
d2_Pos => diOutputPos);
END_IF;