51单片机电子琴程序.doc

1、#include#include#include#include#define uchar unsigned char#define uint unsigned intuchar STH0; /定时器计数初值uchar STL0;bit FY=0; /放乐曲时 FY=1，电子琴弹奏时 FY=0uchar Song_Index=0,Tone_Index=0; /放音乐的参数uchar k,key;sbit SPK=P37;sbit LED1=P10;sbit LED2=P11;uchar code DSY_CODE=0x3f,0x06,0x5b,0x4f,0x66,0x6f,0x7d,0x07,

2、0x7f,0x6f,0x77,0x7c,0x39,0x5e,0x79,0x71;uchar code Song50=1,2,3,5,7,8,4,3,4,3,4,5,4,6,3,4,5,5,5,3,5,4,2,4,5,7,4,2,10,10,10,2,1,2,1,2,10,10,5,5,10,9,8,5,5,5,5,10,9,8,6,6,6,11,12,9,6,8-1,13,14,13,12,12,10,12,13,14,15,14,14, 6,6,11,10,9,12,12,12,12,13,12,11,9,8,10,10,10,-1, 9,13,13,13,13,8,13,13,13,13,

3、14,15,14,13,13,14,12,13,;uchar code Len50=1,1,1,1,1,1,1,1,1,1,1,1,2,2,2,1,1,1,2,2,2,1,2,2,1,2,2,1,1,1,1,1,1,2,1,1,1,2,2,1,1,1,1,-1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,-1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,-1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,-1,1,1,2,0,1,1,2,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,

4、2,0,1,2,1,2,1,2,1,2,1,2,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,-1,;/音符与计数值对应表uint code tab=0,63628,63835,64021,64103,64260,64400,64524,64580,64684,64777,64820,64898,64968,65030,65058,65110,65157,65178,65217,65252,65283;void delay1(uint ms) /播放歌曲时实现节拍的延时函数uchar t;while(ms-) for

5、(t=0;t0;i-);/键扫描函数uchar getkey(void)uchar scancode,tmpcode;if(P0scancode=0xfe;while(scancode /输入行扫描码if(P0return(scancode)+(tmpcode);else scancode=(scancodesbit speaker = P17;unsigned char timer0h, timer0l, time;/-/单片机晶振采用 11.0592MHz/ 频率-半周期数据表 高八位 本软件共保存了四个八度的 28 个频率数据code unsigned char FREQH = 0xF2

6、, 0xF3, 0xF5, 0xF5, 0xF6, 0xF7, 0xF8, /低音 12345670xF9, 0xF9, 0xFA, 0xFA, 0xFB, 0xFB, 0xFC, 0xFC,/1,2,3,4,5,6,7,i0xFC, 0xFD, 0xFD, 0xFD, 0xFD, 0xFE, /高音 2345670xFE, 0xFE, 0xFE, 0xFE, 0xFE, 0xFE, 0xFF; /超高音 1234567/ 频率-半周期数据表 低八位code unsigned char FREQL = 0x42, 0xC1, 0x17, 0xB6, 0xD0, 0xD1, 0xB6, /低音

7、12345670x21, 0xE1, 0x8C, 0xD8, 0x68, 0xE9, 0x5B, 0x8F, /1,2,3,4,5,6,7,i0xEE, 0x44, 0x6B, 0xB4, 0xF4, 0x2D, /高音 2345670x47, 0x77, 0xA2, 0xB6, 0xDA, 0xFA, 0x16; /超高音 1234567/-/世上只有妈妈好数据表 要想演奏不同的乐曲, 只需要修改这个数据表code unsigned char sszymmh = 6, 2, 3, 5, 2, 1, 3, 2, 2, 5, 2, 2, 1, 3, 2, 6, 2, 1, 5, 2, 1, /一

8、个音符有三个数字。前为第几个音、中为第几个八度、后为时长（以半拍为单位）。/6, 2, 3 分别代表：, 中音, 个半拍;/5, 2, 1 分别代表：, 中音, 个半拍;/3, 2, 2 分别代表：, 中音, 个半拍;/5, 2, 2 分别代表：, 中音, 个半拍;/1, 3, 2 分别代表：, 高音, 个半拍;/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,

9、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;/-void t0int() interrupt 1 /T0 中断程序，控制发音的音调TR0 = 0; /先关闭 T0speaker = !speaker; /输出方波, 发音TH0 = timer0h; /下次的中断时间, 这个时间, 控制音调高低TL0 = timer0l;TR0 = 1; /启动 T0/-void delay(unsigned char t) /延时程序，控制发音的时间长度unsi

10、gned char t1;unsigned long t2;for(t1 = 0; t1 unsigned char temp;unsigned char key;unsigned char i,j;unsigned char STH0;unsigned char STL0;unsigned int code tab=64021,64103,64260,64400,64524,64580,64684,64777,64820,64898,64968,65030,65058,65110,65157,65178;void main(void)TMOD=0x01;ET0=1;EA=1;while(1)

11、P3=0xff; /将 P3 口取出P3_4=0; /使 P3_4 为低电平, 这样可以判断第一竖排有没有键按下temp=P3;temp=temp if (temp!=0x0f) /有键按下for(i=50;i0;i-)for(j=200;j0;j-); /延时temp=P3; temp=temp if (temp!=0x0f) /再判断是否有键按下temp=P3;temp=temp switch(temp) /判断是哪个键按下case 0x0e:key=0;break;case 0x0d:key=1;break;case 0x0b:key=2;break;case 0x07:key=3;br

12、eak;temp=P3;P1_0=P1_0;P0=tablekey;STH0=tabkey/256; /找出键对应的频率的时间,作为定时器中断初始值STL0=tabkey%256;TR0=1;temp=temp while(temp!=0x0f)temp=P3;temp=temp TR0=0;P3=0xff;P3_5=0; /跟上面差不多,现在是判断第二排的按键temp=P3;temp=temp if (temp!=0x0f)for(i=50;i0;i-)for(j=200;j0;j-);temp=P3;temp=temp if (temp!=0x0f)temp=P3;temp=temp sw

13、itch(temp)case 0x0e:key=4;break;case 0x0d:key=5;break;case 0x0b:key=6;break;case 0x07:key=7;break;temp=P3;P1_0=P1_0;P0=tablekey;STH0=tabkey/256;STL0=tabkey%256;TR0=1;temp=temp while(temp!=0x0f)temp=P3;temp=temp TR0=0;P3=0xff;P3_6=0;temp=P3;temp=temp if (temp!=0x0f)for(i=50;i0;i-)for(j=200;j0;j-);tem

14、p=P3;temp=temp if (temp!=0x0f)temp=P3;temp=temp switch(temp)case 0x0e:key=8;break;case 0x0d:key=9;break;case 0x0b:key=10;break;case 0x07:key=11;break;temp=P3;P1_0=P1_0;P0=tablekey;STH0=tabkey/256;STL0=tabkey%256;TR0=1;temp=temp while(temp!=0x0f)temp=P3;temp=temp TR0=0;P3=0xff;P3_7=0;temp=P3;temp=tem

15、p if (temp!=0x0f)for(i=50;i0;i-)for(j=200;j0;j-);temp=P3;temp=temp if (temp!=0x0f)temp=P3;temp=temp switch(temp)case 0x0e:key=12;break;case 0x0d:key=13;break;case 0x0b:key=14;break;case 0x07:key=15;break;temp=P3;P1_0=P1_0;P0=tablekey;STH0=tabkey/256;STL0=tabkey%256;TR0=1;temp=temp while(temp!=0x0f)temp=P3;temp=temp TR0=0;void t0(void) interrupt 1 using 0TH0=STH0;TL0=STL0;P1_0=P1_0;电路图和原理我都有，刚好我也在做这个。