ASCII -> conversione BCD
Questa istruzione FP converte i codici esadecimali ASCII in s1_Start in caratteri BCD se il trigger EN è TRUE. s2_Control specifica il numero di byte da convertire e la direzione di conversione.
Il risultato viene memorizzato in d.
Ingresso
Indirizzo iniziale
Numero di byte e direzione di conversione
Uscita
Byte convertiti
Specificazione del codice di controllo s2_Control
16 bit: 1–2 byte da convertire
32 bit: 1–4 byte da convertire
0: avanti
1: inverso
I due caratteri che creano un byte vengono scambiati una volta memorizzati. I due byte vengono convertiti come un segmento di dati.
Direzione in avanti:
Direzione inversa:
Codici ASCII HEX per esprimere caratteri BCD:
Caratteri BCD |
Codice ASCII HEX |
---|---|
0123456789 |
16#30 16#31 16#32 16#33 16#34 16#35 16#36 16#37 16#38 16#39 |
EsempioDato a 16 bit con segno/senza segno, direzione avanti, 4 caratteri
Offset |
Codici ASCII |
Equivalente BCD |
Offset |
Caratteri BCD convertiti |
|||
s1_Start |
0 |
16#3231 |
21 |
Þ |
d |
0 |
16#3412 |
1 |
16#3433 |
3 |
1 |
||||
s2_Control |
16#0004 |
Esempiodato a 16 bit, direzione inversa, 4 caratteri
Offset |
Codici ASCII |
Equivalente BCD |
Offset |
Caratteri BCD convertiti |
|||
s1_Start |
0 |
16#3231 |
21 |
Þ |
d |
0 |
16#1234 |
1 |
16#3433 |
43 |
1 |
||||
s2_Control |
16#1004 |
Esempiodato a 32 bit, direzione avanti, 8 caratteri
Offset |
Codici ASCII |
Equivalente BCD |
Offset |
Caratteri BCD convertiti |
|||
s1_Start |
0 |
16#3231 |
21 |
Þ |
d |
0 |
16#3412 |
1 |
16#3433 |
3 |
1 |
16#7856 |
|||
2 |
16#3635 |
65 |
2 |
||||
3 |
16#3837 |
87 |
3 |
||||
s2_Control |
16#0008 |
Esempiodato a 32 bit, direzione inversa, 8 caratteri
Offset |
Codici ASCII |
Equivalente BCD |
Offset |
Caratteri BCD convertiti |
|||
s1_Start |
0 |
16#3231 |
21 |
Þ |
d |
0 |
16#5678 |
1 |
16#3433 |
43 |
1 |
16#1234 |
|||
2 |
16#3635 |
65 |
2 |
||||
3 |
16#3837 |
87 |
3 |
||||
s2_Control |
16#1008 |
Esempiodato a 32 bit, direzione inversa, 7 caratteri
Se viene convertito un numero dispari di caratteri, 0 verrà immesso per la posizione bit 0-3 dell’ultimo byte convertito se la direzione di conversione è “avanti”. Se la direzione di conversione è “inversa”, 0 verrà immesso per la posizione bit 4–7:
Offset |
Codici ASCII |
Equivalente BCD |
Offset |
Caratteri BCD convertiti |
|||
s1_Start |
0 |
16#3231 |
21 |
Þ |
d |
0 |
16#4567 |
1 |
16#3433 |
43 |
1 |
16#0123 |
|||
2 |
16#3635 |
65 |
2 |
||||
3 |
16#3837 |
87 |
3 |
||||
s2_Control |
16#1007 |
se l'area specificata utilizzando il registro indice eccede il limite.
se vengono specificati caratteri ASCII diversi da 16#30–16#39
se il numero di byte specificato da s2_Control è maggiore rispetto all'area specificata da s1_Start
se il risultato di conversione è maggiore rispetto all'area dati specificata da d
se s2_Control = 0
se la direzione di conversione è fuori intervallo
se il numero di byte specificato in s2_Control è maggiore di 8
se l'area specificata utilizzando il registro indice eccede il limite.
se vengono specificati caratteri ASCII diversi da 16#30–16#39
se il numero di byte specificato da s2_Control è maggiore rispetto all'area specificata da s1_Start
se il risultato di conversione è maggiore rispetto all'area dati specificata da d
se s2_Control = 0
se la direzione di conversione è fuori intervallo
se il numero di byte specificato in s2_Control è maggiore di 8
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 function*)
wASCIIInput: WORD:=16#3031;
wControlCode: WORD:=16#2;
(*specifies the operation:
digit 0: the number of bytes
to convert
digit 1,2: has to be zero
digit 3: nomal or reverse direction*)
wConversionResult: WORD:=0;
(*result after a 0->1 leading
edge from start:
[16#2033,0]*)
END_VAR
Quando la variabile bStart è impostata su TRUE, la funzione viene eseguita. Due caratteri del valore di ingresso ASCII vengono convertiti in direzione in avanti
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,,bStart,5,2,7,4,);
B(B_VARIN,,wASCIIInput,11,3,13,5,);
B(B_VARIN,,wControlCode,11,4,13,6,);
B(B_VAROUT,,wConversionResult,23,3,25,5,);
B(B_F,FP_ASCII_TO_BCD!,,13,1,23,6,,?DEN?Ds1_Start?Ds2_Control?AENO?Cd);
L(1,3,5,3);
L(7,3,13,3);
L(1,0,1,6);
END_NETWORK_BODY
END_NET_WORK
END_BODY
if bStart then
FP_ASCII_TO_BCD(s1_Start := wASCIIInput,
s2_Control := wControlCode,
d => wConversionResult);
END_IF;