Keypad and DT's Instant Interrupts

[Homerclese]

DOH! I had a detailed question but it got cleared. So here's the short-short version.

Has enybody included a 4x4 keypad routine in with DT's instant interrupts? It would most likely use port B change to trigger. I found forum references to keypad and interrupts but since I'm using the elapsed timer routine anyway I think I should stick with the "instant interrupts" technique. Can it be done with a change in variable value?



(Flanders hippie dad) "We tried nothing, and nothing ain't working"?

[mister_e]

You can still use a Timer interrupt with my KEYPAD.BAS routine. Just use the DEFINE SCAN_ONCE 1 in your settings.

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

i've attach the latest version... just in case of.

[Homerclese]

Thanks for the quick response.
I have tried the code and it works. However there is an issue. I have a 4x4 setup but it acts like a 4x3 keypad. I can get digits 1 through 12. If I change the define as below to 4 col then nothing works. Im still checking but I think this is the same hardware setup I had before and it worked as a 4x4. Any suggestions?

TRISB = %11110000 'PortB first four bits outputs second four bits inputs

include "KeyPad.bas"

DEFINE KEYPAD_ROW 4 ' 4 ROW keypad
DEFINE KEYPAD_ROW_PORT PORTB ' ROW port = PORTB
DEFINE KEYPAD_ROW_BIT 4 ' ROW0 = PORTB.4
'DEFINE KEYPAD_COL 3 ' 3 COL keypad
DEFINE KEYPAD_COL 4 ' 4 COL keypad
DEFINE KEYPAD_COL_PORT PORTB ' COL port = PORTB
DEFINE KEYPAD_COL_BIT 1 ' COL0 = PORTB.1
DEFINE KEYPAD_DEBOUNCEMS 20 ' debounce delay = 20 50 mSec
DEFINE SCAN_ONCE 1

OPTION_REG.7=0 ' Enable internal crap pull-up
ADCON1=7 ' disable ADCs
PORTB = 0 '

ByteA var byte '

[mister_e]

mmm, it's working here as suppose to. Using your code above on a 16F877, i tried with...

<font color="#000000">    @       __CONFIG _XT_OSC &amp; _LVP_OFF
    
    <font color="#000080">INCLUDE </font>&quot;C:\PBP_PROG\INCLUDE_ROUTINES\KeyPad.bas&quot;
    <font color="#000080">INCLUDE </font>&quot;c:\PBP_PROG\EASYPIC4\LCD4.bas&quot;           
    
    <font color="#000080">DEFINE </font>KEYPAD_ROW 4 	 <font color="#008000">' 4 ROW keypad
    </font><font color="#000080">DEFINE </font>KEYPAD_ROW_PORT PORTB <font color="#008000">' ROW port = PORTB
    </font><font color="#000080">DEFINE </font>KEYPAD_ROW_BIT 4 	 <font color="#008000">' ROW0 = PORTB.4
    </font><font color="#000080">DEFINE </font>KEYPAD_COL 3 	 <font color="#008000">' 4 COL keypad
    </font><font color="#000080">DEFINE </font>KEYPAD_COL_PORT PORTB <font color="#008000">' COL port = PORTB
    </font><font color="#000080">DEFINE </font>KEYPAD_COL_BIT 1 	 <font color="#008000">' COL0 = PORTB.0
    </font><font color="#000080">DEFINE </font>KEYPAD_DEBOUNCEMS 20  <font color="#008000">' debounce delay = 20 50 mSec
    </font><font color="#000080">DEFINE </font>SCAN_ONCE 1
    
    OPTION_REG.7=0 	         <font color="#008000">' Enable internal crap pull-up
    
    </font>ByteA <font color="#000080">VAR BYTE

    PAUSE </font>500
    <font color="#000080">LCDOUT </font>$FE,1,&quot;PRESS ANY KEY&quot;

Start:
    @ READKEYPAD _ByteA
    <font color="#000080">IF </font>ByteA <font color="#000080">THEN 
        LCDOUT </font>$FE,$C0,<font color="#000080">REP </font>&quot; &quot;\2,$FE,$C0, <font color="#000080">DEC </font>ByteA
        <font color="#000080">ENDIF
        
    GOTO </font>Start

make sure you have disable the LVP mode and there's no faulty I/Os

[Homerclese]

I will check further. I am using the f877 pic. Note that I tried changing this line to "4". Is that wrong?

DEFINE KEYPAD_COL 3 ' 4 COL keypad

Looking at it now I realize that its probably 0 to 3 which is 4 states or columns. So the above line should stay as it is?

[mister_e]

using the previous but changing KEYPAD_ROW or KEYPAD_COL number it always work for me. Yeah, even a 1X1 keypad work... wooohoo how handy it is

Now, using a TIMER0 interrupt and DT-INT14, it looks like

<font color="#000000">    @       __CONFIG _XT_OSC &amp; _LVP_OFF
    
    <font color="#000080">INCLUDE </font>&quot;C:\PBP_PROG\INCLUDE_ROUTINES\KeyPad.bas&quot;
    <font color="#000080">INCLUDE </font>&quot;c:\PBP_PROG\EASYPIC4\LCD4.bas&quot;  
    <font color="#000080">INCLUDE </font>&quot;C:\PBP_PROG\INCLUDE_ROUTINES\DT_INTS-14.bas&quot;
    <font color="#000080">INCLUDE </font>&quot;C:\PBP_PROG\INCLUDE_ROUTINES\ReEnterPBP.bas&quot;            
    
    <font color="#000080">DEFINE </font>KEYPAD_ROW 4 	 <font color="#008000">' 4 ROW keypad
    </font><font color="#000080">DEFINE </font>KEYPAD_ROW_PORT PORTB <font color="#008000">' ROW port = PORTB
    </font><font color="#000080">DEFINE </font>KEYPAD_ROW_BIT 4 	 <font color="#008000">' ROW0 = PORTB.4
    </font><font color="#000080">DEFINE </font>KEYPAD_COL 3 	 <font color="#008000">' 4 COL keypad
    </font><font color="#000080">DEFINE </font>KEYPAD_COL_PORT PORTB <font color="#008000">' COL port = PORTB
    </font><font color="#000080">DEFINE </font>KEYPAD_COL_BIT 1 	 <font color="#008000">' COL0 = PORTB.0
    </font><font color="#000080">DEFINE </font>KEYPAD_DEBOUNCEMS 20  <font color="#008000">' debounce delay = 20 50 mSec
    </font><font color="#000080">DEFINE </font>SCAN_ONCE 1
    
    
<font color="#000080">ASM
INT_LIST  macro    
        INT_Handler   TMR0_INT,  _TMR0Interrupt,   PBP,  yes
    endm
    INT_CREATE               
ENDASM
    
    </font>OPTION_REG=%00000100    	 <font color="#008000">' Enable weak-pull ups
</font>                            	 <font color="#008000">' Prescaler assigned to Timer0
</font>                            	 <font color="#008000">' rate 1:32

    </font>ByteA <font color="#000080">VAR BYTE
    </font>TMR0IF <font color="#000080">VAR </font>INTCON.2
    
    <font color="#000080">PAUSE </font>500
    <font color="#000080">LCDOUT </font>$FE,1,&quot;PRESS ANY KEY&quot;

    @ INT_ENABLE  TMR0_INT

Start:
    <font color="#000080">IF </font>ByteA <font color="#000080">THEN 
        LCDOUT </font>$FE,$C0,<font color="#000080">REP </font>&quot; &quot;\2,$FE,$C0, <font color="#000080">DEC </font>ByteA
        <font color="#000080">ENDIF
    GOTO </font>Start
    

TMR0Interrupt:
    @ READKEYPAD _ByteA
    TMR0=0
    @ INT_RETURN

and it's still working.

do a I/O test with LEDs and push button to see if there's any faulty.

KEYPAD_COL 3 really set the KeyPAd to 3 column, DEFINE KEYPAD_COL_BIT 1 will imply you're connected to PORTB.1, PORTB.2, PORTB.3

same for rows, DEFINE KEYPAD_ROW 4, 4 rows, DEFINE KEYPAD_ROW_BIT 4, so PORTB.4, PORTB.5, PORTB.6 and PORTB.7.