FP_DIV_MOD_BCD

BCD-Division mit Rest

Dieser FP-Befehl dividiert den durch s1 festgelegten BCD-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.

Parameter

Eingang

s1 (WORD, DWORD): Dividend
s2 (WORD, DWORD): Divisor

Ausgang

d1_Div (WORD, DWORD): Ganzzahliger Quotient
d2_Mod (WORD, DWORD): Rest

Fehleralarmmerker

sys_bIsOperationErrorHold (wird auf TRUE gesetzt und bleibt TRUE)

wenn der mit dem Index-Modifizierer definierte Bereich größer ist als der zulässige Bereich
wenn 0 für s2 festgelegt ist
wenn andere Werte als BCD-Werte festgelegt sind

sys_bIsOperationErrorNonHold (wird für einen Zyklus auf TRUE gesetzt)

wenn der mit dem Index-Modifizierer definierte Bereich größer ist als der zulässige Bereich
wenn 0 für s2 festgelegt ist
wenn andere Werte als BCD-Werte festgelegt sind

Verwandte Themen

BCD-Werte

Verwandte F-Befehle: F52_BDIV, F53_DBDIV

Beispiel

POE-Kopf

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*)
		dwDividend: DWORD:=16#442201;
			(*dividend*)
		dwDivisor: DWORD:=16#2;
			(*divisor*)
		dwResult: DWORD:=0;
			(*result after a 0->1 leading
edge from start: 16#221100*)
		dwRemainder: DWORD:=0;
			(*remainder: 16#1*)
	END_VAR

KOP-Rumpf

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 := 7 ;
        NETWORK_BODY
B(B_CONTACT,,bStart,4,2,6,4,);
B(B_VAROUT,,dwDividend,9,4,11,6,);
B(B_VARIN,,dwDivisor,6,4,8,6,);
B(B_VAROUT,,dwResult,18,3,20,5,);
B(B_F,FP_DIV_MOD_BCD!,,8,1,18,6,,?DEN?D@'s1'?Ds2?AENO?Cd1_Div?Cd2_Mod);
B(B_VAROUT,,dwRemainder,18,4,20,6,);
B(B_VARIN,,dwDividend,6,3,8,5,);
L(1,3,4,3);
L(6,3,8,3);
L(1,0,1,7);
        END_NETWORK_BODY
    END_NET_WORK
END_BODY

ST-Rumpf

IF (bStart) then
    FP_DIV_MOD_BCD(s1 := dwDividend, 
                   s2 := dwDivisor, 
                   d1_Div => dwResult, 
                   d2_Mod => dwRemainder);
END_IF;