music.c

51单片机驱动无源蜂鸣器进行音乐输出2 使用C51编译

//音乐输出函数模块
#define uchar unsigned char
#define uint  unsigned int
#define ulong unsigned long
#include <reg52.h>
#include <stdio.h>
//#include "study.h"

sbit led3=P1^0;
sbit led4=P1^1;
sbit led5=P1^2;
sbit led6=P1^3;


sbit key1=P3^2;
sbit key2=P3^5;

//*************************
//T0的值,及输出频率对照表
uchar code freq[74*2]={
	0x20,0xE6,//00139HZ 
	0x89,0xE7,//00147HZ 
	0xF3,0xE8,//00156HZ 
	0x35,0xEA,//00165HZ  
	0x74,0xEB,//00175HZ 
	0x91,0xEC,//00185HZ 
	0xA8,0xED,//00196HZ 
	0xB8,0xEE,//00208HZ 
	0xA9,0xEF,//00220HZ ,1
	0x93,0xF0,//00233HZ ,1#
	0x73,0xF1,//00247HZ ,2
	0x49,0xF2,//00262HZ ,2#
	0x07,0xF3,//00277HZ ,3
	0xC8,0xF3,//00294HZ ,4
	0x73,0xF4,//00311HZ ,4#
	0x1E,0xF5,//00330HZ ,5 
	0xB6,0xF5,//00349HZ ,5#
	0x4C,0xF6,//00370HZ ,6
	0xD7,0xF6,//00392HZ ,6#
	0x5A,0xF7,//00415HZ ,7    
	0xD8,0xF7,//00440HZ 1     //21
	0x4D,0xF8,//00466HZ 1#    //22
	0xBD,0xF8,//00494HZ 2     //23
	0x24,0xF9,//00523HZ 2#    //24
	0x87,0xF9,//00554HZ 3     //25
	0xE4,0xF9,//00587HZ 4     //26
	0x3D,0xFA,//00622HZ 4#    //27
	0x90,0xFA,//00659HZ 5     //28
	0xDE,0xFA,//00698HZ 5#    //29
	0x29,0xFB,//00740HZ 6     //30
	0x6F,0xFB,//00784HZ 6#    //31
	0xB1,0xFB,//00831HZ 7     //32
	0xEF,0xFB,//00880HZ `1
	0x2A,0xFC,//00932HZ `1#
	0x62,0xFC,//00988HZ `2
	0x95,0xFC,//01046HZ `2#
	0xC7,0xFC,//01109HZ `3
	0xF6,0xFC,//01175HZ `4
	0x22,0xFD,//01244HZ    `4#
	0x4B,0xFD,//01318HZ `5
	0x73,0xFD,//01397HZ `5#
	0x98,0xFD,//01480HZ `6
	0xBB,0xFD,//01568HZ `6#
	0xDC,0xFD,//01661HZ `7
	0xFB,0xFD,//01760HZ 
	0x18,0xFE,//01865HZ
	0x28,0xFE,//01926HZ
	0x43,0xFE,//02039HZ
	0x5C,0xFE,//02160HZ
	0x74,0xFE,//02288HZ
	0x8A,0xFE,//02422HZ
	0x9F,0xFE,//02565HZ
	0xB3,0xFE,//02716HZ
	0xC6,0xFE,//02877HZ
	0xD8,0xFE,//03047HZ
	0xE9,0xFE,//03226HZ
	0xF9,0xFE,//03417HZ
	0x08,0xFF,//03618HZ
	0x16,0xFF,//03832HZ
	0x23,0xFF,//04058HZ
	0x30,0xFF,//04297HZ
	0x3C,0xFF,//04551HZ
	0x47,0xFF,//04819HZ
	0x52,0xFF,//05104HZ
	0x5C,0xFF,//05405HZ
	0x65,0xFF,//05724HZ
	0x6E,0xFF,//06061HZ
	0x77,0xFF,//06419HZ
	0x7F,0xFF,//06798HZ
	0x86,0xFF,//07166HZ
	0x8E,0xFF//07625HZ
};

uchar th0_f; //在中断中装载的T0的值
uchar tl0_f; //


//******************************
//音乐符号串解释函数
//入口:要解释的音乐符号串,输出的音调串,输出的时长串
changedata(uchar *song,uchar *diao,uchar *jie)
{
    uchar i,i1,j;
    char gaodi; //高低+/-12音阶
    uchar banyin;//有没有半个升音阶
    uchar yinchang;//音长
    uchar code jie7[8]={0,21,23,25,26,28,30,32}; //C调的7个值

    *diao=*song;
    for(i=0,i1=0;;)
    {
        gaodi=0; //高低=0
        banyin=0;//半音=0
        yinchang=4;//音长1拍
        if((*(song+i)=='|') || (*(song+i)==' ')) i++; 
		//拍子间隔和一个空格过滤

        switch(*(song+i)) 
        {    
            case ',': gaodi=-12;i++;//低音
            break;
    
            case '`': gaodi=12;i++; //高音
            break;
        }

        if(*(song+i)==0)  //遇到0结束
        {
            *(diao+i1)=0; //加入结束标志0
            *(jie+i1)=0;
            return;
        }

        j=*(song+i)-0x30; i++; //取出基准音
        j=jie7[j]+gaodi-5; //加上高低音
						

yinc:    switch(*(song+i)) 
        {    
            case '#': //有半音j加一个音阶 
                i++;j++; 
                
            break;

            case '-': //有一个音节加长
                yinchang+=4;
                i++; 
                goto yinc;

            case '_': //有一个音节缩短
                yinchang/=2;
                i++; 
            break;
            
            case '.': //有一个加半拍
                i++;
                yinchang=yinchang+yinchang/2;
            break;
        }
        if(*(song+i)=='.') {i++;yinchang=yinchang+yinchang/2; }; //对反向排列的延时符号处理
        if(*(song+i)=='-'){yinchang+=4;i++;}
        if(*(song+i)=='-'){yinchang+=4;i++;}
        if(*(song+i)=='-'){yinchang+=4;i++;}

		if(*(song+i)=='_'){yinchang/=2;;i++;}

        *(diao+i1)=j; //记录音符
        *(jie+i1)=yinchang; //记录音长
        i1++;    

        if(*(song+i)==0) //遇到0结束
        {
            *(diao+i1)=0; //加入结束标志0
            *(jie+i1)=0;
            return;
        }
    }
}
//******************************************
//奏乐函数
//入口:要演奏的音乐符号串
void play(uchar *songdata)
{
    uchar i,c,j=0;
    uint  n;
    uchar idata diaodata[112]; //音调缓冲,最大256字节
    uchar idata jiedata[112];  //音长缓冲,最大256字节

    changedata(songdata,diaodata,jiedata); //解释音乐符号串
    ET0=1;
    for(i=0;diaodata[i]!=0;i++)  //逐个符号演奏
    {
		switch(j)//闪灯
		{
			case 0:	j=1;P1=0xff;led3=0;
			break;
			case 1:	j=2;P1=0xff;led4=0;
			break;
			case 2:	 j=3;P1=0xff;led5=0;
			break;
			case 3:	j=0;P1=0xff;led6=0;
			break;
		}

        tl0_f=freq[diaodata[i]*2]; //取出对应的定时值送给T0
        th0_f=freq[diaodata[i]*2+1];
        for(c=0;c<jiedata[i];c++) //按照音长延时
            for(n=0;n<32000;n++);
        ET0=0;
        for(n=0;n<500;n++);    //音符间延时
        ET0=1;
		//if (!key4){
		//	break;
		//}


    }
    ET0=0;
}

//**********************************
//定时中断0,用于产生唱歌频率

sbit MIO=P1^7;

timer0() interrupt 1 
{
    TL0=tl0_f;TH0=th0_f;  //调入新的定时值
    MIO=~MIO;                //取反音乐输出IO
	P2=~P2;
}
int0() interrupt 0
{
} 

//****************************************
//音乐符号的书写规定
//1 2 3 4 5 6 7 为7个基本音阶
//前面加逗号','表示这是低音
//前面加上点号'`'表示这是高音
//后面加'#',表示这个音符升半个音阶
//后面加'.',表示这个音符要再加长自身一半的延时
//后面加'-',每个表示延时一拍
//后面加'_',表示这个音符要缩短自身一半的时长
//************************************************


//仙剑
uchar code song0[]={
"|3_3_3_2_3-|2_3_2_2_,6,6_,7_|12_1_,7,6_,5_|,6---|"
"3_3_3_2_3.6_|5_6_5_5_22_3_|45_4_32_1_|3.--3_|"
"67_6_55_3_|5--3_5_|26_5_32_3_|3---|"
"26_6_6-|16_6_66_7_|`17_6_76_7_|3.--3_|"
"67_6_55_3_|5--3_5_|67_6_76_7_|3---|"
"26_6_6-|16_6_66_7_|`17_6_7.5_|6---|"
};

//小燕子
uchar code song1[]={
"|5`1_6_55|3_5_6_`1_55|65_3_22|35_3_2_3_1|6_5_6_5_3_6_5|2_5_3_2_1-|,6_1_2_3_1-|"
};		   



//我是一只菠萝
uchar code song2[]={
"1-|2_4_3_2_55|5_6_3_4_22|2_4_3_2_1_`1_7_6_|5_4_2_3_11|"
"2_4_3_2_55|5_6_3_4_22|2_4_3_2_1_5_2_3_|1---|"
};


uchar code song3[]={
"5-5_3_2_1_|3---|6-6_4_2_1_"
",7--,5_|1.3_5.1_|,7.3_5 5_|"
"6.7_`1.6_|6_5_5-3_2_|1.1_13_2_|"
"1.1_12_3_|2.1_,62_3_|2-- ,5_|"
"1.3_5.1_|,7.3_55_|6.7_`1.6_|"
"6_5_5-3_2_|1.1_13_2_|1.1_12_3_"
"2.,6_,71_2_|1--"
};
//世上只有妈妈好
uchar code song4[]={
"6.5_35|`16_5_6-|35_6_53_2_|1_,6_5_3_2-|"
"2.3_55_6_|321-|5.3_2_1_,6_1_|,5--"
};

//小星星
uchar code song5[]={
"1155|665-|4433|221-|"
"5544|332-|5544|332-|"
"1155|665-|4433|221-|"
};

//老鼠爱大米
uchar code song6[]={
"321-|3.2_1-|3231|3_6.5-|3_5_665|65-3_2_|122_3_2|12--|"
};
/*
uchar code song3[]={
//"1155665_|4433221|5544332_|5544332_|1155665_|4433221_|"
"111_|123_55__|35_6_3_211__|321,6_,6__|321,6_,6__|,61_2_3_55____"
};
*/
uchar code di1[]={"1_3_5"};
uchar code di2[]={"2_4_6"};
uchar code di3[]={"3_5_7"};
uchar code di4[]={"4_6_`1"};
uchar code di5[]={"5_7_`2"};
uchar code di6[]={"6_`1_`3"};
uchar code di7[]={"7_`2_`4"};
uchar code di8[]={"`1_`3_`5"};
uchar code di9[]={"1234567`1"};
uchar code di10[]={"`17654321"};
uchar code di11[]={"13243546576`17`2`1-"};
uchar code di12[]={"`1675645342312,71-"};


sbit zz=P1^6;
//sbit water=P0^0;
sbit water=P3^2;

void main()
{	
	uchar t=1;

	TMOD = 0x01;
	TR0 = 1;
	ET0 = 0;
	
	IT0=1;
	EX0=1;

	EA = 1;
	

	while(1)
	{
		if(!zz)
		{
			switch(t)
			{
				case 1: play(di1);t++;break;
				case 2: play(di2);t++;break;
				case 3: play(di3);t++;break;
				case 4: play(di4);t++;break;
				case 5: play(di5);t++;break;
				case 6: play(di6);t++;break;
				case 7: play(di7);t++;break;
				case 8: play(di8);t++;break;
				case 9: play(di9);t++;break;
				case 10: play(di10);t++;break;
				case 11: play(di11);t++;break;
				case 12: play(di12);t++;break;
				case 13: play(di1);t++;break;
				case 14: play(di9);t=1;break;
							
			}
		}
		if(!water)
		{
			switch(t)
			{
				case 1: play(song4);t++;break;
				case 2: play(song5);t++;break;
				case 3: play(song6);t++;break;
				case 4: play(song1);t++;break;
				case 5: play(song2);t++;break;
				case 6: play(song3);t++;break;
				case 7: play(song0);t++;break;
				case 8: play(song4);t++;break;
				case 9: play(song5);t++;break;
				case 10: play(song6);t++;break;
				case 11: play(song1);t++;break;
				case 12: play(song2);t++;break;
				case 13: play(song3);t++;break;
				case 14: play(song0);t=1;break;
							
			}
		}

		P1=0xFF;
		P2=0xFF;
		PCON=0x02;
	}
	//playmusic();
}