Einfache RGB LED Steuerung mit AVR

19542-mal angesehen • Hochgeladen: 02.12.2008

Eine einfache Schaltung, die jeder Zuhause ganz einfach nachbauen kann, mit der sich verschiede RGB Effekte mit LEDs und einem AVR generieren lassen.

Allgemein
Als Mikrocontroller habe ich einen ATTiny2313 genommen und 3 der PWM Ausgänge mit Transistoren an LEDs angeschlossen. An PortD kann noch 2 Taster Anschließen um einen Modus zwischen Fade, Flush und DauerFarbe zu wählen und um die Geschwindigkeit bzw. die Farbe einzustellen. Die 2 Taster kann man allerdings auch weg lassen.

Die Platine
Im Download findet man das BoardLayout mit diesem Layout kann man sich selbst einfach die Platine ätzen. Ich hab die Schaltung aber schon oft auch auf Lochraster aufgebaut. Das Layout ist einseitig gehalten, damit jeder Anfänger das Layout selbst ätzen kann. Man brauch lediglich nur noch 2 Drahtbrücken.

Anwendungsmöglichen
Ich habe diese Schaltung schon insgesammt 3-5 mal aufgebaut und hab sie verschenkt. Verschiedene Anwendungsmöglichkeiten kann man unten bei den Fotos sehen, z.B. kann man damit einfache Glassteine beleuchten oder ein Gebäude von Außen etc...

Schaltplan und Layout

Schaltplan mit MOSFETs für viele LEDs. Im Schaltplan sind momentan MOSFETs mit 6A eingezeichnet. Man kann diese aber auch durch andere ersetzen, um ein genau Strom für seine LEDs bekommen. Die 6A bedeuten nicht gleich, dass diese auch genutzt werden müssen. Man kann genau so gut auch nur 3 LEDs anschließen.

Ein BeispielLayout für die Schaltung. Die Platine bietet, dann alle Möglichkeiten der Schaltung. Die Taster zum Einstellen, als auch das Programmierinterface sind vorhanden. Diese können aber auch weggelassen werden.

Downloads
Schaltplan / Board-Layout und Quellcode mit HEX
NEU:Video

RGB LED Steuerung mit AVR - MyVideo

Quellcode Zeigen

$regfile = "attiny2313.dat"
$crystal = 1000000

Config Portb = Output
Config Pind.0 = Input
Config Pind.1 = Input
Config Pind.2 = Input
Config Pind.3 = Input
Config Pind.4 = Input
Config Pind.6 = Output

Portd.0 = 1
Portd.1 = 1
Portd.2 = 1
Portd.3 = 1
Portd.4 = 1

Dim A As Word
Dim Red As Word , Blue As Word , Green As Word
Dim Mo As Byte
Dim Color As Byte
Dim Type As Byte
Dim Speed As Word

'Config Timer0 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Prescale = 1
Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Up , Prescale = 1
'Config Timer3 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down , Prescale = 1
Config Timer0 = Pwm , Prescale = 1 , Compare A Pwm = Clear Up

Green = 0
Blue = 0
Red = 255
Tcnt0 = 255

Speed = 100

Do

If Pind.2 = 0 Then
    Incr Type

    Mo = 0
    If Type = 3 Then
      Type = 0
    End If

    Waitms 2000
End If

'Type = 2

If Pind.3 = 0 Then
  'If Type = 1 Then
    Incr Color

    If Color = 7 Then
     Color = 0
    End If

    Waitms 500
  'End If
End If

Select Case Type
   Case 0
       Select Case Mo
         Case 0
            Decr Red
            Incr Green
            If Green < 100 Then
               Waitms 150
            Else
               Waitms 50
            End If
            Compare1a = 255 - Green
            Compare1b = 255 - Red
            Ocr0a = 255 - Blue
            '
            If Red = 0 Then
               Green = 255
               Red = 0
               Mo = 1
            End If
         Case 1
            Decr Green
            Incr Blue
            Compare1a = 255 - Green
            Compare1b = 255 - Red
            Ocr0a = 255 - Blue
            Waitms 40
            If Green = 0 Then
               Green = 0
               Blue = 255
               Mo = 2
            End If
         Case 2
            Decr Blue
            Incr Red
            Compare1a = 255 - Green
            Compare1b = 255 - Red
            Ocr0a = 255 - Blue

            If Red < 100 Then
              Waitms 70
            Else
              Waitms 45
            End If
            If Blue = 0 Then
               Blue = 0
               Red = 255
               Mo = 0
            End If
         End Select

  Case 1
    Select Case Color
       Case 0
         Red = 255
         Blue = 0
         Green = 0
       Case 1
         Red = 255
         Blue = 0
         Green = 80
       Case 2
         Red = 0
         Blue = 0
         Green = 255
       Case 3
         Red = 0
         Blue = 255
         Green = 230
       Case 4
         Red = 0
         Blue = 255
         Green = 0
       Case 5
         Red = 255
         Blue = 205
         Green = 0
       Case 6
         Red = 255
         Blue = 205
         Green = 90
    End Select

      Compare1a = 255 - Green
      Compare1b = 255 - Red
      Ocr0a = 255 - Blue

    Waitms 100
  Case 2

       Select Case Mo
         Case 0
           Decr Blue
           Incr Green
           Red = 0
           Waitms 25
           Compare1a = 255 - Green
           Compare1b = 255 - Red
           Ocr0a = 255 - Blue
           If Green = 255 Then
              Green = 255
              Red = 0
              Blue = 0

              Mo = 1
           End If

         Case 1
           Incr Blue
           Decr Green
           Red = 0
           Waitms 25
           Compare1a = 255 - Green
           Compare1b = 255 - Red
           Ocr0a = 255 - Blue
           If Blue = 255 Then
              Green = 0
              Blue = 255
              Red = 0

              Mo = 0
           End If
       End Select
  End Select

Next

Kommentare

Basiswiderstand von Jürgen
Finde die 10k Basiswiderstände etwas hoch. Der BD140 hat laut Datenblatt einen HFE von 25. Bei 10k ist der Basisstrom etwa (5-0,7)/10k =430µA. Mal 25 ist das 10,75mA Kollektorstrom. Grüsse Jürgen
23:43 06.02.2010

Weiße LED anschließen von Daniel
Wäre es möglich am Ausgang PB1 noch eine weitere LED anzuschließen, z.B. eine Weiße?
22:10 22.09.2011

Super Sache von Matthias
Moinsen, ich habe deine Schaltung mal etwas modifiziert. Der AVR bekommt über einen 7805 5V und die LED's über einen 7812 12V. Die MOSFETs habe ich gegen 3 BD239 mit 1k Basiswiderständen getauscht. Des weiteren werden in der Software die Werte für Type und Color in den EEprom geschrieben und beim einschalten wieder ausgelesen. Damit habe ich jetzt unter meinem Bett LED Leisten mit je 25 LED's gebaut :D Funktioniert super :D @Daniel Klar ist das möglich :) Lg Matthias
13:46 24.09.2011

Programm geht nicht. von Patrick
Ich habe die Platiene aufgebaut, aber wenn ich das Programm auf den attiny2313 schriebe, läuft es nicht so ab, wie es soll, es entsteht kein Fadingeffekt, nur willküriche Farben. Und müsste die Frequenz nicht eigendlich 8000000 statt 1000000Hz sein?
19:50 16.10.2011

steuerung der schaltung von Florian
Hallo, kann man die RGB LED Steuerung im Betrieb Programmiern also das man direkt am PC ein Regler hat wo man die Farben steuern kann? Und worüber wird den die RGB LED Steuerung Programmiert, über USB? mfg Florian
01:36 26.12.2011

Kommentar verfassen

Bilder

Zum Vergrößern Klicken


Einfache Platte mit Glasstein drauf (gleiche Schaltung)	Geschenk
Geht sogar mit 20 LEDs Strom wird mit NPN-Transistoren verstärkt

Name
Titel
Text