ATMega32 und PWM - Problem gelöst

Hallo Leute,

wie die Überschrift schon sagt..

Ich suche einen Bascom Quellcode, der mit einem ATMega 32 eine RGB Led regenbogenartig steuert.

Gibt ja 100e Beispiele, aber alles mit Schnickschnack, welcher mich total verwirrt, bin Anfänger.

Hatte vor ca. 1 Woche sage und schreibe eine einzige Schaltung + Quellcode im www gefunden, die genau das macht,

was ich will. Und selbst nach (ohne Übertreibung) 10-15 Stündiger Suche finde ich besagten Code + Schaltung nicht mehr.

Auch die hier im Forum vorhandene, vielfach verlinkte Schaltung (Mikrocontroller... II) will bei mir nicht so richtig.

Klar, Ihr werdet sagen, "lern die Timer und PWM mit Bascom und du kriegst das hin"...aaaber

ich kann derart schlecht englisch, dass ich die AppNotes usw. nicht kapier.

Was ich selbst kann: Eine RGB ansteuern, dass sie zB nacheinander R, G, B, gelb, blaugrün, lila und "weiss" leuchtet.

Aber ich bin zu dumm um beispielsweise blau von 0-255 zu dimmen. Würde ich das hinbekommen, würde ich einen Schritt weiter sein. Denn R,G,B und jede Farbe dimmen können würde ja schon nett aussehen.

Wenns geht, möchte ich Software-PWM nutzen, um damit bei Bedarf mehrere LEDs unterschiedlich leuchten zu lassen.

Würdet Ihr so lieb sein und mir mal einen (compilierbaren, also funktionstüchtigen) Code für EINE Led zu posten ?

Also ich meine Code, der mir eine Led von 0% auf 100% und langsam wieder zurückdimmt.

Dann kann ich - learning by doing - experimentieren und es vielleicht schaffen, selbst so einen Farbwechsel hinzubekommen.

Ich sag schon mal ganz herzlich DANKE!

Euer kernspin

Danke schon mal an Euch!

Das mit waitms hab ich auch schon probiert. Funktioniert ja soweit auch. Aber rauf-runterdimmen....

Angenommen ich möchte hochdimmen, dann würde ich das waitms nach Led-an länger, das waitms nach Led-aus dementsprechend kürzer machen.

Aber ich krieg das nicht hin mit Automatik.

Ich bräuchte ja da einen fixen waitms Wert, den ich je nach dimmen auf die An- bzw. Auszeit aufteile zB mit For-Schleife.

Andy KEH:

Ich mach mit 2313, Mega8,16 und 32 herum, je nach Zweck.

Aber ich hab jetzt auf einem Steckbrett die Grundbeschaltung mit Mega32 gefrickelt.

Die "Aussenbeschaltung" und Programme passe ich dann einfach an. Mega32 auch deshalb, weil ich da nicht auf Codegrösse und Portvielfalt achten muss...im Rahmen natürlich.

Mir gehts ja bei den ganzen Schaltungen nur ums Prinzip-Lernen, sonst könnte ich ja alles viel billiger fertig kaufen.

Es geht einfach ums "Ha-das kann ich selber auch, das brauch ich mir nicht kaufen um den Effekt zu haben"..oder so halt gg

Nochmal ich...

Hab jetzt zumindest so ziemlich das gefunden, was ich haben wollte. Weiß ja nicht, ob ich den Link zu einem fremden Forum bzw. Topic posten darf, falls Interesse besteht. Sollte dies nicht erlaubt sein, weist mich bitte darauf hin.

http://www.mikrocontroller.net/topic/54561

Leider hat das Ganze keinen Lerneffekt für mich, da das gefundene Prog in C geschrieben ist. Und das kann und will ich nicht lernen.

Ich klemm mich trotzdem dahinter, sowas in Bascom hinzukriegen.

LG, kernspin

Moin!

Dankeschön synvox!

Also, ich hab mal die Datenblätter angeschaut. "Dein Mega168/88" hat 6 Hardware PWM Kanäle, "mein" Mega32 dagegen nur 4.

Kann also Deinen Code nicht direkt probieren, aber ich habe mit 4 PWM Kanälen genug für meinen Zweck.

Als nächstes: Ich kann PWM gar nicht lernen, wenn ich nicht mal weiß, wo meine PWM/Timer Ausgänge sind.

Wenn ich das Datenblatt des Mega32 richtig verstehe, sind die Ausgänge folgende PINs:

Portb.3 = Timer 0

Portd.5 = Timer 1 A

Portd.4 = Timer 1 B

Portd.7 = Timer 2

Mit diesen 4 Pins kann ich also was anfangen für meine RGB LED, richtig?

Und siehe da, mein (für mich riesiges) 1. Ziel habe ich soeben erreicht:

$regfile = "m32def.dat" 
$crystal = 8000000 
Config Portd.4 = Output 
Config Portd.5 = Output 
Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Up , Prescale = 1 
Dim Hochdimmen As Byte 
Dim Runterdimmen As Byte 
Helligkeit Alias Compare1a 
Do 
For Hochdimmen = 1 To 255 
Helligkeit = Hochdimmen 
Waitms 10 
Next Hochdimmen 
For Runterdimmen = 1 To 255 
Helligkeit = 255 - runterdimmen 
Waitms 10 
Next Runterdimmen 


Loop 
End

Eine normale LED dimmt mit diesem Code wunderbar sanft auf und ab. Ich würde mal sagen, die Basis ist gesetzt. *FREEUUU*

Werd jetzt (4:28 Uhr) gleich weitermachen. Sobald ich es geschafft habe, mit einer RGB Led die 3 Grundfarben nacheinander rauf-und runterfahren kann, melde ich mich wieder.

Ich hoff ich schaff das mit Deinem Code, Datenblättern und nächtlichem Hirnschmalz *gg*

DANKE auch an Kanwas!

LG, kernspin

Was ist heute bloss für eine Nacht? Ich schaff Sachen in einer Stunde, die ich in MONATEN nicht geschafft habe.

Folgender Code macht genau das, was ich wollte: Ohne Schnickschnack eine RGB Led regenbogenartig leuchten lassen.

Dabei ist das ein Nebeneffekt, denn ich schaffs (noch) nicht, dass anfangs alle LEDs bei 0 anfangen.

Und ich schaffs auch nicht, nach jedem Runterdimmen einer Farbe NUR die nächste aufdimmen zu lassen.

Die Dinger bleiben "brennen"

Ich habs mit Timer1=0 und Timer2=0 probiert

Ich habs mit Rot=0, Gruen=0, Blau=0 Probiert

Ich habs mit Compare1a=0, Compare1b, Ocr2=0 probiert

Ich habs statt mit Do-Loop mit While-Wend probiert

Könnt Ihr mir da noch auf die Sprünge helfen?

Aber wie gesagt, folgender Code ist das Endergebnis das ich haben wollte:

'Regenbogen RGB 
$regfile = "m32def.dat" 
$crystal = 8000000 
'Die 3 benutzten Hardware PWM Ausgänge als Ausgang schalten 
Config Portd.4 = Output 
Config Portd.5 = Output 
Config Portd.7 = Output 


'Timer für PWM konfigurieren 
Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Up , Prescale = 1 
Config Timer2 = Pwm , Compare Pwm = Clear Up , Prescale = 1 
'Klare Begriffe definieren 
Dim Hochdimmen As Byte 
Dim Runterdimmen As Byte 
'Den Grundfarben PWM Kanäle zuordnen 
Rot Alias Compare1a 
Gruen Alias Compare1b 
Blau Alias Ocr2 


Enable Timer1 
Enable Timer2 
Do 


'ROT hoch und runter dimmen 
For Hochdimmen = 1 To 255 
Rot = Hochdimmen 
Waitms 10 
Next Hochdimmen 
For Runterdimmen = 1 To 255 
Rot = 255 - Runterdimmen 
Waitms 10 
Next Runterdimmen 
'GRUEN hoch und runter dimmen 
For Hochdimmen = 1 To 255 
Gruen = Hochdimmen 
Waitms 10 
Next Hochdimmen 
For Runterdimmen = 1 To 255 
Gruen = 255 - Runterdimmen 
Waitms 10 
Next Runterdimmen 


'BLAU hoch und runterdimmen 
For Hochdimmen = 1 To 255 
Blau = Hochdimmen 
Waitms 10 
Next Hochdimmen 
For Runterdimmen = 1 To 255 
Blau = 255 - Runterdimmen 
Waitms 10 
Next Runterdimmen 
Loop 
End

Auf den freundlichen Hinweis von Delphi schreib ich in diesem Post weiter *smile*

Für alle, die ein KnightRider Lauflicht suchen... bitteschön:

'Lauflicht wie bei KnightRider - Kitt 
$regfile = "m32def.dat" 'ATMega32 
$crystal = 8000000 'Quarz 8 MHz 
Config Portc = Output 
Led1 Alias Portc.0 
Led2 Alias Portc.1 
Led3 Alias Portc.2 
Led4 Alias Portc.3 
Led5 Alias Portc.4 
Led6 Alias Portc.5 
Led7 Alias Portc.6 
Led8 Alias Portc.7 


Do 
Led1 = 1 
Waitms 80 
Led1 = 0 
Led2 = 1 
Waitms 80 
Led2 = 0 
Led3 = 1 
Waitms 80 
Led3 = 0 
Led4 = 1 
Waitms 80 
Led4 = 0 
Led5 = 1 
Waitms 80 
Led5 = 0 
Led6 = 1 
Waitms 80 
Led6 = 0 
Led7 = 1 
Waitms 80 
Led7 = 0 
Led8 = 1 
Waitms 80 
Led8 = 0 
Led7 = 1 
Waitms 80 
Led7 = 0 
Led6 = 1 
Waitms 80 
Led6 = 0 
Led5 = 1 
Waitms 80 
Led5 = 0 
Led4 = 1 
Waitms 80 
Led4 = 0 
Led3 = 1 
Waitms 80 
Led3 = 0 
Led2 = 1 
Waitms 80 
Led2 = 0 
Loop 
End

Oder mal ein "Lauflicht", welches die LEDs im Binärcode hochlaufen lässt:

'8 LEDs an Portc.0 bis Portc.7 anschliessen (ueber Widerstand gegen GND) 
'Das Programm lässt die LEDs in Binärzählweise anzeigen. 
'00000001 
'00000010 
'00000011 
'00000100 
'00000101 
'und so weiter 
'Idee 1: zB einen BCD zu 7-Segment Dekoder IC anschliessen, diese 7 Segment 
'Anzeige zählt dann in Dezimalzahlen hoch. 
' 
'Idee 2: 0-5 Volt an einen ADC Eingang des Mega32 anlegen (Poti zb) 
'Die LEDs zeigen den Spannungswert Binär bzw via BCD zu 7 Segment die 
'Spannung am ADC Eingang an. 
'Idee 3: Portc-Wert zusätzlich durch ein LCD anzeigen lassen. (1-255) 
$regfile = "m32def.dat" 
$crystal = 8000000 
Config Portc = Output 
Dim Binaer As Byte 
Do 
Portc = 0 
For Binaer = 1 To 255 
Portc = Binaer 
Waitms 100 
Next Binaer 
Loop 
End