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

fanichicl

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


& K0 Q9 N, l- L. t9 g音乐频谱写的不是很好，请不要喷，多给建议 呵呵


主程序：
#include "srcSTC12C5A.h"                 
, L! a' C: u2 i+ d  k! [8 p8 @

#include       //51基本运算（包括_nop_空函数）
  C7 j+ y* X, |) S3 F  ?#include


. @8 K4 G6 p: g) \% u$ S- X#include "srcDefine.h"
' d9 ^1 Q2 G) |+ \- B3 H

% R7 y4 x5 U+ O! ?" j+ ?
% U, z2 k+ `4 l7 b9 i4 ~  n! ^
# {) v/ w8 [, S- Z///////全局变量///////
1 D$ U- y! p0 P( Wuchar data DelayTime=9;          //<=8效果最好；
$ R2 h/ ~; \2 O% Q5 n6 ]6 vuchar data INTTime=0x40;  //0x40;        
uchar data gain=6;
uchar data Menu=2;
# x  P1 f; N7 W- ^uchar idata refreshflag[40];
uchar  data LEDBuf[35];          //15列；从左到右；亮的位为真（1）；
( ^4 Y5 m% ]  z5 F* L+ V  `$ y8 @uint32  data TouchKey=0;
  V7 P( D  l- @6 j/ p2 Yuchar data CBeep=0;
//////////////////////

) v2 U! Y! ~. j. P7 a, F0 R
# F/ \' [) ?/ ^: _. y1 w
: O: ?+ S3 c  ?- k* t$ v
8 h. I! B" ]' K$ c; C9 \6 p" Gvoid Delays(uint t)
5 {6 B6 h! \% l* u{  
        uint j;
& `8 j' R% c; _, n7 r. E! A        while(--t)
                for(j=0;j<5;j++);   
}
/ W" h: O: V0 U. s' `void Delaysms(uint t)
{  
        uint j;
        while(--t)
                for(j=0;j<15;j++);   
2 _7 B9 v2 M" [  X3 y}


0 p  I& s" B' S& d, ^



7 F; W* v* V9 K1 M4 b6 X6 ?: h- E#include "srcADC.c"
: }2 `& m) _6 }# P7 u8 ?0 }8 @#include "srcFont.c"
#include "srcft.h"
9 l' i1 \" f* l* k  x( X4 ^/ I) F
$ c. e2 {: r; C7 q: y. N/ V! l" }

4 w9 R" ^6 p' d9 n; C0 Y+ a8 Z


, e& K+ N: K, S$ M7 A/ `* avoid PWM_init (void)          //PWM初始化函数         //PWM模式，接P1.3接口（PWM0）,强上拉.
{                  
9 b8 w% O; n/ [# @$ R( ~4 N' W+ L        CMOD=0x00;    //设置PCA定时器          0x00～0x03；
  W4 k7 o9 i. u$ d' Q3 L         CL=0xEF;
4 R3 ?7 ]6 Q8 X  F. g0 H         CH=0xEF;
6 l1 T9 `+ t* }) B        CCAPM0=0x42; //PWM0设置PCA工作方式为PWM方式（0100 0010）
( ]. X& X% c4 l1 `& G         CCAP0L=0xEF; //设置PWM0初始值与CCAP0H相同
# T. H8 U: s0 I         CCAP0H=0xFF; // PWM0初始时为0
! w. \1 d1 _+ L& [$ x

         CR=1;        //启动PCA定时器
}


8 x5 n# p$ u' [$ Uvoid PWM0_set (uchar set)           //PWM0占空比设置函数        (0x00~0xFF)
7 \/ z! a. F' d& T" Q{
        CCAP0L= set; //设置值写入CCAP0L
         CCAP0H= set; //设置值写入CCAP0H
}
9 ?0 @) r' I! }/ p1 T: r8 q% f
8 L0 S2 T' X& y9 i; l
. Z5 D$ [& |+ u5 {0 ~" N' t

void IOINIT(void)                                                          //I/O强上拉模式；
% a/ v, @/ r' {3 k+ q' s: C0 E{
        P4SW = 0xff;                                  //启动I/O：P4；
- A- M. E6 @0 b; S        P4M1 = B(00000000); P4M0 = B(10000000)47=0;//震动马达；
        P0M1 = 0x00;            P0M0 = 0xff;       P0=0; //点阵列（Y）（L:OFF； H，H+:ON,ON+;）
        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;      
6 C8 F6 r% j, f) K        P2M1 = B(00000000); P2M0 = B(11111111);P2=0; //点阵行（X0（Left））（L:OFF； H，H+:ON,ON+;）  
7 m% @  }5 c$ l        P3M1 = B(00000000);        P3M0 = B(11111111);P3=0; //点阵行（X1（Right））（L:OFF； H，H+:ON,ON+;）               
/ ]7 K" V( V+ w# e- {5 b& |        P1ASF =B(00000011);                          //将P10,P11的IO设置为模拟输入功能；     


//  Y(P0)
//  ↑
//H        |
//         |
//        |
//L        |
//         ---------------------→
//        [L:X0(P2):H][L:X1(P3):H]


6 u( r* A# z) Y9 G! K3 C7 R5 R5 S//TestCode:
//        P0=B(10000000);
//        P2=B(00000001);
. ^, t2 ?0 @/ ^//        P3=B(00010000);
; h# K" Z# {7 C% f7 w- ]
; Q3 i* ]' l/ u
}


; G9 B# V( L& I! Q8 d. F% b
. U5 t6 M  m" d2 D, q
8 I# `7 h3 I/ |1 S' M) C

# v' V2 m4 n$ _2 @; P/ Gvoid BufToLED_Refresh()                     //Refresh&Write Buf to LED ;
# k: c) x& j* A{        
         uchar data i;
         uchar data X=1;         
9 ?# M7 ?" n3 J3 N/ r- y         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;
1 M% [% W, o8 E, T6 U7 R! l                 {
                        P0=Y&LEDBuf;
/ @4 E  O( L$ G1 v1 Z                        Delays(DelayTime);
; r7 C% Z0 s" K- ~0 j                        P0=0;
                }
) f) }& o: L# d  U7 V                P2=0;        
         };
         for(X=1;X<b(10000000);x<<=1,i+=2) 7bit
         {
3 p! Z" a9 |8 Z9 A# v( w                  P3=X;
- F" U: m; q& v0 L1 b, `                for(Y=1;Y!=0;Y<<=1)                            //Y=Y<<1;
5 [5 ]. F: T8 M! r; f4 X                 {
7 i9 x8 c: `3 v                        P0=Y&LEDBuf;
                        Delays(DelayTime);
                        P0=0;
                }
                P3=0;        
         };
+ n) P  `; J5 Y* x               
: C3 }1 S7 F3 m}
: M6 a! {2 C8 s3 i$ z/ j/ B# R

$ W" x4 G, U9 ?! y5 z+ O5 V8 n+ u1 j
- |0 g2 h- D8 s1 @, v
2 E. F) T4 q, W* x0 w/ _: H$ i
+ I9 A9 w! r: S; Y6 O
4 ~  [, j- j$ m2 O6 M

void LEDRefresh_INT() interrupt 3 //using 3   
# f" _& L$ g7 A: C{
        static uint x=0;                  
& q9 ]0 b. r9 L/ o        static uchar flag=1;
. n2 d  G% |$ D1 w/ L& U: I
4 v5 |) u+ V0 m8 Z. \" t: o  A
8 |' H$ a- N, Z4 T# i    TL1 = 0x00;      
    TH1 = INTTime;               //0x50~0x80
, g& q5 g9 ?) y6 ]1 ]
$ B4 k9 ~) F0 @, |. X
+ [: w( d* o" q( m+ k* q$ }" i         if(flag)
        {
                if(++x==0xFF)                         //MINOUTPUT
; V8 B4 D7 n7 A* t/ Q                {
. t$ P% |  v$ @3 x( I+ h                        flag=0;               
                }               
        }
        else
        {
                if(--x==0xCF)                 //MAXOUTPUT
                {
0 ]2 F; P8 x7 O* M! M                        flag=1;                        
                }
" Y% u1 q7 i4 a& b2 N) a, ^        }                        
        PWM0_set(x);                 //设置PWM占空比
! |7 `- I) M: m. j
, [! G5 B, w- w6 B! Q6 ^: C
        BufToLED_Refresh();                        
}  
5 @3 M- W: v4 K' [4 j0 L1 [
/ d' L) p. B% j8 A
+ m* G0 e% d9 m( |) {
& v+ S$ \1 j& G& W' [, M
void Timer_INT()
* N* `- q' @6 p; ^) x3 A{
9 ^' {% M6 u& Z9 v, Q  ]" D         TMOD = 0x11; //高4位控制T/C1
        EA = 1;             //开总中断
$ k- i7 a( Q% ^& f0 w" z        TH1 = 0x00;  //16位计数寄存器T1高8位
1 F. B% J% C9 C# F* c* {0 Q        TL1 = 0x00;  //16位计数寄存器T1低8位
        ET1 = 1;     //T/C1中断开
    TR1 = 1;     //T/C1启动


1 Y3 R4 _2 z. d1 k7 x& z) E}
7 \8 q" K' W, a. z4 A/ n* W6 b! X
( z/ ^- b2 H: @
- @0 _- J3 p; E
% S" J' b4 g$ F6 ]! Q- Z
- Q# t) H9 `" y" V3 r" uvoid FullScan()
% {' }5 G1 n1 E- l1 L{
        uchar data X=1;         
5 S% {6 ^4 T( n        uchar data Y=1;

/ u; C9 k, |+ C$ v8 O3 s$ c2 B
/ D, y0 O' E. L+ C, {  h         for(Y=1;Y!=0;Y<<=1)                       //Y=Y<<1;
         {        
                 P0=Y;
5 t+ L" ^1 o- W0 U4 f                for(X=1;X;X<<=1)                   //8bit
                {
! a% ?' g* K& {                         P2=X;
                        Delays(7);        
8 G5 l. u- ~' `                };


                P2=0;
                for(X=1;X<b(10000000);x<<=1) 7bit
                {
0 Y' t& d: }, [. n/ i3 }                         P3=X;
0 |4 u: z( i# b2 i. A8 j4 {                        Delays(7);
3 r, l& ~$ g; V                };
                P3=0;
+ B& [7 K  b8 H9 `( N/ [                P0=0;
         }
3 p0 C. U) g" v3 Y' k}
4 G- k, ]$ a) H2 N; U

& ?8 R+ L/ R. Z& ?
, w+ _$ B, J  _
void Main()
{  
# P$ W0 k1 r) I* K* m& G0 q        uint data Count=700;
4 S* O) K* L7 o0 Z; U) ^! h        uchar data i,Cgain,num=0;
$ U& L2 d" r0 I

        IOINIT();
        InitADC();                  


3 O& y1 C% g- i, L. `        while(--Count)
                FullScan();

" O- C0 M9 d& Y' C: S! o/ t  B
        for(i=0;i<40;i++) refreshflag=0x09;
        
        P14=0;                          //Beep
( k& W$ W4 @- T: Y4 Q/ ]$ Z5 `        Delays(4000);
        P14=1;

( B- v" m1 _# s! o
$ `, ~5 s+ }4 Q! L. i$ Q3 q        PWM_init();      //PWM初始化
2 s, G5 Q) ?% Z% u9 n. [        PWM0_set(0xFB);
        
        Timer_INT();
- T8 t0 U. `# L1 ^

        for(i=0;i<34;i++)
$ l$ R% p9 }6 F( q                LEDBuf=0x00;
$ }" K- K5 L" v4 _& N: o6 @        FontDisp();
6 T9 g; j. f/ ^5 f3 L; r
2 A2 j) f0 y3 C( H" [" k) k8 ~
        while(520)
9 k3 N- p' m" w4 N8 w2 |        {
0 `7 }) Q2 x6 w& m; k                for(i=0;i<65;i++)
0 q, J, _0 k1 u- h& G' I# l                {  
                        dd.real=(GetADCResult(0)+GetADCResult(1))<<gain; 读取ad结果并放大；
1 o: s) E4 \& g3 h3 E                }


$ E% k( o- r. Y/ Z                 processfft();//傅立叶变化及处理
  \' P2 h. z, T* Z! C

                 ///////////////////TouchKey//////////////////////////
                 while(P16==1)                                           //依据：脉冲 干扰持续时间短；
                 {        
! Q& Y5 _! W, ~4 j' ^0 Z                        if(CBeep)P14=0;
% N' r: }. M( J- @2 Z: Z: T+ e; G- U                        if(++TouchKey>0x0000FF00)break;        
                 }
1 t- N1 i* O8 V: o) b( w                 P14=1;
4 T! ^( f8 g/ t3 P( g" p+ A

                 if(P16==1)
  ]9 l# R" ?, i: L0 z                 {
                        if(++Menu==4)Menu=0;

( x3 d8 l( ?2 O  s6 \/ V
" Q' |/ w" N  E3 B3 z! {' t                        P14=0;
                        P47=1;
( Z: n( M6 W6 w! q# s                        Delays(7000);         
                        P14=1;
8 G" E( ]9 ?. Z$ S0 |' @' ^' [& e* D                        P47=0;               
: N* }3 h7 ]% k+ Q+ ]" h# d                 }        
                        TouchKey=0;
3 l* B: W! n6 s6 l                 //////////////////////////////////////////////


1 d% J& d5 L0 r5 M% `                if(P17==0)CBeep=!CBeep;
7 M5 k. w. V% \* |2 W2 n4 Q9 i
! `+ l: D) H- r# A; Y9 x
                 if(dd[2].real<32)
0 K, Q! {- T+ @* W                 {
, S/ a* `2 Z; q* _2 A3 B4 H                         if(++Count==300)          //电平值过小，这降低gain，减少噪音的电平显示；
6 y1 U0 K7 w/ z1 e4 P3 H) x) ^                         {
                                Count=0;
- i: p9 \" E$ ]. ~; Q+ ?                                //if(++Menu==4)Menu=0;                  //切换Menu，显示方式；
                                gain=6;


- U3 f1 _2 M9 E: a5 I                                P14=0;                          //Beep
4 r" ]$ G5 [0 j5 D" [+ g1 v                                Delays(1000);
                                P14=1;
2 G8 r& }: E0 X! A4 ^. P0 c; n                         }
3 R3 ]; P# a5 f& M. ?                 }
* C1 \- ]' l  q: F1 s* q                 else
1 f) q! \) N0 ^& k! R6 m2 H                 {
" Y' B# u3 |- {/ S1 {# U4 N                         Count=1;
        
                         if(++num==0xAF)                         //播放时，Auto gain；
6 X* u  {9 Z3 M- c* J) @& S                         {
                                num=0;
4 ~- R! I2 a6 o  Y

- c6 ?( k8 e' ~0 f$ a3 H  X1 R                                P14=0;                                   //Beep
                                Delays(700);
                                P14=1;
2 y7 {# ?0 ]/ s3 I% \                                                           //自动增益；Automatic gain;
  x4 _% l5 ?3 n8 Y7 r8 x# _) D  H" U: k                                Cgain=dd[2].real/32;
                                if(7<cgain<=8)
                                {
8 q/ f' R- K; L7 z2 b2 N4 g0 v* \& k                                        gain=4;
                                       
                                }
                                else if(4<cgain<=6)
* l& j+ o, B, r8 E* i                                {
                                        gain=5;
                                       
# c7 b" P" w# K' V6 b3 {                                }
2 l* H* i! |! @! }) ?% t7 C                                else if(2<cgain<=4)
% q- H2 y! d; q2 `$ H! `                                {
! J# o) i4 C3 D% t. \0 c& B% X                                        gain=6;
                                }
                                else
' S6 ?" ]9 ]7 G" b                                {
' G% g- ~# r) Y9 q; U                                        gain=7;
                        
3 G: J, K# ~' B" W                                }
7 u  `* @8 w+ e) T9 u) z2 k. {* W4 W        
8 \: o* ~) g; ~8 G                         }


                  }                 
        }
        while(1);
}
3 D; s1 e. ?; F0 x2 @

下载：
7 L3 n+ B  M3 ]! z& f1 C

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

cat12620

看看