Hallo,

Ich hab mir gesetrn mal auß Spaß so einen kleinen 3x3x3 Led Würfel gebaut.
Der Würfel wir auf den 3 ebenen gemultiplext.
Ich bin ziehmlicher anfänger auf dem Gebiet der uC programmierung, hab nur am Pc in Basic was gemacht.
Ich würde den Würfel gerne über solche
Tabellen steuern in der Form:
&b000,&b000, &b000, &b000, &b000 ,&b000, &b000 ,&b000, 5000

Immer eine Zeile mit 3 leds wird angegebnen also ingesamt 27
und die 5000 ist die anzeigedauer in millisekunden. Die Anschlussbelegung wird aus dem Code ersichtlich. Mit dem Code gehen aber nur alle LED's an und es tut sich sonst nichts. Wie muss der Code aussehen damit das funktioniert?

Lukas

Code:
$regfile = "m16def.dat"
$framesize = 32
$swstack = 32
$hwstack = 32
$crystal = 16000000
$baud = 9600

Config Porta = Output
Config Portc = Output

Gnd1 Alias Portc.2
Gnd2 Alias Portc.1
Gnd3 Alias Portc.0

Ledvornlinks Alias Porta.0
Ledvornmitte Alias Porta.1
Ledvornrecht Alias Porta.2

Ledmittelinks Alias Porta.3
Ledmittemitte Alias Porta.4
Ledmitterecht Alias Porta.5

Ledhintenlinks Alias Portc.7
Ledhintenmitte Alias Portc.6
Ledhintenrecht Alias Portc.5
'ebene 0 ist an
'led 1 ist an
Porta = 0
Gnd1 = 1
Gnd2 = 1
Gnd3 = 1



Dim Temp As Word
Temp = 0

Do


                                           ' das ergebnis 1-16 ---> 0 - 15 (s.o.)
Temp = Temp * 9                                             ' wie gehabt
Porta = Lookup(temp , Daten) ; Lookup(temp -1 , Daten)      ' die erste Spalte
Incr Temp
                                                    
Incr Temp
Portc = Lookup(temp , Daten)                                
Incr Temp
Gnd1 = 0
Gnd2 = 1
Gnd3 = 1
Porta = Lookup(temp , Daten)                                
Incr Temp
Porta = Lookup(temp , Daten)                              
Incr Temp
Porta = Lookup(temp , Daten)                               
Incr Temp
Gnd1 = 1
Gnd2 = 0
Gnd3 = 1
Porta = Lookup(temp , Daten)                              
Incr Temp
Porta = Lookup(temp , Daten)                               
Incr Temp
Porta = Lookup(temp , Daten)                               
Incr Temp
Gnd1 = 1
Gnd2 = 1
Gnd3 = 0

Temp = Temp + 1


Loop



Daten:
Data &B000 , &B000 , &B000 , &B000 , &B000 , &B000 , &B000 , &B000 , &B000 , 1000
Data &B010 , &B010 , &B010 , &B010 , &B010 , &B010 , &B010 , &B010 , &B010 , 1000
Data &B100 , &B100 , &B100 , &B100 , &B100 , &B100 , &B100 , &B100 , &B100 , 1000
Data &B001 , &B001 , &B001 , &B001 , &B001 , &B001 , &B001 , &B001 , &B001 , 1000
Data &B000 , &B111 , &B000 , &B000 , &B111 , &B000 , &B000 , &B100 , &B000 , 1000