stc12單片機制作的隨著音樂聲音大小變化節奏的噴泉程序

ID:702185 · 發表于 2020-3-4 11:08

利用stc12制作的隨著音樂聲音大小變化節奏的噴泉

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

單片機源程序如下:

#include"reg51.h"
#include"intrins.h"
#define FOSC 18432000L
#define BAUD 9600
typedef unsigned char uchar;
typedef unsigned int uint;
/* ****************************
聲明與ADC有關的寄存器
ADC 控制寄存器 ADC_CONTR
AD轉換結果寄存器 ADC_RES，
P1口模擬功能控制寄存器 P1ASF
*****************************/
sfr ADC_CONTR =0xBC; //1010 1011 P1.3作為AD輸入
sfr ADC_RES =0xBD; //ADC高8位寄存器
sfr ADC_LOW2 =0xBE; //ADC低2位寄存器
sfr P1ASF =0x9D; //1001 1101
sbit MUTE=P3^0;
sbit PWM=P0^0;
/*定義ADC控制的ADC操作常數*/
#define ADC_POWER 0x80 //ADC電源控制位B7 1：打開電源 0：關閉電源
#define ADC_FLAG 0x10 //ADC轉換結束標志位B4，AD轉換完成=1，要用軟件清0
#define ADC_START 0x08 //ADC啟動控制位B3，1：開始轉換轉換結束為0
#define ADC_SPEEDLL 0x00
#define ADC_SPEEDL 0x20
#define ADC_SPEEDH 0x40
#define ADC_SPEEDHH 0x60
void InitUart();
void InitADC();
void SendData(uchar dat);
uchar GetADCResult(uchar ch);
void Delay(uint n);
void ShowResult(uchar ch);
/****************
AD轉換
****************/
uchar GetADCResult(uchar ch)
{
ADC_CONTR=ADC_POWER|ADC_SPEEDLL|ch|ADC_START; //啟動轉換
_nop_();
_nop_();
_nop_(); //等待轉換完成
_nop_();
while(!(ADC_CONTR&ADC_FLAG)); //等待轉換完成
ADC_CONTR&=~ADC_FLAG; //關閉ADC
return ADC_RES; //返回AD轉換結果
}
/***************
串口初始化
***************/
void InitUart()
{
SCON=0X5a; //設置為工作方式1
TMOD=0X20; //設置計數器工作方式2，8位自動重裝
TH1=TL1=-(FOSC/12/32/BAUD); //計數器初始值設置，注意波特率是9600的
TR1=1; //打開計數器
}
/***************
ADC初始化
****************/
void InitADC()
{
P1ASF=0xff; //開啟8路ADC
ADC_RES=0; //清除以前的結果
ADC_CONTR=ADC_POWER|ADC_SPEEDLL;
Delay(2); //開啟ADC電源和延時
}
/**********************
發送一個字節到電腦
***********************/
void SendData(uchar dat)
{
while(!TI); //等待數據發送完成
TI=0; //清除標志
SBUF= dat ; //發送數據
}
/**************
軟件延時=
***********----------------------------------------------------------------****/
void Delay(uint n)
{
uint x;
while(n--)
{
x=5000;
while(x--);
}
}
void delay_50(uint n)
{
uint x;
while(n--)
{
x=50;
while(x--);
}
}
void main()
{
uint date,h1;
InitUart(); //串口初始化
InitADC(); //ADC初始化
ADC_CONTR |=0x80; //開啟ADC電源
while(1)
{
if(MUTE)
{
P2=0x00;
P0=0x00;
continue;
}
//SendData(3); //發送轉換通道
// SendData( GetADCResult(3)); //發送ADC高8位結果到串口
if(GetADCResult(3)>0x12&&GetADCResult(3)<0x14)
P2=11*GetADCResult(3) ;
else
P2=GetADCResult(3);
date=GetADCResult(3)+40;ev
h1=0xff-date;
PWM=0;
delay_50(date);
PWM=1;
delay_50(h1);
}
}