電子發燒友App
利用蜂鳴器和單片機演奏簡單的音樂
實驗原理圖
?
實驗程序
/* =========================================================== */
/* ----------------------------------------------------------- */
/* 曲譜存貯格式 uchar code 數組名{音高，音長，音高，音長....} */
/* 音高由三位數字組成： */
/* 個位是表示 1~7 這七個音符. */
/* 十位是表示音符所在的音區，1-低音，2-中音，3-高音； */
/* 百位表示這個音符是否要升半音 0(不寫)-不升，1-升半音。 */
/* 音長最多由三位數字組成： */
/* 個位表示音符的時值，其對應關系是： */
/* 數值(n) 0 1 2 3 4 5 6 */
/* --------------------------------------------- */
/* 幾分音符 1 2 4 8 16 32 64 */
/* 即：音符=2^n ,這樣做的目的是為了節省曲譜的存貯空間。 */
/* 十位表示音符的演奏效果(0-2)，0-普通，1-連音，2-頓音。 */
/* 百位是符點位，0(不寫)-無符點，1-有符點。 */
/* ----------------------------------------------------------- */
/* 調用演奏子程序的方法為： */
/* play(樂曲數組名,調號,升降八度,演奏速度,開始指針,結束指針) */
/* 調號(0-11)是指樂曲升多少個半音演奏;升降八度(1-3)是指在演奏 */
/* 在哪個八度演奏: 1-降八度,2-不升不降,3-升八度.開始指針(0- ) */
/* 是從哪個音符開始演奏,結束指針是演奏到哪個音符為止. */
/* ----------------------------------------------------------- */
//本程序用T0 來產生音調，用T1 產生音長
#include
#define uchar unsigned char
#define yx 4/5 /* 定義普通音符演奏的長度分率 */
#define plen 2 /* 定義晶振的時鐘周期(us) */
#define uchar unsigned char
#define uint unsigned int
sbit speaker=P3^5;
/* ------------------下面是曲譜 ------------------------------ */
uchar code sound[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,3,31,102,27,3,26,2,31,2,25,1,25,2,22,3,23,3,24,102,17,3, 21,0};
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;
}
//==============================================
main()
{
while(1)
{
play(sound,0,2,60,0,57);
play(sound,0,1,60,0,57);
play(sound,0,3,60,0,57);
play(sound,0,2,40,0,57);
play(sound,5,2,60,0,57);
play(sound,0,2,80,0,57);
}
}
工商網監
評論