利用蜂鳴器和單片機演奏簡單的音樂

實驗原理圖

實驗程序

/* =========================================================== */

/* ----------------------------------------------------------- */

/* 曲譜存貯格式 uchar code 數(shù)組名{音高，音長，音高，音長....} */

/* 音高由三位數(shù)字組成： */

/* 個位是表示 1~7 這七個音符. */

/* 十位是表示音符所在的音區(qū)，1-低音，2-中音，3-高音； */

/* 百位表示這個音符是否要升半音 0(不寫)-不升，1-升半音。 */

/* 音長最多由三位數(shù)字組成： */

/* 個位表示音符的時值，其對應關系是： */

/* 數(shù)值(n) 0 1 2 3 4 5 6 */

/* --------------------------------------------- */

/* 幾分音符 1 2 4 8 16 32 64 */

/* 即：音符=2^n ,這樣做的目的是為了節(jié)省曲譜的存貯空間。 */

/* 十位表示音符的演奏效果(0-2)，0-普通，1-連音，2-頓音。 */

/* 百位是符點位，0(不寫)-無符點，1-有符點。 */

/* ----------------------------------------------------------- */

/* 調(diào)用演奏子程序的方法為： */

/* play(樂曲數(shù)組名,調(diào)號,升降八度,演奏速度,開始指針,結束指針) */

/* 調(diào)號(0-11)是指樂曲升多少個半音演奏;升降八度(1-3)是指在演奏 */

/* 在哪個八度演奏: 1-降八度,2-不升不降,3-升八度.開始指針(0- ) */

/* 是從哪個音符開始演奏,結束指針是演奏到哪個音符為止. */

/* ----------------------------------------------------------- */

//本程序用T0 來產(chǎn)生音調(diào)，用T1 產(chǎn)生音長

#include reg51.h>

#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; /* 音長和音符兩個計數(shù)器初值暫存 */

void play(sound,dh,sj,speed,point1,point2)

uchar code sound[]; /* 接受樂曲數(shù)組的地址 */

uchar speed,sj,dh; /* 速度、八度、調(diào)號 */

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;i12;i++) /* 根據(jù)調(diào)號及升降八度來計算音符頻率 */

{

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;