附件包括電子音響的單片機源代碼
proteus仿真工程文件
都是自己在網(wǎng)上找的資料,請大家多多指教
仿真原理圖如下(proteus仿真工程文件可到本帖附件中下載)
單片機源程序如下:
- /*************************************************************************
- 實驗步驟:
- 1、把 P1.0用插針連至SIN插孔上,電子音響驅(qū)動區(qū)的短路片連到LB,選喇叭。
- 2、調(diào)試、運行程序。 將播放音樂。
- *************************************************************************/
- //---庫函數(shù)聲明及相關定義---//
- #include <reg51.h>
- #define uchar unsigned char
- #define uint unsigned int
- unsigned char timer0h, timer0l, time,zt=1;
- sbit speaker = P1^0;
- //單片機晶振采用11.0592MHz
- // 頻率-半周期數(shù)據(jù)表,高八位,本軟件共保存了四個八度的28個頻率數(shù)據(jù)
- code unsigned char FREQH[] = {
- 0xF2, 0xF3, 0xF5, 0xF5, 0xF6, 0xF7, 0xF8,//低音1234567
- 0xF9, 0xF9, 0xFA, 0xFA, 0xFB, 0xFB, 0xFC, 0xFC,//1,2,3,4,5,6,7,i
- 0xFC, 0xFD, 0xFD, 0xFD, 0xFD, 0xFE,//高音 234567
- 0xFE, 0xFE, 0xFE, 0xFE, 0xFE, 0xFE, 0xFF};//超高音 1234567
-
- // 頻率-半周期數(shù)據(jù)表,低八位
- code unsigned char FREQL[] = {
- 0x42, 0xC1, 0x17, 0xB6, 0xD0, 0xD1, 0xB6,//低音1234567
- 0x21, 0xE1, 0x8C, 0xD8, 0x68, 0xE9, 0x5B, 0x8F,//1,2,3,4,5,6,7,i
- 0xEE, 0x44, 0x6B, 0xB4, 0xF4, 0x2D,//高音 234567
- 0x47, 0x77, 0xA2, 0xB6, 0xDA, 0xFA, 0x16};//超高音 1234567
- // 要想演奏不同的樂曲, 只需要修改這個數(shù)據(jù)表
- code unsigned char music[ ][500] =
- {
- //鄉(xiāng)間小路數(shù)據(jù)表
- {3,1,2, 3,1,1, 3,1,1, 6,0,1, 6,0,1, 1,1,2, 6,0,1, 5,0,1, 6,0,4, 6,0,2, 6,0,1 ,6,0,1, 6,0,2, 6,0,1,
- 1,1,1, 2,1,2, 2,1,1, 3,1,1, 2,1,4, 3,1,1, 3,1,1, 3,1,1, 2,1,1, 4,1,2, 4,1,2, 3,1,2, 2,1,1, 1,1,1,
- 2,1,4, 7,0,1, 7,0,1, 7,0,1, 6,0,1, 5,0,1, 5,0,1, 6,0,1, 7,0,1, 7,0,1, 6,0,1, 5,0,1, 6,0,4, 6,1,2,
- 3,1,1, 6,1,1, 7,1,1, 6,1,1, 5,1,1, 5,1,2, 5,1,1, 2,1,1, 5,1,1, 6,1,1, 5,1,1, 4,1,1, 4,1,2, 4,1,1,
- 3,1,1, 2,1,2, 1,1,1, 2,1,1, 3,1,1, 2,1,1, 1,1,1, 2,1,1, 3,1,4, 6,1,2, 3,1,1, 6,1,1, 7,1,1, 6,1,1,
- 5,1,1, 5,1,2, 2,1,1, 5,1,1, 6,1,1, 5,1,1, 4,1,1, 4,1,2, 4,1,1, 5,1,1, 6,1,1, 4,1,1, 3,1,1, 2,1,2,
- 2,1,2, 5,1,4, 0,0,0},
- // 送別數(shù)據(jù)表
- {5,1,2, 3,1,3, 5,1,1, 1,2,3, 6,1,2, 1,2,2, 5,1,4,
- 5,1,2, 1,1,1, 2,1,1, 3,1,2, 2,1,1, 1,1,1, 2,1,4,
- 5,1,2, 3,1,1, 5,1,1, 1,2,2, 7,1,1, 6,1,2,
- 1,2,2, 5,1,4, 5,1,2, 2,1,1, 3,1,1, 4,1,2, 7,0,1,
- 1,1,4, 6,1,2, 1,2,2, 1,2,4, 7,1,2, 6,1,1, 7,1,1,
- 1,2,4, 6,1,1, 7,1,1, 1,2,1, 6,1,1, 6,1,1, 5,1,1,
- 3,1,1, 1,1,1, 2,1,8, 5,1,2, 3,1,1, 5,1,1, 1,2,2,
- 7,1,1, 6,1,2, 1,2,2, 5,1,4, 5,1,2, 2,1,1, 3,1,1,
- 4,1,2, 7,0,2, 1,1,4, 0,0,0},
- //世上只有媽媽好數(shù)據(jù)表
- {6, 2, 3, 5, 2, 1, 3, 2, 2, 5, 2, 2, 1, 3, 2, 6, 2, 1, 5, 2, 1,
- 6, 2, 4, 3, 2, 2, 5, 2, 1, 6, 2, 1, 5, 2, 2, 3, 2, 2, 1, 2, 1,
- 6, 1, 1, 5, 2, 1, 3, 2, 1, 2, 2, 4, 2, 2, 3, 3, 2, 1, 5, 2, 2,
- 5, 2, 1, 6, 2, 1, 3, 2, 2, 2, 2, 2, 1, 2, 4, 5, 2, 3, 3, 2, 1,
- 2, 2, 1, 1, 2, 1, 6, 1, 1, 1, 2, 1, 5, 1, 6, 0, 0, 0
- }
- };
- //---T0中斷函數(shù)---//
- void t0int() interrupt 1//T0中斷程序,控制發(fā)音的音調(diào)
- {
- TR0 = 0;//先關閉T0
- speaker = !speaker;//輸出方波, 發(fā)音
- TH0 = timer0h;//下次的中斷時間, 這個時間, 控制音調(diào)高低
- TL0 = timer0l;
- TR0 = 1;//啟動T0
- }
- //---延時函數(shù)---//
- void delay(unsigned char t)//延時子函數(shù),控制發(fā)音的時間長度
- {
- unsigned char t1;
- unsigned long t2;
- for(t1 = 0; t1 < t; t1++)//嵌套循環(huán), 共延時t個半拍
- for(t2 = 0; t2 < 8000; t2++);//延時期間, 可進入T0中斷去發(fā)音
- TR0 = 0;//關閉T0, 停止發(fā)音
- }
- //---演奏音符函數(shù)---//
- void song()//演奏一個音符
- {
- TH0 = timer0h;//控制音調(diào)
- TL0 = timer0l;
- TR0 = 1;//啟動T0, 由T0輸出方波去發(fā)音
- delay(time);//控制時間長度
- }
- //---演奏歌曲函數(shù)---//
- void Song(unsigned char j) //j表示第n+1首曲
- {
- unsigned char k, i;
- i = 0;
- time = 1;
- while(time)
- {
- k = music[j][i] + 7 * music[j][i + 1] - 1;
- //第i個是音符, 第i+1個是第幾個八度
- timer0h = FREQH[k];//從數(shù)據(jù)表中讀出頻率數(shù)值
- timer0l = FREQL[k]; //實際上, 是定時的時間長度
- time = music[j][i + 2];//讀出時間長度數(shù)值
- i += 3;
- song(); //發(fā)出一個音符
- }
- }
- //---主程序---//
- void main()
- {
- TMOD = 1;//置T0定時工作方式1
- ET0 = 1;//開T0中斷
- EA = 1;//開CPU中斷
- while(1)
- {
- Song(1);
- }
- }
復制代碼
所有資料51hei提供下載:
電子音響.zip
(30.89 KB, 下載次數(shù): 45)
2020-11-3 20:28 上傳
點擊文件名下載附件
下載積分: 黑幣 -5
|