Leer teclado con PBASIC

[Rubén]

Hola, estoy realizando un proyecto con una Basic Stamp y un sensor PIR, y un teclado de 4x3.
Por ahora ya he conseguido que funcione el sensor, pero el problema viene al programar el teclado, como podria leer el teclado con PBASIC?

[Lorenzo M. Oliver]

Hola Rubén, ahí van unos documentos (en inglés) que quizás te sirva para tu proyecto:

Stamp Applications no. 3 ( May ’95 )
Adapt a Keypad for Pro-Quality Data Entry; Included Software Lets Stamp “Type” on a PC
http://www.parallax.com/Portals/0/Downloads/docs/cols/nv/vol1/col/n...

Stamp Applications no. 97 ( May '03 )
Keyboard Entry and Display
http://www.parallax.com/Portals/0/Downloads/docs/cols/nv/vol4/col/n...

Stamp Applications no. 22 ( December ’96 )
Scan a Keypad with the BS2 For Pushbutton User Input
http://www.parallax.com/Portals/0/Downloads/docs/cols/nv/vol1/col/n...

En compensación, actualiza tu perfil con una imagen...
;-)

[Rubén]

Muchas gracias, me han sido bastante útiles, ahora me a surgido otro problemilla a la hora de programar el teclado, tengo conectados los 7 pines del teclado a los 7 primeros pines de la basic stamp y le he puesto un código como este:

leoteclado:
INPUT 1
INPUT 2
OUTPUT 3
INPUT 4
INPUT 5
INPUT 6
INPUT 7

leolaprimeracolumna:
IF IN2 = 1 THEN
DEBUG "pulso tecla1"
ENDIF

Primero pongo todos los pines en estado bajo, menos el de la primera columna que lo coloco en alto.
Entonces le doi la orden de poner el pin de la primera fila en alto, y que en la ventana de debug me ponga "pulso tecla1" cuando la pulse, pero el problema es que me salta el mensajito "pulso tecla1" en la ventana de debug, cuando ni siquiera lo he pulsado.

Alguna solución?

[Rubén]

Bueno he seguido intentando programar el teclado, pero me sigue surgiendo el mismo problema, ahora estoy intentando leer el teclado con este codigo:

-----Variables y constantes-----
col1 PIN 3
col2 PIN 1
col3 PIN 5

fila1 PIN 2
fila2 PIN 7
fila3 PIN 6
fila4 PIN 4

-----Programa-----

again:
DEBUG "key pressed = ", HEX key,CR
GOSUB keyScan

GOTO again

keyScan:
LOW col1
LOW col2
LOW col3
HIGH col1
IF fila1 = 1 THEN key = 1
IF fila2 = 1 THEN key = 4
IF fila3 = 1 THEN key = 7
IF fila4 = 1 THEN key = 10
LOW col1

HIGH col2
IF fila1 = 1 THEN key = 2
IF fila2 = 1 THEN key = 5
IF fila3 = 1 THEN key = 8
IF fila4 = 1 THEN key = 0
LOW col2

HIGH col3
IF fila1 = 1 THEN key = 3
IF fila2 = 1 THEN key = 6
IF fila3 = 1 THEN key = 9
IF fila4 = 1 THEN key = 11
LOW col3
GOTO again

En la ventana de debug me continuan saliendo numeros sin yo pulsar nada, alguien me podria ayudar?