4-Digit-BCD-Subtraktion
Der vierstellige BCD-codierte 16-Bit-Wert des Speicherregisters s oder eine Konstante s wird vom vierstelligen BCD-codierten 16-Bit-Wert des Speicherregisters d subtrahiert. Dazu muss der Trigger auf EN gesetzt sein. Das Ergebnis wird in d gespeichert.
Eingang
Subtrahend, 16-Bit-Bereich für vierstellige BCD-codierte Daten oder äquivalente Konstante
Ausgang
Minuend und Ergebnis, 16-Bit-Bereich für vierstellige BCD-codierte Daten
Wir empfehlen, anstelle von diesem F-Befehl den entsprechenden FP7-Befehl zu verwenden: FP_SUB_BCD
wenn das Funktionsergebnis 0 ist.
wenn das Ergebnis außerhalb des 16-Bit-Bereichs für vierstellige BCD-codierten Daten liegt (Überlauf).
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*)
subtrahend: WORD:=16#0011;
(*this value will be subtracted
from the output_value*)
output_value: WORD:=16#2111;
(*result after 0->1 leading
edge from start: 16#2100*)
END_VAR
Wenn die Variable start von FALSE auf TRUE gesetzt wird, wird die Funktion ausgeführt.
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,,start,3,1,5,3,R);
B(B_VARIN,,subtrahend,10,2,12,4,);
B(B_VAROUT,,output_value,18,2,20,4,);
B(B_F,F45_BSUB!,Instance,12,0,18,4,,?DEN?D@'s'?AENO?Cd);
L(1,2,3,2);
L(5,2,12,2);
L(1,0,1,6);
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
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
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 DF(start) then
F45_BSUB(subtrahend, output_value);
END_IF;