BCDデータ除算
このFP命令は、実行条件ENがTRUEのとき、s1とs2によって指定されたBCDデータを除算します。結果はdに格納されます。
入力
被除数データ
除数データ
出力
商
POUヘッダには、このプログラムで使用するすべての入力変数と出力変数を宣言します。 POUヘッダは全プログラム言語で使用できます。
VAR
bStart: BOOL:=FALSE;
(*activates the fuction*)
dwDividend: DWORD:=16#442200;
(*dividend*)
dwDivisor: DWORD:=16#2;
(*divisor*)
dwResult: DWORD:=0;
(*result after a 0->1 leading
edge from start: 16#221100*)
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 := 7 ;
NETWORK_BODY
B(B_F,FP_DIV_BCD!,,9,1,16,6,,?DEN?D@'s1'?Ds2?AENO?Cd);
B(B_CONTACT,,bStart,4,2,6,4,);
B(B_VARIN,,dwDividend,7,3,9,5,);
B(B_VARIN,,dwDivisor,7,4,9,6,);
B(B_VAROUT,,dwResult,16,3,18,5,);
L(6,3,9,3);
L(1,3,4,3);
L(1,0,1,7);
END_NETWORK_BODY
END_NET_WORK
END_BODY
IF (bStart) then
FP_DIV_BCD(s1 := dwDividend, s2 := dwDivisor, d => dwResult);
END_IF;