51单片机做的电子琴程序

我用51单片机做的一个电子琴程序，本人用的是蜂鸣器，你们可以换用喇叭效果会更加好。

1. 
   
2. #define ulong unsigned long
   
3. //#include <reg52.h> //包括一个52标准内核的头文件
   
4. #include <reg51.h>
   
5. #define uchar unsigned char
   
6. #define uint unsigned int
   
7. #include <absacc.h>
   
8. uchar key;
   
9. uchar kc;
   
10. uchar sec=0;
    
11. uchar min=0;
    
12. uchar hour=0;
    
13. uchar day=1;
    
14. uchar mon=1;
    
15. uint year=2007;
    
16. uchar mod=0;
    
17. uchar check=0;
    
18. //////////////////////////////////////////////////////////////
    
19. sbit BEEP=P1^1; //喇叭输出脚
    
20. //sbit K1= P3^2;
    
21. //sbit K2= P3^5;
    
22. //sbit K3= P2^4;
    
23. //sbit K4= P2^5;
    
24. uchar th0_f; //在中断中装载的T0的值高8位
    
25. uchar tl0_f; //在中断中装载的T0的值低8位
    
26. //T0的值,及输出频率对照表
    
27. uchar code freq[36*2]={
    
28. 0xA9,0xEF,//00220HZ ,1 //0
    
29. 0x93,0xF0,//00233HZ ,1#
    
30. 0x73,0xF1,//00247HZ ,2
    
31. 0x49,0xF2,//00262HZ ,2#
    
32. 0x07,0xF3,//00277HZ ,3
    
33. 0xC8,0xF3,//00294HZ ,4
    
34. 0x73,0xF4,//00311HZ ,4#
    
35. 0x1E,0xF5,//00330HZ ,5
    
36. 0xB6,0xF5,//00349HZ ,5#
    
37. 0x4C,0xF6,//00370HZ ,6
    
38. 0xD7,0xF6,//00392HZ ,6#
    
39. 0x5A,0xF7,//00415HZ ,7
    
40. 0xD8,0xF7,//00440HZ 1 //12
    
41. 0x4D,0xF8,//00466HZ 1# //13
    
42. 0xBD,0xF8,//00494HZ 2 //14
    
43. 0x24,0xF9,//00523HZ 2# //15
    
44. 0x87,0xF9,//00554HZ 3 //16
    
45. 0xE4,0xF9,//00587HZ 4 //17
    
46. 0x3D,0xFA,//00622HZ 4# //18
    
47. 0x90,0xFA,//00659HZ 5 //19
    
48. 0xDE,0xFA,//00698HZ 5# //20
    
49. 0x29,0xFB,//00740HZ 6 //21
    
50. 0x6F,0xFB,//00784HZ 6# //22
    
51. 0xB1,0xFB,//00831HZ 7 //23
    
52. 0xEF,0xFB,//00880HZ `1
    
53. 0x2A,0xFC,//00932HZ `1#
    
54. 0x62,0xFC,//00988HZ `2
    
55. 0x95,0xFC,//01046HZ `2#
    
56. 0xC7,0xFC,//01109HZ `3
    
57. 0xF6,0xFC,//01175HZ `4
    
58. 0x22,0xFD,//01244HZ `4#
    
59. 0x4B,0xFD,//01318HZ `5
    
60. 0x73,0xFD,//01397HZ `5#
    
61. 0x98,0xFD,//01480HZ `6
    
62. 0xBB,0xFD,//01568HZ `6#
    
63. 0xDC,0xFD,//01661HZ `7 //35
    
64. };
    
65. //-----------------------------------------------------------------
    
66. void delay(uint t)                 /*延时子程序*/
    
67. {while(t--);
    
68. }
    
69. /////////////////////////////////////////////////////
    
70. void keyin(void)                  //键盘扫描
    
71. {unsigned char i,j,w;
    
72.   delay(500);
    
73.   if(~XBYTE[0xf800]&0xf)
    
74.       {w=XBYTE[0xf8fe]&0x0f;
    
75.        if(~w&0x0f)
    
76.           {i=4;
    
77.            j=w;
    
78.            w=0xff;
    
79.            }
    
80.         w=XBYTE[0xf8fd]&0x0f;
    
81.         if(~w&0x0f)
    
82.            {i=3;
    
83.             j=w;
    
84.             w=0xff;
    
85.             }
    
86.         w=XBYTE[0xf8fb]&0x0f;
    
87.         if(~w&0x0f)
    
88.           {i=2;
    
89.            j=w;
    
90.            w=0xff;
    
91.           }
    
92.         w=XBYTE[0xf8f7]&0x0f;
    
93.         if(~w&0x0f)
    
94.            {i=1;
    
95.             j=w;
    
96.             w=0xff;
    
97.             }
    
98.         w=XBYTE[0xf8ef]&0x0f;
    
99.         if(~w&0x0f)
    
100.            {i=0;
     
101.             j=w;
     
102.             w=0xff;
     
103.            }
     
104.         w=~j;
     
105.         key=(w<<4)|i;
     
106.      }
     
107. while(~XBYTE[0xf800]&0xf);
     
108.   switch(key)
     
109.   {case 0x80:kc=20;break;
     
110.    case 0x40:kc=15;break;
     
111.    case 0x20:kc=0;break;
     
112.    case 0x10:kc=5;break;
     
113.    case 0x81:kc=19;break;
     
114.    case 0x41:kc=14;break;
     
115.    case 0x21:kc=9;break;
     
116.    case 0x11:kc=4;break;
     
117.    case 0x82:kc=18;break;
     
118.    case 0x42:kc=13;break;
     
119.    case 0x22:kc=8;break;
     
120.    case 0x12:kc=3;break;
     
121.    case 0x83:kc=17;break;
     
122.    case 0x43:kc=12;break;
     
123.    case 0x23:kc=7;break;
     
124.    case 0x13:kc=2;break;
     
125.    case 0x84:kc=16;break;
     
126.    case 0x44:kc=11;break;
     
127.    case 0x24:kc=6;break;
     
128.    case 0x14:kc=1;break;}
     
129. EX1=1;
     
130. }
     
131.   ////////////////////////////////////////////////////////////////////////////
     
132. void keybreak(void)  interrupt 2 using 0    //键盘中断
     
133. {
     
134.   EX1=0;
     
135.   key=0;
     
136.   keyin();}
     
137. ///////////////////////////////////////////
     
138. 
     
139. //定时中断0,用于产生唱歌频率
     
140. timer0() interrupt 1
     
141. {
     
142. TL0=tl0_f;TH0=th0_f; //调入预定时值
     
143. BEEP=~BEEP; //取反音乐输出IO
     
144. }
     
145. //按键控制音阶声音输出（电子琴）
     
146. void main(void) // 主程序
     
147. {
     
148. ulong n;
     
149. uchar code jie8[8]={12,14,16,17,19,21,23,24};//1234567`1八个音符在频率表中的位置
     
150. TMOD = 0x01; //使用定时器0的16位工作模式
     
151. TR0 = 0;
     
152. ET0 = 1;
     
153. EA = 1;
     
154. while(1)
     
155. {
     
156. switch(kc)
     
157. {
     
158. case 0:
     
159. {
     
160. tl0_f=freq[jie8[0]*2]; //置一个音符的值
     
161. th0_f=freq[jie8[0]*2+1];
     
162. TR0 = 1;
     
163. for(n=0;n<10000;n++); //延时
     
164. break;
     
165. }
     
166. case 1:
     
167. {
     
168. tl0_f=freq[jie8[1]*2]; //置一个音符的值
     
169. th0_f=freq[jie8[1]*2+1];
     
170. TR0 = 1;
     
171. for(n=0;n<10000;n++); //延时
     
172. break;
     
173. }
     
174. case 2:
     
175. {
     
176. tl0_f=freq[jie8[2]*2]; //置一个音符的值
     
177. th0_f=freq[jie8[2]*2+1];
     
178. TR0 = 1;
     
179. for(n=0;n<10000;n++); //延时
     
180. break;
     
181. }
     
182. case 3:
     
183. {
     
184. tl0_f=freq[jie8[3]*2]; //置一个音符的值
     
185. th0_f=freq[jie8[3]*2+1];
     
186. TR0 = 1;
     
187. for(n=0;n<10000;n++); //延时
     
188. break;
     
189. }
     
190. default :TR0 = 0;BEEP=0;
     
191. }
     
192. }
     
193. }
     
194. //------------------------------------------------------
     
195. 
     

复制代码

电子琴程序.rar (38.8 KB, 下载次数: 32)

2010-5-27 23:44 上传

点击文件名下载附件

声音是用蜂鸣器发出的把

谢昂学习一下考虑进来

谢谢！学习一下