Hallo robert,

Gebastelt, verworfen, geb.... usw. Jetz nur noch ein ULN2803 mit Fet davor.
Den vorherigen Fehler denke ich gefunden zu haben, aber jetzt gehts so.
Ist was bei rausgekommen was für das geforderte den zweck erfüllt,
naja 24 1/2 LEDs die erste will nicht, ist aber bestimmt zu verbessern.
Also 2xmal bauen.

Du kanst ja wenn Du lust hast mal nen Blick drauf werfen und ein paar
Anregungen geben. So von wegen Lerneffekt.

Code:
$regfile = "M8def.dat"
$crystal = 16000000
$hwstack = 50
$swstack = 10
$framesize = 40

Ddrb = &B00011111
Ddrc = &B00000001
Ddrd = &B00011111

Portb = &B00000001
Portd = &B00000001

Dim Z As Integer
Dim Z1 As Integer
Dim Z2 As Integer
Dim A(25) As Byte
Dim B(25) As Byte
Dim C As Byte
Dim X As Byte
Dim Y As Byte

Config Adc = Single , Prescaler = Auto
Start Adc
Config Timer0 = Timer , Prescale = 8
Enable Timer0
Enable Interrupts
On Ovf0 Test

Do

   Z1 = Getadc(5)
   Z2 = Getadc(4) / 20
   For Y = 1 To 25
      A(y) = Rnd(z2)
   Next

Loop

Test:
Portc.0 = 0							'FET
Incr Z : If Z > Z1 Then Z = 0
Incr X : If X => 25 Then X = 0
If B(x) < 1 Then B(x) = 1 : Decr B(x)

Portb = Portb * 2 : If Portb => 32 Then Portd = Portd * 2
If Portb => 32 Then Portb = 1
If Portd => 32 Then Portd = 1

If B(x) > 0 Then Portc.0 = 1 Else Portc.0 = 0
If Z = 0 Then C = Memcopy(a(1) , B(1) , 25)

Return
Ich würde gerne ausser den zwei Potis noch einen Schalter in die Kiste bauen
um Prescale von timer0 über einen Schalter festzulegen. (vor dem Einschalten)
Ich habe Testweise eine Variable ausprobiert, gibt aber eine Fehlermeldung.
Weil dann kann man alles einstellen, von ruhigem Wandbild bis Techno. Bild  

Läst sich das irgendwie machen ?


Gruss Achim