返回主页 单片机教程XL2000开发板 单片机学习 自制编程器 单片机资料 软件下载 电子技术产品介绍如何购买 论坛



;矩阵按键/动态扫描移位显示程序,开机显示000000,按键后显示键名,并移位 
;***************************************************************************
;* sxj1974@163.com (51c51 test web) www.8951.com                                                      *
;* Create by :石学军 www.51c51.com 更多例程请登陆网站                                            *
;***************************************************************************

org0000h
ajmpmain
org0030h
main:
movdptr,#tab ;将表头位置送入DPTR
mov 30h,#00h ;将30H个位显示缓冲单元清零
mov 31h,#00h ;将31H十位显示缓冲单元清零
mov 32h,#00h ;将32H百位显示缓冲单元清零
mov 33h,#00h ;将33H千位显示缓冲单元清零
mov 34h,#00h ;将33H万位显示缓冲单元清零
mov 35h,#00h ;将33H十万位显示缓冲单元清零
loop:
lcall display ;调用显示程序
lcallkey ;调用键盘描程序
cpla ;将A的值取反
jzloop ;无键键按下则返回
mov 35h,34h
mov 34h,33h

mov33h,32h ;将32H显示单元的内容送入33H
mov 32h,31h ;将31H显示单元的内容送入32H
mov 31h,30h ;将30H单元的内容送入31H
mova,36h ;将键值送入ACC
mov30h,a ;将ACC的值送入30H
ljmploop ;返回主程序循环
display:
mov p2,#0ffh ;将P2口置高电平
mov r7,#100 ;软件计数器赋值

dd1: mov a,30h ;将显示缓冲区30H中的值送入ACC
movc a,@a+dptr ;查表取要显示的数并把查表的结果送入ACC
mov p0,a ;将要显示的数送入P0口
clr p2.6 ;开个位显示单元
lcall delay100us ;延时100US
setb p2.6 ;关个位显示单

mov a,31h ;将显示缓冲区别31H中的值送入A
movc a,@a+dptr ;查表取要显示的数并把查表的结果送入ACC
mov p0,a ;将要显示的数送入P0口
clr p2.5 ;开十位显示单元
lcall delay100us ;延时100US
setb p2.5 ;关十位显示单元

mov a,32h ;将显示缓冲区32H中的值送入ACC
movc a,@a+dptr ;查表取要显示的数并把查表的结果送入ACC
mov p0,a ;将要显示的数送入P0口
clr p2.4 ;开百位显示单元
lcall delay100us ;延时100US
setb p2.4 ;关百位显示单元

mov a,33h ;将显示缓冲区33H中的值送入ACC
movc a,@a+dptr ;查表取要显示的数并把查表的结果送入ACC
mov p0,a ;将要显示的数送入P0口
clr p2.3 ;开千位显示单元
lcall delay100us ;延时100US
setb p2.3 ;关千位显示单元

mov a,34h ;将显示缓冲区33H中的值送入ACC
movc a,@a+dptr ;查表取要显示的数并把查表的结果送入ACC
mov p0,a ;将要显示的数送入P0口
clr p2.2 ;开万位显示单元
lcall delay100us ;延时100US
setb p2.2 ;关万位显示单元

mov a,35h ;将显示缓冲区33H中的值送入ACC
movc a,@a+dptr ;查表取要显示的数并把查表的结果送入ACC
mov p0,a ;将要显示的数送入P0口
clr p2.1 ;开十万位显示单元
lcall delay100us ;延时100US
setb p2.1 ;关十万位显示单元
djnz r7,dd1 ;R7不等于0返回至DD1处
ret ;R7等于0子程序返回

KEY: LCALL KS ;调用检测按键子程序
JNZ K1 ;有键按下继续
ljmpkey_exit ;无键按下退出KEY子程序
K1: LCALL delay4ms ;返回继续检测有无按键按下
LCALL delay4ms
LCALL KS ;有键按下继续延时去抖动
JNZ K2 ;再一次调用检测按键程序
ljmpkey_exit ;无键按下退出KEY子程序
K2:MOV R2,#0EFH ;将扫描值送入 R2暂存
MOV R4,#00H ;将第一列的列值00H送入R4暂存,R4用于存放列
K3:MOV P1,R2 ;将R2的值送入P1口
L6:JB P1.0,L1 ;P1.0等于1跳转到L1
MOV A,#00H ;将第一行的行值00H送入ACC
AJMP LK ;跳转到键值处理程序
L1:JB P1.1,L2 ;P1.1等于1跳转到L2
MOV A,#04H ;将第二行的行值送入ACC
AJMP LK ;跳转到键值理程序进行键值处理
L2: JB P1.2,L3 ;P1.2等于1跳转到L3
MOV A,#08H ;将第三行的行值送入ACC
AJMP LK ;跳转到键值处理程序
L3:JB P1.3,NEXT ;P1.3等于1跳转到NEXT处
MOV A,#0cH ;将第四行的行值送入ACC
LK:ADD A,R4 ;行值与列值相加后的键值送入A
mov36h,a ;将A中的值送入34h暂存
K4:
lcall display ;调用动态显示子程序
LCALL KS 
JNZ K4 ;按键没有松开继续返回检测
RET ;按键松开返回

NEXT:
INC R4 ;将列值加一
MOV A,R2 ;将R2的值送入A
JNB ACC.7,key_exit ;扫描完成跳至KEY处进行下一回合的扫描
RL A ;扫描未完成将A中的值右移一位进行下一列的扫
MOV R2,A ;将ACC的值送入R2暂存
AJMP K3 ;跳转到K3继续
key_exit:
mov a,#0ffh ;无键按下则将A赋成0FFH。
ret

KS:MOV P1,#0FH ;将P1口高四位置0低四位值1
MOV A,P1 ;读P1口
XRL A,#0FH ;将A中的值与A中的值相异或
RET ;子程序返回
delay4ms: ;4ms延时程序
MOV R5,#08H
L7:MOV R6,#0FAH
L8:DJNZ R6,L8
DJNZ R5,L7
RET

delay100us: ;100US延时程序
mov r5,#50
djnzr5,$
ret

tab:db 28h,34h,28h,34h,0a9h,60h,20h,7ah,20h,21h,61h,74h,30h,62h,0a2h,7eh
end

hex格式文件下载(点右键,目标另存为hex即可直接烧写)