Das hier wäre der Code für eine 8x8 Matrix.
Wie gesagt: Es ist wichtig, dass du verstehst was passiert.
[code:1]$regfile = "2313def.dat"
$crystal = 8000000
$hwstack = 32
$swstack = 10
$framesize = 40
Config Portb = Output
Config Portd = Output
Dim Warten As Byte
Dim A As Byte
Dim B as Byte
Do 'Endlosschleife
B = 1 'Erste Zeile wählen
While B < 128 '128 wären 8 Zeilen
PortD = B
A = 1 'erstmal das erste Lichtlein anmachen
While A < 128 'solange das letzte Licht (Nr. nicht an war -> Schleife
PortB = A 'die LEDs anschalten, die binär A entsprechen
A = A * 2 'da immer nur eine LED leuchten soll, mit 2 multiplizieren
Waitms 30 'etwas warten, damit mans sehen kann
Wend 'wieder in die Schleife
B = B * 2
wend
Loop 'Endlosschleife[/code:1]