Push Button 'Menu' to Choose Variable.

[Tissy]

Many thanks for your help Melanie, almost there.

I have tried to set up a visual represenattion of where the variable is at. To make things easier i have set it from 1 to 9. Depending on what number it is, depends what LEDs are lit.

I have used PWM on each LED so 1-3 is RED, lit dim for 1 and bright for 3. Then GREEN 4-6 and BLUE 7-9.

After the 5 second time out, i thought it would goto to the MAIN code, again this is signalled by a flashing LED sequence so i know it has times out on the 5 seconds.

A couple of problems at the moment, the code seems slow to show the coloured PWM LED. Also after the 5 second time out, it doesn't goto the main code.

I would like the coloured LED to stay lit at whatever stage until the next button push or unitl the time out occurs. Does the code below look right to you to achieve this? I'm sure i have done something wrong.

The idea is there, just not the practicle side of things for me yet!!

TRISB = %00000001

MyNumber    VAR Byte	' Variable 1-10
MyTimeOut   VAR Byte	' 5 second Timeout (100 loops of 50mS)

Red         VAR PORTB.1 ' All LEDs
Green       VAR PORTB.2 ' Connected between
Blue        VAR PORTB.3 ' RC pins and ground
Orange      VAR PORTB.4

MyButton    VAR PortB.0 	' Pin goes LOW when Button pressed

MyNumber=1		' Power-On with this starting value
MyTimeOut=0		' TimeOut starts from zero at Power-Up	


	While MyTimeOut<100
		If MyButton=0 then
			MyNumber=MyNumber+1
			If MyNumber>9 then MyNumber=1
			gosub MyNumberPWM
            MyTimeOut=0
			Pause 50	
				' This Pause DEBOUNCES Button - do not remove it
			While MyButton=0:Wend
				' Wait here if Button held down
			else
			MyTimeOut=MyTimeOut+1
			Pause 50
				' This Pause is the Timeout Pause
			endif
		Wend

main:
    high Orange
    pause 500
    low Orange
    pause 500
goto main

MynumberPWM:
    If Mynumber = 1 then PWM Red,1,255
    If Mynumber = 2 then PWM Red,25,255
    If Mynumber = 3 then PWM Red,255,255
    If Mynumber = 4 then PWM green,1,255
    If Mynumber = 5 then PWM green,25,255
    If Mynumber = 6 then PWM green,255,255
    If Mynumber = 7 then PWM BLUE,1,255
    If Mynumber = 8 then PWM BLUE,25,255
    If Mynumber = 9 then PWM BLUE,255,255
RETURN

Thanks again,

Steve

[Melanie]

I assumed the following that either... You will have a Pull-Up resistor on your Button pin (button pulls pin down to 0v), or you will have switched-on the internal weak pull-up's for PortB. If that button pin is floating, you will have unpredicatable results.

[Tissy]

Indeed you are right, the switch has a 47k pull-up resistor.

This is needed further on in the code as an interupt. How can i change this piece of code to reflect when it goes HIGH instead of LOW. I thought it may be just a case of changing:

While MyTimeOut<100
		If MyButton=1 then  ' Changed 0 to 1
			MyNumber=MyNumber+1

But it seems there is more to it than that? When MyButton=1, the LEDs just seem to cycle through there brightness levels.

Can you help??

Cheers,

Steve

[Melanie]

The code that I posted in its existing form is not suitable for interrupt use. It was posted to get you started. Consult the "ON INTERRUPT" statement in the PBP manual to see how you could modify for that purpose.

Changing the polarity of that statement would only be valid if the button pulled up to +Ve and the pin normally idled high.

[Tissy]

I believe it wasn't working properly due to the Interrupt settings which i have now disabled on PortB.0.

I have it working the way i want apart from one thing.

It recognises the push switch, displays the appropriate PWM and then if it reaches 9 goes to 1 again. Also, if no input for 5 seconds it starts the flashing sequence (just to signal the end of the 5 seconds).

How does one get the LEDs to stay in their PWM routine until the switch is pressed again, without using Interrupts. When the swicth is pushed it goes to the appropriate PWM routine but after the PWM cycle, the LED goes off.

Here is the code.

MyNumber    VAR Byte	' Variable 1-9
MyTimeOut   VAR Byte	' 5 second Timeout (100 loops of 50mS)

Red         VAR PORTB.1 ' All LEDs
Green       VAR PORTB.2 ' Connected between
Blue        VAR PORTB.3 ' RC pins and ground
Orange      VAR PORTB.4

DISABLE INTERRUPT
MyButton    VAR PORTB.0 	' Pin goes LOW when Button pressed

MyNumber=1		' Power-On with this starting value
MyTimeOut=0		' TimeOut starts from zero at Power-Up	

	While MyTimeOut<100
        If MyButton=0 then
			gosub mynumberpwm
            MyNumber=MyNumber+1
			If MyNumber>9 then MyNumber=1
            MyTimeOut=0
			Pause 50	
				' This Pause DEBOUNCES Button - do not remove it
			While MyButton=0:Wend
				' Wait here if Button held down
			else
			MyTimeOut=MyTimeOut+1
			Pause 50
				' This Pause is the Timeout Pause
			endif
		Wend

main:
    high Orange
    pause 500
    low Orange
    pause 500
goto main

MynumberPWM:
    If Mynumber = 1 then PWM Red,1,255
    If Mynumber = 2 then PWM Red,25,255
    If Mynumber = 3 then PWM Red,255,255
    If Mynumber = 4 then PWM green,1,255
    If Mynumber = 5 then PWM green,25,255
    If Mynumber = 6 then PWM green,255,255
    If Mynumber = 7 then PWM BLUE,1,255
    If Mynumber = 8 then PWM BLUE,25,255
    If Mynumber = 9 then PWM BLUE,255,255
Return

Many thanks,

Steve

[Melanie]

How does one get the LEDs to stay in their PWM routine until the switch is pressed again, without using Interrupts? When the swicth is pushed it goes to the appropriate PWM routine but after the PWM cycle, the LED goes off"

Unless you are able to write a program with an "active real-time" loop that executes continuous PWM (I do recall posting an example of such code dimming multiple LED's continuously sometime ago), the only option you have is chosing a PIC with multiple hardware PWM.