Das Projekt „Beleuchtung“ war eigentlich dazu gedacht ein Wandbild zu beleuchten. Mangels Interesse wurde es zur Tischbeleuchtung umfunktioniert. Die Hardware besteht aus einem Atmel ATMega 8, 4 RGB-LEDs von der Firma Vishay, wobei jede Farbe mit einem eigenen Transistor und Port angesteuert wird. Alle Anoden der LEDs liegen zudem zusammen über einen Transistor auf einem Port.

Die Hardware wurde in zwei Modulen geplant. Die Basisplatine mit allen Steuerungsaufgaben, sowie den Leucht-Modulen, diese die RGB-LEDs beinhalten. Beide Platinen wurden mit Steckverbindern ausgestattet um sie einfach mit Flachbandkabel verbinden zu können (siehe Bilder).

Als Programmiersprache wurde Bascom Basic gewählt. Das angehängte Programm fadet alle Grundfarben, sowie die durch Mischung von zwei Grundfarben entstehende Farbe ein und aus. Der Farbwechsel geschieht während der Zeit in der die LED komplett aus ist. Alle vier RGB-LEDs werden exakt gleich angesteuert. Die Farbmischung scheint wohl nach ein paar kleinen Tests noch fehlerbehaftet zu sein, wobei mir das Ergebnis so gefiel und ich deshalb nicht weiter nachgeforscht habe.

Ist es von Anfang an beabsichtigt das alle vier LEDs das gleiche Programm ablaufen lassen sollen, so kann die Hardware natürlich dementsprechend vereinfacht werden.

Der Schaltplan wurde mit Eagle entworfen

Hier noch die Eagle-Datei beleuchtung.sch

Die Basisplatine wurde frei auf einer Punktrasterplatine aufgebaut. Für die Leucht-Module habe ich mir dagegen ein kleines Layout überlegt.

'Beleuchtung Version 0.1 by Patrick Beck
'-------------------------------------
'Beleuchtung is a ambient light on the base
'of a ATMEL AVR Mega8 microcontroller.
'Programming language is Bascom basic.
'-------------------------------------

$regfile = "M8def.dat"
$framesize = 60
$hwstack = 40
$swstack = 32

$crystal = 8000000                                          ' internal rc-oscillator on 1 Mhz

Ddrb = &B11111111                                           ' PORTB as output
Ddrc = &B11111111                                           ' PORTC as output
Ddrd = &B11111111                                           ' PORTD as output

Config Timer0 = Timer , Prescale = 1                        ' fading timer
On Timer0 Fadingroutine                                     ' jump to fadingroutine when the timer0 overrun

Enable Interrupts                                           ' enable interrupts and timer0
Enable Timer0

Red1 Alias Portd.7                                          ' Define alias for the portpins Red1 - first red led
Green1 Alias Portd.6                                        ' Green1 - first green led
Blue1 Alias Portd.5                                         ' Blue1 - first blue led

Red2 Alias Portd.4                                          ' the same as above
Green2 Alias Portd.3
Blue2 Alias Portd.2

Red3 Alias Portd.1
Green3 Alias Portd.0
Blue3 Alias Portc.3

Red4 Alias Portc.2
Green4 Alias Portc.1
Blue4 Alias Portc.0

Commonanode Alias Portb.0                                   ' all anodes over a transistor on an port


Dim Dimm As Byte                                            'define the variables
Dim Reddim As Byte
Dim Greendim As Byte
Dim Bluedim As Byte

Dim Colourcounter As Byte
Dim Light As Byte

Dim Fade As Byte
Dim Up As Byte
Dim Down As Byte

Dimm = 0                                                    ' startvalues
Fade = 0                                                    ' the variables dimm, fade are for the fadding effect
Light = 0                                                   ' light is for mixing the colours
Colourcounter = 0                                           ' colourcounter saves the actual colour for the rgbtable

Up = 0                                                      ' indicates that the variable fade will be count up
Down = 0                                                    ' indicates that the variable fade will be count down

Do

'-------------------------- fading --------------------------

If Fade = 0 Then
   Down = 0
   Up = 1
End If

If Fade = 255 Then
   Up = 0
   Down = 1
End If
                                                           ' in fading
If Up = 1 Then
   Incr Fade
   Waitms 10

End If

If Down = 1 Then                                            ' out fading
   Decr Fade
   Waitms 10

End If

'-------------------------- colourmixing --------------------------

Reddim = Lookup(colourcounter , Redtable)                   ' table lookup with the rgb value for red
Greendim = Lookup(colourcounter , Greentable)               ' green
Bluedim = Lookup(colourcounter , Bluetable)                 ' and for blue

If Light < Reddim Then                                      ' when the variable light is smaller than reddim then switch all red leds on
   Red1 = 1
   Red2 = 1
   Red3 = 1
   Red4 = 1
Else                                                        ' when its bigger then reddim, all leds off
   Red1 = 0
   Red2 = 0
   Red3 = 0
   Red4 = 0
End If

If Light < Greendim Then
   Green1 = 1
   Green2 = 1
   Green3 = 1
   Green4 = 1
Else
   Green1 = 0
   Green2 = 0
   Green3 = 0
   Green4 = 0
End If

If Light < Bluedim Then
   Blue1 = 1
   Blue2 = 1
   Blue3 = 1
   Blue4 = 1
Else
   Blue1 = 0
   Blue2 = 0
   Blue3 = 0
   Blue4 = 0
End If

Incr Light                                                  ' increase the variable light with one

If Light = 255 Then                                         ' when light is 255 set it to 0
   Light = 0
End If

If Fade = 0 Then                                            ' change the colour when all leds off - not between a fading
   Incr Colourcounter
End If
                                                             ' we have 7 colours so we have to set the counter to 0 when it reaches 7
If Colourcounter = 7 Then
   Colourcounter = 0
End If

Loop
End

'RGB table with colours - one table for each color
Redtable:
   Data 255 , 255 , 255 , 255 , 0 , 0 , 0 ,
Greentable:
   Data 255 , 0 , 0 , 255 , 255 , 255 , 0 ,
Bluetable:
   Data 255 , 255 , 0 , 0 , 0 , 255 , 255 ,


Fadingroutine:                                              ' controls the fading - switch common anode on and off for all leds
   If Dimm < Fade Then                                      ' when dimm smaller than fade switch the commonanode off - leds off
      Commonanode = 0
   Else
      Commonanode = 1                                       ' leds on
   End If

   Incr Dimm

   If Dimm = 255 Then
      Dimm = 0
   End If
Return

Hex-File zum direkten flashen beleuchtung.hex