我用51單片機做的一個電子琴程序，本人用的是蜂鳴器，你們可以換用喇叭效果會更加好。
-
- #define ulong unsigned long
- //#include <reg52.h> //包括一個52標準內核的頭文件
- #include <reg51.h>
- #define uchar unsigned char
- #define uint unsigned int
- #include <absacc.h>
- uchar key;
- uchar kc;
- uchar sec=0;
- uchar min=0;
- uchar hour=0;
- uchar day=1;
- uchar mon=1;
- uint year=2007;
- uchar mod=0;
- uchar check=0;
- //////////////////////////////////////////////////////////////
- sbit BEEP=P1^1; //喇叭輸出腳
- //sbit K1= P3^2;
- //sbit K2= P3^5;
- //sbit K3= P2^4;
- //sbit K4= P2^5;
- uchar th0_f; //在中斷中裝載的T0的值高8位
- uchar tl0_f; //在中斷中裝載的T0的值低8位
- //T0的值,及輸出頻率對照表
- uchar code freq[36*2]={
- 0xA9,0xEF,//00220HZ ,1 //0
- 0x93,0xF0,//00233HZ ,1#
- 0x73,0xF1,//00247HZ ,2
- 0x49,0xF2,//00262HZ ,2#
- 0x07,0xF3,//00277HZ ,3
- 0xC8,0xF3,//00294HZ ,4
- 0x73,0xF4,//00311HZ ,4#
- 0x1E,0xF5,//00330HZ ,5
- 0xB6,0xF5,//00349HZ ,5#
- 0x4C,0xF6,//00370HZ ,6
- 0xD7,0xF6,//00392HZ ,6#
- 0x5A,0xF7,//00415HZ ,7
- 0xD8,0xF7,//00440HZ 1 //12
- 0x4D,0xF8,//00466HZ 1# //13
- 0xBD,0xF8,//00494HZ 2 //14
- 0x24,0xF9,//00523HZ 2# //15
- 0x87,0xF9,//00554HZ 3 //16
- 0xE4,0xF9,//00587HZ 4 //17
- 0x3D,0xFA,//00622HZ 4# //18
- 0x90,0xFA,//00659HZ 5 //19
- 0xDE,0xFA,//00698HZ 5# //20
- 0x29,0xFB,//00740HZ 6 //21
- 0x6F,0xFB,//00784HZ 6# //22
- 0xB1,0xFB,//00831HZ 7 //23
- 0xEF,0xFB,//00880HZ `1
- 0x2A,0xFC,//00932HZ `1#
- 0x62,0xFC,//00988HZ `2
- 0x95,0xFC,//01046HZ `2#
- 0xC7,0xFC,//01109HZ `3
- 0xF6,0xFC,//01175HZ `4
- 0x22,0xFD,//01244HZ `4#
- 0x4B,0xFD,//01318HZ `5
- 0x73,0xFD,//01397HZ `5#
- 0x98,0xFD,//01480HZ `6
- 0xBB,0xFD,//01568HZ `6#
- 0xDC,0xFD,//01661HZ `7 //35
- };
- //-----------------------------------------------------------------
- void delay(uint t) /*延時子程序*/
- {while(t--);
- }
- /////////////////////////////////////////////////////
- void keyin(void) //鍵盤掃描
- {unsigned char i,j,w;
- delay(500);
- if(~XBYTE[0xf800]&0xf)
- {w=XBYTE[0xf8fe]&0x0f;
- if(~w&0x0f)
- {i=4;
- j=w;
- w=0xff;
- }
- w=XBYTE[0xf8fd]&0x0f;
- if(~w&0x0f)
- {i=3;
- j=w;
- w=0xff;
- }
- w=XBYTE[0xf8fb]&0x0f;
- if(~w&0x0f)
- {i=2;
- j=w;
- w=0xff;
- }
- w=XBYTE[0xf8f7]&0x0f;
- if(~w&0x0f)
- {i=1;
- j=w;
- w=0xff;
- }
- w=XBYTE[0xf8ef]&0x0f;
- if(~w&0x0f)
- {i=0;
- j=w;
- w=0xff;
- }
- w=~j;
- key=(w<<4)|i;
- }
- while(~XBYTE[0xf800]&0xf);
- switch(key)
- {case 0x80:kc=20;break;
- case 0x40:kc=15;break;
- case 0x20:kc=0;break;
- case 0x10:kc=5;break;
- case 0x81:kc=19;break;
- case 0x41:kc=14;break;
- case 0x21:kc=9;break;
- case 0x11:kc=4;break;
- case 0x82:kc=18;break;
- case 0x42:kc=13;break;
- case 0x22:kc=8;break;
- case 0x12:kc=3;break;
- case 0x83:kc=17;break;
- case 0x43:kc=12;break;
- case 0x23:kc=7;break;
- case 0x13:kc=2;break;
- case 0x84:kc=16;break;
- case 0x44:kc=11;break;
- case 0x24:kc=6;break;
- case 0x14:kc=1;break;}
- EX1=1;
- }
- ////////////////////////////////////////////////////////////////////////////
- void keybreak(void) interrupt 2 using 0 //鍵盤中斷
- {
- EX1=0;
- key=0;
- keyin();}
- ///////////////////////////////////////////
-
- //定時中斷0,用于產生唱歌頻率
- timer0() interrupt 1
- {
- TL0=tl0_f;TH0=th0_f; //調入預定時值
- BEEP=~BEEP; //取反音樂輸出IO
- }
- //按鍵控制音階聲音輸出（電子琴）
- void main(void) // 主程序
- {
- ulong n;
- uchar code jie8[8]={12,14,16,17,19,21,23,24};//1234567`1八個音符在頻率表中的位置
- TMOD = 0x01; //使用定時器0的16位工作模式
- TR0 = 0;
- ET0 = 1;
- EA = 1;
- while(1)
- {
- switch(kc)
- {
- case 0:
- {
- tl0_f=freq[jie8[0]*2]; //置一個音符的值
- th0_f=freq[jie8[0]*2+1];
- TR0 = 1;
- for(n=0;n<10000;n++); //延時
- break;
- }
- case 1:
- {
- tl0_f=freq[jie8[1]*2]; //置一個音符的值
- th0_f=freq[jie8[1]*2+1];
- TR0 = 1;
- for(n=0;n<10000;n++); //延時
- break;
- }
- case 2:
- {
- tl0_f=freq[jie8[2]*2]; //置一個音符的值
- th0_f=freq[jie8[2]*2+1];
- TR0 = 1;
- for(n=0;n<10000;n++); //延時
- break;
- }
- case 3:
- {
- tl0_f=freq[jie8[3]*2]; //置一個音符的值
- th0_f=freq[jie8[3]*2+1];
- TR0 = 1;
- for(n=0;n<10000;n++); //延時
- break;
- }
- default :TR0 = 0;BEEP=0;
- }
- }
- }
- //------------------------------------------------------
-
|手機版|MCU資訊論壇
( 京ICP備18035221號-2 )|網站地圖
電子琴程序.rar