Umwandlung ASCII -> BCD
Dieser FP-Befehl wandelt den hexadezimalen ASCII-Code des Datenbereichs mit der Anfangsadresse s1_Start in BCD-Zeichen um, wenn der Trigger EN auf TRUE gesetzt ist. s2_Control legt die Anzahl der umzuwandelnden Bytes und die Umwandlungsrichtung fest.
Das Ergebnis wird in d gespeichert.
Eingang
Anfangsadresse
Anzahl der Bytes und Umwandlungsrichtung
Ausgang
Umgewandelte Bytes
Spezifikationen für den Steuercodes2_Control
16-bit: 1–2 Byte umzuwandeln
32-bit: 1–4 Byte umzuwandeln
0: vorwärts
1: rückwärts
Die beiden Zeichen, die ein Byte darstellen, werden bei der Speicherung vertauscht. Zwei Bytes werden als ein Datensegment umgewandelt.
Vorwärtsrichtung:
Rückwärtsrichtung:
ASCII HEX-Code zur Darstellung der BCD-Zeichen:
BCD-Zeichen |
ASCII HEX-Code |
---|---|
0123456789 |
16#30 16#31 16#32 16#33 16#34 16#35 16#36 16#37 16#38 16#39 |
Beispiel Vorzeichenbehaftete/vorzeichenlose 16-Bit-Daten, Vorwärtsrichtung, 4 Zeichen
Offset |
ASCII-Code |
BCD-Code |
Offset |
Umgewandelte BCD-Zeichen |
|||
s1_Start |
0 |
16#3231 |
21 |
Þ |
d |
0 |
16#3412 |
1 |
16#3433 |
3 |
1 |
||||
s2_Control |
16#0004 |
Beispiel 16-Bit-Daten, Rückwärtsrichtung, 4 Zeichen
Offset |
ASCII-Code |
BCD-Code |
Offset |
Umgewandelte BCD-Zeichen |
|||
s1_Start |
0 |
16#3231 |
21 |
Þ |
d |
0 |
16#1234 |
1 |
16#3433 |
43 |
1 |
||||
s2_Control |
16#1004 |
Beispiel 32-Bit-Daten, Vorwärtsrichtung, 8 Zeichen
Offset |
ASCII-Code |
BCD-Code |
Offset |
Umgewandelte BCD-Zeichen |
|||
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 |
Beispiel 32-Bit-Daten, Rückwärtsrichtung, 8 Zeichen
Offset |
ASCII-Code |
BCD-Code |
Offset |
Umgewandelte BCD-Zeichen |
|||
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 |
Beispiel 32-Bit-Daten, Rückwärtsrichtung, 7 Zeichen
Wenn eine ungerade Anzahl von Zeichen umgewandelt wird, wird "0" für die Bitposition 0 bis 3 des letzten umgewandelten Byte eingegeben, wenn die Umwandlung in Vorwärtsrichtung erfolgt. Bei der rückwärtigen Umwandlung wird "0" für die Bitposition 4–7 eingegeben:
Offset |
ASCII-Code |
BCD-Code |
Offset |
Umgewandelte BCD-Zeichen |
|||
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 |
wenn der mit dem Index-Modifizierer definierte Bereich größer ist als der zulässige Bereich
wenn andere ASCII-Zeichen als 16#30–16#39 festgelegt sind
wenn die durch s2_Control festgelegte Bytezahl den in s1_Start festgelegten Speicherplatz überschreitet
wenn das Ergebnis der Umwandlung größer ist als der Datenbereich d
wenn s2_Control = 0
wenn die Umwandlungsrichtung außerhalb des zulässigen Bereichs liegt
wenn die in s2_Control festgelegte Bytezahl größer als 8 ist
wenn der mit dem Index-Modifizierer definierte Bereich größer ist als der zulässige Bereich
wenn andere ASCII-Zeichen als 16#30–16#39 festgelegt sind
wenn die durch s2_Control festgelegte Bytezahl den in s1_Start festgelegten Speicherplatz überschreitet
wenn das Ergebnis der Umwandlung größer ist als der Datenbereich d
wenn s2_Control = 0
wenn die Umwandlungsrichtung außerhalb des zulässigen Bereichs liegt
wenn die in s2_Control festgelegte Bytezahl größer als 8 ist
Im POE-Kopf werden alle Ein- und Ausgangsvariablen deklariert, die für die Programmierung dieser Funktion verwendet werden. Für alle Programmiersprachen wird der gleiche POE-Kopf verwendet.
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
Wenn die Variable bStart auf TRUE gesetzt wird, wird die Funktion ausgeführt. Zwei Zeichen des ASCII-Eingangswerts werden in Vorwärtsrichtung umgewandelt.
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;