Resto di una divisione fra dati BCD
Questa istruzione FP calcola il resto di una divisione fra dati BCD in cui il valore specificato da s1 viene diviso per s2. Il resto viene memorizzato in d.
Ingresso
Dividendo, divisore
Uscita
Resto
Istruzioni F corrispondenti: F52_BDIV Divisione BCD a 4 cifre, destinazione specificabile, F53_DBDIV Divisione BCD a 8 cifre, destinazione specificabile
Tutte le variabili di ingresso e uscita utilizzate per programmare questa funzione sono state dichiarate nell'intestazione del POU. La stessa intestazione del POU è utilizzata per tutti i linguaggi di programmazione.
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
Quando la variabile bStart è impostata su TRUE, la funzione viene eseguita.
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
IF (bStart) then
FP_MOD_BCD(s1 := dwDividend,
s2 := dwDivisor,
d => dwRemainder);
END_IF;