Ähhh, noch was!

Hab hier noch ein vereinfachtes Listing gefunden, was ich mal in einer XBox verbaut habe!

Hat 8 Kanäle (kannste ja auf 4 reduzieren) und läuft nur vorwärts und rückwärts mit der Random Funktion (also zufällig)

Code:
'************************************************************
'Name                : X-Box Logo.bas
'Purpose             : Beleuchtung Lauflicht um das Logo
'Version             : V0.01
'Compiler            : Bascom AVR 1.11.7.4
'Hardware            : LED's an PB 0-7
'Chip type           : AT90S2313
'History
'************************************************************
$regfile = "2313def.dat"                                    'AT90S2313
$crystal = 4000000
Ddrd = &B1111111                                            '7 Ausgänge PortD auf Masse


Config Portb = Output                                       'Pin PB0-7 Ausgang
Dim A As Byte
Dim I As Byte
Dim J As Byte
Dim K As Integer

Do
K = Rnd(15)
For J = 1 To K
Restore Vor
  For I = 1 To 8                                            'Lese nächsten Wert
    Read A                                                  'Setze Port
    Portb = A
    Waitms 80
  Next I
Next J
K = Rnd(15)
For J = 1 To K
Restore Rueck
  For I = 1 To 8                                            'Lese nächsten Wert
    Read A                                                  'Setze Port
    Portb = A
    Waitms 80
  Next I
Next J

Loop


Vor:
Data 254 , 253 , 251 , 247 , 239 , 223 , 191 , 127,         '8  12345678 einzeln

Rueck:
Data 127 , 191 , 223 , 239 , 247 , 251 , 253 , 254          '8  87654321 einzeln
So... mehr hab ich aber jetzt nicht dazu!