Hallo,
habs jetzt endlich geschafft, eine PWM zu erschaffen.
Code:
$regfile = "m32def.dat"
$crystal = 4000000
$baud = 9600
Dim A As Word
Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down , Prescale = 8
Config Pind.5 = Output
do
For A = 0 To 511 Step 1
Pwm1a = A
Waitms 7
Next
For A = 511 To 0 Step -1
Pwm1a = A
Waitms 7
Next
loop
End
Damit versuche ich, ne LED erst hoch- und dann wieder runterzudimmen, aber leider funktioniert das nicht, ich glaube ich hab da einen Denkfehler, denn die LED dimmt zwar hoch, aber dann dimmt sie manchmal nicht mehr runter, also es ist kein gleichmäßiges Fading...
Hoffe mir kann wer helfen.
Gruß
zebrafalke
Lesezeichen