📄 keyscan_7.asm
字号:
;///////////////////////////////////////////
;本程序源代码由单片机培训网提供.
;单片机培训网,让更多人学习单片机更容易.
;第一网址----www.mcuedu.com
;第二网址----http://51_train.nease.net
;创办人------刘永忠
;热线电话----(0755)27529998
;email-------aa815@163.com
;本程序实现按住"B"键不动则每秒钟向上加一,按住"C"键不动则每秒向下减一
;按下“D”键并释放后开时倒计时，每秒向后减一，减到零时启动蜂鸣器演奏happy_birthday.
;按键行列值表示如下：
;----P1.7---P1.6---P1.5---P1.4-------
;----03H----02H----01H----00H----P1.0
;----07H----06H----05H----04H----P1.1
;----0BH----0AH----09H----08H----P1.2
;----0FH----0EH----0DH----0CH----P1.3
;///////////////////////////////////////////
BUZZER EQU P2.4
org 0000h
ajmp main
org 000bh
ajmp tim0
org 001bh
ajmp tim1
org 0030h
main:
clr 01h ;清01H标志位
mov tmod,#10h ;设定定时计数器1工作于16位内部定时方式
mov ie,#88h ;开定时计数1中断
mov th1,#high(65536-50000) ;给定时计数器1赋初值
mov tl1,#low(65536-50000)
mov dptr,#tab ;将表头地址送入DPTR
mov 30h,#00h ;以下四条指令是将显示缓冲单元清零
mov 31h,#00h
mov 32h,#00h
mov 33h,#00h
mov 37h,#00h ;软件计数器,决定延时时间.
mov 38h,#20 ;秒计数器20*50ms=1000ms=1s.
; mov 39h,#60 ;分计数器
loop: jb 01h,main1 ;标志位01H若等于1则跳转到main1
lcall display ;调用数码管显示程序
lcall key ;调用键盘扫描程序
cpl a ;将ACC中的数取反
jz loop ;无键按下则返回
mov a,34h ;有键按下则把键值送入ACC
cjne a,#0bh,jj1 ;若B键未按下则跳转到JJ1处
lcall incdigit ;若B键按下则调用incdigit
ljmp loop ;向上加一完成后则跳转到LOOP处循环
jj1: cjne a,#0ch,jj2 ;若C键未按下则跳转到jj2
lcall decdigit ;若C键有按下则调用向下减一子程序
ljmp loop ;减一完成则返回到LOOP处循环
jj2: cjne a,#0dh,loop ;若D键未按下跳转到LOOP处
setb tr1 ;若D键按下则置TR1为1
setb 00h ;置标志位00H为1
ljmp loop ;跳转到LOOP处循环
main1: ljmp main2
tim1: ;定时计数器1中断延时一分钟数码管向下减一
mov th1,#high(65536-50000)
mov tl1,#low(65536-50000)
djnz 38h,t0_e
mov 38h,#20
; djnz 39h,t0_e
; mov 39h,#60
lcall decdigit
t0_e: reti
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
incdigit: ;按按键不动向上加一的子程序
inc 30h ;将30H单元中的数加一
mov a,30h ;将30H单元的值送入ACC
cjne a,#10,incdelay ;ACC中的值与10不相等跳转
mov 30h,#00h ;ACC中的值与10相等,把30H单元的值清零
inc 31h ;31H单元向上加一
mov a,31h ;将31H单元的值送入ACC
cjne a,#6,incdelay ;ACC中的值与6不相等跳转
mov 31h,#00h ;将31H单元清零
incdelay: ;此延时子程序实现向上加一并决定显示增加的快慢
lcall display
inc 37h
mov a,37h
cjne a,#20,incdelay
mov 37h,#00h
ret
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
decdigit: ;按按键不向下减一子程序，当减为零时所有显示关闭并置位01H,此时音乐声凑响
dec 30h
mov a,30h
cjne a,#0ffh,decdelay
mov 30h,#09h
dec 31h
mov a,31h
cjne a,#0ffh,decdelay
jb 00h,spep
mov 31h,#05h
ajmp decdelay
spep:
mov 30h,#00h
mov 31h,#00h
setb 01h
decdelay:
lcall display
inc 37h
mov a,37h
cjne a,#20,incdelay
mov 37h,#00h
ret
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
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.0 ;开个位显示单元
lcall delay100us ;延时100US
setb p2.0 ;关个位显示单
mov a,31h ;将显示缓冲区别31H中的值送入A
movc a,@a+dptr ;查表取要显示的数并把查表的结果送入ACC
mov p0,a ;将要显示的数送入P0口
clr p2.1 ;开十位显示单元
lcall delay100us ;延时100US
setb p2.1 ;关十位显示单元
mov a,32h ;将显示缓冲区32H中的值送入ACC
movc a,@a+dptr ;查表取要显示的数并把查表的结果送入ACC
mov p0,a ;将要显示的数送入P0口
clr p2.2 ;开百位显示单元
lcall delay100us ;延时100US
setb p2.2 ;关百位显示单元
mov a,33h ;将显示缓冲区33H中的值送入ACC
movc a,@a+dptr ;查表取要显示的数并把查表的结果送入ACC
mov p0,a ;将要显示的数送入P0口
clr p2.3 ;开千位显示单元
lcall delay100us ;延时100US
setb p2.3 ;关千位显示单元
djnz r7,dd1 ;R7不等于0返回至DD1处
ret ;R7等于0子程序返回
KEY: LCALL KS ;调用检测按键子程序
JNZ K1 ;有键按下继续
ljmp key_exit ;无键按下退出KEY子程序
K1: LCALL delay4ms ;返回继续检测有无按键按下
LCALL delay4ms
LCALL KS ;有键按下继续延时去抖动
JNZ K2 ;再一次调用检测按键程序
ljmp key_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 ;将第二行的行值04H送入ACC
AJMP LK ;跳转到键值理程序进行键值处理
L2: JB P1.2,L3 ;P1.2等于1跳转到L3
MOV A,#08H ;将第三行的行值08H送入ACC
AJMP LK ;跳转到键值处理程序
L3: JB P1.3,NEXT1 ;P1.3等于1跳转到NEXT处
MOV A,#0cH ;将第四行的行值0CH送入ACC
LK: ADD A,R4 ;行值与列值相加后的键值送入A
mov 34h,a ;将A中的值送入34h暂存
K4:
RET ;有键按下立即返回
NEXT1:
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:
MOV R5,#08H
L7: MOV R6,#0FAH
L8: DJNZ R6,L8
DJNZ R5,L7
RET
delay100us:
mov r5,#50
djnz r5,$
ret
tab: db 0c0h,0f9h,0a4h,0b0h,99h,92h,82h,0f8h,80h,90h,88h,83h,0c6h,0a1h,86h,8eh
main2:
mov tmod,#01h ;设timer0在MODE1
mov ie,#82h ;中断使能
start0:
mov 30h,#00h ;取简谱码指针
next: mov a,30h ;简谱码指针载入A
mov dptr,#table ;至table取简谱码
movc a,@a+dptr
mov r2,a ;取到的简谱码暂存于R2
jz end0 ;是否取到00(结束码)?
anl a,#0fh ;不是,则取低4位(节拍码)
mov r5,a ;将节拍码存入R5
mov a,r2 ;将取到的简谱码再载入A
swap a ;高低四位交换
anl a,#0fh ;取低四位(音符码)
jnz sing ;取到的音符码是否为零?
clr tr0 ;是,则不发音
jmp d1
sing: dec a ;取到的音符码减1(不含0).
mov 22h,a ;存入(22H).
rl a ;乘2
mov dptr,#table1 ;至table1取相对的高位字节计数值
movc a,@a+dptr
mov th0,a ;取到的高位字节存入TH0
mov 21h,a ;取到的高位字节存入(21H)
mov a,22h ;再载入取的的音符码
rl a ;乘2
inc a ;加1
movc a,@a+dptr ;至table1取相对的低位字节计数值
mov tl0,a ;取到的高位字节存入TL0
mov 20h,a ;取到的高位字节存入(20H)
setb tr0 ;启动timer0
d1: call delay ;基本单位时间1/4拍187毫秒
inc 30h ;取简谱码指针加1
jmp next ;取下一个码
end0: clr tr0 ;停止timer0
jmp start0 ;重复循环
tim0:
push acc ;将A的值暂存于堆栈
push psw ;将psw的值暂存于堆栈
mov tl0,20h ;重设计数值
mov th0,21h
cpl BUZZER ;将蜂鸣器反相
pop psw ;至堆栈取回psw的值
pop acc ;至堆栈取回a的值
reti ;返回主程序
delay: mov r7,#02h ;187毫秒
d2: mov r4,#187
d3: mov r3,#248
djnz r3,$
djnz r4,d3
djnz r7,d2
djnz r5,delay ;决定节拍
ret
table1:
dw 64260,64400,64524,64580
dw 64684,64777,64820,64898
dw 64968,65030,65058,65110
dw 65157,65178,65217
table:
;1
db 82h,01h,81h,94h,84h,0b4h,0a4h,04h,82h,01h,81h,94h,84h,0c4h,0b4h,04h
;2
db 82h,01h,81h,0f4h,0d4h,0b4h,0a4h,94h,0e2h,01h,0e1h,0d4h,0b4h,0c4h,0b4h,04h
;3
db 82h,01h,81h,94h,84h,0b4h,0a4h,04h,82h,01h,81h,94h,84h,0c4h,0b4h,04h
;4
db 82h,01h,81h,0f4h,0d4h,0b4h,0a4h,94h,0e2h,01h,0e1h,0d4h,0b4h,0c4h,0b4h,04h,00
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -