music.c

此文档是网上一款开发板的完整系统,内附有电路图纸!系统有完整的接口程式,包含了字符型LCD驱动,pc串口通讯程式,flash读写驱动程式,中文字库,ad芯片驱动程式,keyscan4*4扫描程式

//**********************************************************************************
//音乐输出函数模块
#define uchar unsigned char
#define uint  unsigned int
#define ulong unsigned long
#include <reg52.h>
#include "study.h"
//*************************
//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,20,22,24,25,27,29,31}; //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; //加上高低音

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++;}

		*(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;
	uint xdata n;
	uchar xdata diaodata[256]; //音调缓冲,最大256字节
	uchar xdata jiedata[256];  //音长缓冲,最大256字节

	changedata(songdata,diaodata,jiedata); //解释音乐符号串
	ET0=1;
	for(i=0;diaodata[i]!=0;i++)  //逐个符号演奏
	{
		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<12000;n++);
		ET0=0;
		for(n=0;n<500;n++);    //音符间延时
		ET0=1;
	}
	ET0=0;
}
//**********************************
//定时中断0,用于产生唱歌频率
sbit MIO=P1^7;
timer0() interrupt 1 
{
	TL0=tl0_f;TH0=th0_f;  //调入新的定时值
	MIO=~MIO;				//取反音乐输出IO
}

//****************************************
//音乐符号的书写规定
//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---|"
};

//************************************************
//唱歌菜单
void playmusic(void)
{
	uchar ch;
	while(1)
	{
		cls(8);  //打印提示
		setcursor(0,0);
		lcdstring("1.仙剑奇侠传\r\n2.小兔子乖乖\r\n3.我是只菠萝");
		while((ch=getkey(1000))==0); //等待按键
		switch(ch) 
		{
			case '1':
				play(song0);
			break;
	
			case '2':
				play(song1);
			break;
	
			case '3':	
				play(song2);
			break;

			case '4':
				play(song0);
				play(song1);	
				play(song2);
			break;

			case 'C':
			return;
		}
	}
}