FP_MOD_BCD

Rest der BCD-Division

Dieser FP-Befehl berechnet den Rest einer BCD-Division, bei der der durch s1 festgelegte Wert durch s2 dividiert wird. Der Rest wird in d gespeichert.

Parameter

Eingang

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

Ausgang

d (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#00001110;
			(*dividend*)
		dwDivisor: DWORD:=16#00000047;
			(*divisor*)
		dwRemainder: DWORD:=0;
			(*result after 0->1 leading edge
from start: 16#00000029*)
	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 := 6 ;
        NETWORK_BODY
B(B_VARIN,,dwDividend,12,3,14,5,);
B(B_VARIN,,dwDivisor,12,4,14,6,);
B(B_VAROUT,,dwRemainder,22,3,24,5,);
B(B_F,FP_MOD_BCD!,,14,1,22,6,,?DEN?D@'s1'?Ds2?AENO?Cd);
B(B_CONTACT,,bStart,10,2,12,4,);
L(1,3,10,3);
L(12,3,14,3);
L(1,0,1,6);
        END_NETWORK_BODY
    END_NET_WORK
END_BODY

ST-Rumpf

IF (bStart) then
    FP_MOD_BCD(s1 := dwDividend, 
                   s2 := dwDivisor,  
                   d => dwRemainder);
END_IF;