资源描述:
《利用蜂鸣器和单片机演奏简单音乐》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、利用蜂鸣器和单片机演奏简单的音乐实验原理图 实验程序/*===========================================================*//*-----------------------------------------------------------*//*曲谱存贮格式ucharcode数组名{音高,音长,音高,音长....}*//*音高由三位数字组成:*//*个位是表示1~7这七个音符.*//*十位是表示音符所在的音区,1-低音,2-中音,3-高音;*//*百位表示这个音符是否要升半音0(不写)-不升,1-升半音
2、。*//*音长最多由三位数字组成:*//*个位表示音符的时值,其对应关系是:*//*数值(n)0123456*//*---------------------------------------------*//*几分音符1248163264*//*即:音符=2^n,这样做的目的是为了节省曲谱的存贮空间。*//*十位表示音符的演奏效果(0-2),0-普通,1-连音,2-顿音。*//*百位是符点位,0(不写)-无符点,1-有符点。*//*-----------------------------------------------------------*//*调用
3、演奏子程序的方法为:*//*play(乐曲数组名,调号,升降八度,演奏速度,开始指针,结束指针)*//*调号(0-11)是指乐曲升多少个半音演奏;升降八度(1-3)是指在演奏*//*在哪个八度演奏:1-降八度,2-不升不降,3-升八度.开始指针(0-)*//*是从哪个音符开始演奏,结束指针是演奏到哪个音符为止.*//*-----------------------------------------------------------*///本程序用T0来产生音调,用T1产生音长#include#defineucharunsignedchar#d
4、efineyx4/5/*定义普通音符演奏的长度分率*/#defineplen2/*定义晶振的时钟周期(us)*/#defineucharunsignedchar#defineuintunsignedintsbitspeaker=P3^5;/*------------------下面是曲谱------------------------------*/ucharcodesound[100]={25,2,23,3,25,3,31,1,26,2,31,3,26,3,25,1,25,2,21,3,22,3,23,2,22,3,21,3,22,0,25,2,23,3,25,
5、3,31,102,27,3,26,2,31,2,25,1,25,2,22,3,23,3,24,102,17,3,21,0};uchartc0,tc1,sc0,sc1;/*音长和音符两个计数器初值暂存*/voidplay(sound,dh,sj,speed,point1,point2)ucharcodesound[];/*接受乐曲数组的地址*/ucharspeed,sj,dh;/*速度、八度、调号*/uintpoint1,point2;/*乐曲开始、结束指针*/{uintcodefftab[12]={262,277,294,311,330,349,369,392,4
6、15,440,466,494};/*频率表*/ucharcodestab[7]={0,2,4,5,7,9,11};/*1~7在频率表中的位置*/ucharcodeltab[7]={1,2,4,8,16,32,64};uchartl,ts,sl,sm,sh,slen,xg,ii,fd;uintpoint,hz,tc,sc,len,len0,len1,len2,len4,i,ftab[12];speaker=1;for(i=0;i<12;i++)/*根据调号及升降八度来计算音符频率*/{ii=i+dh;if(ii>11){ii=ii-12;ftab[i]=fftab[
7、ii]*2;}elseftab[i]=fftab[ii];if(sj==1)ftab[i]>>=2;if(sj==3)ftab[i]<<=2;}point=point1;ts=sound[point];tl=sound[point+1];/*读出第一个音符和它时时值*/tc=65535-10000/plen;/*算出10ms的初装值*/tc0=tc%256;/*计算TL1应装入的初值*/tc1=tc/256;/*计算TH1应装入的初值*/len0=12000/speed;/*算出1分音符的长度(几个10ms)*/len4=len0/4;/*算出4分音符的长度*/l
8、en4=l