标题: stc12单片机制作的随着音乐声音大小变化节奏的喷泉程序 [打印本页]
作者: linghui    时间: 2020-3-4 11:08
标题: stc12单片机制作的随着音乐声音大小变化节奏的喷泉程序
利用stc12制作的随着音乐声音大小变化节奏的喷泉

仿真原理图如下（proteus仿真工程文件可到本帖附件中下载）

单片机源程序如下:
  1. #include"reg51.h"
  2. #include"intrins.h"
  3. #define FOSC 18432000L
  4. #define BAUD 9600
  5. typedef unsigned char uchar;
  6. typedef unsigned int  uint;

  8. /* ****************************   
  9. 声明与ADC有关的寄存器

  11. ADC 控制寄存器   ADC_CONTR
  12. AD转换结果寄存器 ADC_RES，
  13. P1口模拟功能控制寄存器 P1ASF

  15. *****************************/

  17. sfr ADC_CONTR =0xBC;        //1010 1011   P1.3作为AD输入
  18. sfr ADC_RES          =0xBD;         //ADC高8位寄存器
  19. sfr ADC_LOW2  =0xBE;  //ADC低2位寄存器
  20. sfr        P1ASF     =0x9D;  //1001 1101
  21. sbit MUTE=P3^0;
  22. sbit PWM=P0^0;



  26. /*定义ADC控制的ADC操作常数*/
  27. #define ADC_POWER   0x80         //ADC电源控制位B7 1：打开电源 0：关闭电源
  28. #define ADC_FLAG    0x10        //ADC转换结束标志位B4，AD转换完成=1，要用软件清0
  29. #define ADC_START   0x08  //ADC启动控制位B3，1：开始转换 转换结束为0
  30. #define ADC_SPEEDLL   0x00
  31. #define ADC_SPEEDL   0x20
  32. #define ADC_SPEEDH   0x40
  33. #define ADC_SPEEDHH   0x60

  35. void InitUart();
  36. void InitADC();
  37. void SendData(uchar dat);
  38. uchar GetADCResult(uchar ch);
  39. void Delay(uint n);
  40. void ShowResult(uchar ch);

  42. /****************
  43.   AD转换
  44. ****************/
  45. uchar GetADCResult(uchar ch)   
  46. {
  47.    ADC_CONTR=ADC_POWER|ADC_SPEEDLL|ch|ADC_START;  //启动转换
  48.    _nop_();        
  49.    _nop_();
  50.    _nop_();         //等待转换完成
  51.    _nop_();
  52.    while(!(ADC_CONTR&ADC_FLAG)); //等待转换完成
  53.    ADC_CONTR&=~ADC_FLAG;        //关闭ADC
  54.    return ADC_RES;          //返回AD转换结果
  55. }

  57. /***************
  58.   串口初始化
  59. ***************/
  60. void InitUart()
  61. {
  62.    SCON=0X5a;                        //设置为工作方式1
  63.         TMOD=0X20;                        //设置计数器工作方式2，8位自动重装                        
  64.         TH1=TL1=-(FOSC/12/32/BAUD);         //计数器初始值设置，注意波特率是9600的
  65.         TR1=1;                                        //打开计数器
  66. }

  68. /***************
  69.    ADC初始化
  70. ****************/
  71. void InitADC()
  72. {
  73.    P1ASF=0xff;           //开启8路ADC
  74.    ADC_RES=0;           //清除以前的结果
  75.    ADC_CONTR=ADC_POWER|ADC_SPEEDLL;
  76.    Delay(2);     //开启ADC电源和延时
  77. }


  80. /**********************
  81. 发送一个字节到电脑
  82. ***********************/
  83. void SendData(uchar dat)
  84. {
  85.    while(!TI);  //等待数据发送完成
  86.    TI=0;   //清除标志
  87.    SBUF= dat ;        //发送数据
  88. }

  90. /**************
  91.   软件延时=
  92. ***********----------------------------------------------------------------****/
  93. void Delay(uint n)         
  94. {
  95.    uint x;
  96.    while(n--)
  97.    {                        
  98.       x=5000;
  99.       while(x--);
  100.    }
  101. }

  103. void delay_50(uint n)         
  104. {
  105.    uint x;
  106.    while(n--)
  107.    {                        
  108.       x=50;
  109.       while(x--);
  110.    }
  111. }        

  113. void main()
  114. {
  115.    uint date,h1;
  116.    InitUart();    //串口初始化
  117.    InitADC();     //ADC初始化
  118.    ADC_CONTR |=0x80;  //开启ADC电源

  120.    while(1)
  121.    {     
  122.           if(MUTE)
  123.           {
  124.             P2=0x00;
  125.                   P0=0x00;               
  126.                   continue;
  127.           }         
  128.       //SendData(3);          //发送转换通道
  129.     // SendData( GetADCResult(3));        //发送ADC高8位结果到串口        
  130.          if(GetADCResult(3)>0x12&&GetADCResult(3)<0x14)
  131.             P2=11*GetADCResult(3) ;           
  132.           else                                      
  133.                   P2=GetADCResult(3);
  134.                 date=GetADCResult(3)+40;ev
  135.           h1=0xff-date;
  136.           PWM=0;
  137.                 delay_50(date);
  138.           PWM=1;
  139.                 delay_50(h1);  
  140.         }         
  141. }         
复制代码

所有资料51hei提供下载:
proteus仿真.zip (83.94 KB, 下载次数: 25)
AD转换_stc12.7z (23.91 KB, 下载次数: 23)


作者: admin    时间: 2020-3-6 13:36
本帖需要重新编辑补全电路原理图,源码,详细说明与图片即可获得100+黑币(帖子下方有编辑按钮)
作者: murenxin0911    时间: 2020-3-7 13:40
看着像那么回事啊，像样的，希望能哦哟哟！
作者: linghui    时间: 2020-3-10 12:26
admin 发表于 2020-3-6 13:36
本帖需要重新编辑补全电路原理图,源码,详细说明与图片即可获得100+黑币(帖子下方有编辑按钮)

您好，请问编辑按钮在哪儿呢



欢迎光临 (http://www.51hei.com/bbs/) Powered by Discuz! X3.1