Division des données BCD
Cette instruction FP divise les données BCD spécifiées par s1 par la valeur de s2 lorsque le déclencheur EN est TRUE. Le résultat est sauvegardé dans d.
Entrée
Dividende
Diviseur
Sortie
Quotient
Toutes les variables d’entrée et de sortie utilisées pour programmer cette fonction ont été déclarées dans l’en-tête du POU. Le même en-tête de POU est utilisé pour tous les langages de programmation.
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
La fonction est exécutée lorsque la variable bStart est définie sur 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;