谁有单片机的音乐程序(C语言)

QQ:742469411能给的感激不进!

//此程序在硬件上调试通过
//本程序的单片机晶振采用11.0592M
#include <reg51.h>
sbit speaker=P1^2;
unsigned char timer0h,timer0l,time;
//世上只有妈妈好数据表
code unsigned char sszymmh[]={ 6,2,3, 5,2,1, 3,2,2, 5,2,2, 1,3,2, 6,2,1, 5,2,1,
6,2,4, 3,2,2, 5,2,1, 6,2,1, 5,2,2, 3,2,2, 1,2,1,
6,1,1, 5,2,1, 3,2,1, 2,2,4, 2,2,3, 3,2,1, 5,2,2,
5,2,1, 6,2,1, 3,2,2, 2,2,2, 1,2,4, 5,2,3, 3,2,1,
2,2,1, 1,2,1, 6,1,1, 1,2,1, 5,1,6, 0,0,0
};
// 音阶频率表 高八位
code unsigned char FREQH[]={
0xF2,0xF3,0xF5,0xF5,0xF6,0xF7,0xF8,
0xF9,0xF9,0xFA,0xFA,0xFB,0xFB,0xFC,0xFC, //1,2,3,4,5,6,7,8,i
0xFC,0xFD,0xFD,0xFD,0xFD,0xFE,
0xFE,0xFE,0xFE,0xFE,0xFE,0xFE,0xFF,
} ;
// 音阶频率表 低八位
code unsigned char FREQL[]={
0x42,0xC1,0x17,0xB6,0xD0,0xD1,0xB6,
0x21,0xE1,0x8C,0xD8,0x68,0xE9,0x5B,0x8F, //1,2,3,4,5,6,7,8,i
0xEE,0x44, 0x6B,0xB4,0xF4,0x2D,
0x47,0x77,0xA2,0xB6,0xDA,0xFA,0x16,
};
void delay(unsigned char t)
{
unsigned char t1;
unsigned long t2;
for(t1=0;t1<t;t1++)
{
for(t2=0;t2<8000;t2++)
{
;
}
}
TR0=0;
}
void t0int() interrupt 1
{
TR0=0;
speaker=!speaker;
TH0=timer0h;
TL0=timer0l;
TR0=1;
}
void song()
{
TH0=timer0h;
TL0=timer0l;
TR0=1;
delay(time);
}

void main(void)
{
unsigned char k,i;
TMOD=1; //置CT0定时工作方式1
EA=1;
ET0=1;//IE=0x82 //CPU开中断,CT0开中断
while(1)
{
i=0;
while(i<100){ //音乐数组长度 ,唱完从头再来
k=sszymmh[i]+7*sszymmh[i+1]-1;
timer0h=FREQH[k];
timer0l=FREQL[k];
time=sszymmh[i+2];
i=i+3;
song();
}
}
}
//好好读读程序 就是用蜂鸣器的一个频率表写出来的
温馨提示:答案为网友推荐,仅供参考
第1个回答  2010-07-02
这里有单片机的音乐程序(C语言),并且有编写音乐程序的方法。

http://hi.baidu.com/%D7%F6%B6%F8%C2%DB%B5%C0/blog/item/88bfff323ec42ef21b4cff09.html
第2个回答  2010-07-02
;电子琴
;P2口外接4*4键盘
ORG 0000H ;主程序起始
LJMP MAIN ;跳到MAIN主程序
ORG 000BH ;T0中断起始
LJMP TT0 ;跳到T0中断
MAIN:MOV TMOD,#01H ;设T0工作在方式1
MOV IE,#82H ;中断使能
SETB TR0 ;启动T0
W1:LCALL KEY ;调用KEY,是否有键盘按下
CLR EA ;中断屏蔽
JB F0,W1 ;没有按则F0=1,否则F0=1
MOV A,22H ;按下则取码指针存址
RL A ;乘2
MOV DPTR,#TABLE ;
MOVC A,@A+DPTR ;至TABLE取码,取T
MOV TH0,A ;取到的高位字节存入TH
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
W2:LCALL KEY ;调用KEY,是否有键按下
SETB EA ;中断使能
JB F0,W1 ;有按下否?
JMP W2 ;有则跳到W2
KEY:SETB F0 ;设F0=1
MOV R3,#0F7H;扫描初值P23=0
MOV R1,#00H ;取码指针初值
W3:MOV A,R3 ;载入扫描指针
MOV P2,A ;输出至P2,扫描P23-P20
MOV A,P2 ;读入P2
CLR C ;
CPL C ;令C=1
MOV R5,#04H ;检测(P27-P24)
W4:RLC A ;右移一位(P27-P24)
JNC KEYIN ;检测行C=0,表按下
INC R1 ;没被按下则取码指针加1
DJNZ R5,W4 ;4列检测完毕了?
MOV A,R3 ;载入扫描指针
CLR C ;
CPL C ;令C=1
RRC A ;扫下一行,即下行为0
MOV R3,A ;存回R3扫描指针寄存器
JC W3 ;C=0表扫完
RET ;
KEYIN:MOV 22H,R1 ;取码指针存入22H地址
CLR F0 ;令F0=0
RET
TT0:PUSH ACC ;将A值存入堆栈
PUSH PSW ;将PSW值存入堆栈
MOV TL0,20H ;重新设计计数器
MOV TH0,21H ;
CPL P1.0 ;将P1.0反相
POP PSW ;至堆栈取回PSW值
POP ACC ;至堆栈取回A值
RETI ;返回主程序
TABLE:DW 64021,64103,64260,64400 ;.3
DW 64524,64580,64684,64777 ;.7
DW 64820,64898,64968,65030 ;4
DW 65058,65110,65157,65178 ;1.
相似回答