FP_MOD_BCD

Reste de la division des données BCD

Cette instruction FP calcule le reste de la division des données BCD spécifiées par s1 par celles spécifiées par s2. Le reste est sauvegardé dans d.

Paramètres

Entrée

s1, s2 (WORD, DWORD): Dividende, diviseur

Sortie

d (WORD, DWORD): Reste

Drapeaux d’erreur

sys_bIsOperationErrorHold (passe à TRUE et reste TRUE)

Si la zone spécifiée à l’aide du modificateur d’adresse est en dehors des limites autorisées.
Si 0 est indiqué pour s2.
Si des données autres que BCD sont spécifiées

sys_bIsOperationErrorNonHold (passe à TRUE pendant un cycle)

Si la zone spécifiée à l’aide du modificateur d’adresse est en dehors des limites autorisées.
Si 0 est indiqué pour s2.
Si des données autres que BCD sont spécifiées

Thèmes apparentés

Données BCD

Instructions F correspondantes : F52_BDIV, F53_DBDIV

Exemple

En-tête du POU

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#00001110;
			(*dividend*)
		dwDivisor: DWORD:=16#00000047;
			(*divisor*)
		dwRemainder: DWORD:=0;
			(*result after 0->1 leading edge
from start: 16#00000029*)
	END_VAR

Corps en LD

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 := 6 ;
        NETWORK_BODY
B(B_VARIN,,dwDividend,12,3,14,5,);
B(B_VARIN,,dwDivisor,12,4,14,6,);
B(B_VAROUT,,dwRemainder,22,3,24,5,);
B(B_F,FP_MOD_BCD!,,14,1,22,6,,?DEN?D@'s1'?Ds2?AENO?Cd);
B(B_CONTACT,,bStart,10,2,12,4,);
L(1,3,10,3);
L(12,3,14,3);
L(1,0,1,6);
        END_NETWORK_BODY
    END_NET_WORK
END_BODY

Corps en ST

IF (bStart) then
    FP_MOD_BCD(s1 := dwDividend, 
                   s2 := dwDivisor,  
                   d => dwRemainder);
END_IF;