[UPDATE] Projekt RGB-Wall: Plasma-Effect

synvox · 15. März 2009

Hallo Stefan,
wenn ich mein ursprüngliches Vorhaben mit einzelnen, abgeschlossenen Lichtkammern für die 'Pixel' weiter verfolgt hätte, dann wäre sicherlich truLED-Plexi oder ein anderes milchig-weisses das Mittel der Wahl gewesen, da es eben insbesondere durch die starke Streuung aber auch durch Reflexion des Lichtes nach hinten, und dann durch den weissen Hintergrund wieder nach vorn etc. zu einer sehr homogenen Ausleuchtung der ganzen 'Pixel'-Fläche kommt.
Bei meinem jetzigen Vorhaben ohne Kammern muss das Plexi eine möglichst hohe Transmission (möglichst ohne oder nur wenig Reflexion) bei gleichzeitig guter Lichstreuung bieten, und da ist eben Satin Ice die beste Wahl, welches die 'Pixel' genügend weichzeichnet, aber dennoch wenig 'Übersprechen' zwischen den 'Pixeln' (oder besser gesagt Farbklecksen) verursacht. Deshalb ist ja auch der Hintergrund (d.h. die Platine) jetzt in matt-schwarz gehalten, damit etwaige Rest-Reflexionen am Plexi nach hinten dann möglichst vom Hintergrund geschluckt werden.

Bezüglich Lötstoppfarbe:
Pesi hat da schon das richtige Zitat von mir rausgesucht, deshalb wiederhole ich es jetzt nicht nochmals. Ausserdem ist in meiner Antwort oben an Stefan der Grund nochmals aufgeführt. Aber ich muss auch zugeben, dass mir das Schwarz jetzt auch rein vom Style her besser gefällt (wie auch Fightclub) als das Weiss.

Bezüglich Lobby bzw. PRO-Bereich:
Ich hätte für die Fortsetzung der Projekt-Fortschritts-Dokumentation mit der neuen Platine Version 2 noch so gerne einen neuen Thread im PRO-Bereich aufgemacht, nur leider bin ich dort immer noch nicht freigeschaltet worden, obwohl meine Bewerbung dort schon seit Ende Oktober letzten Jahres mit lauter "PRO"-Bekundungen drin steht. Aber eigentlich will ich wegen sowas gar nicht rumjammern. Wenn man mich freischaltet, ok, und wenn nicht, auch ok, ich bin ja nicht auf den PRO-Berich angewiesen.

Bezüglich Spam:
Schneeblau, dein Interesse an meinem Projekt in allen Ehren, aber der Kommentar mit den Elkos war schon etwas dümmlich, das wirst du wohl auch selbst zugeben müssen, wenn du ganz ruhig darüber nachdenkst. Schliesslich habe ich Montage-Bohrungen (3 mm) auf meiner Modul-Platine in jeder Ecke, da werde ich wohl kaum irgendwelche elektronischen Bauelemente als Abstandhalter oder sogar Montage-Elemente missbrauchen, meinst du nicht auch? . Damit will ich es hier aber bewenden lassen, kühlt bitte eure Gemüter etwas ab und lasst uns hier wieder so zivilisiert es geht zum eigentlichen Thema zurück kommen.

Grüsse aus Zürich
Neni

maxi · 16. März 2009

So meine erstes Testprogramm lief inzwischen. Ist doch garnicht so schwierig zu programmieren, habe haber noch nicht alle Register probiert. Allerdings ist die LED Leuchtkraft für meine Vorhaben noch etwas gering. Kennt jemand sehr helle LED´s im 1206 Gehäuse? Möglichst farbige?

NikWin · 16. März 2009

http://www.led-tech.de/de/Leuchtdioden/SMD-LEDs-c_1_2.html -leider nicht farbig außer RGB

http://www.pur-led.de/index.php?cat=c155_SMD-LED-1206.html -farbig

Lötmeister · 16. März 2009

OT: Damit sich keiner wundert: Ich hab' den Thread mal ein wenig vom Unrat befreit ...

synvox · 18. März 2009

So, nur ein kurzes Update hier, Details, Bilder und Videos zum Test werden dann in einem überarbeiteten Thread zum Projekt im PRO-Bereich reingestellt werden, sobald ich Zeit dafür habe.

Die Platine Version 2 funktioniert einwandfrei . Ich habe eine kleine Testfirmware mit versch. festen Animationsmustern draufgespielt. Dabei wird der Dipschalter (der normalerweise zur Adresseinstellung des einzelnen Modules dient) zum Einstellen von Muster, Animationsgeschwindigkeit und Farbmodus 'missbraucht'. Der Test war ein absoluter Erfolg, und insbesondere muss ich sagen, dass ich diesmal von der sehr niedrigen Varianz der LEDs zueinander total überzeugt bin. Die verwendeten Samsung-PLCC6-LEDs sind bezogen auf die Anforderungen in diesem Projekt also ihr Geld in allen Belangen wert. Bei den zwei getesteten Farbmodi - einmal klassischer Hue-Regenbogenverlauf und einmal dasselbe aber mit Helligkeitsausgleich (die Lichtemmissionsleistung wird über den gesamten Hue-Bereich möglichst konstant gehalten) - bin ich mir noch nicht ganz im Klaren, welcher für meine Zwecke der idealere ist. Da muss ich aus optischer Sicht noch ein paar weitere Vergleiche anstellen. Vom Gesamtstromverbrauch her hat natürlich der Farbmodus mit Helligkeitsausgleich einen klaren Vorteil.

Soweit mal also das Update hier, im Post darunter stelle ich noch den BASCOM-Testcode rein, wo man sich auch die i2c-Ansteuerung des TLC59116 rauslesen kann.

Gruss
Neni

synvox · 18. März 2009

Code

'-------------------------------------------------------------------------------
'                                 (cc) 2009 SYNVOX
'              This is a test animation demo for the RGB-Wall-Module
'             It shows how to access and configure the TLC59116-Chips
'-------------------------------------------------------------------------------




$regfile = "m168def.dat"                                    ' the used AVR-chip
$crystal = 16000000
$hwstack = 64
$swstack = 64
$framesize = 64


Ddrb = 0
Portb = 255


$lib "i2c_twi.lbx"                                          ' we do not use software emulated I2C but the TWI


Config Scl = Portc.5                                        ' we need to provide the SCL pin name
Config Sda = Portc.4                                        ' we need to provide the SDA pin name


I2cinit                                                     ' we need to set the pins in the proper state


Config Twi = 400000                                         ' wanted clock frequency
'will set TWBR and TWSR


Const Tlc59116_reset = &HD6
Const Tlc59116_all = &HD0
Const Tlc59116_1 = &HC0
Const Tlc59116_2 = &HC2
Const Tlc59116_3 = &HC4


Dim Tlc_value(48) As Byte


Dim Offset(16) As Word
Dim Hue_val As Word , Curr_step As Word
Dim Red As Byte , Green As Byte , Blue As Byte
Dim Tlc_index As Byte , Index As Byte
Dim Switchval As Byte , Switchval_new As Byte , Hsb_switch As Byte
Dim Speedval As Byte , Progval As Byte , Speed As Word
Dim Temp_b As Byte


Declare Sub Tlc_reset


Declare Sub Tlc_init


Declare Sub Tlc_color_set


Declare Sub Color_set


Declare Sub Color_set_hsb


Offset(1) = 0
Offset(2) = 95
Offset(3) = 191
Offset(4) = 286
Offset(8) = 382
Offset(7) = 477
Offset(6) = 573
Offset(5) = 668
Offset(9) = 764
Offset(10) = 859
Offset(11) = 955
Offset(12) = 1050
Offset(16) = 1146
Offset(15) = 1241
Offset(14) = 1337
Offset(13) = 1433


Switchval = &B00111111


Speed = 2


Waitms 500


Tlc_reset


Waitms 20


Tlc_init


Waitms 20


Do
   For Curr_step = 0 To 1529
      Hsb_switch = Pinb And &B00000001
      Switchval_new = Pinb And &B00111110
      If Switchval <> Switchval_new Then
         Switchval = Switchval_new
         Gosub Prog_speed
      End If
      Tlc_index = 0
      For Index = 1 To 16
         If Hsb_switch = 1 Then
            Color_set
         Else
            Color_set_hsb
         End If
      Next
      Tlc_color_set
      Waitms Speed
   Next
Loop


Prog_speed:
   Progval = Switchval And &B00111000
   Speedval = Switchval And &B00000110
   Select Case Speedval
      Case &B00000110 : Speed = 5
      Case &B00000100 : Speed = 10
      Case &B00000010 : Speed = 20
      Case &B00000000 : Speed = 50
   End Select
   If Progval = &B00111000 Then
      Offset(1) = 0
      Offset(2) = 95
      Offset(3) = 191
      Offset(4) = 286
      Offset(8) = 382
      Offset(7) = 477
      Offset(6) = 573
      Offset(5) = 668
      Offset(9) = 764
      Offset(10) = 859
      Offset(11) = 955
      Offset(12) = 1050
      Offset(16) = 1146
      Offset(15) = 1241
      Offset(14) = 1337
      Offset(13) = 1433
   Elseif Progval = &B00110000 Then
      Offset(1) = 0
      Offset(2) = 100
      Offset(3) = 200
      Offset(4) = 300
      Offset(5) = 0
      Offset(6) = 100
      Offset(7) = 200
      Offset(8) = 300
      Offset(9) = 0
      Offset(10) = 100
      Offset(11) = 200
      Offset(12) = 300
      Offset(13) = 0
      Offset(14) = 100
      Offset(15) = 200
      Offset(16) = 300
   Elseif Progval = &B00101000 Then
      Offset(1) = 0
      Offset(2) = 0
      Offset(3) = 760
      Offset(4) = 760
      Offset(5) = 0
      Offset(6) = 0
      Offset(7) = 760
      Offset(8) = 760
      Offset(9) = 760
      Offset(10) = 760
      Offset(11) = 0
      Offset(12) = 0
      Offset(13) = 760
      Offset(14) = 760
      Offset(15) = 0
      Offset(16) = 0
   Elseif Progval = &B00100000 Then
      Offset(1) = 0
      Offset(2) = 100
      Offset(3) = 200
      Offset(4) = 300
      Offset(5) = 100
      Offset(6) = 200
      Offset(7) = 300
      Offset(8) = 400
      Offset(9) = 200
      Offset(10) = 300
      Offset(11) = 400
      Offset(12) = 500
      Offset(13) = 300
      Offset(14) = 400
      Offset(15) = 500
      Offset(16) = 600
   Elseif Progval = &B00011000 Then
      Offset(1) = 0
      Offset(2) = 100
      Offset(3) = 200
      Offset(4) = 300
      Offset(5) = 100
      Offset(6) = 100
      Offset(7) = 200
      Offset(8) = 300
      Offset(9) = 200
      Offset(10) = 200
      Offset(11) = 200
      Offset(12) = 300
      Offset(13) = 300
      Offset(14) = 300
      Offset(15) = 300
      Offset(16) = 300
   Elseif Progval = &B00010000 Then
      Offset(1) = 0
      Offset(2) = 0
      Offset(3) = 0
      Offset(4) = 0
      Offset(5) = 0
      Offset(6) = 100
      Offset(7) = 100
      Offset(8) = 100
      Offset(9) = 0
      Offset(10) = 100
      Offset(11) = 200
      Offset(12) = 200
      Offset(13) = 0
      Offset(14) = 100
      Offset(15) = 200
      Offset(16) = 300
   Elseif Progval = &B00001000 Then
      Offset(1) = 0
      Offset(2) = 0
      Offset(3) = 0
      Offset(4) = 0
      Offset(5) = 0
      Offset(6) = 200
      Offset(7) = 200
      Offset(8) = 0
      Offset(9) = 0
      Offset(10) = 200
      Offset(11) = 200
      Offset(12) = 0
      Offset(13) = 0
      Offset(14) = 0
      Offset(15) = 0
      Offset(16) = 0
   Else
      Offset(1) = 0
      Offset(2) = 0
      Offset(3) = 0
      Offset(4) = 0
      Offset(5) = 0
      Offset(6) = 0
      Offset(7) = 0
      Offset(8) = 0
      Offset(9) = 0
      Offset(10) = 0
      Offset(11) = 0
      Offset(12) = 0
      Offset(13) = 0
      Offset(14) = 0
      Offset(15) = 0
      Offset(16) = 0
   End If
Return


Sub Tlc_reset
   I2cstart
   I2cwbyte Tlc59116_reset
   I2cwbyte &HA5
   I2cwbyte &H5A
   I2cstop
End Sub


Sub Tlc_init
   I2cstart
   I2cwbyte Tlc59116_all
   I2cwbyte &B10000000                                      'CONTROL, autoincrement for all registers; start at 0
   I2cwbyte &B00000001                                      'MODE1 set to normal mode and only allow ALLCALL-Address
   I2cwbyte &B00000000                                      'everything at default in MODE2
   For Temp_b = 0 To 15
      I2cwbyte 0                                            'all LED-PWM to zero
   Next
   I2cwbyte 255                                             'group brightness PWM at maximum
   I2cwbyte 0                                               'group freq register = 0; don't care
   For Temp_b = 0 To 3
      I2cwbyte &B11111111                                   'all outputs on and controlled by individual and global PWM
   Next
   I2cstop                                                  'all other registers can be left at power on reset default
End Sub


Sub Tlc_color_set
   I2cstart
   I2cwbyte Tlc59116_1                                      'address the first tlc
   I2cwbyte &B10100010                                      'CONTROL, autoincrement for indiv. brightness registers only; start at 2
   For Temp_b = 1 To 16
      I2cwbyte Tlc_value(temp_b)                            'write PWM values
   Next
   I2cstart                                                 'i2c restart without stop
   I2cwbyte Tlc59116_2                                      'address the second tlc
   I2cwbyte &B10100010
   For Temp_b = 17 To 32
      I2cwbyte Tlc_value(temp_b)
   Next
   I2cstart                                                 'again restart without stop
   I2cwbyte Tlc59116_3                                      'address the third tlc
   I2cwbyte &B10100010
   For Temp_b = 33 To 48
      I2cwbyte Tlc_value(temp_b)
   Next
   I2cstop                                                  'all outputs on all three TLCs change synced on i2c-stop
End Sub


Sub Color_set
   Hue_val = Curr_step + Offset(index)
   If Hue_val > 1529 Then Hue_val = Hue_val - 1530
   If Hue_val < 255 Then
      Red = 255
      Green = Hue_val
      Blue = 0
   Elseif Hue_val < 510 Then
      Red = 510 - Hue_val
      Green = 255
      Blue = 0
   Elseif Hue_val < 765 Then
      Red = 0
      Green = 255
      Blue = Hue_val - 510
   Elseif Hue_val < 1020 Then
      Red = 0
      Green = 1020 - Hue_val
      Blue = 255
   Elseif Hue_val < 1275 Then
      Red = Hue_val - 1020
      Green = 0
      Blue = 255
   Else
      Red = 255
      Green = 0
      Blue = 1530 - Hue_val
   End If
   Incr Tlc_index
   Tlc_value(tlc_index) = Red
   Incr Tlc_index
   Tlc_value(tlc_index) = Green
   Incr Tlc_index
   Tlc_value(tlc_index) = Blue
End Sub


Sub Color_set_hsb
   Hue_val = Curr_step + Offset(index)
   If Hue_val > 1529 Then Hue_val = Hue_val - 1530
   Shift Hue_val , Right
   If Hue_val < 255 Then
      Red = 255 - Hue_val
      Green = Hue_val
      Blue = 0
   Elseif Hue_val < 510 Then
      Red = 0
      Green = 510 - Hue_val
      Blue = Hue_val - 255
   Else
      Red = Hue_val - 510
      Green = 0
      Blue = 765 - Hue_val
   End If
   Incr Tlc_index
   Tlc_value(tlc_index) = Red
   Incr Tlc_index
   Tlc_value(tlc_index) = Green
   Incr Tlc_index
   Tlc_value(tlc_index) = Blue
End Sub


End

Alles anzeigen

Stefan_Z · 18. März 2009

Sehr schön, so will es das Publikum sehen!
Jetzt dürfen wir noch auf die videos gespannt sein, oder??

maxi · 19. März 2009

Sehr schöner Code.

Was mich wundert ist das bei dir "Config Twi = 400000" funktioniert. Bei mir kommt da Fehlermeldung, es klappt nur bis 200000". Woran das wieder liegt, ich nutze gleiche lib????

synvox · 19. März 2009

Hallo maxi,

es könnte daran liegen, dass du eine zu niedrige CPU-clock verwendest. Diese muss nämlich mindestens 16 mal höher sein als die gewünschte SCL-Taktrate. Bei 400 kHz SCL-Takt musst du also mind. 6,4 MHz CPU-clock haben, idealerweise aber ab 8 MHz.

Gruss
Neni

maxi · 19. März 2009

Zitat von synvox

Hallo maxi,

es könnte daran liegen, dass du eine zu niedrige CPU-clock verwendest. Diese muss nämlich mindestens 16 mal höher sein als die gewünschte SCL-Taktrate. Bei 400 kHz SCL-Takt musst du also mind. 6,4 MHz CPU-clock haben, idealerweise aber ab 8 MHz.

Gruss
Neni

Das kanns in meinem Fall abe rnicht sein da ich sogar 20 Mhz nutze, also sogar mehr als du. Komisch!

synvox · 19. März 2009

hmmm, also hast du kontrolliert, ob die $crystal-Angabe in deinem Code auch stimmt?
also $crystal = 20000000
Es passiert nicht selten dass man mal eine Null zu wenig eingibt oder so , und dann stimmen die entsprechenden Berechnungen für die Registerwerte im Compiler eben nicht.

Was gibt er dir denn als Fehlermeldung aus?

Gruss
Neni

maxi · 19. März 2009

Zitat von synvox

hmmm, also hast du kontrolliert, ob die $crystal-Angabe in deinem Code auch stimmt?
also $crystal = 20000000

Nö, das hat schon gestimmt. Ich habs aber nun gefunden, es lag daran das die crystal Anweisung hinter der LIB Anweisung kam, sie musste davor. Ich dachte das ist egal. Nun klappts auch mit 1 Mbit TWI

maxi · 6. April 2009

Gibts schon was neues. Video oder so? Ist TLC schnell genug für deine Animationen?

synvox · 6. April 2009

Hallo maxi,

naja, ich muss zugeben, dass ich etwas 'faul' war in der letzten Zeit. Darum habe ich noch kein Video gemacht. Die Test-Animationen laufen allerdings super, und ich benötige bei 400 kHz i2c knapp etwas mehr als eine Millisekunde für die Datenübertragung aller 16 RGB-LEDs, also pro Frame. Damit kann ich mit dem aktuellen Test-Animationen-Programm locker 500 Frames pro Sekunde schaffen. Wenn der µC in der Endversion dann noch etwas mehr beschäftigt sein wird (wobei die Frame-Verarbeitungszeit zur reinen Datenübertragungszeit hinzukommt), wird die max. erreichbare Framerate auf vielleicht 300 - 350 Frames pro Sekunde sinken. Da ich aber die Framerate sowieso auf max. 100 pro Sekunde limitieren werde, ist das noch locker in den Spezifikationen drin.

Im Moment bin ich am Planen des Gesamtaufbaus (16 Module, 256 RGB-LEDs) inkl. Gehäuse, Hauptcontroller, Überlegungen zum Steuerungsprotokoll etc. Auch deshalb bin ich noch nicht dazu gekommen, ein Viedo zu machen, den Thread neu aufzubereiten und in den Pro-Bereich zu stellen (mit dem Video allein ist's eben auch nicht getan).

Gruss
Neni

synvox · 8. April 2009

...

Kanwas · 8. April 2009

Das macht doch glatt Lust auf Mehr

Echt toll was du da auf die Beine stellst.

Ich komme leider vor lauter arbeit nicht dazu auch nur eins meiner Projekte ernsthaft zu bearbeiten Und die Liste mit anzufangenden Projekten wird auch immer länger

maxi · 8. April 2009

Nicht übel die Animation! Nur die Musik passt vom Tempo nicht so gut dazu, da hättest du richtig flott animieren müssen. So würde besser ein Walzer passen

Apollo · 8. April 2009

Geile Sache Da bekommt man echt Lust selber sowas zu basteln *gg*

sZabo · 13. April 2009

wow, der Quellcode sieht auf jeden Fall beeindruckend aus. Muss mal mit meinem Elektroniklehrer reden... vielleicht bring ich den ja dazu bei uns mal sowas sinnvolles zu machen ...

zongo · 13. April 2009

Sieht echt scharf aus
Das Problem mit dem Farbpumpen und dass die Farben nicht natürlich aussehen hab ich mit meiner Ixus 80 leider auch... obwohl die sonst echt gute Videos macht, auch im Dunkeln

[UPDATE] Projekt RGB-Wall: Plasma-Effect

Teilen

Benutzer online in diesem Thema