Bytes zerlegen

[PicNick]

Gut, heut' lassen wir's krachen: Einer geht noch

Dim X(8) As Byte
Dim Z As String * 8 At X Overlay

Y = &B11001100
Z = Bin(y)

For I = 1 To 8 Step 1
      X(i) = X(i) And 1
Next

[Murus]

Ja dann kann ichs ja mit dem Bin machen!

Y=&B11001100
M=bin(y)

For i=1 to 8
O=mid (m, i, 1)
U=Val(o)
X(I)=U
Next

So gehts dann ja auch... der Compiler frisst das, testen muss ich noch.

Herzliche Grüsse und Danke
Mario

[oe9vfj]

Eine andere Variante:

Im Code ist ein Beispiel mit LSB First und eiens mit MSB first.

Dim b1 as Byte

dim b2(8) as Byte
Dim i as  Byte, j as Byte

b1 = &H55        ' Test Wert

' LSB zuerst in das Array

For i = 0 to 7
   j = i + 1
   b2(j) = b1.i
next



Print b2(1); " " ; b2(2) ; " " ; b2(3) ; " " ; b2(4); " " ; b2(5); " " ; b2(8); " " ; b2(7); " " ; b2(8)



' MSB zuerst in das Array

For i = 0 to 7
   j = 8 - i
   b2(j) = b1.i
next

Print b2(1); " " ; b2(2) ; " " ; b2(3) ; " " ; b2(4); " " ; b2(5); " " ; b2(8); " " ; b2(7); " " ; b2(8)

Bei dem Code ist zu beachten, dass die Bit-Zählung mit 0 beginnt und die Zeichenzählung im Array mit 1.

[schmic20]

@PicNick

Hallo Robert,

die Lösung ist super. *Meinen Hut zieh und in den Staub versinke*

Diese Definition

Dim Z As String * 8 At X Overlay

kannte ich noch nicht. Mein Bascom schmeißt darüber in der Hilfe nichts raus.
Woher hast du das?

Viele Grüße
Michael

[PicNick]

Na, na

"language fundamentals" u. "DIM" , ich stöbere öfters in sowas rum.