[问答]

教大家做音乐盒！

问答对人有帮助，内容完整，我也想知道答案 0 小时候我们都有听过那些音乐卡片的歌吧，现在要是听起来还是一样的熟悉，好听。这几天来了个朋友，就想着人家大老远过来，想给她个礼物。那就音乐盒吧，做起来也简单啊。想好后开始动手，手头上只有stm8L的单片机小板，网上又没有比较合适的例程可以参考，找啊找啊，找了挺久的，复制，粘贴出来的发音始终有问题。还是自己从头原理慢慢弄通吧。我们现在只要知道音调，跟时长（节拍）就行。对于音调我在网上找到了相应的频率表，也就是每个音调对应的频率。超高音的几个掉我们就不用了，就只要低中高这三个调就好了。写程序的第一步：我们利用stm8的PWM 分别发出以上相应的频率 262hz，294hz，330hz。。。。。这样音调我们就有了，如果你手上只有其他单片机也可是试试，做一个相应音调的频率数字就行了。 stm8 在2m主频下运行，对应的频率表 const u16 FREQH[]={ 3823,3404,3034,2865,2551,2271,2024, 1912,1702,1517,1433,1276,1137,1012, 956,851,759,717,638,569,506 };(这频率还是有些偏差，发音不太对) /** PWM 初始化 * @brief Configure tiM2 peripheral * @param None * @retval None / static void TIM3_Config(void) { / Enable TIM2 clock / CLK_PeripheralClockConfig(CLK_Peripheral_TIM3, ENABLE); / Config TIM2 Channel 1 and channel 2 pins / GPIO_Init(GPIOD, GPIO_Pin_0 , GPIO_Mode_Out_PP_High_Fast); / Time base configuration / TIM3_TimeBaseInit(TIM3_Prescaler_2, TIM3_CounterMode_Up, 65000); / PWM1 Mode configuration: Channel1 / TIM3_OC2Init(TIM3_OCMode_PWM1, TIM3_OutputState_Enable, CCR1_Val, TIM3_OCPolarity_High, TIM3_OCIdleState_Set); TIM3_OC2PreloadConfig(ENABLE); / PWM1 Mode configuration: Channel2 / / TIM3_OC2Init(TIM2_OCMode_PWM1, TIM2_OutputState_Enable,CCR2_Val, TIM2_OCPolarity_High, TIM3_OCIdleState_Set); TIM2_OC2PreloadConfig(ENABLE);/ TIM3_ARRPreloadConfig(ENABLE); / Enable TIM2 outputs / TIM3_CtrlPWMOutputs(ENABLE); / TIM2 enable counter / TIM3_Cmd(ENABLE); } void delay_ms(u16 ms) { u16 i; while(ms--) { for(i=0;i<380;i++); } } const u8 LengthTab[7]= { 1,2,4,8,16,32,64 }; #define SOUND_SPACE 4/5 //************************************************************************* void Play(unsigned char Sound,unsigned char Signature,unsigned Octachord,unsigned int Speed) { unsigned int NewFreTab[12]; unsigned char i,j; unsigned int Point,LDiv,LDiv0,LDiv1,LDiv2,LDiv4,CurrentFre,Temp_T,SoundLength; unsigned char Tone,Length,SL,SH,SM,SLen,XG,FD; SoundLength = 0; while(Sound[SoundLength] != 0x00) { SoundLength+=2; } Point = 0; //---------获取歌曲数组中的数据 Tone = Sound[Point]; Length = Sound[Point+1]; // 读出第一个音符和它时时值 LDiv0 = 12000/Speed; // 算出1分音符的长度(几个10ms) LDiv4 = LDiv0/4; // 算出4分音符的长度 LDiv4 = LDiv4-LDiv4SOUND_SPACE; while(Point < SoundLength) { if(Sound[Point]<=17) { CurrentFre=Sound[Point]-11;//查出对应音符的频率低音 } else if(Sound[Point]>20&&Sound[Point]<=27) { CurrentFre=Sound[Point]-14;////查出对应音符的频率中音 } else if(Sound[Point]<=37&&Sound[Point]>30) { CurrentFre=Sound[Point]-17;////查出对应音符的频率高音 } SL=Tone%10; // 普通音最长间隔标准 SM=Tone/10%10; //计算出高低音 SH=Tone/100; //计算出是否升半 if(SL!=0) { TIM3->CR1 &= (uint8_t)(~TIM_CR1_CEN);//disable tim3 TIM3->ARRH=FREQH[CurrentFre]/256;//修改对应音调的频率 TIM3->ARRL=FREQH[CurrentFre]%256; PWM=FREQH[CurrentFre]/8; TIM3->CCR2H=PWM/256; //PWM占空比为%12.5 TIM3->CCR2L=PWM%256; TIM3->CR1 \|= TIM_CR1_CEN; //enable tim3 } SLen=LengthTab[Length%10]; //算出音符类型(0普通1连音2顿音) XG=Length/10%10; FD=Length/100; LDiv=LDiv0/SLen; //算出连音音符演奏的长度(多少个10ms) if (FD==1) LDiv=LDiv+LDiv/2; if(XG!=1) if(XG==0) //算出普通音符的演奏长度 if (SLen<=4) LDiv1=LDiv-LDiv4; else LDiv1=LDivSOUND_SPACE; else LDiv1=LDiv/2; //算出顿音的演奏长度 else LDiv1=LDiv; if(SL==0) LDiv1=0; LDiv2=LDiv-LDiv1; //算出不发音的长度 if (SL!=0) { delay_ms(LDiv110); } if(LDiv2!=0) { delay_ms(LDiv2*10); } Point+=2; Tone=Sound[Point]; Length=Sound[Point+1]; GPIO_ToggleBits(GPIOB, GPIO_Pin_4); } } （转载） 2 已退回1积分
2015-9-10 10:34:00　　评论淘帖0 邀请回答您可以邀请以下用户，快速回答问题 × richthoffen 该类别下有 182 个回答。邀请回答 7vyydyfwef 该类别下有 57 个回答。邀请回答我是卖报的小男孩该类别下有 32 个回答，其中被选为最佳答案 1 次。邀请回答 chenbingjy 该类别下有 31 个回答。邀请回答谦谦三君子该类别下有 27 个回答。邀请回答短短该类别下有 25 个回答。邀请回答 nvuuweew 该类别下有 22 个回答。邀请回答 YY599566 该类别下有 22 个回答。邀请回答 dingyang598 该类别下有 22 个回答，其中被选为最佳答案 1 次。邀请回答 hapyy 该类别下有 19 个回答。邀请回答 h1654155957.9572 该类别下有 19 个回答。邀请回答 60user16 该类别下有 19 个回答。邀请回答 HEHELA 该类别下有 18 个回答。邀请回答 DerSohn 该类别下有 18 个回答。邀请回答 huhu12 该类别下有 18 个回答。邀请回答 dull20112011 该类别下有 15 个回答。邀请回答陈军该类别下有 15 个回答。邀请回答 csz9981 该类别下有 15 个回答。邀请回答天地直方该类别下有 15 个回答。邀请回答罕井雅直该类别下有 14 个回答。邀请回答举报 shawon 相关推荐 • 请问wifi音乐盒用的是dlna的dmp吗，有源代码吗？ 2031 • 请问为什么把电机变成音乐盒是有用的呢？ 917 • 音乐盒的歌的远代码是怎么编出来的？？、 3288 • 请问怎样去设计一种基于51单片机的数字音乐盒 1496 • 简易音乐盒功能没有完全实现 3564 • 如何使用C51单片机制作一个音乐盒？ 1311 • 想亲手做一个DIY，LED显示音乐频谱音乐盒送给女朋友 7555 • 求助 1989 • sd可以实现六个面对应六个不同文件夹sd音乐吗？ 998 • 请问有PSOC 1合成的衰减声音例子吗？ 1335 6个回答