Maximalwert einer 16-Bit-Datentabelle
Die Funktion sucht den Maximalwert und seine Position einer 16-Bit-Datentabelle und gibt beide Werte aus.
Eingang
Anfang der Datentabelle
Ende der Datentabelle
Ausgang
Maximalwert
Position des Maximalwertes
Der Anfang der Datentabelle wird dem Eingang s1_Start und das Ende dem Eingang s2_End übergeben. Der Maximalwert wird am Ausgang Max und seine Position am Ausgang Pos zurückgegeben.
Die Position Pos entspricht der relativen Position vom Anfang der Datentabelle bis zum ersten Vorkommen des Maximalwertes.
wenn der mit dem Index-Modifizierer definierte Bereich größer ist als der zulässige Bereich
wenn die Adresse der Variablen an den Eingängen von s1_Start > s2_End ist.
wenn s1_Start und s2_End zu verschiedenen Datenbereichen gehören
wenn der mit dem Index-Modifizierer definierte Bereich größer ist als der zulässige Bereich
wenn die Adresse der Variablen an den Eingängen von s1_Start > s2_End ist.
wenn s1_Start und s2_End zu verschiedenen Datenbereichen gehören
Im POE-Kopf werden alle Ein- und Ausgangsvariablen deklariert, die für die Programmierung dieser Funktion verwendet werden. Für alle Programmiersprachen wird der gleiche POE-Kopf verwendet.
VAR
start: BOOL:=FALSE;
(*activates the function*)
data_array: ARRAY [0..4] OF INT:=[4,7,-32,13,5];
output_max: INT:=0;
(*the maximum value of
data_array; here: 13*)
output_pos: INT:=0;
(*the position of the
maximum value; here: 3*)
END_VAR
Wenn die Variable start auf TRUE gesetzt wird, wird die Funktion ausgeführt.
Sie sucht in data_field nach dem Maximalwert und seiner Position. Das Funktionsergebnis (result) ist hier: maximum_value = 6 und position = 2.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,,output,5,1,7,3,);
B(B_VARIN,,data field[0],5,2,7,4,);
B(B_VARIN,,data field[4],5,3,7,5,);
B(B_VAROUT,,maximum,15,2,17,4,);
B(B_F,F270_MAX,,7,0,15,5,,?DEN?D@'s1'?Ds2?AENO?Cmax?Cpos);
B(B_VAROUT,,position,15,3,17,5,);
L(1,0,1,5);
END_NETWORK_BODY
END_NET_WORK
END_BODY
IF start then
F270_MAX( s1_Start:= data_field[0],
s2_End:= data_field[4],
Max=> maximum_value,
Pos=> position);
END_IF;