PWM dimmen in BASCOM-AVR

Gast #1212669
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
Gast #1212751
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

Antwort schreiben

Eine eigene Frage? Dieser Thread ist über 17 Jahre alt. Stell sie in einem eigenen Thread – dort lesen mehr Leute mit, und sie wird öfter und schneller beantwortet.

Neuen Thread starten

Eine Lösung, Ergänzung oder Rückmeldung zu diesem Thread? Dann antworte hier.

Formatierung
  • [c]C-Code[/c]
  • [code]Code in anderen Sprachen, ASCII-Zeichnungen[/code]
  • [math]Formel in LaTeX-Syntax[/math]
  • [[Titel]] – Link zu einem Artikel
  • Verweis auf einen anderen Beitrag: Rechtsklick auf dessen Beitrags-ID (#8078628), „Adresse kopieren“, in den Text einfügen

Mehr zur Formatierung

Längeren Sourcecode als Anhang, nicht in den Text. JPG nur für Fotos und Scans; Zeichnungen und Screenshots als PNG oder GIF. Siehe Bildformate.

Schon registriert? Anmelden

Wird nicht angezeigt. Wir schicken dir einen Link; sobald du damit bestätigst, erscheint dein Beitrag.

Mit dem Abschicken legst du einen kostenlosen Account an und erkennst die Nutzungsbedingungen und die Datenschutzerklärung an.