Aus reinen Test- bzw. Lernzwecken wäre es schön ein kleines LED Fader Prog für die RN-Control zu haben.

Dazu hat Uwe DK1KQ vor einer Weile schonmal was geschrieben, nämlich diesen Code hier, ich habe lediglich ein paar Sachen an die RN-Control angepasst.

Bei mir leuchtet die LED jedoch einfach nur auf, kein Fading. Was stimmt nicht??

### Korrigiert

$regfile = "m32def.dat"
$crystal = 16000000

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 Pind.5 = 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