row -> col and col -> row

[savnik]

I have the below code and work.
But ,when i push the number 4 show 3 , when i push the number 7 show 3 , when i push the number 2 show 4
when i push the number 3 show 7
How to make the row -> col and col -> row to show right;



Col VAR BYTE ' Keypad column
Row VAR BYTE ' Keypad row
Key VAR BYTE ' Key value

Lcdout $fe, 1, "Press any key" ' Display sign on message

Loop:
Gosub getkey ' Get a key from the keypad
Lcdout $fe,1, #key
goto loop

GetKey:
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
IF ((PORTB >> 4) != $f) THEN getkeyu ' If keys down, loop
PAUSE 50 ' Debounce key-input

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

GotKey: ' Change row and column to key number 1 - 16
key = (col * 4) + (NCD (row ^ $f))

RETURN ' Subroutine over

[skimask]

I have the below code and work.
How to make the row -> col and col -> row

SWAP col,row

[savnik]

SWAP col,row
I swap col with row with no succes

[skimask]

I swap col with row with no succes

Maybe do a search on 'matrix keypad'

[peterdeco1]

This is how I read a 16 matrix membrane switch. All horizonal rows connected to PORTC 1,2,3,4 outputs. All vertical columns connected to PORTB 1,2,3,4 inputs held high by resistor network. This example just shows eight readings:

PORTC = 255 'MAKE SURE ALL OUTPUTS ARE HIGH

START:
LOW PORTC.1
PAUSE 1
IF PORTB.1 = 0 THEN ONE
IF PORTB.2 = 0 THEN TWO
IF PORTB.3 = 0 THEN THREE
IF PORTB.4 = 0 THEN FOUR
HIGH PORTC.1
PAUSE 1

LOW PORTC.2
PAUSE 1
IF PORTB.1 = 0 THEN FIVE
IF PORTB.2 = 0 THEN SIX
IF PORTB.3 = 0 THEN SEVEN
IF PORTB.4 = 0 THEN EIGHT
HIGH PORTC.2

Pauses are added to slow down the process. Without them we experienced intermittant problems (probably from capacitance in the membrane switch). Hope this helps.

[mister_e]

http://www.picbasic.co.uk/forum/showthread.php?t=3250