Ich hab gerade von jemanden eine antwort auf ne PN bekommen:

Zitat:
ich hab das ganze mit nem Mega8 gemacht. An dessen Ports (PC0 - PC5) habe ich über 10 kOhm-Widerstände den Treiberbaustein ULN2803 (Besteht aus 8 NPN-Transistoren, hab aber nur 6 davon benutzt) angeschlossen und an die Collector-Ausgänge der Transistoren meine LED´s über Vorwiderstände an + gehängt.

Dann brauchst du eigentlich nur noch folgenden Code (den du evtl. noch an deine Schaltung anpassen musst), und es kann losgehen:

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

Ddrc = &B11111111
Portd = &B00000000


Do

If Pind.2 = 1 Then
Portc.0 = 1
Waitms 50
Portc.1 = 1
Waitms 50
Portc.2 = 1
Waitms 50
Portc.3 = 1
Waitms 50
Portc.4 = 1
Waitms 50
Portc.5 = 1
Waitms 50

End If


If Pind.2 = 0 Then
Portc.5 = 0
Waitms 50
Portc.4 = 0
Waitms 50
Portc.3 = 0
Waitms 50
Portc.2 = 0
Waitms 50
Portc.1 = 0
Waitms 50
Portc.0 = 0
Waitms 50

End If

Loop

wäre das ne möglichkeit? wenn das ein wenig umgeschrieben wird?

Kann mir auch einer sagen was genau ich alles brauche (Hadware).

Edit:

@sdz55
es soll aber solange an bleiben, bis ich es aus mache.