Hallo Günter,
habe eben einmal das Programm in den Atmega8 geladen.
Doch da tut sich nichts.
Kanst Du das einmal bei Dir gegen. checken um heraus zu finden ob es bei mir oder anm Programm liegt. ?

Ziel ist es -- nach einander -- 24 oder mehr leds zu faden.
Einen bekomme ich hin aber nicht mehr ;-(
hier mein Programm

$regfile = "m8def.dat"
$crystal = 1000000 ' interner RC Oszillator

Dim A As Word
Dim B As Word
Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Down , Prescale = 1

Config Pinb.15 = Output

Do

For A = 255 To 10 Step -10
Pwm1a = A
Waitms 50
Next

For A = 10 To 255 Step 10
Pwm1a = A
Waitms 50
Next

Loop
End

Uwe