音乐盒设计代码 - - Powered by Discuz!

标题: 音乐盒设计代码 [打印本页]

作者: 1228929193 时间: 2019-1-8 15:21
标题: 音乐盒设计代码
shuzhi EQU 3fh ; 选曲目的地址
song EQU p1.2 ; 扬声器播放
play EQU p3.0 ; 播放停止键
addone EQU p3.1 ; 曲目加一键
subone EQU p3.2 ; 曲目减一键
dul EQU P1 ;段选
wel EQU P2 ;位选
ORG 0000H
LJMP START
ORG 000BH ; 定时器 0 溢出中断入口地址AJMP cont
ORG 0013H ; 外部中断一入口地址AJMP pause ; 指向外部中断程序 ORG 0100H
START:
MOV SP,#50H
MOV TH0,#0DBH ; 定时器赋初值MOV TL0,#0FFH
MOV TMOD,#01H ;设定 T1 工作于方式 2
MOV IE,#86H ; 开中断MOV TCON,#00H
MOV R0,#00H
MOV shuzhi,#00H ;( 是否顺序播放音乐 )
MAIN:
    JNB play,first ; 判断 P3.0 键是否按下SJMP MAIN
first:
ACALL del20
JNB play,first
MOV shuzhi,#00H
MOV dul,#06H ; 共阴数码管显示 1
MOV wel,#80H
MOV DPTR,#dat1 ;dat1 首地址赋给 DPTR
ACALL music0
ACALL next
RET
next:
INC shuzhi
MOV A,shuzhi
CJNE A,#01,LOOP3 ;A 是否=1, 不等就跳转到 LOOP3  MOV DPTR,#dat2 ; 表 2 首地址送 DPTR
MOV dul,#5BH ; 显示数值 2
MOV wel,#80H
ACALL music0
INC A
LOOP3:
CJNE A,#02,LOOP4 ;A 是否=2, 不等就跳转到 LOOP4 MOV DPTR,#dat3 ; 表 3 首地址送 DPTR
MOV dul,#4FH ; 显示数值 3
MOV wel,#80H
ACALL music0
INC A
LOOP4:
CJNE A,#03,next
ACALL first
RET
;（按键播放上一首音乐）
last:
DEC shuzhi
MOV a,shuzhi
CJNE a,#02,last1
MOV dptr,#dat3
MOV dul,#4Fh
MOV wel,#80h
ACALL music0
last1:
cjne a,#01,last2
MOV dptr,#dat2
MOV dul,#5Bh
MOV wel,#80h
ACALL music0
last2:
cjne a,#00,last
MOV dptr,#dat1
MOV dul,#06h
MOV wel,#80h
ACALL music0
RET
music0:
MOV 20h,#00h ; 中断计数单元清 0
music1:
clr a
MOVC a,@a+dptr ; 查表取音阶常数JZ end0 ; 累加器判 0 看是否是结束符单片机课程设计报告10
CJNE a,#0ffh,music5 ; 是休止符 ?
LJMP music3 ; 产生 100ms停顿
music5:
NOP
key:
JNB play,k0 ; 判断 P3.0 键是否按下JNB addone,k1 ; 判断 P3.2 键是否按下JNB subone,k2 ; 判断 P3.1 键是否按下MOV r6,a ; 音阶常数送 R6
INC dptr ;DPTR+1
MOV a,#0
MOVC a,@a+dptr ; 取常数送 R7
MOV r7,a
SETB tr0 ; 启动定时器 T0
music2:
nop
CJNE r0,#0,$
CPL song ; 输出电平取反MOV a, r6
MOV r3,a ; 音阶常数送 R3 LCALL del20
MOV a, r7 ; 节拍常数送 A
CJNE a,20h,music2 ; 节拍时间到否MOV 20h,#00h ; 为取下一音阶作准备INC DPTR
LJMP music1
music3:
NOP ; 休止 100ms
CLR tr0 ; 关闭定时器MOV r2, #14h
music4:
NOP
MOV r3, #250 ;R3=250
LCALL del20
DJNZ r2, music4
INC dptr ; 为取下一音阶作准备LJMP music1 end0: MOV r2, #200 ; 歌曲结束后 , 延时 1s 后继续
music6:
MOV r3, #250
LCALL del20
DJNZ r2,music6 ;（按键选择）
k1:
ACALL del20 ; 调用延时子程序
JNB addone,k1 ; 判断 P3.2 键是否释放ACALL next
k2:
ACALL del20
JNB subone,k2 ; 判断 P3.1 键是否释放ACALL last
k0:
ACALL del20
JNB play,k0 ;判断 3.0 键是否释放LJMP start
RET
del20:
MOV r4,#05h ;延时子程序
del4:
NOP
DJNZ r4,del4
DJNZ r3,del20
RET
cont:
INC 20h ; 计数单元 +1
MOV th0,#0dbh ; 重新 10ms定时初值MOV tl0,#0ffh
RETI ; 跳出中断（停止播放）pause: ACALL del20 JNB p3.0,pause ; 判断 P3.0 键是否有释放MOV a,r0 ; 把 R0的值给 A
CPL a ;A 值取反MOV r0,a
RETI
dat1:
db 3bh,20h,3bh,20h,30h,20h,33h,20h,3bh,80h,0ffh
db 3bh,20h,3bh,20h,26h,20h,2bh,20h,26h,80h,0ffh
db 26h,20h,26h,20h,20h,20h,26h,20h,2bh,20h,2bh,20h,30h,20h,33h,10h,33h,10h
db 3bh,60h,40h,20h,4ch,80h,0ffh
db 3bh,20h,3bh,20h,30h,20h,33h,20h,3bh,80h,0ffh
db 3bh,20h,3bh,20h,26h,20h,2bh,20h,26h,80h,0ffh
db 26h,20h,26h,20h,20h,20h,26h,20h,2bh,20h,2bh,20h,2bh,20h,30h,20h
db 33h,20h,3bh,20h,3bh,20h,40h,2bh,3bh,80h,0ffh
db 19h,20h,1ch,40h,26h,20h,19h,20h,1ch,40h,26h,20h,0ffh
db 20h,20h,1ch,20h,1ch,20h,20h,20h,26h,80h,0ffh
db 19h,20h,1ch,40h,26h,20h,19h,20h,1ch,40h,26h,20h,0ffh
db 20h,20h,1ch,20h,1ch,20h,20h,20h,26h,80h,0ffh
db 2bh,20h,2bh,40h,3bh,20h,2bh,20h,2bh,40h,2bh,20h,0ffh
db 26h,20h,2bh,20h,2bh,20h,30h,20h,2bh,80h,0ffh
db 2bh,20h,2bh,40h,3bh,20h,30h,20h,30h,40h,2bh,20h,0ffh
db 33h,20h,3bh,20h,3bh,20h,40h,20h,3bh,80h,0ffh,0ffh
dat2:
db 18h,30h,1ch,10h,20h,40h,1ch,10h
db 18h,10h,20h,10h,1ch,10h,18h,40h
db 1ch,20h,20h,20h,1ch,20h,18h,20h
db 20h,80h,0ffh,20h,30h,1ch,10h,18h
db 20h,15h,20h,1ch,20h,20h,20h,26h
db 40h,20h,20h,2bh,20h,26h,20h,20h
db 20h,30h,80h,0ffh,20h,20h,1ch,10h
db 18h,10h,20h,20h,26h,20h,2bh,20h
db 30h,20h,2bh,40h,20h,20h,1ch,10h
db 18h,10h,20h,20h,26h,20h,2bh,20h
db 30h,20h,2bh,40h,20h,30h,1ch,10h
db 18h,20h,15h,20h,1ch,20h,20h,20h
db 26h,40h,20h,20h,2bh,20h,26h,20h
db 20h,20h,30h,80h,20h,30h,1ch,10h
db 20h,10h,1ch,10h,20h,20h,26h,20h
db 2bh,20h,30h,20h,2bh,40h,20h,15h
db 1fh,05h,20h,10h,1ch,10h,20h,20h
db 26h,20h,2bh,20h,30h,20h,2bh,40h
db 20h,30h,1ch,10h,18h,20h,15h,20h
db 1ch,20h,20h,20h,26h,40h,20h,20h
db 2bh,20h,26h,20h,20h,20h,30h,30h
db 20h,30h,1ch,10h,18h,40h,1ch,20h
db 20h,20h,26h,40h,13h,60h,18h,20h
db 15h,40h,13h,40h,18h,80h,00h
dat3:
db 26h,20h,20h,20h,20h,20h,26h,10h,20h,10h,20h,80h,26h,20h,30h,20h
db 30h,20h,39h,10h,30h,10h,30h,80h,26h,20h,20h,20h,20h,20h,1ch,20h
db 20h,80h,2bh,20h,26h,20h,20h,20h,2bh,10h,26h,10h,2bh,80h,26h,20h
db 30h,20h,30h,20h,39h,10h,26h,10h,26h,60h,40h,10h,39h,10h,26h,20h
db 30h,20h,30h,20h,39h,10h,26h,10h,26h,80h,26h,20h,2bh,10h,2bh,10h
db 2bh,20h,30h,10h,39h,10h,26h,10h,2bh,10h,2bh,20h,2bh,40h,40h,20h
db 20h,10h,20h,10h,2bh,10h,26h,30h,30h,80h,18h,20h,18h,20h,26h,20h
db 20h,20h,20h,40h,26h,20h,2bh,20h,30h,20h,30h,20h,1ch,20h,20h,20h
db 20h,80h,1ch,20h,1ch,20h,1ch,20h,30h,20h,30h,60h,39h,10h,30h,10h
db 20h,20h,2bh,10h,26h,10h,2bh,10h,26h,10h,26h,10h,2bh,10h,2bh,80h
db 18h,20h,18h,20h,26h,20h,20h,20h,20h,60h,26h,10h,2bh,20h,30h,20h
db 30h,20h,1ch,20h,20h,20h,20h,80h,26h,20h,30h,10h,30h,10h,30h,20h
db 39h,20h,26h,10h,2bh,10h,2bh,20h,2bh,40h,40h,10h,40h,10h,20h,10h
db 20h,10h,2bh,10h,26h,30h,30h,80h,00h
END

作者: admin 时间: 2019-1-9 03:44
补全原理图或者详细说明一下电路连接即可获得100+黑币

欢迎光临 (http://www.51hei.com/bbs/)