Ich bins nochmal.
Besonders ärgerlich ist nun, dass die Invertierte Version meiner Idee funktioniert:
Nach dem Anschalten sind alle LEDs an und gehen nach und nach aus, bis alle 24 LEDs aus sind:

Code:
Do

Zufall:
For P = 1 to 24   '24 mal soll er es tun
N = Rnd(25)       ' Zufallszahl 0-24
N = N+1            'Addiere 1 dazu um eine Null zu vermeiden
If A.N = 1 Then  'Ist die gewünschte LED schon aus?
Goto Zufall        ' Wähle eine neue Zufallszahl
Else
A.N = 1             'Ansonsten schalte die LED aus
Gosub Portbestimmung
End IF
Wait 1              'Warte eine Sekunde
Next p

Loop
End
Um das ganze umzudrehen müsste ich doch nur ALLE LEDs am anfang Ausschalten und die LEDs EIN statt AUSschalten.
Das klappt aber nicht.

Weiß jemand warum?

alex