F53_DBDIV

8桁BCD 除算 (格納先指定可)

演算結果がdで指定したエリアに格納され、余りがシステム変数sys_diDDivRemainderに格納されます。

パラメータ

入力

s1 (DWORD): 被除数データ(8桁BCDデータを格納している32ビットエリア)
s2 (DWORD): 除数データ(8桁BCDデータを格納している32ビットエリア)

出力

d (DWORD): 商(BCDデータを格納する32ビットエリア) (余りは、システム変数sys_diDDivRemainderに格納)

例

(1) 値の例： 16#00001110 (BCD)
(2) 値の例： 16#0000011 (BCD)
(3) 実行条件がONになると、演算結果16#00000100 (BCD)が得られます。
(4) 実行条件がONになると、余り16#00000010(BCD)が得られ、sys_diDDivRemainderに格納されます。
(5) 32ビットエリア
(6) 実行条件: ON

解説

F命令を使用する代わりに、対応するFP7命令を使用することをおすすめします。

FP_MOD_BCD、FP_DIV_MOD_BCD、FP_DIV_BCD

エラーフラグ

sys_bIsEqual (1回のスキャンに対してTRUE): 演算結果が "0"のときON

例

POUヘッダ

POUヘッダには、このプログラムで使用するすべての入力変数と出力変数を宣言します。 POUヘッダは全プログラム言語で使用できます。

	VAR
		start: BOOL:=FALSE;
			(*activates the fuction*)
		dividend: DWORD:=16#00001110;
			(*dividend*)
		divisor: DWORD:=16#00000011;
			(*divisor*)
		output_value: DWORD:=0;
			(*result after 0->1 leading edge
from start: 16#00000100*)
	END_VAR

LDボディ

変数startがON (TRUE)のとき、このファンクションが実行されます。

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,10,1,12,3,);
B(B_VARIN,,dividend,12,2,14,4,);
B(B_VARIN,,divisor,12,3,14,5,);
B(B_VAROUT,,output_value,21,2,23,4,);
B(B_F,F53_DBDIV!,Instance,14,0,21,5,,?DEN?D@'s1'?Ds2?AENO?Cd);
L(1,2,10,2);
L(12,2,14,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

STボディ

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