Buttons

[WarPony]

I know this seems like a simple question, but I want to make sure my code is in the right ball park. The section of code should add 1 or minus 1 to a setpoint that another part of code will interpret and output to and lcd and turn on a red led or a green led

ADCON1 = 7 ' Set PORTD and PORTE to digital

Setpoint Var word
Temp_Down Var PortB.3 'Temp down button input port
Temp_Up VAR PortB.2 'Temp up button input port
R_LED VAR PortB.0 ' Red LED output
G_LED VAR PortB.1 ' Green LED output
DQ VAR PortC.0 ' One-wire Data-Pin "DQ" on PortC.0
Busy VAR BIT ' Busy Status-Bit
Sign VAR BYTE ' +/- sign for temp display
Dummy VAR BYTE ' Dummy for Div32
R_Temp VAR WORD ' RAW Temperature readings
TempC VAR WORD ' Temp in deg C
TempF VAR WORD ' Temp in deg F
Float VAR WORD ' Holds remainder for + temp C display
Cold_Bit VAR R_Temp.Bit11' Sign-Bit for +/- Temp. 1 = Below 0 deg C
Real_Cold CON 1 ' Define Real_Cold = 1
DS18B20_9bit CON %00011111 ' 93.75ms, 0.5°C
DS18B20_10bit CON %00111111 ' 187.5ms, 0.25°C <-- My favorite
DS18B20_11bit CON %01011111 ' 375ms, 0.125°C
DS18B20_12bit CON %01111111 ' 750ms, 0.0625°C (default)

OPTION_REG = $7f


OWOUT DQ, 1, [$CC, $4E, 0, 0, DS18B20_10bit] 'Skip ROM search and write 10bit resolution to scratch pad
Pause 500
LCDOut $FE 'Clear LCD
Setpoint = 22

Start_Convert:
OWOUT DQ, 1, [$CC, $44] ' Skip ROM search & do temp conversion
PortB = 0
If Temp_Up = 0 Then
Setpoint = Setpoint + 1
Endif
If Temp_Down = 0 Then
Setpoint = Setpoint - 1
Endif
lcdout $fe, 1, "Setpoint = ", #Setpoint
If TempC < Setpoint Then
high R_LED ' Turn on Red LED and turn off Green LED
low G_LED
Else
High G_LED ' Turn on Green LED and turn off Red LED
low R_LED
EndIf

[Darrel Taylor]

You can run, but you can't hide.

Equally, you can create a new thread, but I can still reply.<hr>
OK, resolution looks good.
Start temp conversions OK,
And the setpoint via buttons probably work too. (But a bit bouncy)

Only thing left is to actually read the temperature from the DS18B20.

ruthlessly,

[WarPony]

One step ahead of you good sir

I was able to read temp and actually write in a setpoint that turned on a green LED when temp was over setpoint and a red one when below.

so maybe two steps

You think I should use the button command to send the program to a subroutine that loops as long as the button is pushed? This way if you want to increase the temp by say ten you can just hold it down.

Later
Bryan

[Acetronics2]

You think I should use the button command to send the program to a subroutine that loops as long as the button is pushed? This way if you want to increase the temp by say ten you can just hold it down.

Hi, Bryan

looks pretty good that way ...

and also works pretty good with the BUTTON command which is really ideal for such use ...

Alain

[WarPony]

Thanks Alain

I am just starting to wrap my head around this stuff

[Acetronics2]

Hi,

I knew there was an example in my projects ...

'*****************************************************************************
mainloop:

Writeok = 0

delay = 0

button Up, 		0, 255, 0, delay, 1, upbutton
button Down, 	0, 255, 0, delay, 1, dwnbutton
button Prog, 	0, 255, 0, delay, 1, Program

Gosub Outsig
PAUSE 18
compte = 0

Goto Mainloop


'*****************************************************************************
upbutton:

IF Down = 0 THEN 

	Pos = posn
	Goto Jump1
	
Endif

	Compte = compte + 1
	
	Select Case Compte
	
		Case 255
			Compte = Compte-1
			N = 10
			
		Case is > 50
			N = 10
				
		Case is > 15 
		 	N = 3
		 	
		Case else
			N = 1
			
	End Select
	
   	pos = pos + 2*N
   
   	if pos > 2250 then  pos = 2250
  
Jump1:

For delay = 1 to 9	

	Gosub Outsig
	Pause 18

Next delay

	Gosub Outsig

Goto mainloop


'*****************************************************************************
dwnbutton:

IF Up = 0 THEN 

	Pos = posn
	Goto Jump2
	
Endif

	Compte = compte + 1
	
	Select Case Compte
	
		Case 255
			Compte = Compte - 1
			N = 10
			
		Case is > 50
			N = 10
			
		Case is > 10 
		 	N = 3
		 			
		Case else
			N = 1
			
	End Select
	
   	pos = pos - 2*N
   
   	if pos < 750 then pos = 750
   	 
Jump2:
	
For delay = 1 to 9	

	Gosub Outsig
	Pause 18

Next delay

	Gosub Outsig

 Goto mainloop
 

'*****************************************************************************
Program:

Compte = 0

Test: 

IF Prog = 0 Then 
	
	compte = compte + 1
	Gosub Outsig
	Pause 18
	
	IF Compte > 250 THEN Compte = 250: Goto Test
	IF Compte >= 80 THEN WriteoK = Compte .4 : Goto Test
	IF Compte >= 20 THEN WriteoK = Compte .2
	
	Goto Test		'Attendre relâchement bouton ...
	
Endif	
	
	IF Compte > 250 OR Compte < 20 Then mainloop
	
	IF Compte >= 80 Then
	 
		pos = 1500 
		Goto Save	'remise au Neutre

	Endif

NB : WriteOk is the led that shows where you are ...
Outsig is generating a servo pulse ...

Alain

[WarPony]

ty alain

I am going to use your example instead of pbp manual on this one. I am almost there

Bryan