Bascom Software PWM spielt nicht mit

abc

Muss nach längerer Pause wieder mal ein PWM-Signal erzeugen. Ganz einfach von 0 auf 100%.
Leider funktioniert meine Software nicht, habe wahrscheinlich den falschen Ansatz.

Angenommen, ich will eine LED an PB1 in Hundert Stufen hochdimmen. Müsste das hier nicht funktionieren?

Code

$regfile = "attiny13.dat"
$crystal = 9600000
$hwstack = 32
$swstack = 5
$framesize = 20


Config Portb.0 = Output


Dim A As Byte


Config Timer0 = Pwm , Compare A Pwm = Clear Down , Prescale = 1
Enable Timer0
Start Timer0


A = 0


While A < 100
A = A + 1
Pwm0b = A
Waitms 1000


Wend




End

Alles anzeigen

Über Eure Hilfe würde ich mich freuen!

Counterfeiter

Kenn zwar Bascom nicht, aber für gewöhnlich braucht es eine Endlosschleife... Sonst ist das Programm zuende und der MC "rennt ins leere"

stromflo

In Bascom sollte es dann eine

Code

Do
.... Code
Loop

sein.

Gruß Flo

edit:
Für mich schaut das Ganze übrigens eher nach Hardware-PWM aus.

Code

Config Timer0 = Pwm , Compare A Pwm = Clear Down , Prescale = 1
Enable Timer0
Start Timer0

Jetzt fällt mir sogar nochmal was auf:

Code

While A < 100
A = A + 1
Pwm0b = A
Waitms 1000

Die PWM hat mit diner Konfiguration 8-Bit. Damit ist die volle Helligkeit bei 255 erst erreicht.

abc

Ein großes Danke für Eure Hilfe!

Hast recht, muss bis 255 gehen, das habe ich übersehen, danke!

dachte eigentlich eine Schleife bräuchte es nicht dafür, while-code-wend bildet ja quasi Eine. Habe es trdm mal mit Do-Loop probiert, bringt leider auch nichts.

Die LED an PB1 leuchtet ständig

stromflo

Helligkeit ändert sich nicht? Also Led leuchtet immer in der gleichbleibenden Helligkeit?

Gruß Flo

abc

Jap

paralux

im dem BASCOM-Code sind ja ein Haufen Fehler, probiere es mal mit dem hier:

Code

$regfile = "ATtiny13.DAT"
$crystal = 8000000


Config Pinb.0 = Output 'OCR0A
Config Pinb.1 = Output 'OCR0B


Dim A As Byte
Dim B As Byte


Config Timer0 = Pwm ,  Pwn = 8 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Up , Prescale = 1


Enable Timer0
Enable Interrupts
A = 0


Do


While A < 255
A = A + 1
OCR0A = A
Waitms 1000


Wend


Loop


End

Alles anzeigen

und du muss dir im klaren sein das die LED hoch fadet und an bleibt.

mfg
paralux

abc

Endlich wieder Zeit für eine Kurze Rückmeldung

Es funktioniert wieder, mein Denkfehler lag in der Konfiguration der Timer.
Es muss also lauten

Code/

Config Timer0 = Pwm , Pwn = 8 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Up , Prescale = 1

Code/

Vielen Dank für eure Hilfe!