Making a menu

[chrisshortys]

Im using the P16F876A

i tried


StartLoop ' This loop repeats continuously just as a test.
@ GetAddress _String1, _Addr ' Get address of String
gosub StringOut ' Send the String
LCDOUT $FE, 1, [13,10] ' New Line

@ GetAddress _AnotherString, _Addr ' Get address of String
gosub StringOut ' Send the String
LCDOUT $FE, 1, [13,10] ' New Line
pause 500
goto StartLoop ' Repeat


but this just gave me a bad expression

[mister_e]

you don't need those square brackets []
try something like...

Start
    @ GetAddress _AnotherString, _Addr ' Get address of String
    LCDOUT $FE,1  ' Here you place your LCD cusor where you want
    gosub StringOut ' Send the String
    pause 500
    goto Start ' Repeat


StringOut: ' Send the string out via Hserout
    Readcode Addr, TwoChars ' Get the 14 bit packed characters
    Char = TwoChars >> 7 ' Separate first char
    if Char = 0 then StringDone ' Look for Null char, Stop if found
    LCDOUT Char ' Send first char
    Char = TwoChars & $7F ' Separate second char
    if Char = 0 then StringDone ' Look for Null char, Stop if found
    LCDOUT Char ' Send the second char
    Addr = Addr + 1 ' Point to next two characters
    goto StringOut ' Continue with rest of the string
StringDone:
    return

[chrisshortys]

ok thanks again!
I shall try that when i get in again tonight!

[Archangel]

Hi Chris, sorry for the delay, good old ATT DSL service is intermittant and they won't fix it. First of all, Mister_e is right, as usual, storing strings in eeprom is a good way to do it, I was only trying to explain why you're way would not work for you. You could in theory, create a byte array to hold all the letters of the alphabet and then display them as groups of individual letter variables, you could. Or you could make individual variables representing words like stop go start etc. Many roads to Valhalla.

[chrisshortys]

Hi Chris, sorry for the delay, good old ATT DSL service is intermittant and they won't fix it. First of all, Mister_e is right, as usual, storing strings in eeprom is a good way to do it, I was only trying to explain why you're way would not work for you. You could in theory, create a byte array to hold all the letters of the alphabet and then display them as groups of individual letter variables, you could. Or you could make individual variables representing words like stop go start etc. Many roads to Valhalla.

Well thanks alot for the reply! I know there is always many a way to do one job when it comes to coding and im hoping by the help on the forums i can get a much broader variation on the methods i use!
So yes any ideas are very welcome
Especially if they come with little snips of code which helps me to understand

mister_e i tried that code and yep all good thank you very much!
Tommorrow night i shall play around with it some more and try to get different things when different buttons are pushed etc!

[Archangel]

Well thanks alot for the reply! I know there is always many a way to do one job when it comes to coding and im hoping by the help on the forums i can get a much broader variation on the methods i use!
So yes any ideas are very welcome
Especially if they come with little snips of code which helps me to understand

mister_e i tried that code and yep all good thank you very much!
Tommorrow night i shall play around with it some more and try to get different things when different buttons are pushed etc!

OK Chris look this over:http://www.picbasic.co.uk/forum/showthread.php?t=8876

[chrisshortys]

Well i thougth i would try another approach and see if this is possible. I have tried to create a lookup table but I'm having problems with this. The code starts to work, when i press a button it goes to the table, it goes to the location and it then only displays the first character
Am i missing somthing or is this a dead end?

DEFINE LCD_DREG PORTB 			'Define PIC port used for LCD Data lines
DEFINE LCD_DBIT 4 			'Define first pin of portb connected to LCD DB4
DEFINE LCD_RSREG PORTB 			'Define PIC port used for RS line of LCD
DEFINE LCD_RSBIT 3 			'Define Portb pin used for RS connection
DEFINE LCD_EREG PORTB 			'Define PIC prot used for E line of LCD
DEFINE LCD_EBIT 0 			'Define PortB pin used for E connection
DEFINE LCD_BITS 4 			'Define the 4 bit communication mode to LCD
DEFINE LCD_LINES 2 			'Define using a 2 line LCD
DEFINE LCD_COMMANDUS 2000 		'Define delay between sending LCD commands
DEFINE LCD_DATAUS 50 			'Define delay time between data sent.

' Control Buttons/Lines
' ---------------------
ButStart var Portc.0 	' Take this pin low momentarily to START timing
ButStop var Portc.1 	' Take this pin low momentarily to STOP timing
ButReset var Portc.2 	' Take this pin low momentarily to RESET clock
Butup var portc.3	' Take this pin low momentarily to increase clock time
Butdwn var portc.4	' Take this pin low momentarily to decrease clock time

b0 var word
w0 var word


Start:

Lookup2 B0, ["hello", "help", "sory", "no"], W0 

If ButStart=0 then
b0=0
endif
If butstop=0 then
b0=b0-1
endif
if butup=0 then
b0=b0+1
endif


GOSUB LCDDisplay

Goto start



LCDDisplay:
LCDOUT w0
	pause 60
return

	end