Bascom Software PWM spielt nicht mit

abc · 3. Januar 2014

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 · 3. Januar 2014

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 · 3. Januar 2014

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 · 4. Januar 2014

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 · 4. Januar 2014

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

Gruß Flo

abc · 4. Januar 2014

Jap

paralux · 5. Januar 2014

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 · 17. Februar 2014

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!

Teilen