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
Lesezeichen