Blinker mit WS2812b und Atmega328p

    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!

    • Blinker mit WS2812b und Atmega328p

      Hallo Bascom Freunde.

      Ich möchte mir mit der WS2812b und dem Atmega328p einen Blinker bauen.
      Dazu möchte ich 10 LEDs verwenden und es soll alle 100ms eine Led angehen bis alle 10 Leds an sind Led1 = an / Led2 = an ect,
      dann sollen die Leds wieder nacheinander ausgehen, LED1 = Aus / Led2 = Aus ect.

      Ich steh hier voll auf dem schlauch und weiß nicht weiter, nach 2h suche im www bin ich auch nicht weiter.

      Eventuell könnte mir jemand auf die Sprünge helfen, bin Anfänger und versuche mich jetzt mal an LEDs mit den WS2812ern.

      Bis zur Elseif meine ich mal das es passt, aber dann weiß ich nicht weiter. ?(
      Kann mich aber auch Irren ;(

      BASCOM-Quellcode

      1. ' Blinker mit WS2812b und Atmega328p
      3. $Regfile = "m328pdef.dat"
      4. $Crystal = 8000000
      5. $hwstack = 40
      6. $swstack = 16
      7. $framesize = 32
      9. Config Rainbow = 1 , Rb0_len = LedZahl , 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 LedZahl As Integer
      17. Dim I As Integer
      18. Dim Color(3) as Byte
      20. R alias Color(_base) : G alias Color(_base + 1) : B alias Color(_base + 2)
      22. Rb_selectchannel 0
      24. R = 50 : G = 50 : B = 0 'gelb
      26. LedZahl = 10 'Anzahl LEDs
      27. I = -1 'begin bei Led
      29. Do
      31. If I =< LedZahl then
      33. I = I+1
      35. Rb_setcolor I, Color(1) 'LED Pos
      36. Rb_send 'und raus senden
      37. Waitms 100 'warte
      39. Elseif I => -1 then
      41. R = 0 : G = 0 : B = 0 'abschalten???
      42. I = I+1 ' aus
      43. Rb_setcolor I, Color(1) 'LED Pos
      44. Rb_send 'und raus senden
      45. Waitms 100 'warte
      48. Endif
      50. Waitms 300
      52. Loop
      54. End
      Alles anzeigen

    • Hi Wasi,
      hier mal ein Beispiel dafür

      BASCOM-Quellcode

      1. ' Blinker mit WS2812b und Atmega328p
      2. $Regfile = "m328pdef.dat"
      3. $Crystal = 8000000
      4. $hwstack = 40
      5. $swstack = 16
      6. $framesize = 32
      8. Const Ledzahl = 10
      10. Config Rainbow = 1 , Rb0_len = Ledzahl , Rb0_port = Portb , Rb0_pin = 0
      12. Dim Led_zaehler As Byte
      14. Dim Color(3) As Byte
      15. R Alias Color(_base)
      16. G Alias Color(_base + 1)
      17. B Alias Color(_base + 2)
      19. R = 255
      20. G = 0
      21. B = 0
      23. Rb_selectchannel 0
      25. Do
      26. R = 255
      27. G = 0
      28. B = 0
      30. For Led_zaehler = 0 To Ledzahl - 1
      31. Rb_setcolor Led_zaehler , Color(1)
      32. Rb_send
      33. Waitms 100
      34. Next Led_zaehler
      36. Wait 1
      37. R = 0
      38. G = 0
      39. B = 0
      41. For Led_zaehler = Ledzahl - 1 To 0 Step - 1
      42. Rb_setcolor Led_zaehler , Color(1)
      43. Rb_send
      44. Waitms 100
      45. Next Led_zaehler
      47. Wait 1
      49. Loop
      50. End
      Alles anzeigen
      Eine Lösung habe ich nicht, aber mir gefällt Ihr Problem.

    • Du schaust, in welcher Richtung du unterwegs bist und zählst in die entsprechende Richtung

      Dim Richtung as Bit, I As Byte

      Do

      If Richtung = 0 Then

      Incr I
      If I = Ledzahl Then
      Richtung = 1
      End If
      Color auf Farbe
      Rb_setcolor I, Color(1)
      End If


      If Richtung = 1 Then
      Decr I
      If I = 1 Then
      Richtung = 0
      End If
      Color auf Null
      Rb_setcolor I, Color(1)
      End If

      Waitms 100

      Loop

      Da gibt es noch andere Ansätze, aber eins nach dem Anderen ;)

    • djmsc schrieb:

      Hi Wasi,
      hier mal ein Beispiel dafür
      Danke djmsc, werde ich mir mal anschauen.

      Ist das Richtig?
      Werden dann die Leds ausgeschaltet?

      R = 0
      G = 0
      B = 0

      Michael schrieb:

      Du schaust, in welcher Richtung du unterwegs bist und zählst in die entsprechende Richtung

      Dim Richtung as Bit, I As Byte

      Do

      If Richtung = 0 Then

      Incr I
      If I = Ledzahl Then
      Richtung = 1
      End If
      Color auf Farbe
      Rb_setcolor I, Color(1)
      End If


      If Richtung = 1 Then
      Decr I
      If I = 1 Then
      Richtung = 0
      End If
      Color auf Null
      Rb_setcolor I, Color(1)
      End If

      Waitms 100

      Loop

      Da gibt es noch andere Ansätze, aber eins nach dem Anderen ;)
      Danke Michael, jetzt muß ich mich erstmal da rein denken :D

      Mir geht es darum es zu verstehen um dann auch eigene Projekte umsetzen zu können.

      Danke für die 2 Progs a_22_9ac28a82

    • Wasi schrieb:

      Ist das Richtig?
      Werden dann die Leds ausgeschaltet?

      R = 0
      G = 0
      B = 0
      Also mit R, G und B bestimmst du ja die Farbe von jeder LED. Also wenn du einzelne LEDs in unterschiedlichen Farben leuchten lassen willst musst du die Werte für R, G und B anpassen. Und genau so wenn eine LED dunkel/aus sein soll, dann setzt man R, G und B auf 0.
      Eine Lösung habe ich nicht, aber mir gefällt Ihr Problem.

    • djmsc schrieb:

      Wasi schrieb:

      Ist das Richtig?
      Werden dann die Leds ausgeschaltet?

      R = 0
      G = 0
      B = 0
      Also mit R, G und B bestimmst du ja die Farbe von jeder LED. Also wenn du einzelne LEDs in unterschiedlichen Farben leuchten lassen willst musst du die Werte für R, G und B anpassen. Und genau so wenn eine LED dunkel/aus sein soll, dann setzt man R, G und B auf 0.
      Da es sich hier ja um eine WS2812b handelt wusste ich nicht genau wie man die aus macht, wenn ich leds am Pin habe wird die ja mit High und Low geschaltet, das wusste ich, daher die Frage.
      Danke :D

      Hab jetzt mal das erste Programm meinen Vorstellungen angepasst und bin so zufrieden.

      BASCOM-Quellcode

      1. ' Blinker mit WS2812b und Atmega328p
      4. $Regfile = "m328pdef.dat"
      5. $Crystal = 8000000
      6. $hwstack = 40
      7. $swstack = 16
      8. $framesize = 32
      11. Const Ledzahl = 10 'Festlegen wieviel LEDs
      13. Config Rainbow = 1 , Rb0_len = Ledzahl , Rb0_port = Portb , Rb0_pin = 0
      15. Dim Led_zaehler As Byte 'Dec variable
      16. Dim Color(3) As Byte 'Dec variable
      18. R Alias Color(_base) 'Alias für farbe Rot
      19. G Alias Color(_base + 1) 'Alias für farbe Gruen
      20. B Alias Color(_base + 2) 'Alias für farbe Blau
      22. 'Gelbe Leds festlegen
      23. R = 50
      24. G = 50
      25. B = 0
      27. Rb_selectchannel 0 'Kanal wahl
      29. Do
      30. 'Gelbe Leds festlegen
      31. R = 50
      32. G = 50
      33. B = 0
      35. For Led_zaehler = 0 To Ledzahl - 1 'Schleife
      37. Rb_setcolor Led_zaehler , Color(1) 'Led zuweisen der Farbe
      38. Rb_send 'Farbe an Led senden
      39. Waitms 30 'warte
      41. Next Led_zaehler 'Led_zaehler wir hochgezählt um 1
      43. Waitms 30
      44. 'Leds aus
      45. R = 0
      46. G = 0
      47. B = 0
      49. For Led_zaehler = 0 To Ledzahl - 1 'Schleife
      51. Rb_setcolor Led_zaehler , Color(1) 'Led zuweisen der Farbe
      52. Rb_send 'Farbe an Led senden
      53. Waitms 30 'warte
      55. Next Led_zaehler 'Led_zaehler wir hochgezählt um 1
      57. Waitms 30
      59. Loop
      60. End
      Alles anzeigen
      Wie schon oben erwähnt soll das ein Blinker darstellen, wie man Sie von den neuen Fahrzeugen kennt.
      Ich hab mal das wichtigste Kommentiert, hoffe das richtig verstanden zu haben.

    • Wasi schrieb:

      Wie schon oben erwähnt soll das ein Blinker darstellen, wie man Sie von den neuen Fahrzeugen kennt.
      Neun, das hattest du nicht erwähnt. Das Wort Blinker wird eher als Blinkschaltung interpretiert.

      In dem Fall musst du immer nur aufwärts zählen, wenn der Zähler auf Maximum ist, schaltest du die LEDs wieder von 1 beginnend aus.

      Dim Hell As Bit

      Do
      incr I
      If Hell = 1 Then
      Color auf Farbe
      Else
      Color auf Null
      End If
      Rb_setcolor I , Color(1)
      If I = Maximum Then
      Toggle Hell
      I = 0
      End If
      Waitms 100
      Loop

    • Michael schrieb:

      Neun, das hattest du nicht erwähnt. Das Wort Blinker wird eher als Blinkschaltung interpretiert.
      Hallo Michael, ja explizit hab ich das nicht erwähnt, ich dachte durch LED1 = An - LED2 = An und LED1 = Aus - LED2 = Aus - könnte man es erkennen.

      Michael schrieb:

      In dem Fall musst du immer nur aufwärts zählen, wenn der Zähler auf Maximum ist, schaltest du die LEDs wieder von 1 beginnend aus.

      Dim Hell As Bit

      Do
      incr I
      If Hell = 1 Then
      Color auf Farbe
      Else
      Color auf Null
      End If
      Rb_setcolor I , Color(1)
      If I = Maximum Then
      Toggle Hell
      I = 0
      End If
      Waitms 100
      Loop
      Danke für den neuen Denkanstoss. :thumbup:
      Werde mal versuchen das auch umzusetzen.