Newbie help. RGB Led on a PIC10F202

[brianmorris]

Hello all,

I have a piece of code for PBP that i guess i need help with and am hoping someone will be able to point out the issue. Its a simple RGB LED circuit that when you push the button, should flip to the next color in a subroutine then at the end of the colors, go back to the start. Posting my code below, it may be the incorrect way to do it. It just sits on 'Red' as its the value for ButtonCount. I can change that value to 1,2,3 & compile/program and get ir to display the correct color, but it will not switch colors. Any suggestions will be much appreciated. Thanks in advance.

Red var GPIO.0
Green var GPIO.1
Blue var GPIO.2
SwitchPin var GPIO.3

ButtonCount VAR BYTE
ButtonCount = 1

;Make sure LEDs are off
HIGH Red 
HIGH Green
HIGH Blue

MAIN:
IF SwitchPin = 1 THEN ButtonCount = ButtonCount + 1
GOTO SWITCHLOOP
END

SWITCHLOOP:
If ButtonCount = 1 THEN GOSUB RedProgram
If ButtonCount = 2 THEN GOSUB GreenProgram
If ButtonCount = 3 THEN GOSUB BlueProgram
If ButtonCount = 4 THEN ButtonCount = 1
GOTO SWITCHLOOP
END

RedProgram:
PWM Red,127,100
RETURN

GreenProgram:
PWM Green,127,100
RETURN

BlueProgram:
PWM Blue,127,100
RETURN

END

[cncmachineguy]

Once you enter switchloop, you seem to never leave

[brianmorris]

Once you enter switchloop, you seem to never leave

I put the IF statement that is in the MAIN portion into the SWITCHLOOP portion and same thing happens. Am I just doing it wrong altogether?

[bogdan]

At the start up you going straight to the SWITCHLOOP routine, light up the red, then you never go back to the Main routine to check when SwitchPin became 1 (to increment the ButtonCount to change the color)

[mister_e]

        Red         var GPIO.0
        Green       var GPIO.1
        Blue        var GPIO.2
        SwitchPin   var GPIO.3
        
        ButtonCount VAR BYTE
        ButtonCount = 1
        
        ;Make sure LEDs are off
        HIGH Red 
        HIGH Green
        HIGH Blue

MAIN:
        IF SwitchPin THEN 
                If ButtonCount = 1 THEN GOSUB RedProgram
                If ButtonCount = 2 THEN GOSUB GreenProgram
                If ButtonCount = 3 THEN GOSUB BlueProgram
                If ButtonCount = 4 THEN ButtonCount = 1
                ButtonCount = ButtonCount + 1
                endif
        GOTO MAIN

RedProgram:
        PWM Red,127,100
        RETURN

GreenProgram:
        PWM Green,127,100
        RETURN

BlueProgram:
        PWM Blue,127,100
        RETURN

        Red         var GPIO.0
        Green       var GPIO.1
        Blue        var GPIO.2
        SwitchPin   var GPIO.3
        
        ButtonCount VAR BYTE
        ButtonCount = 1
        
        ;Make sure LEDs are off
        HIGH Red 
        HIGH Green
        HIGH Blue

MAIN:
        IF SwitchPin THEN 
                If ButtonCount = 1 THEN 
                        PWM Red,127,100
                        ENDIF
                If ButtonCount = 2 THEN 
                        PWM Green,127,100
                        ENDIF
                If ButtonCount = 3 THEN 
                        PWM Blue,127,100
                        ENDIF
                If ButtonCount = 4 THEN ButtonCount = 1
                ButtonCount = ButtonCount + 1
                endif
        GOTO MAIN

[mister_e]

        Red         var GPIO.0
        Green       var GPIO.1
        Blue        var GPIO.2
        SwitchPin   var GPIO.3
        
        ButtonCount VAR BYTE
        ButtonCount = 0
        
        ;Make sure LEDs are off
        HIGH Red
        HIGH Green
        HIGH Blue

MAIN:
        IF SwitchPin = 1 THEN
                If ButtonCount<3 THEN
                        PWM GPIO.0(ButtonCount),127,100
                        ButtonCount = ButtonCount + 1
                    ELSE
                        ButtonCount = 0
                    ENDIF
                endif
        GOTO MAIN

[mister_e]

Mistake in my 2 first example. Change made in RED

        Red         var GPIO.0
        Green       var GPIO.1
        Blue        var GPIO.2
        SwitchPin   var GPIO.3
        
        ButtonCount VAR BYTE
        ButtonCount = 1
        
        ;Make sure LEDs are off
        HIGH Red 
        HIGH Green
        HIGH Blue

MAIN:
        IF SwitchPin THEN 
                If ButtonCount = 1 THEN GOSUB RedProgram
                If ButtonCount = 2 THEN GOSUB GreenProgram
                If ButtonCount = 3 THEN GOSUB BlueProgram
                If ButtonCount = 4 THEN 
                        ButtonCount = 1
                    else
                        ButtonCount = ButtonCount + 1
                    endif
                endif
        GOTO MAIN

RedProgram:
        PWM Red,127,100
        RETURN

GreenProgram:
        PWM Green,127,100
        RETURN

BlueProgram:
        PWM Blue,127,100
        RETURN

        Red         var GPIO.0
        Green       var GPIO.1
        Blue        var GPIO.2
        SwitchPin   var GPIO.3
        
        ButtonCount VAR BYTE
        ButtonCount = 1
        
        ;Make sure LEDs are off
        HIGH Red 
        HIGH Green
        HIGH Blue

MAIN:
        IF SwitchPin THEN 
                If ButtonCount = 1 THEN 
                        PWM Red,127,100
                        ENDIF
                If ButtonCount = 2 THEN 
                        PWM Green,127,100
                        ENDIF
                If ButtonCount = 3 THEN 
                        PWM Blue,127,100
                        ENDIF
                If ButtonCount = 4 THEN 
                        ButtonCount = 1
                    else
                        ButtonCount = ButtonCount + 1
                    endif
                endif
        GOTO MAIN

sorry