WS2912B Atmega8 Farben Durch Faden

Wasi · Apr 9th 2025, 2:20pm

Ich grüße euch Bascom User a_58_b54cfdb4

Ich habe folgende Komponenten:

WS2812b LED Stripe 30Stück
Atmega8 Controller läuft auf 8Mhz
Bascom-AVR 2.0.8.5

Ich wollte das alle Led's die einzelenen Farben durch faden.
Da fand ich dan das hier:
Faden

Ich fand auch dies:
ws2812 Ansteuern

Ich hab dann das Programm angepasst auf den Atmega8 wie folgt:
Erst mal mit den angegebenen 8 LED's.

BASCOM Source Code

'-------------------------------------------------------------------------------
' rainbow_ws2812_Demo_Softblink.bas
'This demo show RB_OrColor and RB_AndColor which can be used
'for a flashing LED with a fade effect.
'-------------------------------------------------------------------------------
$regfile = "m8def.dat"
$crystal = 8000000
$hwstack = 32
$swstack = 16
$framesize = 32
Config RAINBOW=1, RB0_LEN=8, RB0_PORT=PORTB,rb0_pin=0
' ^ connected to pin 0
' ^------------ connected to portB
' ^-------------------------- 8 leds on stripe
' ^------------------------------------- 1 channel
Const Numled=8
Dim MASK as Dword
Dim Fade as Byte
'----[MAIN]---------------------------------------------------------------------
RB_SelectChannel 0 ' select first channel
Do
For Fade = 0 to 7
Waitms 20
Shift MASK , left
Incr MASK
RB_ORColor 0 , MASK
RB_Send
Next
For Fade = 0 to 7
Waitms 20
Shift MASK , right
RB_ANDColor 0 , MASK
RB_Send
Next
Loop

Display All

Mir ist aufgefallen das "Const Numled=8" Grau Dargestellt wird, was auch immer das bedeutet?

Bei der Check Syntax kamen keine Fehler und beim Brennen des Atmega8 auch nicht.

Die LED's machen nichts, zeigen nicht mal an das sie gehen.

Dann hab ich mal ein anderes Programm genommen um zu schauen ob der Atmega8 und die LED's gehen und es funktioniert soweit was die Komponenten betrifft alles.

Nun meine Frage:
Ist das ganze Funktionsfähig mit der Bascom Version den LED's und dem Atmega8 mit 8Mhz?
Wenn ja, was kann da nicht passen?
Ist das Programm den für das Faden von Farben, den so verstehe ich es das es dafür gedacht ist.

Vielleicht könnt Ihr mir weiter helfen.

Gruß Wasi

Wasi · Apr 9th 2025, 2:52pm

Hab jetzt mal ein Update von Bascom auf 2.0.8.6 gemacht.

Und jetzt Fadet die LED, jedoch nur die erste.

Hier mal das Programm für 30 LED's.

BASCOM Source Code

'-------------------------------------------------------------------------------
' rainbow_ws2812_Demo_Softblink.bas
'This demo show RB_OrColor and RB_AndColor which can be used
'for a flashing LED with a fade effect.
'-------------------------------------------------------------------------------
$regfile = "m8def.dat"
$crystal = 8000000
$hwstack = 32
$swstack = 16
$framesize = 32
Config RAINBOW=1, RB0_LEN=30, RB0_PORT=PORTB,rb0_pin=0
' ^ connected to pin 0
' ^------------ connected to portB
' ^-------------------------- 8 leds on stripe
' ^------------------------------------- 1 channel
Const Numled=8
Dim MASK as Dword
Dim Fade as Byte
'----[MAIN]---------------------------------------------------------------------
RB_SelectChannel 0 ' select first channel
Do
For Fade = 0 to 29
Waitms 200
Shift MASK , left
Incr MASK
RB_ORColor 0 , MASK
RB_Send
Next
For Fade = 0 to 29
Waitms 200
Shift MASK , right
RB_ANDColor 0 , MASK
RB_Send
Next
Loop

Display All

Ich werde jetzt erstmal einiges Probieren.

walter99 · Apr 9th 2025, 3:51pm

Hallo Wasi
Du beschreibst mit rb_orcolor 0, mask immer nur LED Nummer 1, wenn du alle haben willst muss die "0" auch höher werden, Tipp RB_ORCOLOR Fade, mask.
MfG

Wasi · Apr 9th 2025, 7:25pm

walter99 wrote:

Hallo Wasi
Du beschreibst mit rb_orcolor 0, mask immer nur LED Nummer 1, wenn du alle haben willst muss die "0" auch höher werden, Tipp RB_ORCOLOR Fade, mask.
MfG

Grüße dich Walter99, danke für deinen Tip werde ich Anwenden.

Gruß Wasi

chw9999 · Apr 9th 2025, 10:19pm

Wasi wrote:

Mir ist aufgefallen das "Const Numled=8" Grau Dargestellt wird, was auch immer das bedeutet?

Wenn Du eine Definition nicht im späteren Code verwendest, wird dies mit "grauem" Text angezeigt. In Deinem Code wird Numled tatsächlich auch nur definiert und nicht verwendet.

walter99 · Apr 10th 2025, 12:05am

Hallo chw9999
Das ist auch richtig, da er es noch nicht eingesetzt hat, wäre aber für die Zukunft interessant. angegeben sind ja oben schon rb0_len=30
zB.
const Numled = 30
rb0_len = numled
For fade = 0 to numled -1
.....
next fade
Das Programm hatte hier schon mal jemand reingestellt, copy paste zum testen.
MfG

Wasi · Apr 10th 2025, 4:21pm

chw9999 wrote:

Wasi wrote:

Mir ist aufgefallen das "Const Numled=8" Grau Dargestellt wird, was auch immer das bedeutet?

Wenn Du eine Definition nicht im späteren Code verwendest, wird dies mit "grauem" Text angezeigt. In Deinem Code wird Numled tatsächlich auch nur definiert und nicht verwendet.

Danke @chw999 für die Info, hatte mir das schon gedacht, da ich sonst nichts im Code fand.

walter99 wrote:

Hallo chw9999
Das ist auch richtig, da er es noch nicht eingesetzt hat, wäre aber für die Zukunft interessant. angegeben sind ja oben schon rb0_len=30
zB.
const Numled = 30
rb0_len = numled
For fade = 0 to numled -1
.....
next fade
Das Programm hatte hier schon mal jemand reingestellt, copy paste zum testen.
MfG

Hab das gnze mal so Umgesetzt.

BASCOM Source Code

'-------------------------------------------------------------------------------
' rainbow_ws2812_Demo_Softblink.bas
'This demo show RB_OrColor and RB_AndColor which can be used
'for a flashing LED with a fade effect.
'-------------------------------------------------------------------------------
$regfile = "m8def.dat"
$crystal = 8000000
$hwstack = 32
$swstack = 16
$framesize = 32
Config RAINBOW=1, RB0_LEN=Numled, RB0_PORT=PORTB,rb0_pin=0
' ^ connected to pin 0
' ^------------ connected to portB
' ^-------------------------- 8 leds on stripe
' ^------------------------------------- 1 channel
Const Numled=30
Dim MASK as Dword
Dim Fade as Byte
'----[MAIN]---------------------------------------------------------------------
RB_SelectChannel 0 ' select first channel
Do
For Fade = 0 to Numled - 1
Waitms 20
Shift MASK , left
Incr MASK
RB_ORColor Fade , MASK
RB_Send
Next
For Fade = 0 to Numled - 1
Waitms 20
Shift MASK , right
RB_ANDColor Fade , MASK
RB_Send
Next
Loop

Display All

Jetzt ist es so das bei diesem Programm jede LED unterschiedliche Farben Faded.

Wie Faden alle LED's die gleiche Farbe und das gleichzeitig? Also schon unterschiedliche farben, aber alle LED's Faden z.B. von Rot zu Grün ect.

Gruß Wasi

walter99 · Apr 11th 2025, 12:47am

Hallo Wasi
So könnte es gehen, aber keine Garantie, besser ist mit einer Farbtabelle zu arbeiten, Bsp wäre mal unter meinen Beiträgen zuschauen oder suchen Spielereien mit ws2812.
[*]For Fade = 0 to Numled - 1
[*] Waitms 20
[*] Shift MASK , left
[*] Incr MASK
[*]for n = 0 to Numled-1
[*] RB_ORColor n , MASK
[*]next n
[*] RB_Send
[*] Next
[*]MfG

R2D2 Bastler · Apr 11th 2025, 6:38pm

Ich persönlich schreib lieber etwas mehr Zeilen Code, wenn er dafür einfacher nachvollziehbar ist

BASCOM Source Code

' =====================================================================
' WS2812b Fading Demo
' =====================================================================
' Autor Robert 2025
' Bascom 2.0.8.6
' Version 1.0.0
$regfile = "m8def.dat"
$crystal = 8000000
$hwstack = 32
$swstack = 10
$framesize = 40
Const Num_leds = 30 ' Anzahl LEDs
Config Rainbow = 1 , Rb0_len = Num_leds , Rb0_port = Portb , Rb0_pin = 0
Dim Farbe(3) As Byte
Rot Alias Farbe(_base)
Gruen Alias Farbe(_base + 1)
Blau Alias Farbe(_base + 2)
Rb_selectchannel 0
Const Pause = 10 ' Fade-Geschwindigkeit
Do
' Faden von Rot zu Grün
For Gruen = 0 To 255
Rot = 255 - Gruen
Blau = 0
RB_Fillstripe Farbe(_base) ' Füllt den ganzen Stripe mit der eingestellten Farbe
Waitms Pause
Next
' Faden von Grün zu Blau
For Blau = 0 To 255
Gruen = 255 - Blau
Rot = 0
RB_Fillstripe Farbe(_base)
Waitms Pause
Next
' Faden von Blau zu Rot
For Rot = 0 To 255
Blau = 255 - Rot
Gruen = 0
RB_Fillstripe Farbe(_base)
Waitms Pause
Next
Loop
End

Display All

Galahat · Apr 12th 2025, 12:42am

Wasi wrote:

BASCOM Source Code

'-------------------------------------------------------------------------------

' rainbow_ws2812_Demo_Softblink.bas

'This demo show RB_OrColor and RB_AndColor which can be used

'for a flashing LED with a fade effect.

'-------------------------------------------------------------------------------

$regfile = "m8def.dat"

$crystal = 8000000

$hwstack = 32

$swstack = 16

$framesize = 32

Config RAINBOW=1, RB0_LEN=Numled, RB0_PORT=PORTB,rb0_pin=0

' ^ connected to pin 0

' ^------------ connected to portB

' ^-------------------------- 8 leds on stripe

' ^------------------------------------- 1 channel

Const Numled=30

Dim MASK as Dword

Dim Fade as Byte

'----[MAIN]---------------------------------------------------------------------

RB_SelectChannel 0 ' select first channel

Do

For Fade = 0 to Numled - 1

Waitms 20

Shift MASK , left

Incr MASK

RB_ORColor Fade , MASK

RB_Send

Next

For Fade = 0 to Numled - 1

Waitms 20

Shift MASK , right

RB_ANDColor Fade , MASK

RB_Send

Next

Loop

Display All

Jetzt ist es so das bei diesem Programm jede LED unterschiedliche Farben Faded.

Wie Faden alle LED's die gleiche Farbe und das gleichzeitig? Also schon unterschiedliche farben, aber alle LED's Faden z.B. von Rot zu Grün ect.

Guten Abend!

Wasi, die Iteration der beiden for-Schleifen ist hier nicht dazu gedacht die einzelnen LED zu bedienen, sondern sorgen für den Fade-Effekt. 0 bis 7 und die inkrementierung der Variable Mask sorgen einfach nur für die Zunahme bzw. die Abnahme des Rotanteils. Mehr nicht. Das kann man natürlich auch ganz anders machen.

Wenn du also möchtest das alle 30 LED dieselbe Farbe zeigen, musst du eben allen LED diese Farbe senden. Dazu musst du nur jeweils die Zeilen im ursprünglichen Programmcode

Source Code

RB_ANDColor 0 , MASK
RB_Send

durch

Source Code

RB_Fill Mask

ersetzen.

Viel Spaß!

Wasi · Apr 13th 2025, 1:11pm

walter99 wrote:

Hallo Wasi
So könnte es gehen, aber keine Garantie, besser ist mit einer Farbtabelle zu arbeiten, Bsp wäre mal unter meinen Beiträgen zuschauen oder suchen Spielereien mit ws2812.
For Fade = 0 to Numled - 1
Waitms 20
Shift MASK , left
Incr MASK
for n = 0 to Numled-1
RB_ORColor n , MASK
next n
RB_Send
Next
MfG

Danke @walter99

Galahat wrote:

Wasi wrote:

BASCOM Source Code

'-------------------------------------------------------------------------------

' rainbow_ws2812_Demo_Softblink.bas

'This demo show RB_OrColor and RB_AndColor which can be used

'for a flashing LED with a fade effect.

'-------------------------------------------------------------------------------

$regfile = "m8def.dat"

$crystal = 8000000

$hwstack = 32

$swstack = 16

$framesize = 32

Config RAINBOW=1, RB0_LEN=Numled, RB0_PORT=PORTB,rb0_pin=0

' ^ connected to pin 0

' ^------------ connected to portB

' ^-------------------------- 8 leds on stripe

' ^------------------------------------- 1 channel

Const Numled=30

Dim MASK as Dword

Dim Fade as Byte

'----[MAIN]---------------------------------------------------------------------

RB_SelectChannel 0 ' select first channel

Do

For Fade = 0 to Numled - 1

Waitms 20

Shift MASK , left

Incr MASK

RB_ORColor Fade , MASK

RB_Send

Next

For Fade = 0 to Numled - 1

Waitms 20

Shift MASK , right

RB_ANDColor Fade , MASK

RB_Send

Next

Loop

Display All

Jetzt ist es so das bei diesem Programm jede LED unterschiedliche Farben Faded.

Wie Faden alle LED's die gleiche Farbe und das gleichzeitig? Also schon unterschiedliche farben, aber alle LED's Faden z.B. von Rot zu Grün ect.

Guten Abend!

Wasi, die Iteration der beiden for-Schleifen ist hier nicht dazu gedacht die einzelnen LED zu bedienen, sondern sorgen für den Fade-Effekt. 0 bis 7 und die inkrementierung der Variable Mask sorgen einfach nur für die Zunahme bzw. die Abnahme des Rotanteils. Mehr nicht. Das kann man natürlich auch ganz anders machen.

Wenn du also möchtest das alle 30 LED dieselbe Farbe zeigen, musst du eben allen LED diese Farbe senden. Dazu musst du nur jeweils die Zeilen im ursprünglichen Programmcode

Source Code

RB_ANDColor 0 , MASK

RB_Send

durch

Source Code

RB_Fill Mask

ersetzen.

Viel Spaß!

Danke @Galahat für deine Aufklärung.

R2D2 Bastler wrote:

Ich persönlich schreib lieber etwas mehr Zeilen Code, wenn er dafür einfacher nachvollziehbar ist

BASCOM Source Code

' =====================================================================

' WS2812b Fading Demo

' =====================================================================

' Autor Robert 2025

' Bascom 2.0.8.6

' Version 1.0.0

$regfile = "m8def.dat"

$crystal = 8000000

$hwstack = 32

$swstack = 10

$framesize = 40

Const Num_leds = 30 ' Anzahl LEDs

Config Rainbow = 1 , Rb0_len = Num_leds , Rb0_port = Portb , Rb0_pin = 0

Dim Farbe(3) As Byte

Rot Alias Farbe(_base)

Gruen Alias Farbe(_base + 1)

Blau Alias Farbe(_base + 2)

Rb_selectchannel 0

Const Pause = 10 ' Fade-Geschwindigkeit

Do

' Faden von Rot zu Grün

For Gruen = 0 To 255

Rot = 255 - Gruen

Blau = 0

RB_Fillstripe Farbe(_base) ' Füllt den ganzen Stripe mit der eingestellten Farbe

Waitms Pause

Next

' Faden von Grün zu Blau

For Blau = 0 To 255

Gruen = 255 - Blau

Rot = 0

RB_Fillstripe Farbe(_base)

Waitms Pause

Next

' Faden von Blau zu Rot

For Rot = 0 To 255

Blau = 255 - Rot

Gruen = 0

RB_Fillstripe Farbe(_base)

Waitms Pause

Next

Loop

End

Display All

Danke @R2D2 Bastler, mir geht es wie dir.

Danke an euch und eure Hilfe und auch Aufklärung von @Galahat.

@R2D2 Bastler Dein Programm ist für mich verständlich und auch Nachvollziehbar, was mir sehr gut gefällt ist auch die Fade Geschwindigkeit.

Danke nochmals.

Gruß Wasi