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

fanichicl

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


1 }. e: n. U" {: o音乐频谱写的不是很好，请不要喷，多给建议 呵呵
. @# t! V, a, W4 }" N" J# w

主程序：
#include "srcSTC12C5A.h"                 


#include       //51基本运算（包括_nop_空函数）
#include
+ `( a8 x) i- Y) m) D4 V. P7 j. P
/ }4 d' Q$ `$ u! @( ?
#include "srcDefine.h"

# P4 {8 A! c! F' f. q

2 J2 e6 f6 l8 A0 i
///////全局变量///////
# s! K+ b* a: ]" F; w2 Q! @7 T* i" duchar data DelayTime=9;          //<=8效果最好；
' h2 r5 _  V$ Yuchar data INTTime=0x40;  //0x40;        
uchar data gain=6;
4 c" ?( {7 O9 c% H1 d1 Ouchar data Menu=2;
) ?4 l& Y. A/ `* Y; W- t% _# z- [uchar idata refreshflag[40];
uchar  data LEDBuf[35];          //15列；从左到右；亮的位为真（1）；
+ _4 L. o+ d7 V. r$ ~uint32  data TouchKey=0;
uchar data CBeep=0;
//////////////////////
0 V2 O* n. z. h5 ^



void Delays(uint t)
$ [  K0 m' O- ~. N# e/ \{  
& C/ V- Z, e8 S/ z2 F        uint j;
  n( @# C3 O/ L4 ~$ ^* Z. S" c        while(--t)
( M1 T5 N. s2 a+ c% t* V3 @. Z                for(j=0;j<5;j++);   
8 c" u/ A* W* T# v}
1 Q7 h& N1 L6 M5 Ivoid Delaysms(uint t)
4 |7 N1 L: Y* |) D3 S' E( |& r{  
& D+ G) s, M$ b; Y3 w  x        uint j;
        while(--t)
                for(j=0;j<15;j++);   
}
" w* ?# O, \. T! W! ]! Y. `
0 ~  ]$ w- y2 T( }7 o
" q3 j# I7 Y# F3 C' X1 j


. {( Z: O) b; F4 _' C5 I; V5 ?1 a2 q8 Q5 c
#include "srcADC.c"
" Z) U- M9 a0 @7 @+ o1 o- @) Q$ ~#include "srcFont.c"
0 p+ @% x' L- M9 P2 `, n0 k4 b' W#include "srcft.h"
2 T8 h# D' b# g0 V2 N



  ]$ ]4 Z) y  E1 s

% {# W8 ?$ H# }6 {# dvoid PWM_init (void)          //PWM初始化函数         //PWM模式，接P1.3接口（PWM0）,强上拉.
{                  
        CMOD=0x00;    //设置PCA定时器          0x00～0x03；
         CL=0xEF;
! M) K! v. G* |$ `2 A7 T8 F         CH=0xEF;
        CCAPM0=0x42; //PWM0设置PCA工作方式为PWM方式（0100 0010）
         CCAP0L=0xEF; //设置PWM0初始值与CCAP0H相同
* f. n& y4 D% B$ M. E' A         CCAP0H=0xFF; // PWM0初始时为0
$ X# X& f( w+ o) C! e7 ^: l

3 N- k$ s8 W3 u) T2 j$ ?; q         CR=1;        //启动PCA定时器
5 d+ v: l9 [7 J' b! {# T# C}
, I% I+ z- E4 ^
) j, S1 C/ E) D. n* F2 W$ A
void PWM0_set (uchar set)           //PWM0占空比设置函数        (0x00~0xFF)
{
        CCAP0L= set; //设置值写入CCAP0L
         CCAP0H= set; //设置值写入CCAP0H
5 I& ]/ Q# j- ?* D$ V9 ?5 X6 e, c}
9 U/ o' f: T" v. t7 j


3 J! C2 E0 m+ X4 {7 n; B
- Z# j  O! K( {+ S2 V. qvoid IOINIT(void)                                                          //I/O强上拉模式；
{
        P4SW = 0xff;                                  //启动I/O：P4；
        P4M1 = B(00000000); P4M0 = B(10000000)47=0;//震动马达；
4 B0 W& [* ^' k# ~8 {/ k' T        P0M1 = 0x00;            P0M0 = 0xff;       P0=0; //点阵列（Y）（L:OFF； H，H+:ON,ON+;）
) V3 y% u6 c6 i+ n        P1M1 = B(01000011); P1M0 = B(00110100)1=B(10110111); //(P17@（高阻，IN）&16@（高阻，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+;）               
/ J" h$ G4 V7 L( q        P1ASF =B(00000011);                          //将P10,P11的IO设置为模拟输入功能；     


3 \, ^% ~1 }' D0 S//  Y(P0)
; t! j. s7 I$ X$ h# {4 H5 a. y//  ↑
//H        |
//         |
# h' [. N( A+ F' h//        |
" `8 ~8 o# b* b//L        |
//         ---------------------→
//        [L:X0(P2):H][L:X1(P3):H]


//TestCode:
//        P0=B(10000000);
$ d/ k6 M8 h7 ?, m//        P2=B(00000001);
//        P3=B(00010000);


9 q, s" M( h& L3 l  G}
( ?, ?5 P9 J  |


. _/ ^/ b- F* D* T6 l3 U' x, _, |( S

9 ]  k6 v8 K6 f! n! o! g, U' B
void BufToLED_Refresh()                     //Refresh&Write Buf to LED ;
{        
         uchar data i;
         uchar data X=1;         
. ~8 W9 Y/ x! P8 k         uchar data Y=1;
         for(X=1,i=2;X;X<<=1,i+=2)              //for(X=1;X!=0;X<<=1) //8bit
; q3 C6 Z7 J( I6 ]* f         {
                  P2=X;
  x' v" j) d) R8 f7 t                for(Y=1;Y!=0;Y<<=1)                            //Y=Y<<1;
                 {
                        P0=Y&LEDBuf;
                        Delays(DelayTime);
1 i5 s" |' H- \7 ]( x                        P0=0;
                }
                P2=0;        
         };
  G; I) P3 V% U$ `         for(X=1;X<b(10000000);x<<=1,i+=2) 7bit
         {
                  P3=X;
: E$ L3 b0 j- G                for(Y=1;Y!=0;Y<<=1)                            //Y=Y<<1;
                 {
                        P0=Y&LEDBuf;
. g% F( X! g- a# M                        Delays(DelayTime);
6 b, t+ e, Q9 K1 r1 b                        P0=0;
& y+ `% o8 c& U                }
                P3=0;        
; }3 E6 L, S! w         };
$ q- L: }# m" w9 Q( e0 g               
}
% h  }. Z2 T. }2 c+ A! h1 }" H
( j# ~) w4 F) f

- j/ b. ?0 f8 N7 e0 [& X* A) H6 B  \
; T& @1 }) L# {( R1 O9 v# ]8 L
3 _, a( G: l6 y/ X" z; F
% m: {4 j; m: s5 j

void LEDRefresh_INT() interrupt 3 //using 3   
; l& v! y5 c7 I" J5 L3 l) a3 l{
        static uint x=0;                  
8 A; n: x: \. F' U, D3 f: o6 _        static uchar flag=1;
3 h; K+ t' K) _: X' k% E4 u

8 ]1 p4 s2 Q$ }. W    TL1 = 0x00;      
    TH1 = INTTime;               //0x50~0x80
7 g, j7 c3 k* X8 w) k2 ~
4 C8 p- ~. a( Q( P2 H+ k
         if(flag)
4 E/ O- h' |" x% x7 d& ]7 j+ ?        {
                if(++x==0xFF)                         //MINOUTPUT
6 t2 l$ W# P! l                {
                        flag=0;               
                }               
        }
        else
! w; b1 J% Q( @0 d9 `        {
                if(--x==0xCF)                 //MAXOUTPUT
                {
                        flag=1;                        
                }
9 m  ]* d$ P! Q8 ]        }                        
        PWM0_set(x);                 //设置PWM占空比


        BufToLED_Refresh();                        
}  
8 R+ R* Z. e  r. m9 p! {( y
' h9 ^( T3 H, P$ i

( |" B; q/ J4 c1 g
void Timer_INT()
6 a0 ^0 b6 l0 d, Y( o; X( H{
" C2 q  C' }7 r! W         TMOD = 0x11; //高4位控制T/C1
0 o$ t) a& n0 N; B        EA = 1;             //开总中断
; l( I2 G0 q6 x& b        TH1 = 0x00;  //16位计数寄存器T1高8位
        TL1 = 0x00;  //16位计数寄存器T1低8位
        ET1 = 1;     //T/C1中断开
    TR1 = 1;     //T/C1启动
. @) r! y( h$ C8 U1 @+ h7 p, [

}



, {4 a" C+ b, f& @3 S+ d
void FullScan()
{
% X) K0 G; B1 O' m& s/ ^6 o        uchar data X=1;         
4 S* d0 k* d3 F, C' n6 r        uchar data Y=1;
0 u$ v  g1 K6 |& P) _
0 u/ _+ }7 I" |6 b$ p4 h0 `
* k% u  V: Y) D) @4 R5 L( _: A         for(Y=1;Y!=0;Y<<=1)                       //Y=Y<<1;
         {        
/ t  J! d+ r8 ?( ~1 t( W* V                 P0=Y;
( J- e+ h: X: `# {                for(X=1;X;X<<=1)                   //8bit
                {
                         P2=X;
0 `0 J. ]' [! p) I. C                        Delays(7);        
  j$ c+ f- }9 B' r& w) r: ~                };
% `0 N, E, r+ X7 c4 g

" R. k$ ^# D: W' L" G: k3 q                P2=0;
) q" I  x! b+ u, q4 w4 @: a- c, J9 \+ W& g                for(X=1;X<b(10000000);x<<=1) 7bit
                {
                         P3=X;
                        Delays(7);
                };
                P3=0;
                P0=0;
         }
}
' Q' {. K2 y: R. y) z3 j6 Q1 {. T
" g! ]% p) N6 h2 A( M: [9 t& M  C
% V6 G( [' D( T( {3 ?* m6 k
! V/ y9 K8 V& ?
void Main()
{  
% c! x' l# h+ t        uint data Count=700;
, X! Z. p! i, k7 W. W        uchar data i,Cgain,num=0;


0 N( E9 h3 V* ]) r6 [+ `8 q        IOINIT();
  \" _- v6 H1 w  @' H        InitADC();                  
6 N; r3 m% \, k6 \; E4 U( w
- s( V3 K* \4 K4 Y/ X4 M
. b; r$ K/ F4 F" h# v        while(--Count)
                FullScan();


        for(i=0;i<40;i++) refreshflag=0x09;
6 ]. t( `4 J' H" F9 P* J        
, F) }$ c7 u2 I4 ~' L% O        P14=0;                          //Beep
- a" ?5 i& W% N! Y; E% I2 O        Delays(4000);
" `, M0 ^! j+ ]* E" p+ s/ D        P14=1;
( _4 S: I* B9 F6 b/ p# Q- T6 N3 m
# I! I6 w  {  G9 {; H* I" s
/ `5 ?# q$ a8 z( _( J6 Q        PWM_init();      //PWM初始化
6 X5 g1 s  N! }0 u( f  M        PWM0_set(0xFB);
        
        Timer_INT();


7 J8 @0 f' H1 [( ~" F: L2 H        for(i=0;i<34;i++)
                LEDBuf=0x00;
        FontDisp();
1 |; m- h9 i% B  k' d9 Y* o
0 D) V1 d$ Q6 y; D/ e
        while(520)
% l+ S; C7 u% C: q4 O5 C( N        {
                for(i=0;i<65;i++)
. z6 J5 m/ h' ^; x- E" X                {  
. @$ d# Q5 F, G6 K( n% b                        dd.real=(GetADCResult(0)+GetADCResult(1))<<gain; 读取ad结果并放大；
# {5 ~+ y. C& J  R+ i: P                }


% Y' {3 ^+ s% Z! m* z                 processfft();//傅立叶变化及处理
+ l- \( V/ ]: _' F/ y4 |4 ]

- ?1 b4 v  I* i9 a% l) ^5 G) h                 ///////////////////TouchKey//////////////////////////
/ Z  q/ C0 r. y. L                 while(P16==1)                                           //依据：脉冲 干扰持续时间短；
% d0 p0 o* ~3 v6 e. S                 {        
3 O6 R4 r1 M6 S8 s) l  V( |                        if(CBeep)P14=0;
) d4 t: h# u' i: Z6 C$ x                        if(++TouchKey>0x0000FF00)break;        
; q( V/ f$ Q4 y. O4 x                 }
                 P14=1;
* ^# A# |+ M% e; B% Y% |9 @5 p6 d

7 o  U! |& [1 ~6 W8 d8 c1 X                 if(P16==1)
                 {
                        if(++Menu==4)Menu=0;


+ q2 M+ e1 O* Y! e5 i% H                        P14=0;
                        P47=1;
                        Delays(7000);         
0 U4 U- R/ P1 o* n                        P14=1;
1 K, E' J: }: K- j1 A" V& @                        P47=0;               
                 }        
! h+ Z& i9 ~  [. E" Z3 y                        TouchKey=0;
* x9 a2 z7 M; \                 //////////////////////////////////////////////
, R2 R; ]7 G5 c/ z8 ~
' ~0 d4 `1 K2 l+ J7 z* e2 H
                if(P17==0)CBeep=!CBeep;


' n% y9 C4 F; l                 if(dd[2].real<32)
: i# O/ g( I6 ^0 T* Z  D# g                 {
% `/ g, }! S) {: E& l: i! V+ M, h( N                         if(++Count==300)          //电平值过小，这降低gain，减少噪音的电平显示；
% G! E# Q1 v7 f; f* r                         {
                                Count=0;
                                //if(++Menu==4)Menu=0;                  //切换Menu，显示方式；
                                gain=6;


                                P14=0;                          //Beep
7 e/ w( m$ O; ?5 G+ N/ P                                Delays(1000);
                                P14=1;
                         }
, O0 f$ W( Z+ c' P2 Z                 }
                 else
                 {
                         Count=1;
6 {2 V  ~, [# C: U        
9 B; C3 u) x9 p4 Q- r: t; B                         if(++num==0xAF)                         //播放时，Auto gain；
& f8 p. F- ?! q                         {
- B/ D1 }( X: p( d2 J! [                                num=0;

/ G. Q9 c9 u1 [0 Y
                                P14=0;                                   //Beep
, W7 F$ X9 }/ C6 V                                Delays(700);
/ ~, R' L' ?8 B- U4 G                                P14=1;
: t* H: _/ z1 `9 p" k$ o                                                           //自动增益；Automatic gain;
0 ]9 |' P0 c$ G9 b! f: }                                Cgain=dd[2].real/32;
                                if(7<cgain<=8)
                                {
                                        gain=4;
6 c1 o* _6 B% D2 A0 }0 V8 u$ y: t                                       
' [' k  z* h, R                                }
                                else if(4<cgain<=6)
0 N, ~& c) X+ f/ M                                {
4 ]" N& q+ l$ p' D                                        gain=5;
                                       
9 M) v3 r4 h  e$ T0 @# i, x( U                                }
/ `( T* f- c' G+ E                                else if(2<cgain<=4)
# Z# E1 B: D- T. ]  G( Q2 w                                {
8 _: E3 k+ B7 h; ~) L" M                                        gain=6;
  v5 [# s' d# ?5 f                                }
4 i( k0 f: y4 q9 r8 H- P8 c                                else
+ d; y  U# J! Y' n                                {
( y- }. A4 n! z7 w& s6 X                                        gain=7;
9 d1 i# L0 W% U" Z                        
                                }
4 g' o7 J5 P+ P0 r        
                         }
# V! {3 Y% G! Y" h4 B, }- c- E; G" O! g

) H# S4 f4 _* u% x% g! E0 f                  }                 
6 E$ k8 |$ K/ }; w8 b! J% }1 v2 A$ p        }
        while(1);
6 ]: X) `( L1 L1 i/ m6 {5 j% H" b}
# k9 n+ |/ w8 u$ C

1 V' e1 Y8 x, g1 B6 g- H下载：

游客，如果您要查看本帖隐藏内容请回复

5 G) C4 H. Z3 G

cat12620

看看