欧美极品高清xxxxhd,国产日产欧美最新,无码AV国产东京热AV无码,国产精品人与动性XXX,国产传媒亚洲综合一区二区,四库影院永久国产精品,毛片免费免费高清视频,福利所导航夜趣136

標題: 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.raoushi.com/bbs/) Powered by Discuz! X3.1