51单片机音乐播放系统的proteus仿真电路及C语言程序设计

[复制链接]
查看1 | 回复0 | 2021-4-21 23:10:17 | 显示全部楼层 |阅读模式
仿真原理图如下(proteus仿真工程文件和完整单片机C语言源码可到本帖附件中下载)
1.png
部分51单片机源码:
  1. #define uchar unsigned char //定义一下方便使用
  2. #define uint  unsigned int
  3. #define ulong unsigned long
  4. #include <reg52.h>     //包括一个 52 标准内核的头文件



  5. sbit    BEEP=P1^7; //喇叭输出脚
  6. sbit  P10=P1^0;
  7. sbit K1= P3^2;      
  8. sbit K2= P3^5;  


  9. uchar th0_f; //在中断中装载的 T0 的值高 8 位
  10. uchar tl0_f; //在中断中装载的 T0 的值低 8 位

  11. //T0 的值,及输出频率对照表
  12. uchar code freq[36*2]={
  13. 0xA9,0xEF,//00220HZ ,1  //0
  14. 0x93,0xF0,//00233HZ ,1#
  15. 0x73,0xF1,//00247HZ ,2  
  16. 0x49,0xF2,//00262HZ ,2#
  17. 0x07,0xF3,//00277HZ ,3
  18. 0xC8,0xF3,//00294HZ ,4
  19. 0x73,0xF4,//00311HZ ,4#
  20. 0x1E,0xF5,//00330HZ ,5  
  21. 0xB6,0xF5,//00349HZ ,5#
  22. 0x4C,0xF6,//00370HZ ,6
  23. 0xD7,0xF6,//00392HZ ,6#
  24.   0x5A,0xF7,//00415HZ ,7     
  25.   0xD8,0xF7,//00440HZ 1     //12
  26.   0x4D,0xF8,//00466HZ 1#    //13
  27.   0xBD,0xF8,//00494HZ 2     //14
  28.   0x24,0xF9,//00523HZ 2#    //15
  29.   0x87,0xF9,//00554HZ 3     //16
  30.   0xE4,0xF9,//00587HZ 4     //17
  31.   0x3D,0xFA,//00622HZ 4#    //18   0x90,0xFA,//00659HZ 5     //19
  32.   0xDE,0xFA,//00698HZ 5#    //20
  33.   0x29,0xFB,//00740HZ 6     //21
  34.   0x6F,0xFB,//00784HZ 6#    //22
  35.   0xB1,0xFB,//00831HZ 7     //23
  36. 0xEF,0xFB,//00880HZ `1
  37. 0x2A,0xFC,//00932HZ `1#
  38. 0x62,0xFC,//00988HZ `2
  39. 0x95,0xFC,//01046HZ `2#
  40. 0xC7,0xFC,//01109HZ `3
  41. 0xF6,0xFC,//01175HZ `4
  42.   0x22,0xFD,//01244HZ  `4#
  43. 0x4B,0xFD,//01318HZ `5
  44. 0x73,0xFD,//01397HZ `5#
  45. 0x98,0xFD,//01480HZ `6
  46. 0xBB,0xFD,//01568HZ `6#
  47.   0xDC,0xFD,//01661HZ `7     //35
  48. };

  49. //定时中断 0,用于产生唱歌频率
  50. timer0() interrupt 1   
  51. {
  52.     TL0=tl0_f;TH0=th0_f;  //调入预定时值
  53.     BEEP=~BEEP;           //取反音乐输出 IO
  54. }

  55. //******************************
  56. //音乐符号串解释函数
  57. //入口:要解释的音乐符号串,输出的音调串,输出的时长串
  58. changedata(uchar *song,uchar *diao,uchar *jie)
  59. {
  60.     uchar i,i1,j;
  61.     char gaodi; //高低+/-12 音阶
  62.     uchar banyin;//有没有半个升音阶
  63.     uchar yinchang;//音长
  64.     uchar code jie7[8]={0,12,14,16,17,19,21,23}; //C 调的 7 个值

  65.     *diao=*song;
  66.     for(i=0,i1=0;;)
  67.     {
  68.         gaodi=0; //高低=0
  69.         banyin=0;//半音=0
  70.         yinchang=4;//音长 1 拍
  71.         if((*(song+i)=='|') || (*(song+i)==' ')) i++;    //拍子间隔和一个空格过滤

  72.         switch(*(song+i))  
  73.         {     
  74.             case ',': gaodi=-12;i++;//低音
  75.             break;

  76.             case '`': gaodi=12;i++; //高音
  77.             break;
  78.         }

  79.         if(*(song+i)==0)  //遇到 0 结束
  80.         {
  81.             *(diao+i1)=0; //加入结束标志 0
  82.             *(jie+i1)=0;
  83.             return;
  84.         }

  85.         j=*(song+i)-0x30; i++; //取出基准音
  86.         j=jie7[j]+gaodi; //加上高低音


  87. yinc:   switch(*(song+i))  
  88.         {     
  89.             case '#': //有半音 j 加一个音阶  
  90.                 i++;j++;
  91.     goto yinc;  


  92.             case '-': //有一个音节加长
  93.                 yinchang+=4;
  94.                 i++;  
  95.                 goto yinc;

  96.             case '_': //有一个音节缩短
  97.                 yinchang/=2;
  98.                 i++;  
  99.     goto yinc;


  100.             case '.': //有一个加半拍
  101.                 yinchang=yinchang+yinchang/2;
  102.     i++;
  103.     goto yinc;              
  104.         }

  105.         *(diao+i1)=j; //记录音符
  106.         *(jie+i1)=yinchang; //记录音长
  107.         i1++;     
  108.     }
  109. }
  110. (完整程序源码请下载附件查看)
复制代码

音乐播放系统的proteus仿真电路及C语言代码.rar (67.1 KB, 售价: 10 工控币)
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则