Also, jetzt mal der direkte Versuch:
Hier kommt noch ein struberes Resultat.
Ich habe in einem Array(q(i)) normale Dezimalzahlen gespeichert (kleiner 255). Diese möchte ich in Binärcode umwandeln und danach jedes Bit in ein anderes Array schreiben.

Hier mal der Code:

For I=1 To L (L ist die Anzahl der belegten Plätze im Array q(i))
M=bin(q(i))

For R=1 To 8
O=mid(m, R, 1)
U=Val(o)
B=A+8
B=B+R
X(b)=U
Next R
A=A+8

Next I

Die erste For Schleife wählt mir die Zahl aus und verwandelt sie in Binärcode. Dann, in der zweiten Schlaufe wird die Binärzahl in ihre Bits zerlegt und jedes Bit einzeln gespeichert (B und A dienen dazu, erst ab X(9) zu speichern, da X(1)-X( schon belegt sind)

Nur: Da werden nur Nullen gespeichert.....

Herzlichen Gruss
Mario