18F4550 and keypad

[mpardinho]

i working with 18F4550 with 4mhz resonator
usb work 100%
keypad don't work
can i help ?

   INCLUDE "modedefs.bas"
   INCLUDE "KeyPad.bas"
   
   DEFINE   OSC            48   
   
   DEFINE KEYPAD_ROW        6        ' 4 ROW keypad       
   DEFINE KEYPAD_ROW_PORT   PORTB    ' ROW port
   DEFINE KEYPAD_ROW_BIT    2        ' ROW0

   DEFINE KEYPAD_COL        3        ' 4 COL keypad
   DEFINE KEYPAD_COL_PORT   PORTD    ' COL port
   DEFINE KEYPAD_COL_BIT    5        ' COL0

   DEFINE KEYPAD_DEBOUNCEMS 200      ' debounce delay = 200 mSec
   DEFINE KEYPAD_AUTOREPEAT 0        ' use auto-repeat feature 

   Led                Var	  PORTA.0
   RF_Entrada         VAR    PORTA.1
   
   Contador           Var	  Byte
   Dados              var	  Byte[10]
   Recebeu            var    byte[4]
         
   Acao               var    byte
   Botao              VAR    Byte
   Linha              VAR    BYTE
   Coluna             VAR    BYTE

'-------------------------------------------------------------------------------      
Configura:
   ADCON0 = 0           ' Turn off A/D
   ADCON1 = 7           ' Set PORTA to digital
   CMCON  = 7           ' Comparators off

   high LED   
   PAUSE 100
   
   USBInit
   PAUSE 5000
	
   Low LED

'-------------------------------------------------------------------------------
Inicio:
   USBService
   
   contador = 1
	USBIn 3, Dados, contador, Inicio
	Toggle LED

   iF Dados[0]="B" tHEN 
      Contador = 5 
      Dados[0] = "B"
      Dados[1] = "O"
      Dados[2] = "T"
      Dados[3] = "Ã"
      Dados[4] = "O"
      goSUB Usb_Saida   

      GOTO Ler_Teclado
   endif
GOTO Inicio

'-------------------------------------------------------------------------------
Usb_Saida:
   USBService
   USBOut 3, Dados, contador, Usb_Saida
rETURN

'-------------------------------------------------------------------------------
Ler_Teclado:
   @ READKEYPAD _Botao

   Contador = 3
   Dados[0] = 96+Botao
   Dados[1] = 13
   Dados[2] = 10  
   goSUB Usb_Saida

goto Ler_Teclado

END

[Darrel Taylor]

It never makes it to the keypad routine. Unless you send something from the PC.
Then it only checks the keypad once.

Inicio:    <--------------------------------
   USBService                               |
                                            |
   contador = 1                             |
	USBIn 3, Dados, contador, Inicio ---

[mpardinho]

i send 'B" from pc, print "BOTAO" and start keypad
KEYPAD IN 16f628 IS OK...but in 18F4550 portb and portd not work

Inicio:
USBService

contador = 1 'working
USBIn 3, Dados, contador, Inicio 'working
Toggle LED

iF Dados[0]="B" tHEN 'working
Contador = 5
Dados[0] = "B"
Dados[1] = "O"
Dados[2] = "T"
Dados[3] = "Ã"
Dados[4] = "O"
goSUB Usb_Saida

GOTO Ler_Teclado
endif
GOTO Inicio

'-------------------------------------------------------------------------------
Usb_Saida: 'working
USBService
USBOut 3, Dados, contador, Usb_Saida
rETURN

'-------------------------------------------------------------------------------
Ler_Teclado:
Contador = 5 'working
Dados[0] = "B"
Dados[1] = "O"
Dados[2] = "T"
Dados[3] = "Ã"
Dados[4] = "O"
goSUB Usb_Saida

@ READKEYPAD _Botao ' not working

Contador = 3
Dados[0] = 96+Botao
Dados[1] = 13
Dados[2] = 10
goSUB Usb_Saida

goto Ler_Teclado

END

[Darrel Taylor]

It never makes it to the keypad routine. Unless you send something from the PC.
Then it only checks the keypad once.

Inicio:    <--------------------------------
 | USBService                               |
 |                                          |
 | contador = 1                             |
  ----> USBIn 3, Dados, contador, Inicio ---
  ...

  ...

@ READKEYPAD _Botao ' not working