Bytes zerlegen

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

Code:

---

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

---

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

Eine andere Variante:

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

Code:

---

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.

@PicNick

Hallo Robert,

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

Diese Definition

Zitat:

---

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

Na, na :oops:

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