带余数的BCD数据除法
如果触发器EN为TRUE,此FP指令将s1指定的BCD数据除以s2。整数商存储在d1_Div中,余数存储在d2_Mod中。
输入
被除数
除数
输出
整数商
余数
所有用于编程此函数的输入和输出变量已在POU头中声明。 所有编程语言使用相同的POU头。
VAR
bStart: BOOL:=FALSE;
(*activates the fuction*)
dwDividend: DWORD:=16#442201;
(*dividend*)
dwDivisor: DWORD:=16#2;
(*divisor*)
dwResult: DWORD:=0;
(*result after a 0->1 leading
edge from start: 16#221100*)
dwRemainder: DWORD:=0;
(*remainder: 16#1*)
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_CONTACT,,bStart,4,2,6,4,);
B(B_VAROUT,,dwDividend,9,4,11,6,);
B(B_VARIN,,dwDivisor,6,4,8,6,);
B(B_VAROUT,,dwResult,18,3,20,5,);
B(B_F,FP_DIV_MOD_BCD!,,8,1,18,6,,?DEN?D@'s1'?Ds2?AENO?Cd1_Div?Cd2_Mod);
B(B_VAROUT,,dwRemainder,18,4,20,6,);
B(B_VARIN,,dwDividend,6,3,8,5,);
L(1,3,4,3);
L(6,3,8,3);
L(1,0,1,7);
END_NETWORK_BODY
END_NET_WORK
END_BODY
IF (bStart) then
FP_DIV_MOD_BCD(s1 := dwDividend,
s2 := dwDivisor,
d1_Div => dwResult,
d2_Mod => dwRemainder);
END_IF;