PWM dimmen in BASCOM-AVR

[Bascon-User (Gast)]

Hallo, ich möchte die PWM dimmen lassen.

Ich habe mit For Next versucht. Beim aufdimmen von dunkel nach hell 
klappt es. Wenn A 1023 erreicht ist, dann soll es umkehren von hell nach 
dunkel dimmen. Klappt aber nicht.

Hier die kurze Code.

$regfile="m8def.dat
$crystal=1000000

Config Timer1 = Pwm , Pwm = 10 , Compare A Pwm = Clear down , Prescale = 
1

Dim A as Integer

A=1

Do

For A=1 to 1023
Waitms 1
Next A

If A= 1023 then
For A=1023 to 1
Waitms 1
Next A
End if

Loop

[pacer (Gast)]

Hi,

hier beschäftigen sich nur wenige User mit Bascom.
Falls dir keiner weiterhelfen kann, versuch es mal hier:
http://www.roboternetz.de

die Leute dort programmieren hauptsächlich in Bascom.

[pacer (Gast)]

Ein Beispiel mit Timner findest du hier:
http://www.roboternetz.de/wissen/index.php/Bascom_und_PWM

[Gast (Gast)]

Ich kenne Bascom nicht.
Aber muß nicht hinter der Schleife vollgendes
stehen:

For A=1023 to 1 step -1
Oder gibt es das da nicht ?

[Bascon-User (Gast)]

Hallo, danke für die Antwort.

Ich habe es rausgefunden. Es funktioniert, was ich eigentlich will.

$regfile="m8def.dat
$crystal=1000000

Config Timer1 = Pwm , Pwm = 10 , Compare A Pwm = Clear down , Prescale = 
1

Do

For A = 1 to 1023 Step 1
Pwm1a = A
Waitms 1
Next

For A = 1024 to 1 Step -1
Pwm1a = A
Waitms 1
Next

Loop

[Gast (Gast)]

Hallo
Also bei : For A = 1 to 1023 Step 1
kannste das Step weg lassen.
Müßte dann auch gehen.