BCDデータ除算の余り
このFP命令は、s1で指定された値をs2で指定された値で除算するというBCDデータ除算の余りを求めます。余りはdに格納されます。
入力
被除数データ、除数データ
出力
余り
POUヘッダには、このプログラムで使用するすべての入力変数と出力変数を宣言します。 POUヘッダは全プログラム言語で使用できます。
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
変数bStartが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_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
IF (bStart) then
FP_MOD_BCD(s1 := dwDividend,
s2 := dwDivisor,
d => dwRemainder);
END_IF;