Bascom PWM Problem

[Pascal B. (mini12345)]

Hallo, ich uss euch was fragen.
Ich übe gerade ein wenig mit PWM und will das ja auch verstehen.

mein Code:

$crystal = 1000000                                          'Frequenz: 1 MHz

$swstack = 50
$hwstack = 50
$framesize = 50

Config Portb.1 = Output

Config Timer1 = Pwm , Pwm = 8 , Prescale = 8 , Compare A Pwm = Clear Up

Dim A As Integer

Do
For A = 0 To 1023
  Compare1a = A
  Waitms 10
Next
A = 0
Wait 10

Loop
End

Nach meiner Meinung sollte die LED hell werden dann 10 Sekunden aus usw.

Aber die LED geht 4 mal von dunkel nach hell und bleibt dann 10 Sekunden 
an oO...
Kann mir dass einer erklären? in meinem Buch ist das für mich nicht 
verständlich erklart ( Bascombuch Stefan Hoffmann)
Danke
MFG Pascal

[Samuel C. (dragonsam)]

Du setzt zwar A auf 0, jedoch, das Compare-Register nicht.

[MWS (Gast)]

Pascal B. schrieb:
> Aber die LED geht 4 mal von dunkel nach hell und bleibt dann 10 Sekunden
> an oO...

Wenn man 10 Bit

For A = 0 To 1023

in 8 Bit reinschreibt, dann laufen die 8Bit eben 4 mal über.

Pwm = 8

Nach Ende des Durchlaufs wird A zwar auf 0 gesetzt, aber das eigentlich 
wichtige Compare1-Register bekommt davon nichts mit.

Ich hoff' mal, dass das nicht so im Buch steht.

[Pascal B. (mini12345)]

nein steht so nicht drin, ist eine Übung von mir.
Das mit dem Überlaufen klingt logisch....

$crystal = 1000000                                          'Frequenz: 1 MHz

$swstack = 50
$hwstack = 50
$framesize = 50

Config Portb.1 = Output

Config Timer1 = Pwm , Pwm = 10 , Prescale = 8 , Compare A Pwm = Clear Up

Dim A As Integer

Do
For A = 0 To 1023
  Compare1a = A
  Waitms 2
Next
Compare1a = 0
A = 0
Wait 10

Loop
End

so funktioniert es , danke für die hilfe