play.c

51音乐播放 C程序,希望对大家有用

/* 51单片机演奏音乐子程序 play.c*/
/* 本程序用T0来产生音调，用T1产生音长 */
#include<reg51.h>
#define yx 4/5 /* 定义普通音符演奏的长度分率 */
#define plen 2 /* 定义晶振的时钟周期(us) */
#define uchar unsigned char
#define uint unsigned int
sbit speaker=P3^5;
uchar tc0,tc1,sc0,sc1; /* 音长和音符两个计数器初值暂存 */
void play(sound,dh,sj,speed,point1,point2)
uchar code sound[]; /* 接受乐曲数组的地址 */
uchar speed,sj,dh; /* 速度、八度、调号 */
uint point1,point2; /* 乐曲开始、结束指针 */
{
uint code fftab[12]={262,277,294,311,330,349,369,392,415,440,466,494}; /* 频率表*/
uchar code stab[7]={0,2,4,5,7,9,11}; /* 1~7在频率表中的位置 */
uchar code ltab[7]={1,2,4,8,16,32,64};
uchar tl,ts,sl,sm,sh,slen,xg,ii,fd;
uint point,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[ii]*2;
}
else
ftab[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分音符的长度 */
len4=len4-len4*yx; /* 普通音最长间隔标准 */
TMOD=0x11;
TH1=tc1; TL1=tc0;
ET0=1; EA=1;
TR0=0; TR1=1;
while(point<=point2)
{
sl=ts%10; /* 计算出音符 */
sh=ts/100; /* 计算出是否升半 */
sm=ts/10%10; /* 计算出高低音 */
hz=ftab[stab[sl-1]+sh]; /* 查出对应音符的频率 */
if(sl!=0)
{
if (sm==1) hz>>=2; /* 若是低音 */
if (sm==3) hz<<=2; /* 若是高音 */
sc=(50000/hz)*10/plen; /* 计算脉冲个数 */
sc=65536-sc; /* 计算计数器初值 */
sc0=sc%256; /* 算出TL0应装初值 */
sc1=sc/256; /* 算出TH0应装初值 */
TH0=sc1; /* 装入初值 */
TL0=sc0+12; /* 加12是对中断延时的补偿 */
}
slen=ltab[tl%10]; /* 算出是几分音符 */
xg=tl/10%10; /* 算出音符类型(0普通1连音2顿音) */
fd=tl/100;
len=len0/slen; /* 算出连音音符演奏的长度(多少个10ms)*/
if (fd==1) len=len+len/2;
if(xg!=1)
if(xg==0) /* 算出普通音符的演奏长度 */
if (slen<=4)
len1=len-len4;
else
len1=len*yx;
else
len1=len/2; /* 算出顿音的演奏长度 */
else
len1=len;
if(sl==0) len1=0;
len2=len-len1; /* 算出不发音的长度 */
if (sl!=0)
{
TR0=1;
for(i=len1;i>0;i--) /* 发规定长度的音 */
{
while(TF1==0);
TH1=tc1; TL1=tc0;
TF1=0;
}
}
if(len2!=0)
{
TR0=0; speaker=1;
for(i=len2;i>0;i--) /* 音符间的间隔 */
{
while(TF1==0);
TH1=tc1; TL1=tc0;
TF1=0;
}
}
point+=2; /* 音符指针下移 */
ts=sound[point]; tl=sound[point+1]; /* 读出下一个音符和它时时值 */
}
}
void yin() interrupt 1 /* 音符发生程序（中断服务程序）*/
{
speaker=~speaker;
TH0=sc1; TL0=sc0;
}