menu selection [Archive] - MEL PICBASIC Forum

NURULHAIZA

- 14th June 2010, 03:53

mackrackit

- 14th June 2010, 10:26

When the hardware serial port is used with DEFINEs you can not use SERIN2 commands on the same pins. If you do not DEFINE then you can but I do not see where this would be much of an advantage for you.

So in the Temp routine in the RX code get rid of the HSERIN for starters.
Then in the SERIN2 command you may want to wait for something other than a blank space. Send a Z or something and wait for that.

This is the part I am talking about

*
* hserin 2000,main,[dta1(0),dta1(1)]
* * serout2 portb.2, 16468,[dta1(0), dta1(1)]
* * LCDOUT $FE,1,"STATUS: ",DTA1(0),DTA1(1):pause 2000*
* * serin2 portc.7,84,[wait(" "),dta(0),DTA(1),DTA(2),DTA(3),DTA(4),DTA(5),DTA(6) ,DTA(7),DTA(8),dta(9),dta(10),dta(11),dta(12),DTA( 13),DTA(14),DTA(15)]

NURULHAIZA

- 15th June 2010, 10:14

i have change the port and still the same...

serin2 portc.7,84,[wait("z"),dta(0),DTA(1),DTA(2),DTA(3),DTA(4),DTA(5),DTA(6) ,DTA(7),DTA(8),dta(9),dta(10),dta(11),dta(12),DTA( 13),DTA(14),DTA(15)]
pause 50
serout2 portc.5,16468,[dta(0),DTA(1),DTA(2),DTA(3),DTA(4),DTA(5),DTA(6),D TA(7),DTA(8),dta(9),dta(10),dta(11),dta(12),DTA(13 ),DTA(14),DTA(15),13]
LCDOUT $FE,1,dta(0),DTA(1),DTA(2),DTA(3),DTA(4),DTA(5),DT A(6),DTA(7),DTA(8),dta(9),dta(10),dta(11),dta(12), DTA(13),DTA(14),DTA(15)

FinchPJ

- 15th June 2010, 13:14

[QUOTE=NURULHAIZA;90813]i have change the port and still the same...

I am not sure that this was the answer to your question - the problem is that you are stuck in item 1 of your menu largely because you are polling your buttons for a few microseconds every 5 seconds - not much hope of happening to be pressing at the right time:
main:
if portB.1=1 then 'arrow down TAKES A FEW MICROSECONDS
push = push+1 : goto selection : endif
if portA.1=1 then 'arrow up
push = push-1 : goto selection : endif
pause 5000 'DO NOTHING FOR 5 SECONDS
goto main
I suggest you have a much shorter pause (eg PAUSE 50) and it may be more responsive!

Also it is not clear you have made portB.1 an input - I like to use
INPUT portB.1
but you could also use the TRIS register also

Peter

NURULHAIZA

- 16th June 2010, 02:42

guys i have tried everything that you told me...but it still the same....once the rx received data from tx and display it on LCD it will stop there and will not execute the other loop. do i need to change anything at tx?

mackrackit

- 16th June 2010, 05:28

Let's try to debug this...
Your code is running to here?

TEMP:
'SNIP
LCDOUT $FE,$C0,dta(0),DTA(1),DTA(2),DTA(3),DTA(4),DTA(5), DTA(6),DTA(7),DTA(8),dta(9),dta(10),dta(11),dta(12 ),DTA(13),DTA(14),DTA(15)
RETURN
Then ends up here

main:
'ADD LED TO FLASH TO SEE IF IT IS HERE OR DISPLAY "AT MAIN" TO THE LCD
if portB.1=1 then 'arrow down
push = push+1 : goto selection : endif
if portA.1=1 then 'arrow up
push = push-1 : goto selection : endif
pause 5000
goto main
Then when you get here

selection:
"DISPLAY THE VALUE OF "push" TO THE LCD
pause 200
if push=1 then screen1
if push=2 then screen2
if push=3 then screen3
if push=4 then screen4
if push=5 then screen5
if push=6 then screen6
if push=7 then screen7
if push=8 then screen8
if push=9 then
push = 1 : goto screen1 : endif
if push=0 then
push = 8 : goto screen8 : endif
goto main
I have a sneaky suspicion you will need to use >= in place of =
Does that make sense?

FinchPJ

- 16th June 2010, 13:09

Sorry to say but I have tested the menu selection on a simulator and if you change the pause to 50 it works fine (although I would have used a LOOKUP with BRANCHL), but leaving that aside, I suspect you have been naughty with your syntax - you define a word and then treat it like an array. A simple little test of:
dta = 513
dta1 = 514
extra1 = 515
extra2 =516

LCDOUT dec dta(0), " ", dec dta(1), " ", dec DTA(2), " ", dec dta(3), " "

gives this result:
513 514 515 516
indicating that
dta(0) = dta
dta(1) = the next defined variable etc
quite unpredicable results - you must define an array and reference it with "square brackets" or better still with the STR expression. Eg:

Buffer var byte[16]
HSERIN 1000, tsync, [str Buffer\5]

Peter