设为首页收藏本站

 找回密码
 注册会员
搜索附件  
MCU资讯论坛 › 附件中心 › 单片机论坛 › 51单片机论坛 › 电子琴程序.rar

板块导航

热门下载

附件中心&附件聚合2.0
For Discuz! X2.5 © hgcad.com

电子琴程序.rar

 

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

  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. ///////////////////////////////////////////

  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. //------------------------------------------------------

复制代码

声音是用蜂鸣器发出的把
谢昂学习一下考虑进来

QQ|手机版|MCU资讯论坛 ( 京ICP备18035221号-2 )|网站地图

GMT+8, 2024-11-23 11:02 , Processed in 0.037513 second(s), 8 queries , Redis On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

返回顶部