Step 7 Zahlen aus Byte in Char

NWGauggelTech · 12 Januar 2017

Hallo,
Ich habe die Aufgabe ein Datum welches in einem Byte steht in zwei Char zu schieben.
Beispiel:
Ist Zustand = DB100.DBB0 Byte B#16#12
Soll Zustand = DB101.DBB0 Char '1' DB101.DBB1 Char '2'
ich habe bereits einige Versuche unternommen das so hinzu bekommen aber bin immer wieder gescheitert.

Danke schonmal im Voraus für eure Hilfe !!

DeltaMikeAir · 12 Januar 2017

Schau mal hier:
INT oder DINT in CHAR/BYTE Umwandeln

Mit Grüßen

PN/DP · 12 Januar 2017

Einfach die beiden Nibble des BYTE getrennt in je ein ASCII-Zeichen wandeln.

Allgemein:
Char1 := ((Bit7..Bit4) 4 Bit rechts Shift) + 16#30
Char2 := (Bit3..Bit0) + 16#30

Als Formel:

Code:

Char1 := SHR(InByte, 4) OR '0' ;
Char2 := (InByte AND 16#F) OR '0' ;

Harald

JoopB · 12 Januar 2017

Code:

L DB100.DBB0          // ZB 12
SRW4                      // 12 WURDE 1
L B#16#30             // '0'
OW                          // '1'
T DB101.DBB0         // '1'


L DB100.DBB0    // HEX 12
L B#16#F          // HEX F
UW                   // HEX 2
L B#16#30       // '0'
OW                    // '2' = HEX2
T DB101.DBB1    // '2'

Joop

NWGauggelTech · 13 Januar 2017

Danke für die Antworten!
Es Funktioniert auch teilweise, aber wenn ich die Hex zahlen aus dem DB lese klappt es nicht es funktionierte nur wenn ich die Zahlen direkt in die Anweisung schreibe

PN/DP · 13 Januar 2017

In Deinem DB898.DBB160 steht ja auch nicht 16#12 drin sondern 12 dezimal (16#0C).
Abhilfe: Du könntest den Wert mit ITB nach BCD wandeln.

Harald

Step 7 Zahlen aus Byte in Char

NWGauggelTech

Level-1

DeltaMikeAir

User des Jahres 2018; 2023

PN/DP

User des Jahres 2011-2013; 2015-2017; 2020-2022

JoopB

Level-2

NWGauggelTech

Level-1

Anhänge

PN/DP

User des Jahres 2011-2013; 2015-2017; 2020-2022

Similar threads

Wir schützen deine Privatsphäre