hehe! schon! aber ich hab glaube ich einen code gefunden, mit dem es funzen könnte:
Code:
Dim I As byte
  Config Pinb.1 = Output
  Config Pinb.2 = Output
  Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Up , Prescale = 1

Do
For I = 0 To 255 step 1
  Compare1a = I
  Compare1b = I
Waitms 200
Next I
Loop
MFG

NRG