Question

求STC89C52单片机的蜂鸣器演奏 （歌曲随便）C程序

如题
邮箱lixinnan88@126.com
各位大虾 注意是C程序啊

Answer 1

　　蜂鸣器唱《祝你平安》 *
　　; *
　　;********************************************************************************/
　　SPK bit P2.3

　　ORG 0000H
　　LJMP START
　　ORG 000BH
　　INC 20H ;中断服务,中断计数器加1
　　MOV TH0,#0D8H
　　MOV TL0,#0EFH ;12M晶振，形成10毫秒中断
　　RETI

　　START:
　　MOV SP,#50H
　　MOV TH0,#0D8H
　　MOV TL0,#0EFH
　　MOV TMOD,#01H
　　MOV IE,#82H
　　MUSIC0:
　　NOP
　　MOV DPTR,#DAT ;表头地址送DPTR
　　MOV 20H,#00H ;中断计数器清0
　　MOV B,#00H ;表序号清0
　　MUSIC1:
　　NOP
　　CLR A
　　MOVC A,@A+DPTR ;查表取代码
　　JZ END0 ;是00H,则结束
　　CJNE A,#0FFH,MUSIC5
　　LJMP MUSIC3
　　MUSIC5:
　　NOP
　　MOV R6,A
　　INC DPTR
　　MOV A,B
　　MOVC A,@A+DPTR ;取节拍代码送R7
　　MOV R7,A
　　SETB TR0 ;启动计数
　　MUSIC2:
　　NOP
　　CPL SPK
　　MOV A,R6
　　MOV R3,A
　　LCALL DEL
　　MOV A,R7
　　CJNE A,20H,MUSIC2 ;中断计数器(20H)=R7否?
　　;不等,则继续循环
　　MOV 20H,#00H ;等于,则取下一代码
　　INC DPTR
　　; INC B
　　LJMP MUSIC1
　　MUSIC3:
　　NOP
　　CLR TR0 ;休止100毫秒
　　MOV R2,#0DH
　　MUSIC4:
　　NOP
　　MOV R3,#0FFH
　　LCALL DEL
　　DJNZ R2,MUSIC4
　　INC DPTR
　　LJMP MUSIC1
　　END0:
　　NOP
　　MOV R2,#64H ;歌曲结束,延时1秒后继续
　　MUSIC6:
　　MOV R3,#00H
　　LCALL DEL
　　DJNZ R2,MUSIC6
　　LJMP MUSIC0
　　DEL:
　　NOP
　　DEL3:
　　MOV R4,#02H
　　DEL4:
　　NOP
　　DJNZ R4,DEL4
　　NOP
　　DJNZ R3,DEL3
　　RET
　　NOP
　　DAT:
　　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

Answer 2

可见：
http://hi.baidu.com/%D7%F6%B6%F8%C2%DB%B5%C0/blog/item/88bfff323ec42ef21b4cff09.html

http://hi.baidu.com/%D7%F6%B6%F8%C2%DB%B5%C0/blog/item/110ca42d4f5157e68b13991f.html

Answer 3

给个邮箱我给你发一份。包括代码和proteus仿真电路