NeoPixel (WS2812B) Demo

[astanapane]

May i ask something?

Could i use all this code as a secondary code?

I'm thinking to use it only as an effect when the PIC is powered up, the RGB led ring to do its pattern.

But the main program not to be affected by this code.

DT has given to us the interrupt function of a flashing LED without disturbing the main program.

But i really dont know how to import all this code or how to use this DT's interrupt method here.

Could anyone guide me? Thanks a lot.

[richard]

Could i use all this code as a secondary code
But the main program not to be affected by this code.
?

using that code it takes about 1mS to send data to 24 ws2812's . so if your main program can tolerate 1mS gaps in processing every 50mS it would work ok

if you used a more modern chip with a clc module then you could adapt my code
found here :-
http://www.picbasic.co.uk/forum/atta...5&d=1508279203
that updates the leds as a background interrupt driven process with very very little overhead

see this thread for that and other more efficient possibilities
http://www.picbasic.co.uk/forum/showthread.php?t=23399

But i really dont know how to import all this code or how to use this DT's interrupt method here.

what have you tried ?

[astanapane]

Many years ago, i did a simple RFID reader program.

What it does is to read the RFID tag and if the ID number is stored in the PIC's ram, then it will make a port high.

That is the whole program.

I haven't tried anything yet to embed the above RGB code. What i would like to do with this code, is to work on the backround as an effect, when:

The RFID tag is valid: to light the RGB ring in Green, then to continue working on the backround.
The RFID tag is not valid: to light up the RGB ring in LED.

I will try without interrupt and i will add the RFID code inside the main of the RGB code. Will let you know.

[astanapane]

this is the addition to the main:

serin2 rfid,84,[WAIT($02),str BUF\10]
                                
Check_List:
  FOR tagNum = 1 to 3       ' scan through known tags
    FOR idx = 0 TO 9		' scan bytes in tag
    READ (((tagNum-1)*10) + idx), char	' get tag data from table
    IF (char <> buf(idx)) THEN Bad_Char		' compare tag to table
    NEXT
    GOsub Tag_Found			' all bytes match!

Bad_Char:					' try next tag
  NEXT
  
Bad_Tag:
  tagNum = 0
    FREQOUT porta.3, 1000 */ $100, 115 */ $100	' groan