keypad 4x3

[jonas2]

Hello


Currently I use the program by Bruce, a 4x3 keypad and wire
this way:
RB6 RB5 RB4
RBO 1 2 3
RB1 4 5 6
RB2 7 8 9
RB3 * # 0

But when I visualize the data received on my computer, the figures are
step in the right order.

An example:

RB0 RB7 4
RB0 RB6 3
RB0 RB5 2
RB0 RB4 1

I do not know how, thank you for your help

[Archangel]

...and wire
this way:
RB6 RB5 RB4
RBO 1 2 3
RB1 4 5 6
RB2 7 8 9
RB3 * # 0

RB7 not used here . . .

But when I visualize the data received on my computer, the figures are
step in the right order.

An example:

RB0 RB7 4
RB0 RB6 3
RB0 RB5 2
RB0 RB4 1

But it is used in this example . . . . BTW Hi Jonas2 . . .

I do not know how, thank you for your help

OK, What is it you do not know how to do ?
The "little secret" of this code is when it scans the keypad each button = a number from zero to 12 or 16 depending upon which keypad you use, and the lookup table then makes it have the number <b>YOU</b> want those keys to represent.

[jonas2]

Hello

Even with instruction lockup figures are reversed.
RB7 on I put a led, for columns RB6 RB5 RB4 for
lines rb0 RB1 RB2 RB3.

I really do not understand this program and how to edit?

[EarlyBird2]

This is the line to edit

LOOKUP Key,["147*2580369#"],sKey

But it looks like you have you rows and columns wired wrong. Swap your RB4 and RB6 wires over.

Steve

[jonas2]

hello

I already tested this way, but without success.

.......RB6... RB5... RB4

RB0... 1... 2 ... 3

RB1... 4 ... 5... 6

RB2... 7... 8 ... 9

RB3... * ... 0 ... #

[Ioannis]

If you won't post your code I think it is difficult to get help...

Ioannis

[Archangel]

RB7 on I put a led, for columns RB6 RB5 RB4 for
lines rb0 RB1 RB2 RB3.

OK, I think your problem is here, you set the TrisB to $F0 which in binary is 11110000, which sets the lower ports as outputs and the upper ports as inputs, so then you hang an LED on this PortB.7 input and it pulls it low. Change the Tris To $70 or %01110000, which will set the PortB.7 as an output. Better yet, put it back the way Bruce wrote it and move the LED to PortA otherwise, (although I am not sure), I think the keypad will not go over 7, I think if you want to "rob" portB of a port you must use one of the outputs not inputs.

[jonas2]

Hello

Thank you for your help, I change this way:
getkeyp:'----------------------------------------- Wait for keypress
FOR row = 0 TO 3 ' 4 rows in keypad
PORTB = 0 ' All output-pins low
TRISB = (DCD row) ^ $ff ' Set one row pin to output
col = PORTB >> 3 ' Read columns
IF col != $f THEN gotkey ' If any keydown, exit
NEXT row
GOTO getkeyp ' No keys down, go look again

gotkey: ' Change row and column to key number 1 – 16

key = (row * 3) + (NCD (col ^ $8f))




'------RB6--RB5--RB4--
' | | |
'RB0----1----2----3---row1
' | | |
'RB1----4----5----6---row2
' | | |
'RB2----7----8----9---row3
' | | |
'RB3----*----0----#---row4
' | | |
'-----col1--col2--col3


LOOKUP key,["1","4","7","*","2","5","8","0","3","6","9","# "],skey

LOOKUP key,["147*2580369#"],skey


'8f = %10001111 = LED,col1,col2,col3,row4,row3,row2,row1


@ DEVICE pic16F628, INTRC_OSC_NOCLKOUT
@ DEVICE pic16F628, WDT_ON
@ DEVICE pic16F628, PWRT_OFF
@ DEVICE pic16F628, BOD_ON
@ DEVICE pic16F628, MCLR_ON
@ DEVICE pic16F628, LVP_OFF
@ DEVICE pic16F628, CPD_OFF
@ DEVICE pic16F628, PROTECT_OFF


Include "modedefs.bas"
DEFINE OSC 4

col VAR BYTE ' Keypad column
row VAR BYTE ' Keypad row
key VAR BYTE ' Key value
i var byte
led var PortB.7
serpin VAR PortA.3 ' Serial output pin
CMCON = 7 ' PortA = digital I/O
VRCON = 0 ' Voltage reference disabled
OPTION_REG.7 = 0 ' Enable PORTB pull-ups

loop:
GOSUB getkey ' Get key from keypad
SEROUT2 serpin,84,[skey,10,13] ' Send key value out PortA.3
GOTO loop

getkey:
high led
PAUSE 50 ' Debounce key-input

getkeyu:'----------------------------------------- Wait for all keys up

PORTB = 0 ' All output-pins low
TRISB = $f0 ' Bottom 4-pins out, top 4-pins in 1111 0000
IF ((PORTB >> 4) != $f) THEN getkeyu ' If keys down, loop
PAUSE 50 ' Debounce key-input

getkeyp:'----------------------------------------- Wait for keypress

FOR row = 0 TO 3 ' 4 rows in keypad
PORTB = 0 ' All output-pins low
TRISB = (DCD row) ^ $ff ' Set one row pin to output
col = PORTB >> 4 ' Read columns
IF col != $f THEN gotkey ' If any keydown, exit
NEXT row
GOTO getkeyp ' No keys down, go look again

gotkey: ' Change row and column to key number 1 - 16
key = (row * 3) + (NCD (col ^ $f))
LOOKUP Key,["147*2580369#"],sKey ' 1 4 7 * 2 5 8 0 3 6 9 #
'LOOKUP Key,["*","7","4","1","0","8","5","2","#","9","6","3 "],sKey
PAUSE 50
low led
RETURN ' Subroutine over

END

[EarlyBird2]

Jonas2

And it still does not work?