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;
   
7. 
   
8. /* ****************************   
   
9. 声明与ADC有关的寄存器
   
10. 
    
11. ADC 控制寄存器   ADC_CONTR
    
12. AD转换结果寄存器 ADC_RES，
    
13. P1口模拟功能控制寄存器 P1ASF
    
14. 
    
15. *****************************/
    
16. 
    
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;
    
23. 
    
24. 
    
25. 
    
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
    
34. 
    
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);
    
41. 
    
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. }
    
56. 
    
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. }
    
67. 
    
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. }
    
78. 
    
79. 
    
80. /**********************
    
81. 发送一个字节到电脑
    
82. ***********************/
    
83. void SendData(uchar dat)
    
84. {
    
85.    while(!TI);  //等待数据发送完成
    
86.    TI=0;   //清除标志
    
87.    SBUF= dat ;        //发送数据
    
88. }
    
89. 
    
90. /**************
    
91.   软件延时=
    
92. ***********----------------------------------------------------------------****/
    
93. void Delay(uint n)         
    
94. {
    
95.    uint x;
    
96.    while(n--)
    
97.    {                        
    
98.       x=5000;
    
99.       while(x--);
    
100.    }
     
101. }
     
102. 
     
103. void delay_50(uint n)         
     
104. {
     
105.    uint x;
     
106.    while(n--)
     
107.    {                        
     
108.       x=50;
     
109.       while(x--);
     
110.    }
     
111. }        
     
112. 
     
113. void main()
     
114. {
     
115.    uint date,h1;
     
116.    InitUart();    //串口初始化
     
117.    InitADC();     //ADC初始化
     
118.    ADC_CONTR |=0x80;  //开启ADC电源
     
119. 
     
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)

2020-3-10 12:27 上传

点击文件名下载附件
AD转换_stc12.7z (23.91 KB, 下载次数: 23)

2020-3-6 13:36 上传

点击文件名下载附件

本帖需要重新编辑补全电路原理图,源码,详细说明与图片即可获得100+黑币(帖子下方有编辑按钮)

看着像那么回事啊，像样的，希望能哦哟哟！

admin 发表于 2020-3-6 13:36
本帖需要重新编辑补全电路原理图,源码,详细说明与图片即可获得100+黑币(帖子下方有编辑按钮)

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