单片机高手帮忙用 at89s52芯片 写个生日快乐歌的程序!!

2024-12-03 20:36:41
推荐回答(2个)
回答1:

;定时器值设定为62500,则只要执行两次中断,即可产生1/4拍的长度。
BASE EQU -62500
SPEAKER EQU P1.0
;=========================
ORG 0000H
LJMP INITIAL
ORG 000BH
LJMP TONE_INT
ORG 001BH
LJMP BEAT_INT
INITIAL:
MOV TMOD,#11H
MOV IE,#10001010B
MOV SP,#70H
START:CLR F0
MOV R7,#00H
MOV R6,#00H
LOOP: CALL LOAD_TONE
CALL LOAD_BEAT
JNB F0,$ ;这个很重要,F0=0,循环执行
CLR F0
LJMP LOOP
;=========载入音阶==================
LOAD_TONE:
MOV DPTR,#TONE
MOV A,R7
MOVC A,@A+DPTR
JNZ CONTINUE
MOV R6,#00H ;节拍从头开始
MOV R7,#00H ;音阶从头开始
LJMP LOAD_TONE
CONTINUE:
MOV 20H,A
MOV TH0,A
INC R7
MOV A,R7
MOVC A,@A+DPTR
MOV 21H,A
MOV TL0,A
INC R7
SETB TR0
RET
;========载入节拍===================
LOAD_BEAT:
MOV DPTR,#BEAT
MOV A,R6
MOVC A,@A+DPTR
MOV R5,A
MOV TH1,#(65535+BASE)/256
MOV TL1,# (65535+BASE) MOD 256
SETB TR1
RET
;==========音阶中断子程序========
TONE_INT:
CLR TR0
CPL SPEAKER
MOV A,20H
MOV TH0,A
MOV A,21H
MOV TL0,A
SETB TR0
RETI
;==========节拍中断子程序========
BEAT_INT:
CLR TR1
DJNZ R5,AGAIN
CLR TR0
SETB F0 ;F0=1,结束节拍
JMP EXIT1
AGAIN: MOV TH1,#(65535+BASE)/256
MOV TL1, # (65535+BASE) MOD 256
SETB TR1
EXIT1: RETI
;========音阶表================
TONE:
;========第一小节==============
DB 252,68,252,68
DB 252,173,252,68
;========第二小节==============
DB 253,52,253,10
;========第三小节==============
DB 252,68,252,68
DB 252,173,252,68
;========第四小节==============
DB 253,131,253,52
;==============================
;========第五小节==============
DB 252,68,252,68
DB 254,34,253,200
;========第六小节==============
DB 253,52,253,10
DB 254,87
;========第七小节==============
DB 254,6,254,6
DB 253,200,253,52
;========第八小节==============
DB 253,131,253,52,0
;==============================
;=====节拍表===================
BEAT:
;======第一小节===============
DB 4,4,8,8
;======第二小节===============
DB 8,16
;======第三小节===============
DB 4,4,8,8
;======第四小节===============
DB 8,16
;======第五小节===============
DB 4,4,8,8
;======第六小节===============
DB 8,8,8
;======第七小节===============
DB 4,4,8,8
;======第八小节===============
DB 8,16,0
;=============================
END
我调试通过的 不过是汇编的

回答2:

51单片机的一个能唱生日歌的小程序
http://www.pudn.com/downloads107/sourcecode/embed/detail442358.html

介绍了使用单片机产生音乐的方法,以及生日歌,祝你平安,八月桂花香的示例程序
http://www.pudn.com/downloads123/sourcecode/embed/detail522151.html