3 Kanal 16 bit PWM mit Tiny2313 (Bascom)

[Arne G. (kywalda)]

Liebes Forum,

ich versuche für die Ansteuerung von RGB-LEDs einen Tiny dazu zu 
bewegen, mir 3 16bit PWMs bereitzustellen. Mit den beiden PWMs vom 
Timer1 ist das kein Problem.

Den dritten wollte ich aus dem Timer0 basteln. Dazu wird der im 
Fast-PWM-Modus gestartet und ruft sich in einer Interrupt-Routine immer 
wieder selbst auf, bis der 16bit-Wert erreicht ist und schaltet sich 
dann ab, bis der Timer1 eine neue Runde einlaeutet.

Das funktioniert auch einigermaßen. Leider gibt es immer wieder 
"Ruckler" im Fading. Ich kann die Ursache nicht finden. Vielleicht hat 
ja jemand eine Idee dazu, oder sowas schon mal selbst gemacht....

lg,
arne

Hier der Code:

'3 Kanal 16bit PWM
'
'Laesst drei LEDs an OC0A, OC1A und OC1B mit 16 bit ein- und ausfaden
'Der dritte 16-bit Kanal wird durch mehrfaches Aneinanderhaengen
'von Timer0 (8bit) nachgebildet
'
'Arne Groh
'2011-06-20
'
'Fusebits
'1111 1111
'1111 1111
'1101 1111
'1110 0100

$regfile = "attiny2313.dat"
$crystal = 8e6


Dim I As Byte
Dim J As Integer
Dim Ocr_0a As Word
Dim Ocr0ah As Byte
Dim Ocr0al As Byte
Dim Ocr1a As Word
Dim Ocr1b As Word
Dim Flags As Byte
Lastrun Alias Flags.0


'------------ Timer konfigurieren --------
'-- Timer1 --
'Fast PWM-Mode 14 einstellen (TOP in ICR1)
Set Tccr1a.wgm11
Set Tccr1b.wgm12
Set Tccr1b.wgm13

'Ausgaenge bei Compare Match low schalten
Set Tccr1a.com1a1
Set Tccr1a.com1b1

'Overflow-Interrupt einschalten
Set Timsk.toie1

'niedrigste Frequenz einstellen (damit man das PWM voll ausreizen kann)
Icr1h = &HFF : Icr1l = &HFF

'-- Timer0 --
'Fast PWM-Mode 3 einstellen
Set Tccr0a.wgm00
Set Tccr0a.wgm01

'Ausgang bei Compare-Match low schalten
Set Tccr0a.com0a1

'Compare-Match-Interrupt einscalten
Set Timsk.ocie0a

'OC0A OC1A und OC1B als Output (PB2 PB3 PB4)
Set Ddrb.2
Set Ddrb.3
Set Ddrb.4

'Globale Interrupts einschalten
Set Sreg.7

'Timer1 einschalten (kein Prescale)
Set Tccr1b.cs10
'Timer0 einschalten (kein Prescale)
Set Tccr0b.cs00

'--------------------------------------

On Ovf1 T1ovf
On Oc0a T0cm


Do

'Einatmen
For I = 0 To 255 Step 1
J = I - 255
J = J * -1
Ocr1a = Lookup(j , Fade256)
Ocr1b = Lookup(i , Fade256)
Ocr_0a = Ocr1a
'Tastverhaeltniss einstellen
Ocr1ah = High(ocr1a) : Ocr1al = Ocr1a
Ocr1bh = High(ocr1b) : Ocr1bl = Ocr1b
Waitms 7
Next I

'Verharren
Waitms 150

'Ausatmen
For I = 255 To 0 Step -1
J = I - 255
J = J * -1
Ocr1a = Lookup(j , Fade256)
Ocr1b = Lookup(i , Fade256)
Ocr_0a = Ocr1a
'Tastverhaeltniss einstellen
Ocr1ah = High(ocr1a) : Ocr1al = Ocr1a
Ocr1bh = High(ocr1b) : Ocr1bl = Ocr1b
Waitms 14
Next I

'Verharren
Waitms 400

Loop


'--------------------PWM DATA----------------------------

Fade256:
Data 0% , 1% , 1% , 1% , 1% , 1% , 1% , 1% , 1% , 1% , 2% , 2% , 2% , 2% , 2% , 2%
Data 2% , 2% , 2% , 2% , 2% , 2% , 3% , 3% , 3% , 3% , 3% , 3% , 3% , 4% , 4% , 4%
Data 4% , 4% , 4% , 5% , 5% , 5% , 5% , 5% , 6% , 6% , 6% , 6% , 7% , 7% , 7% , 8%
Data 8% , 8% , 9% , 9% , 10% , 10% , 10% , 11% , 11% , 12% , 12% , 13% , 14% , 14% , 15% , 15%
Data 16% , 17% , 18% , 18% , 19% , 20% , 21% , 22% , 23% , 24% , 25% , 26% , 27% , 28% , 30% , 31%
Data 32% , 34% , 35% , 37% , 39% , 40% , 42% , 44% , 46% , 48% , 50% , 52% , 55% , 57% , 60% , 62%
Data 65% , 68% , 71% , 74% , 77% , 81% , 84% , 88% , 92% , 96% , 100% , 105% , 110% , 115% , 120% , 125%
Data 130% , 136% , 142% , 149% , 155% , 162% , 169% , 177% , 185% , 193% , 202% , 210% , 220% , 230% , 240% , 250%
Data 262% , 273% , 285% , 298% , 311% , 325% , 340% , 355% , 371% , 387% , 404% , 422% , 441% , 461% , 481% , 502%
Data 525% , 548% , 572% , 598% , 624% , 652% , 681% , 711% , 743% , 776% , 811% , 847% , 884% , 924% , 965% , 1007%
Data 1052% , 1099% , 1148% , 1199% , 1252% , 1308% , 1366% , 1427% , 1490% , 1556% , 1625% , 1698% , 1773% , 1852% , 1934% , 2020%
Data 2110% , 2204% , 2302% , 2404% , 2511% , 2623% , 2739% , 2861% , 2988% , 3121% , 3260% , 3405% , 3556% , 3714% , 3879% , 4052%
Data 4232% , 4420% , 4616% , 4822% , 5036% , 5260% , 5494% , 5738% , 5993% , 6259% , 6537% , 6828% , 7132% , 7449% , 7780% , 8125%
Data 8487% , 8864% , 9258% , 9669% , 10099% , 10548% , 11017% , 11507% , 12018% , 12552% , 13110% , 13693% , 14302% , 14938% , 15602% , 16295%
Data 17020% , 17776% , 18566% , 19392% , 20253% , 21154% , 22094% , 23076% , 24102% , 25173% , 26292% , 27461% , 28682% , 29957% , 31288% , 32679%
Data 34132% , 35649% , 37234% , 38889% , 40617% , 42423% , 44308% , 46278% , 48335% , 50484% , 52728% , 55072% , 57520% , 60076% , 62747% , 65535%


'------------ Interrupt-Routinen -----------------------

T1ovf:
Reset Lastrun
Ocr0ah = High(ocr_0a) : Ocr0al = Ocr_0a
Set Tccr0a.wgm01
Set Ddrb.2

Return

T0cm:
Ocr0a = 0
'wenn die letzte Runde gelaufen ist, Timer0 aus, bis Timer1 neu startet
If Lastrun = 1 Then
Reset Tccr0a.wgm01
Goto Raus
End If

'solange Timer0 auf High, bis Highbytes alle sind
If Ocr0ah > 0 Then
Ocr0a = &HFF
Decr Ocr0ah

'dann noch den Lowbyte-Rest High und danach Low durch Abschalten
Else
Ocr0a = Ocr0al
Set Lastrun
End If

Raus:
Return

[Achim M. (minifloat)]

Arne Groh schrieb:
> 'Verharren
> Waitms 150

Das siehst du. Alles über 100ms Reaktions- oder Verzögerungszeit kann 
der normale Mensch bewusst mit dem Auge erkennen. Schonmal mit dem 
'Scope angesehen, was deine Ausgänge machen?

mfg mf

[Arne G. (kywalda)]

Das soll man ja auch sehen - an den beiden Timer1-Fadings tritt das 
Problem ja nicht auf. Nur an dem "frisierten" Timer0.

Ja - das Scope zeigt die Ruckler auf dem dritten Kanal auch...

[Arne G. (kywalda)]

Ich habe nochmal die Interrupt-Routinen geändert:

jetzt wird der Low-Anteil als erstes verarbeitet. Danach dann der Timer 
für High-Anteil Male wiederholt.

Das Ergebniss ist jetzt deutlich "weicher". Allerdings gibt es beim 
Übergang von High 1 auf 0 immer noch Sprünge. Ausserdem scheint der 
TCNT0 ab und an irgendwie überzulaufen. Jedenfalls gibt es beim 
runterzählen Werte, an der die LED wieder heller zu werden scheint.

Hat noch jemand eine Idee dazu?

T1ovf:
Ocr0count = 0
'Beim Neustart des Timer1 zunaechst den Low-Teil des 16bit Wertes durch Timer0 ausgeben
Ocr0a = Ocr0al
'Datenrichtungsbit vom OC0A auf Output schalten
Set Ddrb.2
'Timer0 zurueck an den Start
Set Tifr.tov0

Return


T0cm:
'Incr Ocr0count
'Wenn Anzahl der Durchlaeufe erreicht, dann Datenrichtungsbit aendern (Pin auf Input)
'Bleibt bis zum naechsten Start von Timer1 auf Input
If Ocr0ah > Ocr0count Then
Incr Ocr0count
Ocr0a = 255
Goto Raus
End If
Reset Ddrb.2
Raus:
Return