8桁BCD 加算
実行条件ENがONのとき、sで指定された8桁BCDデータを、dで指定された8桁BCDデータに加算します。結果はdに格納されます。
入力
加算データ(8桁BCDデータを格納している32ビットエリア)
出力
被加算データと演算結果(8桁BCDデータを格納している32ビットエリア)
F命令を使用する代わりに、対応するFP7命令を使用することをおすすめします。FP_ADD_BCD
この命令を実行すると、被加算データを格納しているエリアdは、演算結果によって上書きされます。上書きせずに加算結果の格納先を直接指定する場合は、F43_DBADD2命令を使用してください。
結果が "0"のとき
演算結果が8桁BCDデータの範囲を超えたとき(オーバーフロー)
POUヘッダには、このプログラムで使用するすべての入力変数と出力変数を宣言します。 POUヘッダは全プログラム言語で使用できます。
VAR
start: BOOL:=FALSE;
(*activates the function*)
summand: DWORD:=16#12342000;
(*this value will be added
to the output_value*)
output_value: DWORD:=16#00003678;
(*result after 0->1 leading
edge from start:
16#12345678*)
END_VAR
変数startがFALSEから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,,summand,10,2,12,4,);
B(B_VAROUT,,output_value,21,2,23,4,);
B(B_F,F41_DBADD!,Instance,12,0,19,4,,?DEN?D@'s'?AENO?Cd);
B(B_CONTACT,,start,8,1,10,3,R);
L(19,3,21,3);
L(1,2,8,2);
L(10,2,12,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
IF DF(start) then
F41_DBADD(summand, output_value);
END_IF;