Division mit Rest
Dieser FP-Befehl dividiert den durch s1 festgelegten Wert durch s2. Dazu muss der Trigger EN auf TRUE gesetzt sein. Der ganzzahlige Quotient wird in d1_Div gespeichert und der Rest in d2_Mod.
Eingang
Dividend
Divisor
Ausgang
Ganzzahliger Quotient
Rest
Mit den Steuerungen FP7 können nur die Datentypen UINT und UDINT verwendet werden.
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
bStart: BOOL:=FALSE;
(*activates the fuction*)
diDividend: DINT:=16908416;
(*dividend*)
diDivisor: DINT:=58973;
(*divisor*)
diResult: DINT:=0;
(*result after a 0->1 leading
edge from start: 286*)
diRemainder: DINT:=0;
(*remainder*)
END_VAR
Wenn die Variable bStart 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_F,FP_DIV_MOD!,,13,1,21,6,,?DEN?D@'s1'?Ds2?AENO?Cd1_Div?Cd2_Mod);
B(B_CONTACT,,bStart,8,2,10,4,);
B(B_VARIN,,diDividend,11,3,13,5,);
B(B_VARIN,,diDivisor,11,4,13,6,);
B(B_VAROUT,,diResult,21,3,23,5,);
B(B_VAROUT,,diRemainder,21,4,23,6,);
L(1,3,8,3);
L(10,3,13,3);
L(1,0,1,6);
END_NETWORK_BODY
END_NET_WORK
END_BODY
If (bStart) then
FP_DIV_MOD(s1 := diDividend, s2 := diDivisor, d1_Div => diResult, d2_Mod => diRemainder);
End_if;