Tangens-Funktion mit BCD-codierten Werten
Die Funktion berechnet den Tangens eines BCD-Winkelwertes (Eingang s) und speichert das Ergebnis (Ausgang d) als BCD-Wert in einem ARRAY mit drei Elementen.
Eingang
Bereich zur Speicherung des Winkelwertes
Ausgang
Ergebnis wird in 3 Wörtern gespeichert
BCD-Werte für den Eingang s liegen im Bereich von 0° bis 360° (16#0 bis 16#360) in 1° Schritten. Damit kann das am Ausgang d anliegende Ergebnis Werte im Bereich von -57,2900 bis 57,2900 annehmen. Das Funktionsergebnis wird wie folgt zurückgegeben:
Vorzeichen des Eingangswertes (0 bei positivem Vorzeichen, 1 bei negativem Vorzeichen).
Vorkommawert als ganze Zahl (0 oder 1).
Nachkommastellen als BCD-codierter Wert auf 4 Stellen gerundet (16#0 bis 16#9999).
wenn s kein BCD-codierter Wert ist.
wenn s nicht zwischen 0° und 360° liegt.
wenn s kein BCD-codierter Wert ist.
wenn s nicht zwischen 0° und 360° liegt.
wenn das Funktionsergebnis 0 ist.
wenn das Ergebnis einen Speicherüberlauf verursacht.
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*)
input_value: ARRAY [0..2] OF WORD:=[2(0),16#5000];
(*corresponds to 0.5*)
output_value: WORD:=0;
(*result after a 0->1 leading
edge from start: 16#30
corresponds to 30°*)
END_VAR
In diesem Beispiel wird die Eingangsvariable input_value deklariert. Statt dessen können Sie im Rumpf auch eine Konstante (z.B. 16#89 für 89°) direkt an den Eingang der Funktion schreiben.
Wenn die Variable start auf TRUE gesetzt wird, wird die Funktion ausgeführt. input_value wurde im POE-Kopf mit dem Wert 16#89 (89°) initialisiert. Das Funktionsergebnis wird in den ARRAY output_value geschrieben. Hier steht im ersten Element von output_value = 16# (positives Vorzeichen). Im zweiten Element steht 16#57 als Vorkommastellen und im dritten Element 16#2899 als Nachkommastellen.
BODY
WORKSPACE
NETWORK_LIST_TYPE := NWTYPELD ;
ACTIVE_NETWORK := 0 ;
END_WORKSPACE
NET_WORK
NETWORK_TYPE := NWTYPELD ;
NETWORK_LABEL := ;
NETWORK_TITLE := ;
NETWORK_HEIGHT := 14 ;
NETWORK_BODY
B(B_VARIN,,output,6,1,8,3,);
B(B_VARIN,,input_value,6,2,8,4,);
B(B_VAROUT,,output_value,17,2,19,4,);
B(B_F,F302_BTAN,,8,0,17,4,,?DEN?D@'s'?AENO?Cd);
B(B_COMMENT,,output_value undefinedø^if input_valueø^90° or 270°,25,0,37,3,);
B(B_COMMENT,,output_value[0] = 1ø^if input_valueø^between 91° and 179° orø^between 271° and 359°,25,3,37,7,);
L(1,0,1,14);
END_NETWORK_BODY
END_NET_WORK
END_BODY
IF start THEN
F302_BTAN(input_value, output_value);
END_IF;