设为首页收藏本站
开启辅助访问 切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

热门： 51单片机 | 24小时必答区 | 单片机教程 | 单片机DIY制作 | STM32 | Cortex M3 | 模数电子 | 电子DIY制作 | 音响/功放 | 拆机乐园 | Arduino | 嵌入式OS | 程序设计

搜索
»论坛 › 电子技术分类讨论区 › 资料共享 › 51单片机电子音乐盒设计
返回列表 发新帖
查看: 1489|回复: 0
打印 上一主题 下一主题
收起左侧

51单片机电子音乐盒设计

[复制链接]
跳转到指定楼层
楼主
ID:782469 发表于 2020-11-30 10:16 | 显示全部楼层 回帖奖励 |倒序浏览 |阅读模式
  1. void Play(unsigned char *Sound,unsigned char Signature,unsigned Octachord,unsigned int Speed)
  2. {
  3.         unsigned int NewFreTab[12];                //新的频率表
  4.         unsigned char i,j;
  5.         unsigned int Point,LDiv,LDiv0,LDiv1,LDiv2,LDiv4,CurrentFre,Temp_T,SoundLength;
  6.         unsigned char Tone,Length,SL,SH,SM,SLen,XG,FD;
  7.         for(i=0;i<12;i++)                                 // 根据调号及升降八度来生成新的频率表
  8.         {
  9.                 j = i + Signature;
  10.                 if(j > 11)
  11.                 {
  12.                         j = j-12;
  13.                         NewFreTab[i] = FreTab[j]*2;
  14.                 }
  15.                 else
  16.                         NewFreTab[i] = FreTab[j];

  18.                 if(Octachord == 1)
  19.                         NewFreTab[i]>>=2;
  20.                 else if(Octachord == 3)
  21.                         NewFreTab[i]<<=2;
  22.         }                                                                       
  23.        
  24.         SoundLength = 0;
  25.         while(Sound[SoundLength] != 0x00)        //计算歌曲长度
  26.         {
  27.                 SoundLength+=2;
  28.         }

  30.         Point = 0;
  31.         Tone   = Sound[Point];       
  32.         Length = Sound[Point+1];                         // 读出第一个音符和它时时值
  33.        
  34.         LDiv0 = 12000/Speed;                                // 算出1分音符的长度(几个10ms)        
  35.         LDiv4 = LDiv0/4;                                                 // 算出4分音符的长度
  36.         LDiv4 = LDiv4-LDiv4*SOUND_SPACE;         // 普通音最长间隔标准
  37.         TR0          = 0;
  38.         TR1   = 1;
  39.         while(Point < SoundLength&&K1==1)                //歌曲代码未放完且暂停键未被按下
  40.         {
  41.                 SL=Tone%10;                                                                 //计算出音符
  42.                 SM=Tone/10%10;                                                                 //计算出高低音
  43.                 SH=Tone/100;                                                                 //计算出是否升半
  44.                 CurrentFre = NewFreTab[SignTab[SL-1]+SH];                 //查出对应音符的频率        
  45.                 if(SL!=0)
  46.                 {
  47.                         if (SM==1) CurrentFre >>= 2;                                 //低音
  48.                         if (SM==3) CurrentFre <<= 2;                                 //高音
  49.                         Temp_T = 65536-(50000/CurrentFre)*10/(12000000/SYSTEM_OSC);//计算计数器初值
  50.                         Sound_Temp_TH0 = Temp_T/256;
  51.                         Sound_Temp_TL0 = Temp_T%256;
  52.                         TH0 = Sound_Temp_TH0;  
  53.                         TL0 = Sound_Temp_TL0 + 12; //加12是对中断延时的补偿
  54.                 }
  55.                 SLen=LengthTab[Length%10];                 //算出是几分音符
  56.                 XG=Length/10%10;                                 //算出音符类型(0普通1连音2顿音)
  57.                 FD=Length/100;
  58.                 LDiv=LDiv0/SLen;                                 //算出连音音符演奏的长度(多少个10ms)
  59.                 if (FD==1)
  60.                         LDiv=LDiv+LDiv/2;
  61.                 if(XG!=1)       
  62.                         if(XG==0)                                         //算出普通音符的演奏长度
  63.                                 if (SLen<=4)       
  64.                                         LDiv1=LDiv-LDiv4;
  65.                                 else
  66.                                         LDiv1=LDiv*SOUND_SPACE;
  67.                         else
  68.                                 LDiv1=LDiv/2;                         //算出顿音的演奏长度
  69.                 else
  70.                         LDiv1=LDiv;
  71.                 if(SL==0) LDiv1=0;
  72.                         LDiv2=LDiv-LDiv1;                         //算出不发音的长度
  73.                   if (SL!=0)
  74.                 {
  75.                         TR0=1;
  76.                         for(i=LDiv1;i>0;i--)                         //发规定长度的音
  77.                         {
  78.                                 while(TF1==0);
  79.                                 TH1 = Sound_Temp_TH1;
  80.                                 TL1 = Sound_Temp_TL1;
  81.                                 TF1=0;
  82.                         }
  83.                 }
  84.                 if(LDiv2!=0)
  85.                 {
  86.                         TR0=0; BeepIO=0;
  87.                         for(i=LDiv2;i>0;i--)                         //音符间的间隔
  88.                         {
  89.                                 while(TF1==0);
  90.                                 TH1 = Sound_Temp_TH1;
  91.                                 TL1 = Sound_Temp_TL1;
  92.                                 TF1=0;
  93.                         }
  94.                 }
  95.                 Point+=2;
  96.                 Tone=Sound[Point];
  97.                 Length=Sound[Point+1];
  98.         }
  99.         BeepIO = 0;
  100. }
复制代码


基于51单片机的电子音乐盒设计.doc

1.6 MB, 下载次数: 17, 下载积分: 黑币 -5

分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享淘帖 顶顶 踩踩
回复

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

手机版|小黑屋|51黑电子论坛 |51黑电子论坛6群 QQ 管理员QQ:125739409;技术交流QQ群281945664

Powered by 单片机教程网

快速回复 返回顶部 返回列表