#include <16F876.h>
#fuses XT,NOWDT,NOPROTECT,NOLVP
#define LCD_DATA_PORT getenv("SFR:PORTC")
#use delay(clock= 4000000)
#define use_portb_kbd TRUE
#include <lcd.c>
#include <kbd.c>
void main() {
char k;
int x;
lcd_init();
kbd_init();
port_b_pullups(TRUE);
lcd_putc("\fListo...\n");
while (TRUE) {
k=kbd_getc();
x=k-48; //Conversión numérica
if(k!=0){
if(k=='*')
lcd_putc('\f');
else
lcd_putc(k); //Imprime carácter
delay_ms(500);
printf(lcd_putc,"\f Car=%c",k); //Imprime carácter
delay_ms(500);
printf(lcd_putc,"\f Car=%u",k); //Imprime valor ASCII
delay_ms(500);
printf(lcd_putc,"\f Num=%u",x); //Imprime valor numérico
delay_ms(500);
lcd_putc("\fListo...\n");
}
}
}List P=16f84A
Include <P16F84.INC>
CBLOCK 0x0C
TECLA
ENDC
ORG 0
INICIO
bsf STATUS,RP0
movlw 0xF0
movwf PORTB
clrf PORTA
bcf OPTION_REG,NOT_RBPU
bcf STATUS,RP0
PRINCIPAL
call TECLADO
movwf PORTA
goto PRINCIPAL
;subrutina teclado
;detecta si es pulsada una tecla y regresa el valor de la tecla pulsada
;*************************************************************************************************
TECLADO
clrf TECLA ;Tecla se pone en ceros
movlw b'00001110' ;se pone cero en la Fila1
movwf PORTB
COL0
btfss PORTB,4 ;Hay un 0 en la columna 0?
goto REBOTE ;si, atenuar rebote y asignar un valor a la tecla
incf TECLA,F ;no, incrementa el valor de la tecla
COL1
btfss PORTB,5 ;Hay un 0 en la columna 1?
goto REBOTE ;si, atenuar rebote y asignar un valor a la tecla
incf TECLA,F ;no, incrementa el valor de la tecla
COL2
btfss PORTB,6 ;Hay un 0 en la columna 2?
goto REBOTE ;si, atenuar rebote y asignar un valor a la tecla
incf TECLA,F ;no, incrementa el valor de la tecla
COL3
btfss PORTB,7 ;Hay un 0 en la columna 3?
goto REBOTE ;si, atenuar rebote y asignar un valor a la tecla
incf TECLA,F ;no, incrementa el valor de la tecla
ULTIMA_TECLA
rlf PORTB,F ;pone un cero a la izquierda para checar la siguiente Fila
movlw .16
subwf TECLA,W
btfsc STATUS,Z ;compara si es la ultima tecla
goto TECLADO ;no es, regresa a teclado
bsf STATUS,C ;si lo es, pone a 1 el bit C
goto COL0 ;regresa a seguir probado teclas
REBOTE
call Retardo_20ms ;espera a que se estabilize el rebote
B0 btfss PORTB,4
goto B0
B1 btfss PORTB,5
goto B1
B2 btfss PORTB,6
goto B2
B3 btfss PORTB,7
goto B3
movlw TECLA
return
include <RETARDOS.INC>
ENDQuiero compartir el diseño que termine ya hace algunas noches con un teclado paralelo.
Esto es por si le puede llegar a servir a alguien.
El diseño adjunto.
El funcionamiento, descrito al principio.
Se inserta un digito y se muestra en el display, al siguiente digito, se recorre en el display.
El Flip-Flop cuenta con un push para el reset.
Los pulsos se mandan con 7408 al CLK del flip-flop.
