Hi,

Code:
$regfile = "attiny2313.dat"
$crystal = 4000000

Config Portb.2 = Output

Config Timer0 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Prescale = 1

Dim Hochdimmen As Byte
Dim Runterdimmen As Byte

Helligkeit Alias Pwm0a

Do

   For Hochdimmen = 1 To 255
      Helligkeit = Hochdimmen
      Waitms 10
   Next

   Wait 10

   For Runterdimmen = 1 To 255
      Helligkeit = 255 - Runterdimmen
      Waitms 10
   Next

Loop

End
Die 10 ms sind jetzt aber nur geschätzt, da müsste man schon die Schaltung zuerst aufbauen, und sich dann langsam an den Wert rantasten, der einem am meisten zusagt.