Mein 81 Fullcolor Colour LED bild

[Furtion]

HI,

nachdem ich mit meinem Vater lange überlegt habe und Sachen gekauft
haben die mehr oder weniger passeten, haben wir es nun geschaft ein erstes
Testfeld zum leuchten zu bringen. BIlder folgen unten. Vielen Dank auch an
x-ryder der uns per ICQ unterstützt hat und natürlich auch an meinern Vater
der alle Bauteile gekauft hat.

[Furtion]

Hi,

hier die Bilder

[The Man]

Hallo Furtion,

ich muss zugeben, ich habe noch nicht ganz begriffen was das Gerät macht.
Währ gut, wenn du noch ne Beschreibung verfasst.

[Furtion]

HI,

also das ist erstmal nur ein Testfeld mitdem man guckt ob das mit den 81
Rgb leds überhapt klappt. Das Bild soll im Büro meines Vaters aufgehängt5 werden und da verschiedene Programme durchlaufen und die LEd´s nach
dem Programm verändern.

Eigendlich soll es nur wie jedes andere Bild an der Wand hängen. Sieht
halt am ende viel schöner aus als die anderen bilder :-)

[Florian]

Hallo Furtion!
Du könntest ja noch eine Steuerung für verschiedene Emotionen einbauen, also, dass man seinen aktuellen Gemütszustand einstellen kann bzw. ein bestimmtes Programm einstellen kann.
Bestimmte Farben und Frequenzen sind ermüdend, motivierend, stressend, etc., am Besten mal im Internet nach suchen...

Viele Grüße
Florian

[robocat]

also für blau hab ich folgendes gefunden:
Beständigkeit – Mäßigkeit – Harmonie – Ausgeglichenheit – Ruhe – Sympathie – Zufriedenheit

kann zwar nicht behaupten, dass sich das mit meinen erfahrungen deckt (ich muss hier an den windoof bluescreen denken..) aber man kanns ja mal versuchen ;)

http://de.wikipedia.org/wiki/Farbe#Psychologische_Wirkung

gruesse

[Florian]

(ich muss hier an den windoof bluescreen denken..)Ist halt zu viel Microsoft ... ähh ich meine Grün drin ... ;p
Also die Wirkung funktioniert, nicht umsonst gibt es ja Lichtkuren etc.!

[rveltman]

was verwendest du da für die pwm steuerung. wie schaut dein konzept jetzt aus? mehrere avrs? schieberegister? schaltplan? code? möchte ein änhliches projekt angehen. allerdings mit rotierender ledleiste mit 96 rgb leds ähnlich -> ladyada.net/make/spokepov/

[Furtion]

HI,

also als pwm verwende ich nasi pohtoopptokoppler (die von Pollin), die
mit den Timer Ausgängen der Atmega16 verbunden sind. So also am ende
(bei den 81 Led`s) werden 3 Atmega16 den Hauptteil bilden und ein
Atmega? (weiß ich noch nicht welche ich nehme) wird den anderen
Controllern über I2C dann sagen:

1) Welcher Controller
2) welche LED
3) 3 Farbwerte (0,0,0) - (255,255,255)

so und die Controller machen dann die Led an.

Code und schaltplan kann ich am Sonntag vill. posten da ich grade in
einem Accor hotel vor dem Pc hoke und im Uraub bin.

Und led´s kann ich nur von:
www.leds-and more.de
empfelen(superfreundlicher kontakt und so was).

[rveltman]

hallo furtion

sieht ganz nach einer eleganten lösung aus...
bin schon sehr gespannt auf den schaltplan und code
konnte übrigens bei pollin nur den Dual-Optokoppler TLP2531. ist es dieses teil.

[shaun]

Als ich Optokoppler las fragte ich mich: wozu? Elegant ist an Optokopplern so ziemlich gar nichts, wenn es nicht explizit eine entsprechende Potenzialdifferenz zu überwinden gibt. Der Gipfel des schlechten Schaltungsdesigns sind unsauber designte Schaltungsteile, die sich nur noch über Relais untereinander koppeln lassen, weil nichts zueinander passen will (so gesehen in einem Sinus-Wechselrichter einer dt. Firma, Mitte der 80er Jahre, sah aus wie funktionsgruppenweise aus Bausätzen zusammengestrickt und dann 1:1 auf eine Platine geklatscht). Also erzähl: wozu die Optos? Und wir warten natürlich auf die 81-LED-Version :)

[Furtion]

HI,

ich weiß gtar nicht was ihr gegen opptods habt die sind klein praktisch und
was ich am meisten schätze ist die galwanische trennung (und natürlich
der Preis bei pollin 100 stk für 10€). Also ich habe die opptos gewählt weil,

mir erstens nichts besseres in dei Hände gefallen ist und
zweitens ich panische Angst habe irgendwie die Stromversorgung vom
bild mit der vom Controller zu verbinden.

Vor so etwas habe ich immer Angst (ist das normal?)

[Furtion]

HI,

also hier ist mal der Code:



$regfile = "8535def.dat"

$crystal = 1000000


Declare Sub Allesaus


Config Timer2 = Timer , Prescale = 64

Const Aus = 1
Const An = 0


Config Porta.0 = Output
Config Porta.1 = Output
Config Porta.2 = Output

Config Porta.3 = Output
Config Porta.4 = Output
Config Porta.5 = Output

Config Porta.6 = Output
Config Porta.7 = Output
Config Portb.0 = Output

Config Portd.4 = Output
Config Portd.5 = Output
Config Portb.3 = Output



Led0 Alias Porta.0
Led1 Alias Porta.1
Led2 Alias Porta.2

Led3 Alias Porta.3
Led4 Alias Porta.4
Led5 Alias Porta.5

Led6 Alias Porta.6
Led7 Alias Porta.7
Led8 Alias Portb.0


Rot Alias Portd.4
Blau Alias Portd.5
Gruen Alias Portb.3



Dim Wertr(10) As Integer
Dim Wertb(10) As Integer
Dim Wertg(10) As Integer
Dim I As Integer
Dim J As Integer
Dim Value As Integer

Wertr(1) = 0
Wertg(1) = 0
Wertb(1) = 0

Wertr(2) = 0
Wertg(2) = 0
Wertb(2) = 1

Wertr(3) = 0
Wertg(3) = 0
Wertb(3) = 1

Wertr(4) = 1
Wertg(4) = 0
Wertb(4) = 0

Wertr(5) = 0
Wertg(5) = 0
Wertb(5) = 1

Wertr(6) = 0
Wertg(6) = 0
Wertb(6) = 1

Wertr(7) = 0
Wertg(7) = 0
Wertb(7) = 1

Wertr(8) = 0
Wertg(8) = 0
Wertb(8) = 1

Wertr(9) = 0
Wertg(9) = 0
Wertb(9) = 1




I = 0




On Timer2 Zeitroutine

Const Timervorgabe = 12


Enable Timer2
Enable Interrupts

Do

Loop



Zeitroutine:
Timer2 = Timervorgabe

I = I + 1
If I > 9 Then I = 1

Call Allesaus

Waitms 1



If Wertr(i) = 1 Then Rot = An
If Wertg(i) = 1 Then Gruen = An
If Wertb(i) = 1 Then Blau = An

Select Case I
Case 1
Led0 = An
Case 2
Led1 = An
Case 3
Led2 = An
Case 4
Led3 = An
Case 5
Led4 = An
Case 6
Led5 = An
Case 7
Led6 = An
Case 8
Led7 = An
Case 9
Led8 = An
End Select

Value = Value + 1
If Value > 512 Then
For J = 9 To 1 Step -1
Wertr(j + 1) = Wertr(j)
Wertg(j + 1) = Wertg(j)
Wertb(j + 1) = Wertb(j)
Next J
Wertr(1) = Wertr(10)
Wertg(1) = Wertg(10)
Wertb(1) = Wertb(10)
Value = 0
End If



Return



Sub Allesaus:
Led0 = Aus
Led1 = Aus
Led2 = Aus
Led3 = Aus
Led4 = Aus
Led5 = Aus
Led6 = Aus
Led7 = Aus
Led8 = Aus
Rot = Aus
Blau = Aus
Gruen = Aus
End Sub


Ich verstehe ihn nicht , weil den mein Vater geschreiben hat.

ok und hier sind die Schaltpläne

[oratus sum]

"Zu Led-Transen" lol^^

Du willst also eigentlich ein Bildschirm mit LEDs machen, wenn ich das richtig verstehe? Willst du, dass die RGB-Leds einzeln die Farbe wechseln können, um z.b. Figuren darstellen zu können, oder willst du eine einheitliche Fläche machen?

Es ist beruhigend zu wissen, dass nicht nur ich der einzige bin der von LEDs besessen ist. ;-)

[Furtion]

Hi,

es ist nicht umbedingt so zu sehen, die aktuele version (9 LED) ist eher
als "Raumbereicherung" zu sehen, es muss also nicht immer einen Sinn
haben, was die Matrix anzeigt.