lcd menu problems

[xxxxxx]

helllo

here is my problem, i got the posttemp variable declared like this

posttemp var byte

now i want to change the value of the variable like this

if menu = 2 then 
posttemp=$0AF0
    LCDOUT $FE,1, "Max temperatura:"
    lcdout $FE,$c0,128, "28.00 C"
    pause 2000
endif

if menu = 3 then 
posttemp=$0BB8
    LCDOUT $FE,1, "Max temperatura:"
    lcdout $FE,$c0,128, "30.00 C"
    pause 2000
endif

and then compare posttemp like this

if temp >= posttemp then gosub s3

but this isn't working, program is compiled without erors, everythig is working fine, but my program gosub to s3 ever time, no matter if the condition is true!

and if i put it this way

if temp >= $0AF0 then gosub s3

then everything is working just fine but i want to change value $0AF0 like in above not working examplel

thx in advance

--
www.mtskola.com

[ScaleRobotics]

helllo

here is my problem, i got the posttemp variable declared like this

posttemp var byte

<snip>
if temp >= posttemp then gosub s3
doesn't work,
and if i put it this way

if temp >= $0AF0 then gosub s3

then everything is working just fine but i want to change value $0AF0 like in above not working examplel

thx in advance

posttemp sure looks like a word to me. Try changing it to a word variable.

[xxxxxx]

posttemp sure looks like a word to me. Try changing it to a word variable.

i am going to try it so you say

posttemp var word

oh my God i didn't see that.....temp is var word

--
www.mtskola.com

[xxxxxx]

posttemp sure looks like a word to me. Try changing it to a word variable.

and its working just fine

THX a lot

--
www.mtskola.com

[xxxxxx]

'****************************************************************
'*  Name    : UNTITLED.BAS                                      *
'*  Author  : [select VIEW...EDITOR OPTIONS]                    *
'*  Notice  : Copyright (c) 2009 [select VIEW...EDITOR OPTIONS] *
'*          : All Rights Reserved                               *
'*  Date    : 24/02/2009                                        *
'*  Version : 1.0                                               *
'*  Notes   :                                                   *
'*          :                                                   *
'****************************************************************

'
'pic defines
'------------------------------------------------------------------------
	@ DEVICE pic16F887, WDT_OFF        ' Watchdog Timer
	@ DEVICE pic16F887, PWRT_ON        ' Power-On Timer
	@ DEVICE pic16F887, MCLR_ON        ' Master Clear Options (Internal)
	@ DEVICE pic16F887, BOD_ON         ' Brown-Out Detect
	@ DEVICE pic16F887, LVP_OFF        ' Low-Voltage Programming
	@ DEVICE pic16F887, CPD_OFF        ' Data Memory Code Protect
	@ DEVICE pic16F887, PROTECT_OFF    ' Program Code Protection
'
'konfigurisi AN pinove kao digital I/O, portd kao I
'------------------------------------------------------------------------
ansel=$00
anselh=$00
TRISD=$00
portd=$00
'
' Definisanje hser-a (transmit-recive) i lcd-a u 4 bitnom modu
'------------------------------------------------------------------------ 
define OSC 4
DEFINE HSER_SPBRG 25
DEFINE HSER_TXSTA 24h
DEFINE HSER_RCSTA 90h
DEFINE HSER_BAUD 9600
DEFINE HSER_CLROERR 1
DEFINE LCD_BITS 4
DEFINE LCD_DREG PORTB
DEFINE LCD_DBIT 0
DEFINE LCD_RSREG PORTB
DEFINE LCD_RSBIT 4
DEFINE LCD_EREG PORTB
DEFINE LCD_EBIT 5
DEFINE LCD_LINES 2
'
'definisanje varijabli
'------------------------------------------------------------------------

SYMBOL sel = PORTA.0 ' Sw 1 "select"
SYMBOL enter = PORTA.2 ' Sw 3 "ENTER"

T1 VAR BYTE
T1=20



'----------------------------------------------------------------
' promjenjive
'----------------------------------------------------------------

MENU VAR BYTE ' zeljeni MENU
POSI VAR BYTE ' Pozicija na LCD
temp Var Word			' temperatura kao word
cr Var Byte			    ' ostatak
cpc Var	Byte			' broji po stepenu C
ow	Var	PORTE.2			' One-wire data pin
i var byte              ' brojac
posttemp var word 

'----------------------------------------------------------------
' incijalizacija 
'----------------------------------------------------------------
low portc.6
low porte.2
PAUSE 300       ' LCD inicijalizacija
LCDOUT $FE,1    ' ocisti LCD

MENU = 1        ' Inicijalizacija variablli


LCDOUT $FE,130," DOBRO DOSLI"
lcdout $FE,$c0,128, "izaberite temp "
'-------------------------------------------------------------------------------------
' meni switc select temp
'-------------------------------------------------------------------------------------
izbor:

PAUSE T1

IF sel = 1 THEN

 LCDOUT $FE,1'ocisti lcd
    MENU = MENU + 1
    gosub amenu    
    pause 200
 endif
    IF MENU = 5 THEN MENU = 1
    
   ' for i = 1 to 4
    if menu = 1 and enter=1 then gosub sc
    if menu = 2 and enter=1 then gosub sc
    if menu = 3 and enter=1 then gosub sc
    if menu = 4 and enter=1 then gosub sc
   ' next i
GOTO izbor

'----------------------------------------------------------------------
'odabir za prikaz na displeju
'----------------------------------------------------------------------
AMENU:

SELECT CASE MENU

CASE 2
POSI = 129 : LCDOUT $FE,128,">" : LCDOUT $FE,POSI,"1."," 28.00" , " C"
POSI = 193 : LCDOUT $FE,POSI,"2."," 30.00" , " C" 


CASE 3


POSI = 129 : LCDOUT $FE,128,">" : LCDOUT $FE,POSI,"2."," 30.00" , " C"
POSI = 193 : LCDOUT $FE,POSI,"3."," 32.00" , " C" 
CASE 4


POSI = 129 : LCDOUT $FE,128,">" : LCDOUT $FE,POSI,"3."," 32.00", " C"
POSI = 193 : LCDOUT $FE,POSI,"4."," 34.00" , " C" 
CASE 5

                                                                           
POSI = 129 : LCDOUT $FE,128,">" : LCDOUT $FE,POSI,"4."," 34.00", " C"
POSI = 193 : LCDOUT $FE,POSI,"1."," 28.00", " C"

END SELECT
RETURN


'
'provjera temperature
'---------------------------------------------------------------------
sc:
'ovdje probati napraviti select case  
if menu = 2 then 
posttemp=$0AF0' postemp = 2800
    LCDOUT $FE,1, "Max temperatura:"
    lcdout $FE,$c0,128, "28.00 C"
    pause 2000
endif

if menu = 3 then 
posttemp=$0BB8
    LCDOUT $FE,1, "Max temperatura:"
    lcdout $FE,$c0,128, "30.00 C"
    pause 2000
endif

if menu = 4 then 
posttemp=$0C80
    LCDOUT $FE,1, "Max temperatura:"
    lcdout $FE,$c0,128, "32.00 C"
    pause 2000
endif

if menu = 1 then 
posttemp=$0D48
    LCDOUT $FE,1, "Max temperatura:"
    lcdout $FE,$c0,128, "34.00 C"
    pause 2000
endif

goto sc1
sc1:

   OWOut ow, 1, [$CC, $44]       ' pocni temp konverziju

wc: 
   OWIn ow, 4, [cr]	' provjeri da'l se jos konvertuje
   If cr = 0 Then wc
   OWOut ow, 1, [$CC, $BE]		' ocitaj temp
   OWIn ow, 0, [temp.LOWBYTE, temp.HIGHBYTE, Skip 4, cr, cpc]
   ' izracunaj temp u C na 2 decimale
  temp = (((temp >> 1) * 100) - 25) + (((cpc - cr) * 100) / cpc)
   
   Lcdout $fe, 1," temp:",DEC (temp / 100), ".", DEC2 temp, " C"' prikazi temp
   
   
            if temp >= posttemp then gosub s3    ' ako je veca od izabrane salji poruku!
          
            
   pause 2000
  goto sc1

s3:

high portb.6

pause 2000

low portb.6

return

End

so u have a simple lcd menu and two switch, porta.0 seleect switch and porta.2 enter switch, if temp(from ds18B20) >= posttem (selected temperature form lcd menu) take action gosub s3

--
www.mtskola.com