calculator-like code entry with matrix keypad and display

[Jerson]

Just some minor modifications to your code

  
myvar var byte 'var output from keypress
Array var Byte [3] 'array variable to hold 3 keypresses
A0 var byte 'counter/index
B0 var Byte 'sum of digits
KeyPress Var Byte 'holds each keypress as it happens
           Pause 2000       ' Wait for LCD to startup

  
   A0=0   'index = 0

Ini:

lcdout $fe,1
lcdout "enter number"
B0 = 0                             ' start with 0 in the sum of digits
@ READKEYPAD _myvar  'read keypress variable and place in myvar
  b0 = b0*10+_myvar     ' add in the new number


  LOOKUP myvar,[0,"123A456B789C*0#D"],myvar 'use lookup table to diplay proper keypress
  keypress = myvar 'pass the variable to solve strange character problem
 ' will contain the ascii character of the key pressed
  
  lcdout keypress
  pause 1000
  lcdout $fe,1  
'If keypress = "a" or "b" or "c" or "d" then goto numbers
if keypress = "*" then goto retry
If KeyPress = "#" then    'check input keypress for a # value
'if B0 > 255 then goto overflow 'test for overflow B0>255
HSEROUT ["here is the total ",dec B0,$0d,$0a]  'send result to pc com port 
 
A0=0
 
ENDIF

If A0>2 then retry 'Ini

Array[A0]=KeyPress -48
A0=A0+1

goto ini

numbers: 'tell person to enter only numbers
lcdout "numbers only"
pause 1000
A0=0
myvar=0
goto ini

retry: 'is the * key is pressed then prompt for a retry and clear A0 and myvar
lcdout "retry"
pause 1000
lcdout $fe,1
A0=0
myvar=0
goto ini

overflow: 'tell person to enter 0 to 255 only
lcdout $fe,1
lcdout "0 to 255 ONLY!"
pause 1000
A0=0
myvar=0

goto ini

[Archangel]

Hi Dennis,
You might find this thread useful, check the zip files LLoyd posted.

[Dennis]

Hi Joe

Just curious as to what thread? Did you maybe forget to post the URL ?
Will search for all posts by LLoyd

Jerson ...Thanks a million will try iut and feedbask asap

Kind regards

Dennis

[Dennis]

Thanks for the modification suggestion

Have tried the code as you have it posted

First issue was a compile error on this line

 b0 = b0*10+_myvar     ' add in the new number

So I changed it to read

 b0 = b0*10+myvar     ' add in the new number

and it compiled.

The resultant output in MCS serial tool each time on any keypress is 15 ??

At the moment I'm scanning through to see what else you modified and where the issue lies, will feedback if and when I find the problem :-)

Kind regards
Dennis

[Dennis]

Joe ..

Did you mean this URL ?
http://www.picbasic.co.uk/forum/showthread.php?t=5695
Yes I have been checking it out too that one out too.
There's also this one
http://www.picbasic.co.uk/forum/show...ight=door+lock
and this one
http://www.picbasic.co.uk/forum/show...ght=calculator

Kind regards
Dennis

[Archangel]

Joe ..

Did you mean this URL ?
http://www.picbasic.co.uk/forum/showthread.php?t=5695
Yes I have been checking it out too that one out too.
There's also this one
http://www.picbasic.co.uk/forum/show...ight=door+lock
and this one
http://www.picbasic.co.uk/forum/show...ght=calculator

Kind regards
Dennis

Hi Dennis,
Yep, the first one, second page, where Lloyd posted the finished code he paid Mr_E to write. Since I do not know your exact plan here I thought you might discover how to handle the arrays and use the numbers. Also dunno why you use byte var hassel instead of using a word simply use something like

if tempx >999 then tempx = 999

or instead of 999 you could cause the routine to jump to a subroutine that handles errors or make 999 into a zero so it works to simply overflow.

[Dennis]

Hi guys

Just a few updates
Jerson ...still trying to see what's wrong with the code snippet you send .. did you try it at all ?
You mentioned raw characters .. did you mean I shouldn't do a lookup ?

Joe... I'm busy going through the gate entry code.

Will feedback as soon as I get more info :-)

Kind regards
Dennis

[Ioannis]

I recall now once used the keyboard subroutine and I think it returns 32 when no key is pressed. Have you checked for this? Except if you have a DEFINE SCAN_ONCE 1 on top of your code.

This way it waits in the @ READKEYPAD for as long as no key is pressed.

Ioannis

[Dennis]

Thanks for the reply :-)

Except if you have a DEFINE SCAN_ONCE 1 on top of your code.

I have that enabled :-)

Will try the code ;-)

Dennis

[Jerson]

Thanks for the modification suggestion

Have tried the code as you have it posted

First issue was a compile error on this line

 b0 = b0*10+_myvar     ' add in the new number

So I changed it to read

 b0 = b0*10+myvar     ' add in the new number

and it compiled.

The resultant output in MCS serial tool each time on any keypress is 15 ??

At the moment I'm scanning through to see what else you modified and where the issue lies, will feedback if and when I find the problem :-)

Kind regards
Dennis

You may also need to check for the * and # conditions before you modify the B0 variable like this

@ READKEYPAD _myvar  'read keypress variable and place in myvar

    if myvar < 10 then
         b0 = b0*10+myvar     ' add in the new number
    else
         if myvar = 12 then  retry    ' check for * condition
         if myvar =13 then       ' check for # condition
             HSEROUT ["here is the total ",dec B0,$0d,$0a]  'send result to pc com port 
             A0=0
         endif
    endif

As you can see, I have used the raw values from readkeypad and you may need to change the 12 and 13 to whatever it is you get for * and #