Bascom PWM mit attiny 2313!!!

bendoben · 26. Oktober 2008

Guten Tag
Also ich versuche mich gerade an einer gartenleuchte mit den samsung smd -rgb- led´s
so es klappt alles super nur jetzt möchte ich den farbwechsel nicht so grob sondern schön gedimmt.
schaltplan sieht wie folgt aus:

Jetzt versuche ich mir gerade das PWM bei zu bringen bzw zu verstehen jedoch verstehe ich da gar nichts.
hatte diesen code verwendet nur da leuchtet auf einmal nichts mehr.

Code

$regfile = "2313def.dat"                                	'Beschreibungsdatei für benutzten Chip
$crystal = 8000000                                      	'Frequenz des Taktgebers - in diesem Fall 8MHz


Config Portb = Output


Config Timer1 = Pwm , Pwm = 10 , Compare B Pwm = Clear Down
Dim Var As Word
Var = 500


Do


Compare1a = Var


Loop


End

Alles anzeigen

schaft ihr es einen funktionierenden code zu schreiben
oder das prinzip mir mal zu erklären??

Fightclub · 26. Oktober 2008

Hat das irgendwie nen besonderen Sinn dass du nur einen der PWM-Kanäle benutzt? Ich bin jetzt mal so arschig wie unsere Praktikumsbetreuer:
Das steht alles im Datenblatt, z.b. wo die PWM-Kanäle zu finden sind:
http://www.datasheetcatalog.or…eets/restul/219814_DS.pdf

Wie du das in Bascom verwendest:
http://www.roboternetz.de/wissen/index.php/Bascom_und_PWM

Btw bin ich sehr überrascht, dass der Tiny2313 sogar 4 PWM-Kanäle hat.

norbert480 · 26. Oktober 2008

Moin,
hmm will nich klugscheissen aber kann es sein das Du die Anoden der Led's auf GND hast, zumindest isses so im Schaltplan dies
kann nicht wirklich funktionieren
Zu dem Quelcode kann ich aber nix sagen da ich selbst noch noob bin
Gruß
Norbert
PS: ist es nicht: $regfile = "attiny2313.dat" für den Tiny2313 ?

Fightclub · 26. Oktober 2008

Ja, das ist mir garnicht aufgefallen.

MESEgon · 26. Oktober 2008

hi,
nach meinem verständnis halten die pwm des atmels nur eine frequenz,
du must dir nun noch eine zähler (oder besser drei) anlegen, damit die frequenz sich auch ändert (faden) dann solltest du nen ordentlichen Farbübergang hinbekommen.

einfach mal in das thema einlesen (suchworte: PWM dimmen faden)
dann kommst z.b. auch sehr schnell drauf, dass die helligkeit der leds nicht linear sondern besser logarytmisch ansteigen sollte.

grüße

ich

ps nur denkanstöße, keine lösung

bendoben · 26. Oktober 2008

ja die led´s sind im schaltplan nur falsch fällt mir auch gerade auf aber in wirklichkeit andersrum.
vielen dank nur ich verstehe nicht warum der da nichts macht.

Zitat

$regfile = "attiny2313.dat" 'Beschreibungsdatei für benutzten Chip
$crystal = 8000000 'Frequenz des Taktgebers - in diesem Fall 8MHz

Config Portb.2 = Output

Config Timer1 = Pwm , Pwm = 8 , Compare B Pwm = Clear Up , Prescale = 1

Do

Compare1b = 51
Loop

End

Alles anzeigen

Edit : trotz dessen funktionier es nicht.

Und unter "PWM dimmen faden" finde ich nichts wirklich hilfreiches für bascom.

Marcellino · 26. Oktober 2008

Hallo

Du hast den PortB.2 als Output konfiguriert, der ist aber der Compare0a, Compare1b ist der Wert für den PortB.4.

bendoben · 26. Oktober 2008

ah danke Marcellino nur wo kannst du das ablesen aus dem handbuch doch nicht oder?
Edit:
Compare0a geht nicht da sagt er fehler

norbert480 · 26. Oktober 2008

ich nochmal,
Du könntest nochmal in diesem Thread nachlesen:
Microcontroller Tutorial
da gibt es sehr viele nützliche Informationen und funktionierenden Quellcode.
Gruß

Marcellino · 26. Oktober 2008

Hallo

Sorry, bin ja nur Anfänger

Ich schau halt im Datenblatt vom Prozessor nach und/ oder in der Bascom-Hilfe. Wie man das jetzt allerdings für den PinB.4 macht ist eine gute Frage, ich hätte jetzt angenommen, dass das so geht, wie ich geschrieben hatte - ist aber nicht so...

Wer kann helfen?

bendoben · 26. Oktober 2008

also laut handbuch hast du recht:

• OC0A/PCINT2 – Port B, Bit 2
OC0A: Output Compare Match A output. The PB2 pin can serve as an external output
for the Timer/Counter0 Output Compare A. The pin has to be configured as an output
(DDB2 set (one)) to serve this function. The OC0A pin is also the output pin for the PWM
mode timer function.
PCINT2: Pin Change Interrupt Source 2. The PB2 pin can serve as an external interrupt
source.

nur der sagt mir fehler

EDIT: Brauche ich ein input?

Marcellino · 26. Oktober 2008

Hallo

Schreib mal OCR0A rein.

Code

$regfile = "attiny2313.dat" 


$hwstack = 82 
$framesize = 68 
$swstack = 68 


$crystal = 1000000 '1MHz intern 


'PWM-Ausgang 1 einstellen 
Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Up , Prescale = 1 


'LED an PWM-Ausgang 
Config Pinb.2 = Output 




Do 
Ocr0a = 51 
Loop

Alles anzeigen

chris16 · 26. Oktober 2008

Auch von mir bekommst Du eine Antwort,
wenn Du diesen Code auf den Atiny2313 anpasst hast Du einen wunderbar funktionierenden Farbwechsel....

bendoben · 26. Oktober 2008

Zitat von Marcellino

$crystal = 1000000 '1MHz intern

'PWM-Ausgang 1 einstellen
Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Up , Prescale = 1

'LED an PWM-Ausgang
Config Pinb.4 = Output

Do
Ocr0a = 51
Loop

Alles anzeigen

so warum machst du config pinb.4 da hab ich nichts drauf da muss 2 hin oder?
ich kann ja nur den PB2 nehmen da die anderen pins ja kein pwm machen.

Marcellino · 26. Oktober 2008

*lach* jetzt bin ich schon selbst durcheinander gekommen

Also Pinb.4 gegen Pinb.2 im Code tauschen

bendoben · 26. Oktober 2008

so rot und grün funktioniert nur blau nicht . warum nur?

Code

$regfile = "attiny2313.dat"                             	' specify the used micro
$crystal = 800000                                       	' used crystal frequency
$hwstack = 64
$swstack = 16
$framesize = 21


Config Pinb.2 = Output                                  	'Die PWM-Pins als Output definieren
Config Pinb.3 = Output                                  	'Die PWM-Pins als Output definieren
Config Pinb.4 = Output                                  	'Die PWM-Pins als Output definieren


'Die Timer auf PWM-Modus stellen
'Die PWM-Register haben eine Breite von 8 Bit - also Werte von 0 bis 255
'Wobei 0 = 0% Helligkeit und 255 = 100% Helligkeit bedeuten
Config Timer1 = Pwm , Pwm = 8 , Prescale = 1 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down




'Die Timer starten
Enable Timer1
                                           	' Interessanterweise MUSS man für OC2 Enable benutzen, sonst passiert nix!
Start Timer1




'Die PWM-Register zuweisen
Led1 Alias Ocr1bl                                       	'PWM-Pin 1 - Red
Led2 Alias Ocr1al                                       	'PWM-Pin 2 - Green
Led3 Alias Ocr0a                                        	'PWM-Pin 3 - Blau




'ein Paar Variablen Deklarieren
Dim Color_delay As Byte
Dim Color_stop As Byte
Dim Rgb As Byte




'Startwert für die Schleife
Rgb = 0


'Farbwechsel Geschwindigkeit pro Schritt (empfohlen 1-15)
Color_delay = 12


'Dauer der Pause bei der Grundfarbe (empfohlen 1-10)
Color_stop = 7




Do


If Rgb = 0 Then
Incr Led1
Decr Led3
Waitms Color_delay
End If


If Led1 = 255 Then
Rgb = 1
Led3 = 0
Wait Color_stop
End If


If Rgb = 1 Then
Decr Led1
Incr Led2
Waitms Color_delay
End If


If Led2 = 255 Then
Rgb = 2
Led1 = 0
Wait Color_stop
End If


If Rgb = 2 Then
Decr Led2
Incr Led3
Waitms Color_delay
End If


If Led3 = 255 Then
Rgb = 0
Led2 = 0
Wait Color_stop
End If


Loop
End

Alles anzeigen

Kanwas · 26. Oktober 2008

Weil OCR0 an Timer0 hängt

bendoben · 26. Oktober 2008

ah also hängt Ocr1al am timer1 wegen Ocr1al
oder?

chris16 · 26. Oktober 2008

Du mußt die Pins PB2,PB3,PB4 anschließen dann müßte das auch funktionieren ich denke da hast Du noch einen Pin nicht richtig angeschlossen.

bendoben · 26. Oktober 2008

Zitat von chris16

Du mußt die Pins PB2,PB3,PB4 anschließen dann müßte das auch funktionieren ich denke da hast Du noch einen Pin nicht richtig angeschlossen.

nein hab jetzt alles richtig angeschlossen!!.
aber danke
naja s siehts jetzt aus aber funktionieren tuts nicht:

Code

Config Pinb.2 = Output                                  'Die PWM-Pins als Output definieren
Config Pinb.3 = Output                                  'Die PWM-Pins als Output definieren
Config Pinb.4 = Output                                  'Die PWM-Pins als Output definieren


'Die Timer auf PWM-Modus stellen
'Die PWM-Register haben eine Breite von 8 Bit - also Werte von 0 bis 255
'Wobei 0 = 0% Helligkeit und 255 = 100% Helligkeit bedeuten
Config Timer0 = Pwm , Prescale = 1 , Compare Pwm = Clear Down , Pwm = On
Config Timer1 = Pwm , Pwm = 8 , Prescale = 1 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down




'Die Timer starten
Enable Timer0
Enable Timer1
                                           ' Interessanterweise MUSS man für OC2 Enable benutzen, sonst passiert nix!
Start Timer0
Start Timer1




'Die PWM-Register zuweisen
Led1 Alias Ocr1bl                                       'PWM-Pin 1 - Red
Led2 Alias Ocr1al                                       'PWM-Pin 2 - Green
Led3 Alias Ocr0a

Alles anzeigen

EDIT: so klappt!

Code

Config Timer0 = Pwm , Pwm = On , Prescale = 1 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down
Config Timer1 = Pwm , Pwm = 8 , Prescale = 1 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down




'Die Timer starten
Enable Timer0
Enable Timer1
                                           	' Interessanterweise MUSS man für OC2 Enable benutzen, sonst passiert nix!
Start Timer0
Start Timer1

Alles anzeigen

Bascom PWM mit attiny 2313!!!

Teilen

Benutzer online in diesem Thema