jianpansaomiao.txt

51单片机学习的键盘实用程序的运用,希望给大家带来帮助!

;本程序用于PIC单片机外接键盘的识别，通过汇编程序，使按下K1键时第一个数码管显示1，按下K2键时第一 
;个数码管上显示2，按下K3键时第一个数码管上显示3，按下K4键时第一个数码管上显示4， 
;汇编程序对键盘的扫描采用查询方式 

LIST P=18F458 
INCLUDE "P18F458.INC" 

;所用的寄存器 
JIANR EQU 0X20 
FLAG EQU JIANR+1 ;标志寄存器 
DEYH EQU JIANR+2 
DEYL EQU JIANR+3 
F0 EQU 0 ;FLAG的第0位定义为F0 
ORG 0X00 
GOTO MAIN 
ORG 0X30 
;*************以下为键盘码值转换表****************** 
CONVERT ADDWF PCL，1 
RETLW 0XC0 ;0，显示段码与具体的硬件连接有关 
RETLW 0XF9 ;1 
RETLW 0XA4 ;2 
RETLW 0XB0 ;3 
RETLW 0X99 ;4 
RETLW 0X92 ;5 
RETLW 0X82 ;6 
RETLW 0XD8 ;7 
RETLW 0X80 ;8 
RETLW 0X90 ;9 
RETLW 0X88 ;A 
RETLW 0X83 ;B 
RETLW 0XC6 ;C 
RETLW 0XA1 ;D 
RETLW 0X86 ;E 
RETLW 0X8E ;F 
RETLW 0X7F ;"." 
RETLW 0XBF ;"-" 
RETLW 0X89 ;H 
RETLW 0XFF ;DARK 
RETURN 
;***************PIC单片机键盘扫描汇编程序初始化子程序***************** 
INITIAL 
BCF TRISA，5 ;置RA5为输出方式，以输出锁存信号 
BCF TRISB，1 
BCF TRISA，3 
BCF TRISE，0 
BCF TRISE，1 
BSF TRISB，4 ;设置与键盘有关的各口的输入输出方式 
BCF TRISC，5 
BCF TRISC，3 ;设置SCK与SDO为输出方式 
BCF INTCON，GIE ;关闭所有中断 
MOVLW 0XC0 
MOVWF SSPSTAT ;设置SSPSTAT寄存器 
MOVLW 0X30 
MOVWF SSPCON1 ;设置SPI的控制方式，允许SSP方式，并且时钟下降 
;沿发送数据，与"74HC595当其SCLK从低到高电平 
;跳变时，串行输入数据(DI)移入寄存器"的特点相对应 
MOVLW 0X01  
MOVWF JIANR ;显示值寄存器（复用为键值寄存器）赋初值 
CLRF FLAG ;清除标志寄存器 
RETURN ;返回 
;**************显示子程序***************** 
DISPLAY 
CLRF PORTA 
MOVWF SSPBUF 
AGAIN 
BTFSS PIR1，SSPIF 
GOTO AGAIN 
NOP 
BCF PIR1，SSPIF 
BSF PORTA，5 ;详细的程序语句请参考http://www.51hei.com pic单片机教程语句部分，可在首页搜索。 
RETURN 
;**************查键子程序***************** 
KEYSCAN 
BCF PORTB，1 
BCF PORTA，3 
BCF PORTE，0 
BCF PORTE，1 ;K1，K2，K3，K4四条列线置0 
NOP  
NOP ;延时，使引脚的电平稳定 
BTFSC PORTB，4 
BCF FLAG，F0 ;RB4为1，表示没键按下，清除标志F0 
NOP 
BTFSS PORTB，4 
BSF FLAG，F0 ;RB4为0，表示有键按下，建立标志F0 
RETURN  
;**********键盘去抖子程序(约8ms的延时)** *************** 
KEYDELAY 
MOVLW 0X0A 
MOVWF DEYH 
AGAIN2 MOVLW 0XFF 
MOVWF DEYL 
AGAIN1 DECFSZ DEYL，1 
GOTO AGAIN1 
DECFSZ DEYH，1 
GOTO AGAIN2 
RETURN  
;***************键服务子程序**************** 
;确定键值的子程序 
KEYSERVE 
JIANZHI BCF PORTB，1  
BCF PORTA，3 
MOVLW 0X03 
MOVWF PORTE ;K1，K2置低电平，K3，K4置高电平 
NOP 
NOP ;使引脚电平稳定 
BTFSS PORTB，4 
GOTO K1K2 ;RB4为0，表示按键为K1，K2中的一个 
GOTO K3K4 ;RB4为1，表示按键为K3，K4中的一个 

K1K2 BCF PORTB，1 
BSF PORTA，3 ;K1置低电平，K2置高电平 
NOP 
NOP ;使引脚电平稳定 
BTFSS PORTB，4 
GOTO K1 ;RB4为0，表示按键为K1 
GOTO K2 ;RB4为1，表示按键为K2 

K3K4 BCF PORTE，0 
BSF PORTE，1 ;K3置低电平，K4置高电平 
NOP 
NOP ;使引脚电平稳定 
BTFSS PORTB，4 
GOTO K3 ;RB4为0，表示按键为K3 
GOTO K4 ;RB4为1，表示按键为K4 

K1 MOVLW 0X03 
MOVWF JIANR 
GOTO JIANW 
K2 MOVLW 0X05 
MOVWF JIANR 
BCF PORTA，3 
GOTO JIANW 
K3 MOVLW 0X07 
MOVWF JIANR 
GOTO JIANW 
K4 MOVLW 0X09 
MOVWF JIANR ;以上根据按下的键把相应的值送给JIANR 
BCF PORTE，1  
JIANW BTFSS PORTB，4 
GOTO JIANW ;为了防止一次按键多次识别，等键松开才返回 
RETURN 
;**************************************** 
MAIN NOP 
CALL INITIAL ;调用初始化子程序 
LOOP  
CALL KEYSCAN ;查键 
BTFSC FLAG，F0 
CALL KEYDELAY ;若检测到有键按下，则调用软件延时子程序去抖动 
BTFSC FLAG，F0 
CALL KEYSCAN ;若第一次扫描到有键按下，则经过前面的延时去抖后 
;再次进行键扫描 
BTFSC FLAG，F0  
CALL KEYSERVE ;若确认有键按下，则需要调用键服务程序 
BTFSS FLAG，F0 
GOTO LOOP ;如果无键按下，则反复进行键扫描  
MOVF JIANR，W 
CALL CONVERT ;把按键对应的数字转换成待显示的段码 
CALL DISPLAY ;调用显示子程序 
GOTO LOOP 
END <