hallo

glaube du machst es einfach zu kompleziert geht auch einfacher:

Code:
 Dim A As Word

Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down , Prescale = 8

Config Pinb.1 = Output

do

For A = 0 To 511
 Pwm1a = A
 Waitms 20

Next

loop
end
oder um nur a zu bestimmen schreibste einfach

a = 255


probiers einfach mal so

gruß
patrick