Bascom PWM geht nicht

Gast #3446863
Hat jemand eine Idee,

die LED will uns verrecken nicht seine Helligkeit ändern;-(((

Bin verzweifelt;-)


An PB3 (PIN 17) hängt eine LED mit der Kathode, über 220 Ohm geht's an 
Plus.

Fusebits sind auf internen Oszi eingestellt.





'PWM with output on the PB3(OC1) pin.


$regfile = "m88def.dat"
$crystal = 8000000
$hwstack=40
$swstack=16
$framesize=32


$crystal = 8000000

Config Portb.1 = Output
Config Portb.2 = Output

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


Config Pinb.4 = Input


Enable Interrupts

Compare1a = 1023

Waitms 1000

Compare1a = 0

Waitms 1000

Do

'If Pinb.4 = 0 Then

'Capture1 = Capture1 + 10

'End If

'Compare1a = Capture1

Incr Compare1a

Waitms 10

Loop

End

Antwort schreiben

Eine eigene Frage? Dieser Thread ist über 12 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.