How many times the loop turns for Darrel's "Kylon" LED chaser?

[CuriousOne]

Hello.

I want to use this code for my christmas light:

http://www.picbasic.co.uk/forum/showthread.php?t=10564

I've modified it for 5 leds and it works fine. However, I want it to not spin forever, but change some values, like speed and trails after several runs.

All the magic is done via this code as I can guess:

Main:    if LoopCount = TracerSpeed then             ; __[ Cylon/Kitt Scanner ]__      LoopCount = 0      BAM_DUTY(NextLED)=Brightness      if TraceDIR then                          ; if scanning left        NextLED = NextLED - 1        if NextLED = 0 then TraceDIR = 0      else                                      ; else scanning right        NextLED = NextLED + 1        if NextLED = BAM_COUNT-1 then TraceDIR = 1      endif    endif        FOR Idx = 0 to BAM_COUNT - 1                ; Drain all dutycycles       IF BAM_DUTY(Idx) > 0 then           BAM_DUTY(Idx)=BAM_DUTY(Idx)*DrainSpeed/(DrainSpeed+1)       ENDIF    NEXT Idx    pause Speed    LoopCount = LoopCount + 1GOTO Main

It all works fine, besides that I can't find, how many times it loops for complete cycle? - I mean, single run from left to right and back, with all fades.Any ideas?

[CuriousOne]

Copy-paste screwed up the code, here it is:

Speed       CON 24        ; Smaller=Faster
TracerSpeed CON 15        ; Smaller=Faster Left/Right
Brightness  CON 255       ; Tracers DutyCycle
DrainSpeed  CON 30        ; Smaller=Shorter Trail
BAM_COUNT = 5


Main:
    if LoopCount = TracerSpeed then             ; __[ Cylon/Kitt Scanner ]__
      LoopCount = 0
      BAM_DUTY(NextLED)=Brightness
      if TraceDIR then                          ; if scanning left
        NextLED = NextLED - 1
        if NextLED = 0 then TraceDIR = 0
      else                                      ; else scanning right
        NextLED = NextLED + 1
        if NextLED = BAM_COUNT-1 then TraceDIR = 1
      endif
    endif
    
    FOR Idx = 0 to BAM_COUNT - 1                ; Drain all dutycycles
       IF BAM_DUTY(Idx) > 0 then
           BAM_DUTY(Idx)=BAM_DUTY(Idx)*DrainSpeed/(DrainSpeed+1)
       ENDIF
    NEXT Idx
    pause Speed
    LoopCount = LoopCount + 1
GOTO Main

[mpgmike]

To make it adjustable, change the CON values to VAR values. You will have to initialize them to some value (try starting with Daryl's CON values), then somewhere change them as you see fit. First play with different values in Daryl's code for the CONs and see how it affects the display. On a separate note, BAM_COUNT should have been Declared:

BAM_COUNT VAR BYTE
BAM_COUNT = 5

[CuriousOne]

The values of these settings in my example provide the effect I need.
I just need to enclose that loop into FOR-NEXT, to be able to have control over it.
And the issue is, I can't count, how many times loop turns around, to do single cycle (from left to right and back)

[mpgmike]

Ok, try adding a few lines:

Speed       CON 24        ; Smaller=Faster
TracerSpeed CON 15        ; Smaller=Faster 
Left/RightBrightness  CON 255       ; Tracers 
DutyCycleDrainSpeed  CON 30        ; Smaller=Shorter 
TrailBAM_COUNT = 5
Cycle VAR BYTE  ;Count Full Cycles

Main:
    if LoopCount = TracerSpeed then             ; __[ Cylon/Kitt Scanner ]__
      LoopCount = 0
      BAM_DUTY(NextLED)=Brightness
      if TraceDIR then                          ; if scanning left
        NextLED = NextLED - 1
        if NextLED = 0 then
        TraceDIR = 0
        Cycle = Cycle + 1
        IF Cycle = xx THEN
          Do Something
          Cycle = 0
        ENDIF
      else                                      ; else scanning right
        NextLED = NextLED + 1
        if NextLED = BAM_COUNT-1 then
        TraceDIR = 1
       endif
    endif
   FOR Idx = 0 to BAM_COUNT - 1                ; Drain all dutycycles
       IF BAM_DUTY(Idx) > 0 then
           BAM_DUTY(Idx)=BAM_DUTY(Idx)*DrainSpeed/(DrainSpeed+1)
       ENDIF
    NEXT Idx
      pause Speed
      LoopCount = LoopCount + 1
GOTO Main

This should increment your Cycle variable after a full left swing.

[CuriousOne]

Thanks! will give it a try - currently have no monitoring capabilities connected to the PIC. Only way to interact is to write data to EEPROM and check the value via pickit 3 standalone programmer. Will try to add write routine to your code...

This circuit will be used to upgrade old Christmas tree decoration, shaped like a red star

[CuriousOne]

I had to gave up with that code, because on a larger physical size, discrete steps were quite visible.
So I did another code instead, which works fine. Here's example.




But I have a question. What if I use faster PIC, something from 18F series, running at 64mhz.
Maybe it is possible to mod this code to have at least 10 bit resolution, instead of 8 ?