Software für LED Cube

[oZe]

So jetzt bin ich grade mal zuhause und habe die Software zur Hand von daher poste ich die jetzt schon mal.

Leider funktioniert das nicht so wie ich will. Normalerweise sollte jetzt LED 111 angehen (also x=1 y=1 z=1). Es gehen aber LED 111 und LED 112 an...

An der Hardware liegt es nicht (also keine lötbrücken o.ä.). Es liegt irgendwie an der Sub. Wenn ich den befehl LED_an(111) auskommentiere liegen alle Ports auf den gewünschten Zuständen (PA und PC auf 0 und PB und PD auf 1). Wo liegt mein Fehler?

$regfile = "m16def.dat"                                     'Mega 16 Def
$framesize = 32
$swstack = 32
$hwstack = 32
$baud = 9600


Config Porta = Output
Config Portb = Output
Config Portc = Output
Config Portd = Output

Porta = 0
Portc = 0

Portd = 1
Portb = 1

Declare Sub Led_an(byval Led As Integer)
Declare Sub Led_aus(byval Led As Integer)


Do

Call Led_an(111)

Loop


End


Sub Led_an(led As Integer)

Select Case Led

    Case 111 :
               Porta.0 = 1
               Portd.0 = 0
    Case 112 :
               Porta.0 = 1
               Portb.7 = 0
    Case 113 :
               Porta.0 = 1
               Portb.6 = 0
    Case 121 :
               Porta.1 = 1
               Portd.0 = 0
    Case 122 :
               Porta.1 = 1
               Portb.7 = 0
    Case 123 :
               Porta.1 = 1
               Portb.6 = 0
    Case 131 :
               Porta.2 = 1
               Portd.0 = 0
    Case 132 :
               Porta.2 = 1
               Portb.7 = 0
    Case 133 :
               Porta.2 = 1
               Portb.6 = 0




    Case 211 :
               Porta.3 = 1
               Portd.3 = 0
    Case 212 :
               Porta.3 = 1
               Portd.2 = 0
    Case 213 :
               Porta.3 = 1
               Portd.1 = 0
    Case 221 :
               Porta.4 = 1
               Portd.3 = 0
    Case 222 :
               Porta.4 = 1
               Portd.2 = 0
    Case 223 :
               Porta.4 = 1
               Portd.1 = 0
    Case 231 :
               Porta.5 = 1
               Portd.3 = 0
    Case 232 :
               Porta.5 = 1
               Portd.2 = 0
    Case 233 :
               Porta.5 = 1
               Portd.1 = 0





    Case 311 :
               Porta.6 = 1
               Portd.6 = 0
    Case 312 :
               Porta.6 = 1
               Portb.5 = 0
    Case 313 :
               Porta.6 = 1
               Portb.4 = 0
    Case 321 :
               Porta.7 = 1
               Portd.6 = 0
    Case 322 :
               Porta.7 = 1
               Portb.5 = 0
    Case 323 :
               Porta.7 = 1
               Portb.4 = 0
    Case 331 :
               Portc.7 = 1
               Portd.6 = 0
    Case 332 :
               Portc.7 = 1
               Portb.5 = 0
    Case 333 :
               Portc.7 = 1
               Portb.4 = 0

End Select

End Sub




Sub Led_aus(led As Integer)

Select Case Led

    Case 111 :
               Porta.0 = 0
               Portd.0 = 1
    Case 112 :
               Porta.0 = 0
               Portb.7 = 1
    Case 113 :
               Porta.0 = 0
               Portb.6 = 1
    Case 121 :
               Porta.1 = 0
               Portd.0 = 1
    Case 122 :
               Porta.1 = 0
               Portb.7 = 1
    Case 123 :
               Porta.1 = 0
               Portb.6 = 1
    Case 131 :
               Porta.2 = 0
               Portd.0 = 1
    Case 132 :
               Porta.2 = 0
               Portb.7 = 1
    Case 133 :
               Porta.2 = 0
               Portb.6 = 1




    Case 211 :
               Porta.3 = 0
               Portd.3 = 1
    Case 212 :
               Porta.3 = 0
               Portd.2 = 1
    Case 213 :
               Porta.3 = 0
               Portd.1 = 1
    Case 221 :
               Porta.4 = 0
               Portd.3 = 1
    Case 222 :
               Porta.4 = 0
               Portd.2 = 1
    Case 223 :
               Porta.4 = 0
               Portd.1 = 1
    Case 231 :
               Porta.5 = 0
               Portd.3 = 1
    Case 232 :
               Porta.5 = 0
               Portd.2 = 1
    Case 233 :
               Porta.5 = 0
               Portd.1 = 1





    Case 311 :
               Porta.6 = 0
               Portd.6 = 1
    Case 312 :
               Porta.6 = 0
               Portb.5 = 1
    Case 313 :
               Porta.6 = 0
               Portb.4 = 1
    Case 321 :
               Porta.7 = 0
               Portd.6 = 1
    Case 322 :
               Porta.7 = 0
               Portb.5 = 1
    Case 323 :
               Porta.7 = 0
               Portb.4 = 1
    Case 331 :
               Portc.7 = 0
               Portd.6 = 1
    Case 332 :
               Portc.7 = 0
               Portb.5 = 1
    Case 333 :
               Portc.7 = 0
               Portb.4 = 1

End Select

End Sub