WS2812B - Rainbow Cycle Effekt

    Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

    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!

    • WS2812B - Rainbow Cycle Effekt

      Ich versuche gerade, den Rainbow Cycle Effekt (siehe Rainbow Cycle oder WS2812B Rainbow) hin zu bekommen. Im ersten Link ist sogar der Code dabei, allerding in C (oder was auch immer) a_28_2c02f089 . Da versteh ich nix.

      Bis jetzt hab ich es geschafft, die Farben auf den Strip zu verteilen und auch zu bewegen, allerdings sieht es bei mir nicht wie "durchgefadet" sondern eher "durchgeshifted" aus, also ziemlich ruppig.


      BASCOM-Quellcode

      1. 'Rainbow Cycle WS2812-Leds
      2. 'Bascom Version 2.0.8.0
      3. '$sim
      5. $regfile = "attiny85.dat"
      6. $crystal = 8000000
      8. $hwstack = 32
      9. $swstack = 10
      10. $framesize = 40
      14. Const Num_leds = 30
      15. Const Num_leds_1 = Num_leds - 1
      18. Config Rainbow = 1 , Rb0_len = Num_leds , Rb0_port = Portb , Rb0_pin = 2
      21. Rb_selectchannel 0
      23. Dim Farbe(3) As Byte
      24. Rot Alias Farbe(_base)
      25. Gruen Alias Farbe(_base + 1)
      26. Blau Alias Farbe(_base + 2)
      29. Dim A As Word
      30. Dim N As Byte
      31. Dim Position As Word
      33. Const Alignment = 768 / Num_leds 'Aufteilung des Farbspektrums auf die Anzahl der LEDs
      36. Do
      38. For N = 0 To Num_leds_1
      40. Select Case Position
      42. Case 0 To 255
      43. Rot = Position '0-255
      44. Gruen = 255 - Position '255-0
      45. Blau = 0
      47. Case 256 To 511
      48. A = Position - 256 '0-255
      49. Rot = 255 - A '255-0
      50. Gruen = 0
      51. Blau = A '0-255
      53. Case 512 To 767
      54. A = Position - 512 '0-255
      55. Rot = 0
      56. Gruen = A '0-255
      57. Blau = 255 - Gruen '255-0
      59. End Select
      61. Rb_setcolor N , Farbe()
      64. Position = Position + Alignment 'Farbspektrum für die nächste LED verschieben
      65. Position = Position - 1 'noch einen kleinen Tick abweichen, um eine Bewegung zu erzeugen
      66. If Position > 767 Then Position = 0
      69. Next N
      71. Rb_send
      72. Waitms 50
      75. Loop
      76. End
      Alles anzeigen

      Könnte mir jemand einen Tipp geben, wie ich das Faden hinbekomme?

      Gruß
      Robert

    • Da gibt's doch die Überblendung im Farbkreis: 100% rot, jetzt stufenweise grün von 0 bis 100%, jetzt stufenweise rot auf 0 bringen, jetzt stufenweise blau dazu, grün auf 0 bringen, stufenweise rot dazu, blau auf 0 bringen. Fertig 1x im Farbkreis rum. Jetzt halt bei x Schritten die Leds 'weiterschieben'.
      Raum für Notizen

      -----------------------------------------------------------------------------------------------------

      -----------------------------------------------------------------------------------------------------

    • Hatte ich auch schon probiert, da sah das Programm dann so aus (Farbverlauf noch fehlerhaft, war aber auch nur zum kurzen Testen)

      BASCOM-Quellcode

      1. 'Rainbow Cycle WS2812-Leds
      2. 'Bascom Version 2.0.8.0
      3. '$sim
      5. $regfile = "attiny85.dat"
      6. $crystal = 8000000
      8. $hwstack = 32
      9. $swstack = 10
      10. $framesize = 40
      14. Const Num_leds = 30
      16. Config Rainbow = 1 , Rb0_len = Num_leds , Rb0_port = Portb , Rb0_pin = 2
      20. Rb_selectchannel 0
      22. Dim Farbe(3) As Byte
      23. Rot Alias Farbe(_base)
      24. Gruen Alias Farbe(_base + 1)
      25. Blau Alias Farbe(_base + 2)
      27. Const Num_leds_1 = Num_leds - 1
      29. Dim N As Word
      30. Dim Position As Word
      33. Const Alignment = 1280 / Num_leds
      34. Dim A As Word
      35. Dim B As Word
      37. Do
      39. For N = 0 To Num_leds_1
      42. Select Case Position
      44. Case 0 To 255
      45. Rot = Position '0-255
      46. Gruen = 255 '255
      47. Blau = 0
      49. Case 256 To 511
      50. A = Position - 256 '0-255
      51. Rot = 255 '255
      52. Gruen = 255 - A
      53. Blau = 0 '0-255
      55. Case 512 To 767
      56. A = Position - 512 '0-255
      57. Rot = 255 - A
      58. Gruen = 0
      59. Blau = A '255-0
      61. Case 768 To 1023
      62. A = Position - 768 '0-255
      63. Rot = 0
      64. Gruen = 0
      65. Blau = 255 '255
      67. Case 1024 To 1279
      68. A = Position - 1024 '0-255
      69. Rot = 0
      70. Gruen = A
      71. Blau = 255 - A '255-0
      73. End Select
      76. Rb_setcolor N , Farbe()
      79. Position = Position + Alignment 'Farbspektrum für die nächste LED verschieben
      80. Position = Position - 1 'noch einen kleinen Tick abweichen, um eine Bewegung zu erzeugen
      82. If Position > 1279 Then Position = 0
      84. Next N
      86. Rb_send
      87. Waitms 200
      90. Loop
      91. End
      Alles anzeigen
      Ändert aber nichts an der ruppigen Bewegung. Sie ist einfach nicht fließend.

      Gruß
      Robert

    • Wenn du nur die Farbe der 1. Led neu berechnest und die restlichen nur verschiebst? Led 0 rechnen, anzeigen, Farben von letzten Led zur Led1 um eine Ledstelle verschieben (getcolor) und Led1 bekommt Farbe von Led0. Jetzt wieder Led0 berechnen, anzeigen...
      Raum für Notizen

      -----------------------------------------------------------------------------------------------------

      -----------------------------------------------------------------------------------------------------

    • Der Farbunterschied von 2 benachbarten LEDs ist bei meinem Code 768/30 Leds = rund 26. Daher kommt ja die hakelige Bewegung. Ich kann die LEDs also nicht einfach verschieben.
      Wenn Du alledings gemeint hast, die Farbpalette/den Farbkreis nur etwas zu verschieben und die neuen Farbwerte an die LEDs zu senden - das war mein ursprünglicher Gedankengang mit Position = Position - 1 (wobei minus oder plus lediglich die Bewegungsrichtung vorgibt).

      Ich hab Position = Position - 1 auch schon aus der der For/Next Schleife rausgenommen und dahinter gesetzt, brachte aber auch kein brauchbares Ergebnis.

    • Du rechnest jetzt an jeder Ledfarbe rum, das würde ich nicht. Nur an einer Led wird gerechnet, die Led daneben hat die Farbe von der vorhergehenden Berechnug, die nächste Led die Farbe von vor 2 Berechnungen. Das sind aber nur Kopien.

      (ich weiß natürlich nicht, ob meine Gedanken das gelbliche vom Ei ist)
      Raum für Notizen

      -----------------------------------------------------------------------------------------------------

      -----------------------------------------------------------------------------------------------------

    • Ja, aber mein Fliegerchen hat noch nicht längere Flügel bekommen :D , daher die 30 LEDs.

      Meine Überlegungen zu Beginn waren: Eine einzelne LED kann man wunderbar (scheinbar stufenlos) durch das Farbspektrum faden lassen. Die nächste LED soll das gleichen machen, nur eben um die 26 Schritte versetzt, damit das ganze Farbspektrum auf 30 LEDs passt. Nun nur noch die Farbwerte alle paar Millisekunden leicht verschieben und gut is. Als ich dann die paar Codezeilen aus dem ersten Link sah, dacht ich, dass kann nicht so schwer sein :rolleyes:

      Ich werd mal einen neuen Versuch starten mit Deiner vorgeschlagenen Methode.

      Gruß
      Robert

    • Die wird nicht besser sein. Jeder Led eine Position im 'Farbrad zuweisen, von Led zu Led 26 Stufen Differen, und dann an allen Rädern drehen.
      Raum für Notizen

      -----------------------------------------------------------------------------------------------------

      -----------------------------------------------------------------------------------------------------

    • R2D2 Bastler schrieb:

      Der Farbunterschied von 2 benachbarten LEDs ist bei meinem Code 768/30 Leds = rund 26. Daher kommt ja die hakelige Bewegung. Ich kann die LEDs also nicht einfach verschieben.
      eine LED wird schön sanft gefadet. Die Nachbar-LED bekommt einen um 26 verschiedene Farbe usw. reihum.
      Erster Schritt:
      LED1 = 0
      LED2 = LED1 + 26 (=26)
      LED3 = LED1 + 52 (=52)
      usw

      15. Schritt:
      LED1 = 14
      LED2 = LED1 + 26 (=40)
      LED3 = LED1 + 52 (=66)
      usw

    • So, wollt schon Feierabend machen, hab aber nochmal kurz mein ursprüngliches Programm umgerüht. Siehe da, jetzt gehts a_170_58e0202d

      Zunächst habe ich

      BASCOM-Quellcode

      1. If Position > 767 Then Position = 0
      ersetzt duch

      BASCOM-Quellcode

      1. If Position > 767 Then
      2. Position = Position - 768
      3. End If
      da sonst der Rest (der Wert über 768) immer verschleudert wurde.

      Auch mein Ansatz, den "Verschiebewert" hinter die For/Next Schleife zu setzen, war richtig. Nun kann das Farbspektrum auch ganz langsam geschoben werden.

      Hier noch der fertige Code

      BASCOM-Quellcode

      1. 'Rainbow Cycle WS2812-Leds
      2. 'Bascom Version 2.0.8.0
      3. '$sim
      5. $regfile = "attiny85.dat"
      6. $crystal = 8000000
      8. $hwstack = 32
      9. $swstack = 10
      10. $framesize = 40
      12. Const Num_leds = 30
      13. Const Num_leds_1 = Num_leds - 1
      15. Config Rainbow = 1 , Rb0_len = Num_leds , Rb0_port = Portb , Rb0_pin = 2
      17. Rb_selectchannel 0
      19. Dim Farbe(3) As Byte
      20. Rot Alias Farbe(_base)
      21. Gruen Alias Farbe(_base + 1)
      22. Blau Alias Farbe(_base + 2)
      24. Dim A As Word
      25. Dim N As Word
      26. Dim Position As Word
      28. Const Alignment = 768 / Num_leds 'Aufteilung des Farbspektrums auf die Anzahl der LEDs
      31. Do
      33. For N = 0 To Num_leds_1
      35. Select Case Position
      37. Case 0 To 255
      38. Rot = Position '0-255
      39. Gruen = 255 - Position '255-0
      40. Blau = 0
      42. Case 256 To 511
      43. A = Position - 256 '0-255
      44. Rot = 255 - A '255-0
      45. Gruen = 0
      46. Blau = A '0-255
      48. Case 512 To 767
      49. A = Position - 512 '0-255
      50. Rot = 0
      51. Gruen = A '0-255
      52. Blau = 255 - Gruen '255-0
      54. End Select
      56. Rb_setcolor N , Farbe()
      58. Position = Position + Alignment 'Farbspektrum für die nächste LED verschieben
      60. If Position > 767 Then
      61. Position = Position - 768
      62. End If
      64. Next N
      66. Position = Position - 7 'hier Richtung und Geschwindigkeit einstellen
      68. Rb_send
      69. Waitms 20
      72. Loop
      73. End
      Alles anzeigen


      btw, mit welchem Wert rechnet Bascom eigentlich weiter, wenn das Ergebnis einer Berechnung eine Kommazahl ist, wie hier:

      BASCOM-Quellcode

      1. Const Alignment = 768 / Num_leds


      Gruß
      Robert