Hallo,
als kleine Weihnachtsbastelei möchte ich mich nun zum ersten mal mit den WS2812 LED'S beschäftigen.
Das kleine Beispiel aus der Bascom Hilfe läuft, aber die Farben passen nicht
Wwenn man die folgenden 3 Zeilen im Bascom Beispiel ändert dann stimmen die Farben rot, grün und blau
############################## so stimmen die Farben ##################################
Dim Color(4) as Byte
'Global Color-variables
R alias Color(_base + 1) : G alias Color(_base + 2) : B alias Color(_base + 3)
############################## so stimmen die Farben nicht ############################
aus Bascom Beispiel
Dim Color(3) as Byte
'Global Color-variables
R alias Color(_base ) : G alias Color(_base + 1) : B alias Color(_base + 2)
Alles anzeigen
als kleine Weihnachtsbastelei möchte ich mich nun zum ersten mal mit den WS2812 LED'S beschäftigen.
Das kleine Beispiel aus der Bascom Hilfe läuft, aber die Farben passen nicht
Wwenn man die folgenden 3 Zeilen im Bascom Beispiel ändert dann stimmen die Farben rot, grün und blau
############################## so stimmen die Farben ##################################
Dim Color(4) as Byte
'Global Color-variables
R alias Color(_base + 1) : G alias Color(_base + 2) : B alias Color(_base + 3)
############################## so stimmen die Farben nicht ############################
aus Bascom Beispiel
Dim Color(3) as Byte
'Global Color-variables
R alias Color(_base ) : G alias Color(_base + 1) : B alias Color(_base + 2)
Quellcode
- $regfile = "m168pdef.dat"
- $crystal = 8000000 '81Mhz Achtung:Fusebit 7 = 0 (Teiler durch 16 = enabled)
- $hwstack = 64
- $swstack = 24
- $framesize = 128
- Config Base = 0
- Config Rainbow = 1 , Rb0_len = 30 , Rb0_port = PortD , Rb0_pin = 0
- ' ^ connected to pin 0
- ' ^-------------- connected to portB
- ' ^-------------------------- 2 leds on stripe
- ' ^------------------------------------- 1 channel
- Dim Color(3) as Byte
- 'Global Color-variables
- R alias Color(_base) : G alias Color(_base + 1) : B alias Color(_base + 2)
- 'CONST
- const numLeds=30
- '----[MAIN]---------------------------------------------------------------------
- Dim n as Byte
- RB_SelectChannel 0 ' select first channel
- R = 0 : G = 100 : B = 0 ' define a color
- RB_SetColor 0 , color(1) ' update leds
- RB_Send
- Do
- For n = 1 to Numleds-1
- rb_Shiftright 0 , Numleds 'shift to the right all leds except the last one
- Waitms 10
- RB_Send
- Next
- For n = 1 to Numleds-1
- rb_Shiftleft 0 , Numleds 'shift to the left all leds except the last one
- Waitms 10
- RB_Send
- Next
- Loop