MCU y teclado 4x4

[babatundeawe]

pls necesito ayuda sobre la interconexión de un teclado de 4x4 a un microcontrolador (PIC).y el código también fácil y comprensible, será apreciado.gracias

 

[nomad13]

Este código está escrito en picbasic protón.

Códigoevice = 16F877'Definir las variables de programa de

Dim Col como columna del teclado Byte '

Dim fila como la fila del teclado Byte '

Dim número como el valor número Byte 'Espera Delayms 100 'para el LCD para iniciar

Pullups PORTB Habilitar PORTB_PULLUPS = ON '

Establecer los puertos ALL_DIGITAL = True 'en el modo digital

Imprimir Cls señal de despliegue, "Pulse cualquier tecla" 'en el mensajeLoop: GOSUB getkey 'Obtener una clave desde el teclado

Imprimir Cls, Display # Key 'número ASCII Key

Ir Loop 'Do it forever'Subrutina para obtener una clave desde el teclado numérico

Getkey:

Debounce Delayms 50 'Getkeyu:

"Espere a que todas las claves de hasta

PORTB = 0 'Todos los pines de salida de baja

F0 TRISB = $ 'inferior a 4 pines, 4 pines en la parte superior

Si (PORTB>> 4) <> $ 0F Luego Getkeyu 'Si alguna teclas, bucleDebounce Delayms 50 'Getkeyp:

"Espere a que se oprime una tecla

Para Col = 0 a 3 '4 columnas en el teclado

PORTB = 0 'Todos los pines de salida de baja

Set TRISB = (DCD Col) ^ $ FF 'un pin de columna para la producción

Row = PORTB>> 4 'fila Leer

Si la fila <> $ 0F Luego Gotkey «Si alguna KeyDown, salida

Siguiente

N Ir a Getkeyp 'teclas, ir a buscar de nuevoGotkey: 'Cambiar de fila y columna de número de la tecla 1 a 16

Key = (Col * 4) (NCD (fila ^ $ 0F))

Subrutina Volver 'sobreSello:

Final

 

[babatundeawe]

nomad13 escribió:

Este código está escrito en picbasic protón.Códigoevice = 16F877'Definir las variables de programa de

Dim Col como columna del teclado Byte '

Dim fila como la fila del teclado Byte '

Dim número como el valor número Byte 'Espera Delayms 100 'para el LCD para iniciar

Pullups PORTB Habilitar PORTB_PULLUPS = ON '

Establecer los puertos ALL_DIGITAL = True 'en el modo digital

Imprimir Cls señal de despliegue, "Pulse cualquier tecla" 'en el mensajeLoop: GOSUB getkey 'Obtener una clave desde el teclado

Imprimir Cls, Display # Key 'número ASCII Key

Ir Loop 'Do it forever'Subrutina para obtener una clave desde el teclado numérico

Getkey:

Debounce Delayms 50 'Getkeyu:

"Espere a que todas las claves de hasta

PORTB = 0 'Todos los pines de salida de baja

F0 TRISB = $ 'inferior a 4 pines, 4 pines en la parte superior

Si (PORTB>> 4) <> $ 0F Luego Getkeyu 'Si alguna teclas, bucleDebounce Delayms 50 'Getkeyp:

"Espere a que se oprime una tecla

Para Col = 0 a 3 '4 columnas en el teclado

PORTB = 0 'Todos los pines de salida de baja

Set TRISB = (DCD Col) ^ $ FF 'un pin de columna para la producción

Row = PORTB>> 4 'fila Leer

Si la fila <> $ 0F Luego Gotkey «Si alguna KeyDown, salida

Siguiente

N Ir a Getkeyp 'teclas, ir a buscar de nuevoGotkey: 'Cambiar de fila y columna de número de la tecla 1 a 16

Key = (Col * 4) (NCD (fila ^ $ 0F))

Subrutina Volver 'sobreSello:

Final