Divisione BCD a 4 cifre, destinazione specificabile
La costante equivalente BCD a 4 cifre o l'area a 16 bit per dati BCD a 4 cifre specificata da s1 viene divisa per la costante equivalente BCD a 4 cifre o l'area a 16 bit per dati BCD a 4 cifre specificata da s2 se il trigger EN è in stato TRUE.
Ingresso
Dividendo, area a 16 bit per dati BCD o costante equivalente BCD a 4 cifre
Divisore, area a 16 bit per dati BCD o costante equivalente BCD a 4 cifre
Uscita
Quoziente, area a 16 bit per dati BCD (resto memorizzato nella variabile di sistema sys_iDivRemainder)
Il quoziente viene memorizzato nell'area specificata da d mentre il resto viene memorizzato nella variabile di sistema sys_iDivRemainder.
se il risultato del calcolo è 0.
Anziché utilizzare questa istruzione F, si consiglia di utilizzare l'istruzione FP7 corrispondente: FP_MOD_BCD Resto di una divisione fra dati BCD, FP_DIV_MOD_BCD Divisione fra dati BCD con resto, FP_DIV_BCD Divisione fra dati BCD
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
start: BOOL:=FALSE;
(*activates the fuction*)
dividend: WORD:=16#0037;
(*dividend*)
divisor: WORD:=16#0015;
(*divisor*)
output_value: WORD:=0;
(*result after 0->1 leading edge
from start: 16#0002*)
END_VAR
Quando la variabile start è 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_CONTACT,,start,5,1,7,3,);
B(B_VARIN,,dividend,7,2,9,4,);
B(B_VARIN,,divisor,7,3,9,5,);
B(B_VAROUT,,output_value,15,2,17,4,);
B(B_F,F52_BDIV!,Instance,9,0,15,5,,?DEN?D@'s1'?Ds2?AENO?Cd);
L(1,2,5,2);
L(7,2,9,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
END_BODY
IF start then
F52_BDIV(dividend, divisor, output_value);
END_IF;
LD |
start |
(* EN = start; Starting signal for the F52_BDIV function. *) |
F52_BDIV |
dividend, divisor, output_value |
(* s1 = dividend (source1) *) (* s2 = divisor (source2) *) (* d = output_value (destination) *) |
(* s1 / s2 = d *) |
||
ST |
out |
(* option *) |