División de datos con resto
Estas instrucciones FP dividen los datos especificados por s1 entre s2 si la entrada de trigger EN es TRUE. El cociente entero se guarda en d1_Div, y el resto en d2_Mod.
Entrada
Dividendo
Divisor
Salida
Cociente entero
Resto
Solo pueden utilizarse los tipos de datos UINT y UDINT con PLCs FP7.
Todas las variables de entrada y de salida utilizadas para la programación de esta función han sido declaradas en la Cabecera de la POU. Se utiliza la misma cabecera de la POU para todos los lenguajes de programación.
VAR
bStart: BOOL:=FALSE;
(*activates the fuction*)
diDividend: DINT:=16908416;
(*dividend*)
diDivisor: DINT:=58973;
(*divisor*)
diResult: DINT:=0;
(*result after a 0->1 leading
edge from start: 286*)
diRemainder: DINT:=0;
(*remainder*)
END_VAR
Cuando la variable bStart se encuentra a TRUE, se ejecuta la función.
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_F,FP_DIV_MOD!,,13,1,21,6,,?DEN?D@'s1'?Ds2?AENO?Cd1_Div?Cd2_Mod);
B(B_CONTACT,,bStart,8,2,10,4,);
B(B_VARIN,,diDividend,11,3,13,5,);
B(B_VARIN,,diDivisor,11,4,13,6,);
B(B_VAROUT,,diResult,21,3,23,5,);
B(B_VAROUT,,diRemainder,21,4,23,6,);
L(1,3,8,3);
L(10,3,13,3);
L(1,0,1,6);
END_NETWORK_BODY
END_NET_WORK
END_BODY
If (bStart) then
FP_DIV_MOD(s1 := diDividend, s2 := diDivisor, d1_Div => diResult, d2_Mod => diRemainder);
End_if;