Eine Byte Variable aufteilen in einzelne 8 Bits

[NXTman]

Ja Radbruch ich bin der selbe, nur irgendwie versteh ichs selber nicht, egal..
Ich habe den alten code aus reinem Zufall(!) wieder gefunden, weil ich sehr ausgiebig im Forum nach ledmatrix gesucht habe gefunden.
Also das Thema, das radbruch genannt hat.

Ich habe den Code auf meine aktuelle Matrix angepasst und noch ein bisschen "optimiert".
So sieht er aus:

$regfile = "m8def.dat"
$crystal = 1000000

Config Portb = Output
Config Portd = Output

'Spalte Alias Portd
'Zeile  Alias Portb

Declare Sub Zeilensetzen

Dim Bildspeicher(8) As Byte , Spalte As Byte , Temp As Byte

Bildspeicher(1) = Bits(0 , 1 , 2 , 3 , 4 , 5 , 6 , 7)
Bildspeicher(2) = Bits(0 , 1 , 7)
Bildspeicher(3) = Bits(0 , 2 , 7)
Bildspeicher(4) = Bits(0 , 3 , 7)
Bildspeicher(5) = Bits(0 , 4 , 7)
Bildspeicher(6) = Bits(0 , 5 , 7)
Bildspeicher(7) = Bits(0 , 6 , 7)
Bildspeicher(8) = Bits(0 , 1 , 2 , 3 , 4 , 5 , 6 , 7)

Spalte = 1

Do
   Select Case Spalte
      Case 1 : Reset Portd.7
               Zeilensetzen
               Set Portd.0

      Case 2 : Reset Portd.0
               Zeilensetzen
               Set Portd.1

      Case 3 : Reset Portd.1
               Zeilensetzen
               Set Portd.2

      Case 4 : Reset Portd.2
               Zeilensetzen
               Set Portd.3

      Case 5 : Reset Portd.3
               Zeilensetzen
               Set Portd.4

      Case 6 : Reset Portd.4
               Zeilensetzen
               Set Portd.5

      Case 7 : Reset Portd.5
               Zeilensetzen
               Set Portd.6

      Case 8 : Reset Portd.6
               Zeilensetzen
               Set Portd.7
   End Select

   If Spalte <= 8 Then Spalte = Spalte + 1 Else Spalte = 1

   Waitus 500

   'hier kann man dann das Bild zusammenbasteln

Loop

End

Sub Zeilensetzen
   Portb = Bildspeicher(spalte) And 255
End Sub

Zeigt genau das, was sie zeigen soll.

Gruß nxtman

#####Edit####

Frage: Kann ich in Bascom eine Schleife machen, die ungefähr eine Sekunde läuft?