Projekt: LED my couch :)

Guten Abend.

Hab heute gleich 2 Projekte in Angriff genommen, eins leuchtet leider noch nicht, das andere jedoch schon und darum gibts heute auch schon ein paar Bilder

Der Plan:
Ein Balken, oben auf mit satiniertem Plexiglas wird knapp nach unten versetzt hinter die Couch geschraubt.

Zur Technik:
verwendet wurden 6 meiner Stripes mit je 14 6-pin RGB Und 7 6-pin WW SuFlus, von der Lichtstaerke also mehr als genug. Gesteuert wird das Ganze mit nem Eigenbau-Controller mit Atmega16, wird aber demnaechst noch upgedated damit ich das Ganze noch via Logitech Harmony steuern kann. Die Stripes laufen alle auf 24V, auf die Steuerung kommen nur 6V (+7805).

Hab das Ganze heute mal zusammengeschraubt und geloetet, morgen wirds an die Wand geschraubt, dann gibts noch mehr Bilder

Hier mal der "Kasten" mit den LED's:
[Blockierte Grafik: http://i399.photobucket.com/albums/pp80/DjTommyB_1985/896e92aa.jpg]

Mit Plexi:
[Blockierte Grafik: http://i399.photobucket.com/albums/pp80/DjTommyB_1985/7516777c.jpg]

Hier nochn paar Beleuchtungsfotos:
[Blockierte Grafik: http://i399.photobucket.com/albums/pp80/DjTommyB_1985/0693dd6b.jpg]
[Blockierte Grafik: http://i399.photobucket.com/albums/pp80/DjTommyB_1985/7a7f6674.jpg]
[Blockierte Grafik: http://i399.photobucket.com/albums/pp80/DjTommyB_1985/42351f4a.jpg]

lg und schoenen Abend
Thomas

Der Ascher steht seit Dezember da draussen - inner Wohnung wird nich geraucht. Und somit wird der auch nur geleert wenn der mehr als doppelt-ueber-voll ist gg Aber danke fuer die positive Kritik was die Arbeit selbst angeht g

Ist selbstkunstruiert. Hab aber leider am IPad keinen Schaltplan von, kann ihn aber gerne morgen mit den anderen Bildern uppen. Wobei - so aufregend is der gar nich - Atmega16 (weil 4 HW PWM), IR Empfaenger, paar Taster, FET Treiber Stufe undn bischen Kleinmist - und fertig Programmiert das Ganze in Bascom, wenns Bedarf gibt wird natuerlich auch der Code geuppt, aber nachdems davon 100e hier gibt hab ichs weg gelassen

lg

Wird nachgereicht

Sooooo - jetzt gibts mehr

Zur Steuerung:
Verwendet wurde ein Atmega16 (weil 4 PWM) mitn bisschen Hühnerfutter - ist eigentlich ne alte Steuerung von mir, die in Kürze ausgetauscht wird, macht aber ihren Dienst ganz gut. Hab bei der Steuerung zusätzlich ein paar Ports herausgeführt, man weiß ja nie was man noch braucht. Hier mal der Schaltplan (wurde u.a. in meinem AQ verbaut):
[Blockierte Grafik: http://i399.photobucket.com/albums/pp80/DjTommyB_1985/LED/RGBWControllerSchaltung.png]

Hier die geroutete Platine:
[Blockierte Grafik: http://i399.photobucket.com/albums/pp80/DjTommyB_1985/LED/RGBWControllerLayoutrouted.png]

Die FET's hab ich auf ner externen Treiberstufe angebracht - warum? Ganz einfach, war leichter zu routen
[Blockierte Grafik: http://i399.photobucket.com/albums/pp80/DjTommyB_1985/LED/FETStufeSchaltung.png]
[Blockierte Grafik: http://i399.photobucket.com/albums/pp80/DjTommyB_1985/LED/FETStufeLayoutrouted.png]

Verbaut wurde das Ganze auf ner 19mm MDF Platte, 200cm lang, 10cm breit, versehen mit nem kleinen 1x1cm Rahmen für Blende und Plexi:
[Blockierte Grafik: http://i399.photobucket.com/albums/pp80/DjTommyB_1985/LED/IMG_5169.jpg]

Hier noch n paar Details zur Verdrahtung:
[Blockierte Grafik: http://i399.photobucket.com/albums/pp80/DjTommyB_1985/LED/IMG_5171.jpg]

Die Software kann momentan eigentlich nicht mehr als faden, wird aber in geraumer Zeit erweitert (wenn mal Zeit ist ;)), hier aber der Code für all jene dies interessiert:

$regfile = "m16def.dat"                                     ' Atmel Atmega16
$crystal = 8000000                                          ' Interner Oszilator 8MHz
$hwstack = 32                                               ' default
$swstack = 10                                               ' default
$framesize = 40


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


'Ausgänge deklarieren
Config Portb.3 = Output
Config Portd.5 = Output
Config Portd.4 = Output
Config Portd.7 = Output


'PWM registrieren
Red Alias Ocr1bl
Green Alias Ocr1al
Blue Alias Ocr2
White Alias Ocr0


Enable Timer0
Enable Timer1
Enable Timer2
Start Timer0
Start Timer1
Start Timer2


'Taster deklarieren
S1 Alias Pina.0
Config S1 = Input
Porta.0 = 1


S2 Alias Pinb.0
Config S2 = Input
Portb.0 = 1


S3 Alias Pina.1
Config S3 = Input
Porta.1 = 1


S4 Alias Pinb.1
Config S4 = Input
Portb.1 = 1


S5 Alias Pina.2
Config S5 = Input
Porta.2 = 1


S6 Alias Pinb.2
Config S6 = Input
Portb.2 = 1


Enable Interrupts




Dim Rgb As Byte
Dim Waittime As Long
Dim Scaler As Long
Dim Waittime1 As Long


Rgb = 0
Scaler = 1000
Waittime = 1000
Waittime1 = 1000
Red = 200
Blue = 0
Green = 0
White = 0








Do


If Scaler = Waittime Then
   If Rgb = 0 Then
      If Red < 255 Then
         Incr Red
      End If
      If Blue > 0 Then
         Decr Blue
      End If
      If Red = 255 And Blue = 0 Then
         Waitms Waittime1
         Rgb = 1
      End If
   End If
   If Rgb = 1 Then
      If Green < 255 Then
         Decr Red
         Incr Green
      End If
      If Red = 0 And Green = 255 Then
         Waitms Waittime1
         Rgb = 2
      End If
   End If
   If Rgb = 2 Then
      If Blue < 255 Then
         Decr Green
         Incr Blue
      End If
      If Green = 0 And Blue = 255 Then
         Waitms Waittime1
         Rgb = 0
      End If
   End If
   Scaler = 0
End If
Incr Scaler




Loop
End

Hier noch n paar Bilder von dem Ganzen "in Action":
[Blockierte Grafik: http://i399.photobucket.com/albums/pp80/DjTommyB_1985/LED/IMG_5175.jpg]
[Blockierte Grafik: http://i399.photobucket.com/albums/pp80/DjTommyB_1985/LED/IMG_5178.jpg]
[Blockierte Grafik: http://i399.photobucket.com/albums/pp80/DjTommyB_1985/LED/IMG_5181.jpg]

Hoffe es gefällt

lg
Thomas

Momentan kann ich den von Extern nicht einstellen. Hat seine "festen Zeiten (via "Scaler" und "Waittime")" und arbeitet nach dem. Ich kann natürlich in der SW den Scaler usw runter bzw. rauf drehen um die Geschwindigkeit zu ändern - is aber umsonst, da sowieso in Kürze ne neue Steuerung folgt.