发个音乐频谱的单片机程序代码，带原理图和pcb AD画的

ID:161433 · 发表于 2017-1-12 11:45

音乐频谱写的不是很好，请不要喷，多给建议呵呵

主程序：

#include "src\STC12C5A.h"
#include <intrins.h> //51基本运算（包括_nop_空函数）
#include <math.h>
#include "src\Define.h"
///////全局变量///////
uchar data DelayTime=9; //<=8效果最好；
uchar data INTTime=0x40; //0x40;
uchar data gain=6;
uchar data Menu=2;
uchar idata refreshflag[40];
uchar data LEDBuf[35]; //15列；从左到右；亮的位为真（1）；
uint32 data TouchKey=0;
uchar data CBeep=0;
//////////////////////
void Delays(uint t)
{
uint j;
while(--t)
for(j=0;j<5;j++);
}
void Delaysms(uint t)
{
uint j;
while(--t)
for(j=0;j<15;j++);
}
#include "src\ADC.c"
#include "src\Font.c"
#include "src\fft.h"
void PWM_init (void) //PWM初始化函数 //PWM模式，接P1.3接口（PWM0）,强上拉.
{
CMOD=0x00; //设置PCA定时器 0x00～0x03；
CL=0xEF;
CH=0xEF;
CCAPM0=0x42; //PWM0设置PCA工作方式为PWM方式（0100 0010）
CCAP0L=0xEF; //设置PWM0初始值与CCAP0H相同
CCAP0H=0xFF; // PWM0初始时为0
CR=1; //启动PCA定时器
}
void PWM0_set (uchar set) //PWM0占空比设置函数 (0x00~0xFF)
{
CCAP0L= set; //设置值写入CCAP0L
CCAP0H= set; //设置值写入CCAP0H
}
void IOINIT(void) //I/O强上拉模式；
{
P4SW = 0xff; //启动I/O：P4；
P4M1 = B(00000000); P4M0 = B(10000000);P47=0;//震动马达；
P0M1 = 0x00; P0M0 = 0xff; P0=0; //点阵列（Y）（L:OFF； H，H+:ON,ON+;）
P1M1 = B(01000011); P1M0 = B(00110100);P1=B(10110111); //(P17@（高阻，IN）&P16@（高阻，IN）；TouchKey) ... P14@(传统IO,Beep，IN) P13@(强推，OUT)呼吸灯 ... P11@(高阻，IN)AD2;P10@(高阻，IN)AD1;
P2M1 = B(00000000); P2M0 = B(11111111);P2=0; //点阵行（X0（Left））（L:OFF； H，H+:ON,ON+;）
P3M1 = B(00000000); P3M0 = B(11111111);P3=0; //点阵行（X1（Right））（L:OFF； H，H+:ON,ON+;）
P1ASF =B(00000011); //将P10,P11的IO设置为模拟输入功能；
// Y(P0)
// ↑
//H |
// |
// |
//L |
// ---------------------→
// [L:X0(P2):H][L:X1(P3):H]
//TestCode:
// P0=B(10000000);
// P2=B(00000001);
// P3=B(00010000);
}
void BufToLED_Refresh() //Refresh&Write Buf to LED ;
{
uchar data i;
uchar data X=1;
uchar data Y=1;
for(X=1,i=2;X;X<<=1,i+=2) //for(X=1;X!=0;X<<=1) //8bit
{
P2=X;
for(Y=1;Y!=0;Y<<=1) //Y=Y<<1;
{
P0=Y&LEDBuf[i];
Delays(DelayTime);
P0=0;
}
P2=0;
};
for(X=1;X<B(10000000);X<<=1,i+=2) //7bit
{
P3=X;
for(Y=1;Y!=0;Y<<=1) //Y=Y<<1;
{
P0=Y&LEDBuf[i];
Delays(DelayTime);
P0=0;
}
P3=0;
};
}
void LEDRefresh_INT() interrupt 3 //using 3
{
static uint x=0;
static uchar flag=1;
TL1 = 0x00;
TH1 = INTTime; //0x50~0x80
if(flag)
{
if(++x==0xFF) //MINOUTPUT
{
flag=0;
}
}
else
{
if(--x==0xCF) //MAXOUTPUT
{
flag=1;
}
}
PWM0_set(x); //设置PWM占空比
BufToLED_Refresh();
}
void Timer_INT()
{
TMOD = 0x11; //高4位控制T/C1
EA = 1; //开总中断
TH1 = 0x00; //16位计数寄存器T1高8位
TL1 = 0x00; //16位计数寄存器T1低8位
ET1 = 1; //T/C1中断开
TR1 = 1; //T/C1启动
}
void FullScan()
{
uchar data X=1;
uchar data Y=1;
for(Y=1;Y!=0;Y<<=1) //Y=Y<<1;
{
P0=Y;
for(X=1;X;X<<=1) //8bit
{
P2=X;
Delays(7);
};
P2=0;
for(X=1;X<B(10000000);X<<=1) //7bit
{
P3=X;
Delays(7);
};
P3=0;
P0=0;
}
}
void Main()
{
uint data Count=700;
uchar data i,Cgain,num=0;
IOINIT();
InitADC();
while(--Count)
FullScan();
for(i=0;i<40;i++) refreshflag[i]=0x09;
P14=0; //Beep
Delays(4000);
P14=1;
PWM_init(); //PWM初始化
PWM0_set(0xFB);
Timer_INT();
for(i=0;i<34;i++)
LEDBuf[i]=0x00;
FontDisp();
while(520)
{
for(i=0;i<65;i++)
{
dd[i].real=(GetADCResult(0)+GetADCResult(1))<<gain; //读取ad结果并放大；
}
processfft();//傅立叶变化及处理
///////////////////TouchKey//////////////////////////
while(P16==1) //依据：脉冲干扰持续时间短；
{
if(CBeep)P14=0;
if(++TouchKey>0x0000FF00)break;
}
P14=1;
if(P16==1)
{
if(++Menu==4)Menu=0;
P14=0;
P47=1;
Delays(7000);
P14=1;
P47=0;
}
TouchKey=0;
//////////////////////////////////////////////
if(P17==0)CBeep=!CBeep;
if(dd[2].real<32)
{
if(++Count==300) //电平值过小，这降低gain，减少噪音的电平显示；
{
Count=0;
//if(++Menu==4)Menu=0; //切换Menu，显示方式；
gain=6;
P14=0; //Beep
Delays(1000);
P14=1;
}
}
else
{
Count=1;
if(++num==0xAF) //播放时，Auto gain；
{
num=0;
P14=0; //Beep
Delays(700);
P14=1;
//自动增益；Automatic gain;
Cgain=dd[2].real/32;
if(7<Cgain<=8)
{
gain=4;
}
else if(4<Cgain<=6)
{
gain=5;
}
else if(2<Cgain<=4)
{
gain=6;
}
else
{
gain=7;
}
}
}
}
while(1);
}