下面是电路图。要求16个键按下能显示0~F字样。
看到这样的电路和程序,不由得想起初学单片机时情景。
十几年前,是一本北航的书,里面就是这样的程序。
后来又看过几本,里面也有雷同的程序。
其实,该程序编写的很滥。
它把行列号码,算的很清。还特意弄成几个分支。
换下一行时,行号就要分别存入 00H、08H、10H、18H。
想法也太笨了,其实,只要加上 8,就可以编写成循环程序了。
程序中,还有很多应该简化的地方。
这程序学起来,的确浪费了我不少的时间。
根据题目中的电路和程序,做而论道改写的程序如下。
;
ORG 0000H
SJMP START
ORG 0030H
;--------------------------------------
DUMA:
DB 3FH, 06H, 5BH, 4FH, 66H, 6DH, 7DH, 07H //共阴段码
DB 7FH, 6FH, 77H, 7CH, 39H, 5EH, 79H, 71H
;--------------------------------------
START:
MOV DPTR, #7F03H //8255初始化
MOV A, #90H
MOVX @DPTR, A
MOV A, #16
;--------------------------------------
KEY1:
ACALL KS1 //判断有无键按下, 返回PA口状态存放在A中
JZ KEY1 //无则返回
ACALL DELAY //调用延时子程序
ACALL KS1 //再次判断有无键按下
JZ KEY1 //无则返回
;
MOV R2, #0FEH //初始列扫描字
MOV R3, #8 //检查8次
MOV R4, #0 //初始键号
LK4:
MOV DPTR, #7F01H //指向PB口
MOV A, R2
MOVX @DPTR, A
MOV DPTR, #7F00H //指向PA口
MOVX A, @DPTR
JNB ACC.0, LK3
INC R4
JNB ACC.1, LK3
INC R4
MOV A, R2
RL A //无则左移一位列扫描字, 继续判断下一列
MOV R2, A
DJNZ R3, LK4
LK3:
ACALL KS1
JNZ LK3 //判断按下的键有没有弹起, 无则原地等待继续判断
;
MOV A, R4 //键号放于A中
MOV DPTR, #0030H //指向段码表首址
MOVC A, @A + DPTR //键号转成相应的段码
MOV DPTR, #7F02H //指向PC口
MOVX @DPTR, A //数码管显示
;
SJMP KEY1
;--------------------------------------
KS1:
MOV DPTR, #7F01H //指向PB口
MOV A, #0
MOVX @DPTR, A
MOV DPTR, #7F00H //指向PA口
MOVX A, @DPTR
CPL A
ANL A, #03H
RET //返回PA口数据存放在A中, 若有键按下, 则A不等于零
;--------------------------------------
DELAY: //延时子程序, 约10ms
MOV R7, #20
D1: DJNZ R6, $
DJNZ R7, D1
RET
END
;======================================
本程序运行的仿真截图,可见前面的插图。
题目中的电路,仅仅使用了一个数码管。这和实用的场合,还有差距。
如果使用动态显示的方法,驱动多位数码管,那么,矩阵键盘的规模,就可以再扩大一些。
而做而论道在这里给出的程序,却不用增加很多,仅仅再添上三、五行即可够用。
-
数码管
+关注
关注
32文章
1887浏览量
91527 -
矩阵键盘
+关注
关注
7文章
207浏览量
31573
发布评论请先 登录
相关推荐
键盘扫描和数码管显示源程序和电路图

tm1637驱动数码管程序

max7219驱动数码管程序(51单片机+STM32 MAX7219数码管程序案例)

51单片机超声波模块数码管程序分享
使用51单片机和8255芯片驱动矩阵键盘控制数码管切换显示的程序

矩阵按键、秒表、数码管动态扫描和数码管同时加减的程序免费下载

评论