Dim Dimmen as Byte
$crystal = 8000000

Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Prescale = 64 ----> entspricht etwa 245 Hz
Pwm1a = 0
Enable Timer1
Enable Interrupts

If Pind.7 = 0 Then
For Dimmen = 0 to 255 ----------> von dunkel nach hell
Pwm1a = Pwm1a+1
waitms 10
next ---------->dauert 255 * 10 ms = 2,55 sek
end if
If Pind.6 = 0 Then
For Dimmen = 255 to 0 ----------> von hell nach dunkel
Pwm1a = Pwm1a-1
waitms 10
next
end if

Das gilt für 8MHz Quarz. Bei anderem Quarz, Timer1 ändern, damit etwa 245Hz rauskommen