检测按键并输出至数码管显示不正确 - 平头弟

检测按键并输出至数码管显示不正确

2019-03-25 18:47发布

站内问答 / PIC单片机

18573 11

本帖最后由 JLennon 于 2018-2-2 08:35 编辑

程序如下，proteus代码见附件，按键K8,K12,K16无法显示，请教是哪里出错了？实在没找到原因，谢谢赐教。捕获.PNG

捕获.PNG

LIST P=18F4520 ;--- 器件型号定义 ---
#include <P18F4520.INC> ;--- 器件的寄存器头文件包含 ---
;--------------------------------------------------------------------------------
;--- 单片机配置字配置区 ---
CONFIG OSC = INTIO67 ;--- 配置时钟源为内部RC振荡器 ---
CONFIG WDT = OFF ;--- 禁止看门狗功能 ---
CONFIG DEBUG = OFF ;--- 禁止调试功能 ---
CONFIG LVP = OFF ;--- 禁止低电压编程功能 ---
CONFIG PBADEN = OFF ;--- 配置RB端口全为数字IO引脚 ---
;--------------------------------------------------------------------------------
;--- 全局变量定义区 ---
CBLOCK 0x10
KEYTEMP
KEY
DELAY_A
DELAY_B
DELAY_C
ENDC
;--------------------------------------------------------------------------------
;--- 程序的开始执行处 ---
ORG 0 ;--- 单片机复位地址 ---
GOTO START ;--- 跳到主程序 ---
ORG 0x30 ;--- 主程序入口地址 ---
START: NOP
;--------------------------------------------------------------------------------
;--- 初始化内部时钟源 ---
MOVLW 0x70
MOVWF OSCCON ;--- 选择内部8MHZ的RC振荡器 ---
BCF OSCTUNE,PLLEN ;--- 禁止内部4倍PLL功能 ---
;--------------------------------------------------------------------------------
;--- 初始化GPIO引脚 ---
CLRF WREG
MOVWF TRISD ;--- 配置RD端口为输出方向 ---
MOVWF LATD ;--- 让RD端口输出全为低电平 ---
BCF INTCON2,RBPU ;--- 使能RB端口的内部弱上拉功能 ---
;--------------------------------------------------------------------------------
;--- 初始化相关变量 ---
MOVLW 0x0F
MOVWF TRISB ;--- 配置RB7..4为输出引脚,RB3..0为输入引脚 ---
MOVWF LATB ;--- RB7..4输出低电平 ---
;--------------------------------------------------------------------------------
;--- 主程序:实现4X4矩阵键盘,将按键值送到LED数码管上显示 ---
MAIN: NOP
MOVF PORTB,W ;--- 检测是否有键按下 ---
ANDLW 0x0F
MOVWF KEYTEMP
MOVLW 0x0F
CPFSEQ KEYTEMP
GOTO KEYA ;--- 有键按下,则跳到指定处 ---
GOTO MAIN ;--- 无键按下,则继续检测 ---
KEYA: CALL DELAY ;--- 去按键抖动 ---
MOVF PORTB,W ;--- 检测是否真得有键按下 ---
ANDLW 0x0F
MOVWF KEYTEMP
MOVLW 0x0F
CPFSEQ KEYTEMP
GOTO KEYB ;--- 真得有键按下,则跳到指定处 ---
GOTO MAIN ;--- 表示无键按下 ---
KEYB: MOVLW 0xF0 ;--- 读取当前值之后,将行和列方向交换 ---
MOVWF TRISB
MOVWF LATB
MOVF PORTB,W ;--- 读取当前按键的代码值 ---
ANDLW 0xF0
IORWF KEYTEMP ;--- 和上次读到的按键代码值组合 ---
CLRF KEY
KEYD: MOVF KEY,W ;--- 将读取的按键代码值与KEYTAB表中值比较 ---
ADDWF WREG,W
CALL KEYTAB
CPFSEQ KEYTEMP
GOTO KEYC ;--- 没有找到,则找下一个按键代码值 ---
GOTO FIND ;--- 找到键值代码,跳到指定处 ---
KEYC: INCF KEY
MOVLW 0x10
CPFSLT KEY
GOTO NOFIND ;--- 在按键代码值中没有找到,跳到指定处 ---
GOTO KEYD
FIND: MOVF KEY,W ;--- 将找到的键值通过查找数码管显示代码值 ---
ADDWF WREG,W
CALL LEDSEG
MOVWF LATD ;--- 送出去显示 ---
NOFIND: NOP
WAIT: MOVF PORTB,W ;--- 等待按键释放 ---
ANDLW 0xF0
MOVWF KEYTEMP
MOVLW 0xF0
CPFSEQ KEYTEMP
GOTO WAIT
MOVLW 0x0F ;--- 将行和列方向交换 ---
MOVWF TRISB
MOVWF LATB
GOTO MAIN ;--- 跳到主程序开始处 ---
;--------------------------------------------------------------------------------
;--- 4x4矩阵键盘代码值 ---
KEYTAB: ADDWF PCL,F
DT 0xEE,0xED,0xEB,0xE7
DT 0xDE,0xDD,0xDB,0xD7
DT 0xBE,0xBD,0xBB,0xB7
DT 0x7E,0x7D,0x7B,0x77
;--------------------------------------------------------------------------------
;--- 定义数码管显示0-9,A-F的笔段代码 ---
LEDSEG: ADDWF PCL,F
DT 0x3F,0x06,0x5B,0x4F,0x66,0x6D,0x7D,0x07,0x7F,0x6F
DT 0x77,0x7C,0x39,0x5E,0x79,0x71
;--------------------------------------------------------------------------------
;--- 延时子程序 ---
DELAY: MOVLW 0x01
MOVWF DELAY_A
DLY_A: MOVLW 0x10
MOVWF DELAY_B
DLY_B: MOVLW 0xFF
MOVWF DELAY_C
DLY_C: DECFSZ DELAY_C
GOTO DLY_C
DECFSZ DELAY_B
GOTO DLY_B
DECFSZ DELAY_A
GOTO DLY_A
RETURN
END

复制代码

此帖出自小平头技术问答

友情提示: 此问题已得到解决，问题已经关闭,关闭后问题禁止继续编辑，回答。

该问题目前已经被作者或者管理员关闭, 无法添加新回复

11条回答

1楼-- · 2019-03-25 22:37

不明白你那NOP加上是干嘛的，没事自我消耗？

2楼-- · 2019-03-26 03:03

按键K8,K12,K16无法显示。现象是什么。显示用的什么。可以用io高低电平表示按键状态。看能否得到正确按键状态。

3楼-- · 2019-03-26 05:35

ienglgge 发表于 2018-2-1 18:21
按键K8,K12,K16无法显示。现象是什么。显示用的什么。可以用io高低电平表示按键状态。看能否得到正确按键状 ...

7段数码管显示，K8,K12,K16按下时，LATD=0X0,其余按键显示都是对的。

4楼-- · 2019-03-26 06:29

K8,K12,K16按下时，LATD=0X0------------数码管是没有显示？还是数码管错误显示？数码管显示出来的是什麽？

5楼-- · 2019-03-26 12:06

K8,K12,K16按键的硬件连接关系是什么？也许你的硬件出问题了（比如K8,K12,K16这三个键在同行或同列上，行线或列线接触不好，或者类似问题）。你是仿真出问题还是实物出问题？仿真的话，查查连线，实物的话，用万用表量量引脚间电阻。

6楼-- · 2019-03-26 16:34

精彩回答 2 元偷偷看……

一周热门更多>

相关问题

相关文章