F52_BDIV

4-Digit-BCD-Division mit Transfer

Die vierstellige BCD-äquivalente Konstante oder der vierstellige BCD-codierte 16-Bit-Wert des Speicherregisters s1 wird durch die vierstellige BCD-äquivalente Konstante oder den vierstelligen BCD-codierten 16-Bit-Wert des Speicherregisters s2 dividiert. Dazu muss der Trigger EN auf TRUE gesetzt sein.

Parameter

Eingang

s1 (WORD): Dividend, 16-Bit-Bereich für BCD-codierte Daten oder vierstellige BCD-äquivalente Konstante
s2 (WORD): Divisor, 16-Bit-Bereich für BCD-codierte Daten oder vierstellige BCD-äquivalente Konstante

Ausgang

d (WORD): Quotient, 16-Bit-Bereich für BCD-codierte Daten (der Restbetrag wird in der Systemvariablen sys_iDivRemainder gespeichert)

Beispiel

(1) Beispiel 16#0037 (BCD)
(2) Beispiel 16#0015 (BCD)
(3) Ergebnis 16#0002
(4) Rest: 16#0007
(5) Trigger: TRUE

Anmerkungen

Das Ergebnis der Division steht im Speicherregister d und der Divisionsrest steht in der Systemvariablen sys_iDivRemainder.

Fehleralarmmerker

sys_bIsEqual (wird für einen Zyklus auf TRUE gesetzt): wenn das Funktionsergebnis 0 ist.

Verwandte Themen

BCD-Werte

Wir empfehlen, anstelle von diesem F-Befehl den entsprechenden FP7-Befehl zu verwenden: FP_MOD_BCD, FP_DIV_MOD_BCD, FP_DIV_BCD

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
		start: BOOL:=FALSE;
			(*activates the fuction*)
		dividend: WORD:=16#0037;
			(*dividend*)
		divisor: WORD:=16#0015;
			(*divisor*)
		output_value: WORD:=0;
			(*result after 0->1 leading edge
from start: 16#0002*)
	END_VAR

KOP-Rumpf

Wenn die Variable start 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,5,1,7,3,);
B(B_VARIN,,dividend,7,2,9,4,);
B(B_VARIN,,divisor,7,3,9,5,);
B(B_VAROUT,,output_value,15,2,17,4,);
B(B_F,F52_BDIV!,Instance,9,0,15,5,,?DEN?D@'s1'?Ds2?AENO?Cd);
L(1,2,5,2);
L(7,2,9,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
END_BODY

ST-Rumpf

IF start then
    F52_BDIV(dividend, divisor, output_value);
END_IF;

AWL-Rumpf

LD	start	(* EN = start; Starting signal for the F52_BDIV function. *)
F52_BDIV	dividend, divisor, output_value	(* s1 = dividend (source1) ) ( s2 = divisor (source2) ) ( d = output_value (destination) *)
		(* s1 / s2 = d *)
ST	out	(* option *)