SEROUT,HSEROUT or DEBUG ? max 232 or no max232 ?

[Darrel Taylor]

WOOHOO!

dude can I borrow those 'fine-tooth comb code-eyes' ???

Well, I do have 4 eyes, so I guess you can have a couple of them.
Need a new pair of specs anyhow.

For the SEROUT prob...
Steve's keypad routine returns a result that represents the number of the key. For a 4x4 pad it's 1-16.

With a LOOKUP statement you can change them to match your keypad ...

LOOKUP  myvar,[0,"123A456B789C*0#D"],myvar

hthm,

[Dennis]

Darrel


.'
?Is Steve mister e ??
Code-wise I tried , Bruce's code and Trent Jackson's code ....
Mister e's is what I'm using at the moment, it was the one that worked for me, but the other would probably work now that the LCD problem is cleared up ;-) ...

Where is the keypad code you are referring to ? I am willing to give it a bash :-)

Kind regards

Dennis

Oh and I sure did get my fair share of moving wires and resistors around to get the correct column and row assingments ;-)
Roll on virtual ports hey ?

[Darrel Taylor]

Yup, Steve is mister-e.

By changing from key numbers to ASCII with the Lookup, your serout should work better.
<br>

[Dennis]

Darrel :-)

So with 8 sets of eyes in total now ... should I add the LOOKUP prior to making the assembly key lookup like this ?

start:
        'read keypress variable 
        @ READKEYPAD _myvar 
        LOOKUP  myvar,[0,"123A456B789C*0#D"],myvar
        'lcdout $fe, 1        'clear lcd screen
           'pause 2000
        lcdout dec myvar      'display keypress variable myvar
   
   'transmit section
        SerOut PORTC.6,T2400,["the key pressed is",myvar] 'SerOut PinNumber2,T2400,DataRec
        pause 1000
   'transmit section ends
        
    'receive section 
         'SerIn PORTC.7,T2400,DataRX       
         'LCDOUT datarx          'displays data received from serin datarx
    'receive section ends
        lcdout $fe,1          'clear lcd screen
        
goto start

Kind regards
Dennis


@ READKEYPAD _myvar

[Darrel Taylor]

Except for the DEC modifier, good to go.

start:
        'read keypress variable 
        @ READKEYPAD _myvar 
        LOOKUP  myvar,[0,"123A456B789C*0#D"],myvar
        'lcdout $fe, 1        'clear lcd screen
           'pause 2000
        lcdout <strike>dec</strike> myvar      'display keypress variable myvar
   
   'transmit section
        SerOut PORTC.6,T2400,["the key pressed is",myvar] 'SerOut PinNumber2,T2400,DataRec
        pause 1000
   'transmit section ends
        
    'receive section 
         'SerIn PORTC.7,T2400,DataRX       
         'LCDOUT datarx          'displays data received from serin datarx
    'receive section ends
        lcdout $fe,1          'clear lcd screen
        
goto start

[Dennis]

OK got your message after I tried with the DEC modifier ;-) nothing worked !
So I removed it and .....
The LCD now shows the correct characters as per what I type in 123 etc and the ABCD keys as well as # and * ....YAY.....
but sadly now nothing appears in hyperterminal ....
Does SEROUT now need to be replaced by SEROUT2 ?
Will try it later and post results either way :-)
Need some sleep now ..
Thanks so much for your continued help :-) much appreciated !

Keep well

Kind regards
Dennis

OH .. by the way .. do you maybe know how I could capture a keyin of the number say 135 # so that it is actually stored as binary or decimal 135 ?

[Darrel Taylor]

but sadly now nothing appears in hyperterminal ....
Does SEROUT now need to be replaced by SEROUT2 ?

If you have PBP 2.60 then that will help. SEROUT has a buad rate problem.

OH .. by the way .. do you maybe know how I could capture a keyin of the number say 135 # so that it is actually stored as binary or decimal 135 ?

If you have 2.60, it's real easy with ARRAYREAD.
<br>