Addition de données BCD à 8 digits
La constante équivalente à des données BCD à 8 digits ou les données BCD à 8 digits désignées par s et les données BCD à 8 digits désignées par d sont additionnées si le déclencheur EN est TRUE. Le résultat est sauvegardé dans d.
Entrée
Cumulateur, zone de 32 bits pour données BCD à 8 digits ou constante équivalente
Sortie
Cumulande et résultat, zone de 32 bits pour données BCD à 8 digits
Au lieu d’utiliser cette instruction F, nous recommandons d’utiliser l’instruction FP7 correspondante : FP_ADD_BCD
Lorsque cette instruction est utilisée, le contenu de la zone de la cumulande d est remplacé par le résultat de l’addition. Si vous ne voulez pas que le contenu de la zone soit remplacé, nous vous recommandons d’utiliser l’instruction F43_DBADD2.
Si le résultat calculé est 0.
Si le résultat est en dehors de la plage des données BCD à 8 digits (dépassement positif).
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
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
La fonction est exécutée lorsque la variable start passe de 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;