找回密码
 立即注册

QQ登录

只需一步,快速开始

搜索
查看: 4130|回复: 4
收起左侧

基于51单片机的电子音乐盒Proteus仿真程序

[复制链接]
ID:445967 发表于 2020-6-27 21:42 | 显示全部楼层 |阅读模式
基于51单片机的电子音乐盒,附带电路原理图,硬件图
51hei.png 51hei.png

单片机源程序如下:
  1. #include "beep.h"
  2. #include "systick.h"
  3. void BEEP_Init(void)
  4. {
  5.         GPIO_InitTypeDef GPIO_mode;
  6.         RCC_APB2PeriphClockCmd( BEEP_PORT_RCC, ENABLE );         //使能GPIOB时钟
  7.         GPIO_mode.GPIO_Pin = BEEP_PIN;
  8.         GPIO_mode.GPIO_Speed = GPIO_Speed_50MHz;
  9.         GPIO_mode.GPIO_Mode = GPIO_Mode_Out_PP;
  10.         GPIO_Init(BEEP_PORT, &GPIO_mode);
  11. }

  12. void Sound(u16 frq)
  13. {
  14.         u32 n;
  15.         if(frq != 1000)
  16.         {
  17.                 n = 500000/((u32)frq);
  18.                 PBeep = 0;
  19.                 delay_us(n);
  20.                 PBeep = 1;
  21.                 delay_us(n);
  22.         }else
  23.                 delay_us(1000);
  24. }

  25. void play(void)
  26. {
  27.         //             低7  1   2   3   4   5   6   7  高1 高2 高3 高4 高5 不发音
  28.         uc16 tone[] = {247,262,294,330,349,392,440,294,523,587,659,698,784,1000};//音频数据表
  29.         //红尘情歌
  30.         u8 music[]={        5,5,6,8,7,6,5,6,13,13,//音调
  31.                                                                 5,5,6,8,7,6,5,3,13,13,
  32.                                                           2,2,3,5,3,5,6,3,2,1,
  33.                                                                 6,6,5,6,5,3,6,5,13,13,

  34.                                                                 5,5,6,8,7,6,5,6,13,13,
  35.                                                                 5,5,6,8,7,6,5,3,13,13,
  36.                                                           2,2,3,5,3,5,6,3,2,1,
  37.                                                                 6,6,5,6,5,3,6,1,       

  38.                                                                 13,8,9,10,10,9,8,10,9,8,6,
  39.                                                                 13,6,8,9,9,8,6,9,8,6,5,
  40.                                                                 13,2,3,5,5,3,5,5,6,8,7,6,
  41.                                                                 6,10,9,9,8,6,5,6,8
  42.         };       
  43.         u8 time[] = {        2,4,2,2,2,2,2,8,4, 4, //时间
  44.                                                                 2,4,2,2,2,2,2,8,4, 4,
  45.                                                                 2,4,2,4,2,2,4,2,2,8,
  46.                                                                 2,4,2,2,2,2,2,8,4 ,4,
  47.        
  48.                                                                 2,4,2,2,2,2,2,8,4, 4,
  49.                                                                 2,4,2,2,2,2,2,8,4, 4,
  50.                                                                 2,4,2,4,2,2,4,2,2,8,
  51.                                                                 2,4,2,2,2,2,2,8,
  52.        
  53.                                                                 4, 2,2,2, 4, 2,2,2, 2,2,8,
  54.                                                                 4, 2,2,2,4,2,2,2,2,2,8,
  55.                                                                 4, 2,2,2,4,2,2,5,2,6,2,4,
  56.                                                                 2,2 ,2,4,2,4,2,2,12
  57.         };       
  58.         u32 yanshi;
  59.         u16 i,e;
  60.         yanshi = 10;
  61.         for(i=0;i<sizeof(music)/sizeof(music[0]);i++){
  62.                 for(e=0;e<((u16)time[i])*tone[music[i]]/yanshi;e++){
  63.                         Sound((u32)tone[music[i]]);
  64.                 }       
  65.         }
  66. }
复制代码

所有资料51hei提供下载:
音乐盒.7z (2.01 MB, 下载次数: 76)
回复

使用道具 举报

ID:1023685 发表于 2022-5-4 09:55 | 显示全部楼层
这个代码啥意思 啊
回复

使用道具 举报

ID:228452 发表于 2022-5-8 17:16 | 显示全部楼层

"What does this code mean"

play red dust love song...
回复

使用道具 举报

ID:1040819 发表于 2023-7-6 17:47 来自手机 | 显示全部楼层
这代码一部分32一部分51
回复

使用道具 举报

ID:1083556 发表于 2023-7-23 12:11 | 显示全部楼层
非常感谢,很需要这方面的资料,,,,
回复

使用道具 举报

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

本版积分规则

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

Powered by 单片机教程网

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