RGB-LED WS2812 ansteuern

    This site uses cookies. By continuing to browse this site, you are agreeing to our Cookie Policy.

    Aufgrund technischer Veränderungen ist der Mailverkehr innerhalb des Forums (Private Nachrichten) nur noch eingeschränkt möglich. Die Einschränkung ist notwendig, um zusätzliche Betriebskosten für das Forum zu vermeiden. Näheres zu den Hintergründen im Thread "Aktuelles zum Forum".Wir bitten um Verständnis.

    Hinweis kann nach Kenntnisnahme deaktiviert werden!

    • RGB-LED WS2812 ansteuern

      Hallo,
      Habe einige dieser RGB-LED W2812, weis aber nicht wie diese angesteurt werden können.
      Es soll möglich sein verschiedene LED in Serie zu schalten und dabei je mit einer anderen Farbe leuchten lassen.
      Wer hat dazu eine Programm-Idee ?
      Im Anhang habe alles was ich dazu finden konnte zusammen gestellt

    • Hallo liebe Leute
      ich habe die Sachen unter "Config Rainbow" mir angesehen.
      Dort gibt es auch einige Beispiele mit Quellcode.

      Leider ist es für mich sehr schwer alle Zusammenhänge zu verstehen.
      Mir würden einige ganz kleine Programmbeispiele weiterhelfen, in denen ersichtlich wird
      wie z.B. die Farbsteuerung funktioniert und auf was man da sonst noch besonders achten muß.
      Es reicht ja schon für 2 LEDs fürs erste.
      Gruß

    • Die Hilfe ist da schon recht gut mit einem Beispiel.
      Z.B. bei Config Rainbow:


      Source Code

      1. Config RAINBOW=1, RB0_LEN=8, RB0_PORT=PORTB,rb0_pin=0
      2. ' ^ connected to pin 0
      3. ' ^------------ connected to portB
      4. ' ^-------------------------- 8 leds on stripe
      5. ' ^------------------------------------- 1 channel


      Hier legst du die Anzahl Strips fest und wieviel LEDs dran sind (bei dir 2)
      Port und Pin sind der Datenausgang für den Strip.

      Source Code

      1. Dim Color(3) as Byte
      2. R alias Color(_base) : G alias Color(_base + 1) : B alias Color(_base + 2)

      Die Variablen für die Farbe deklarieren.

      Source Code

      1. RB_SelectChannel 0 ' Kanal wählen
      2. R = 0 : G = 0 : B = 100 ' blau
      3. RB_SetColor 0 , color(1) ' die erste LED
      4. R = 50 : G = 50 : B = 0 ' gelb
      5. RB_SetColor 1 , color(1) ' zweite LED
      6. RB_Send ' und raus senden
      Und dann die einzelnen LEDs einfärben und rausschicken.

      So einfach ist das ;)

    • Hallo Michael,
      Danke für Deine nette Unterweisung. Kann ich gut gebrauchen und verstehe jetzt einiges.
      Manchmal braucht es halt ein wenig anschieben.
      Ich teste weiter damit ich alles verstehen lerne.
      man lernt nie aus, auch wenn man schon 74 ist.

      Gruß und schönes Wochende

    • Hallo,
      ich habe die erste LED an den PortB.0 angeschlossen, aber es tut sich nichts.
      Dann habe ich mal PORTB.1 versuchweise drangelegt, da fingen die LEds mit dem Farbwechsel an.
      Aber so wie Michael die Farbe vorgegeben hat(siehe dort), das funktionierte leider nicht.
      Irgendetwas mache ich verkehrt.
      Und da ist noch was: Beim Schaltplan des ARDUINO habe ich gesehen, daß vor dem "DIN"-Pin der ersten LED ein Widerstand vorgeschaltet war.
      Ich glaube so 300 Ohm, ist das hier auch notwendig?
      Gruß

    • Hallo,
      ich habe einfach eines der Beispiele unter "Config Raibow" kopiert und ausprobiert.
      Dabei fiel mir auf, daß mein ATmega 8 nur mit 3684000 Hz arbeitet.
      Ich habe dem Original-Quellcode meinen Quellcode gegenüber gestellt.
      Vielleicht ligts daran. Schau mal rein
      Siehe Anhang
      Gruß

      BASCOM Source Code: Quellcode Vergleich Rainbow Softblink

      1. '-------------------------------------------------------------------------------
      2. ' rainbow_ws2812_Demo_Softblink.bas
      3. 'This demo show RB_OrColor and RB_AndColor which can be used
      4. 'for a flashing LED with a fade effect.
      5. '-------------------------------------------------------------------------------
      6. $regfile = "m88pdef.dat"
      7. $crystal = 8000000
      8. $hwstack = 32
      9. $swstack = 16
      10. $framesize = 32
      11. Config Rainbow = 1 , Rb0_len = 8 , Rb0_port = Portb , Rb0_pin = 0
      12. ' ^ connected to pin 0
      13. ' ^------------ connected to portB
      14. ' ^-------------------------- 8 leds on stripe
      15. ' ^------------------------------------- 1 channel
      17. Const Numled = 8
      18. Dim Mask As Dword
      19. Dim Fade As Byte
      21. '----[MAIN]---------------------------------------------------------------------
      22. Rb_selectchannel 0 ' select first channel
      24. Do
      25. For Fade = 0 To 7
      26. Waitms 20
      27. Shift Mask , Left
      28. Incr Mask
      29. Rb_orcolor 0 , Mask
      30. Rb_send
      31. Next
      32. For Fade = 0 To 7
      33. Waitms 20
      34. Shift Mask , Right
      35. Rb_andcolor 0 , Mask
      36. Rb_send
      37. Next
      38. Loop
      40. '-------------------------------------------------------------------------
      41. 'So sieht mein Quellcode aus:
      43. $regfile = "m8adef.dat" 'Prozessor
      44. $crystal = 3684000 'Taktfrequenz
      45. $baud = 19200
      47. $hwstack = 40
      48. $swstack = 16
      49. $framesize = 32
      50. Config Rainbow = 1 , Rb0_len = 2 , Rb0_port = Portb , Rb0_pin = 0
      51. ' ^ connected to pin 0
      52. ' ^------------ connected to portB
      53. ' ^-------------------------- 8 leds on stripe
      54. ' ^------------------------------------- 1 channel
      56. Const Numled = 2
      57. Dim Mask As Dword
      58. Dim Fade As Byte
      60. '----[MAIN]---------------------------------------------------------------------
      61. Rb_selectchannel 0 ' select first channel
      63. Do
      64. For Fade = 0 To 7
      65. Waitms 100
      66. Shift Mask , Left
      67. Incr Mask
      68. Rb_orcolor 4 , Mask
      69. Rb_send
      70. Next
      71. For Fade = 0 To 7
      72. Waitms 100
      73. Shift Mask , Right
      74. Rb_andcolor 5 , Mask
      75. Rb_send
      76. Next
      77. Loop
      Display All

    • djmsc wrote:

      Hast du einen 3,684 MHz Quarz am Mega8 oder wie kommst du auf diese Frequenz?
      Ja, die Frage stellt sich mir auch.
      Die Antwort ist wichtig, vielleicht kannst du mal eine normale LED anschließen und einfach blinken lassen.
      Da siehst du, ob die Frequenz stimmt.

      Dein Programmbeispiel ist etwas, naja, oversized.
      Ich würde in kleineren Schritten gehen, die Konstante Numled benutzt du gar nicht und das shiften kannst du später immernoch machen.

      Hier ein kleines Beispiel, was die LEDs im Sekundentakt blinken lässt:
      Probier das (wenn der Takt stimmt)

      BASCOM Source Code

      1. $regfile = "m8adef.dat" 'Prozessor
      2. $crystal = 3684000 'Taktfrequenz
      3. $hwstack = 40
      4. $swstack = 16
      5. $framesize = 32
      9. Config Rainbow = 1 , Rb0_len = 2 , Rb0_port = Portb , Rb0_pin = 0
      10. ' ^ connected to pin 0
      11. ' ^-------------- connected to portB
      12. ' ^-------------------------- 2 leds on stripe
      13. ' ^------------------------------------- 1 channel
      16. Dim Color(3) as Byte
      17. R alias Color(_base) : G alias Color(_base + 1) : B alias Color(_base + 2)
      19. Rb_selectchannel 0 ' Kanal wählen
      20. Do
      23. R = 0 : G = 0 : B = 100 ' blau
      24. Rb_setcolor 0 , Color(1) ' die erste LED
      25. R = 50 : G = 50 : B = 0 ' gelb
      26. RB_SetColor 1 , color(1) ' zweite LED
      27. Rb_send ' und raus senden
      29. Waitms 500
      31. R = 0 : G = 100 : B = 0 ' grün
      32. Rb_setcolor 0 , Color(1) ' die erste LED
      33. R = 100 : G = 0 : B = 0 ' rot
      34. Rb_setcolor 1 , Color(1) ' zweite LED
      35. Rb_send
      37. Waitms 500
      39. Loop
      Display All

    • Hallo,
      ich komme ein wenig spät dazu Euch zu berichten.
      ja mein Micro läuft auf dieser Quarzfrequenz mit einem Quarz 3684000.
      Ich habe nun einen neuen ATmega8 auf das Board gesetzt und diesen mit dem Tool "AVR Prog Tool" auf die Interne Frequenz 8Mhz umgestellt.
      Und siehe da die W2812-LEDs leuchten wie gewünscht.
      Es lag an der zu langsamen Frequenz.

      Danke an Euch für Eure Unterstützung und Hilfe
      Gruß

    • Hallo allerseits,

      ich bin kurz vor dem Durchdrehen. Auf einer Platine mit ATMega 2560 (16MHz) lief eine WS2812 problemlos,
      bis ich das Layout überarbeitet habe und das Ganze jetzt auf Port J.6 hängt.
      Ich habe zwei verschiedene CPU-Module, beide das gleiche Ergebnis, keinerlei Pulse am Port.
      Das ist die Config:

      Source Code

      1. Config Rainbow = 1 , Rb0_len = 1 , Rb0_port = Portj , Rb0_pin = 6 'Rainbow-LED konfigurieren
      2. Dim Color(3) As Byte
      3. R Alias Color(_base) : G Alias Color(_base + 1) : B Alias Color(_base + 2)

      Und damit sollte es dann eigentlich fnktionieren:

      Source Code

      1. Rb_selectchannel 0 ' select first channel
      2. R = 100 : G = 0 : B = 0 ' define a color
      3. RB_SetColor 0 , color(1) ' update leds
      4. Rb_send
      5. Waitms 1000
      6. Rb_selectchannel 0 ' select first channel
      7. R = 0 : G = 100 : B = 0 ' define a color
      8. Rb_setcolor 0 , Color(1) ' update leds
      9. Rb_send
      10. Waitms 1000
      11. RB_SelectChannel 0 ' select first channel
      12. R = 0 : G = 0 : B = 100 ' define a color
      13. RB_SetColor 0 , color(1) ' update leds
      14. Rb_send
      Display All

      Wenn man am Portpin z.B. mit dem Lötkolben rumfuhrwerkt, reagiert die LED und geht an oder wechselt dann die Farbe.
      Funktioniert das mit Port J nicht? Oder was ist jetzt anders? An Port B.6 hat es problemlos funktioniert.

      Viele Grüße

      Frank

    • Ja, so sieht es wohl aus.
      Habe jetzt mal auf PortB.7 umgeschwenkt und es funktioniert wie es soll.
      Danke für den Hinweis! Hast Du das gewußt oder nur vermutet?
      Sowas könnte ja glatt mal irgendwo in einer Hilfe hinterlegt werden, bevor der nächste daran verzweifelt.

      MfG

      Frank