五色LED音乐频谱源程序和原理图 原件清单

wu68aq

五色LED音乐频谱源程序和原理图 原件清单
' i0 Y& v6 V/ t3 T

  e9 Z9 T3 A, i12单片机频闪，五色LED音乐频谱源程序代码
2 W% g5 d) Q# u( n1 ^6 N; G; P
# }4 R& i* `& S7 f, Q; R' Z. L原理图如下：
4 {6 K9 ]1 o/ {7 K+ Q$ e
元件清单：

五色LED音乐频谱源程序：
#include <stc12c5a60s2.h>
#include<intrins.h>
& D, ?- V( f0 s- k4 N#define BIN(n) LongToBin(0x##n##)
#define uchar  unsigned char
$ U! y# u. T; c& ^4 e- G9 t#define uint  unsigned int
3 ^8 F7 ^* n  G0 Z3 ^) T#define SAMPLE_NUM 64
. H0 n! U8 F' a4 k0 ?/ L#define NUM_2_LOG 6
) L+ f$ d. k( C+ L% {#define FFT_OUT_MIN 3
#define LongToBin(n) (((n>>21)&0x80)|((n>>18)&0x40)|((n>>15)&0x20)|((n>>12)&0x10)|((n>>9)&0x08)|((n>>6)&0x04)|((n>>3)&0x02)|((n)&0x01))

9 W5 B. ]( \- V% r# ?; Xuchar code BRTable[SAMPLE_NUM] ={ 0, 32, 16, 48, 8, 40, 24, 56,4, 36, 20, 52, 12, 44, 28, 60, 2, 34, 18, 50, 10, 42, 26, 58, 6, 38, 22, 54, 14, 46, 30, 62, 1, 33, 17, 49, 9, 41, 25, 57,5, 37, 21, 53, 13, 45, 29, 61,3, 35, 19, 51, 11, 43, 27, 59,7, 39, 23, 55, 15, 47, 31, 63};
char code sin_tabb[SAMPLE_NUM] = { 0 ,12 ,25 ,37 ,49 ,60 ,71 ,81 ,90 ,98 ,106 ,112 ,117 ,122 ,125 ,126 ,127 ,126 ,125 ,122 ,117 ,112 ,106 ,98 ,90 ,81 ,71 ,60 ,49 ,37 ,25 ,12 ,0 ,-12 ,-25 ,-37 ,-49 ,-60 ,-71 ,-81 ,-90 ,-98 ,-106 ,-112 ,-117 ,-122 ,-125 ,-126 ,-127 ,-126 ,-125 ,-122 ,-117 ,-112 ,-106 ,-98 ,-90 ,-81 ,-71 ,-60 ,-49 ,-37 ,-25 ,-12  };
; ^5 X( X3 f4 b' O$ N1 d$ Y6 Q& I, c
4 C) b. i& J& {, a0 L2 {! \char code cos_tabb[SAMPLE_NUM] = {127 ,126 ,125 ,122 ,117 ,112 ,106 ,98 ,90 ,81 ,71 ,60 ,49 ,37 ,25 ,12 ,0 ,-12 ,-25 ,-37 ,-49 ,-60 ,-71 ,-81 ,-90 ,-98 ,-106 ,-112 ,-117 ,-122 ,-125 ,-126 ,-127 ,-126 ,-125 ,-122 ,-117 ,-112 ,-106 ,-98 ,-90 ,-81 ,-71 ,-60 ,-49 ,-37 ,-25 ,-12 ,0 ,12 ,25 ,37 ,49 ,60 ,71 ,81 ,90 ,98 ,106 ,112 ,117 ,122 ,125 ,126 };
uchar a[21];
uchar keep,keepnum,anum,timernum,timernum2,lednum3,Ltime;//用于分离
9 N, O# n- G1 G/ m3 j2 ^
! @2 q8 p$ |! p3 a4 E  i/*加入数组用于显示相应led灯数目*/
uchar lednum[]={0x00,0x01,0x03,0x07,0x0f,0x1f,0x3f,0x7f,0xff};//0-7的显示数组  P2组控制
" G1 y' `. P" U" ~" u- S% E* ^7 Tint xdata FftReal[SAMPLE_NUM];
int xdata FftImage[SAMPLE_NUM];
* v9 r# g: a8 Y9 B# B1 G; h' g! lsbit p30=P3^0;
sbit p31=P3^1;
sbit p32=P3^2;
# \# i9 I2 y7 Bsbit p33=P3^3;
% Q9 [4 N. p, a, T4 b; Xsbit p34=P3^4;
sbit p35=P3^5;//9-11的led控制
sbit p36=P3^6;
5 w, j4 y$ m' ?, V+ t- `4 s  Bsbit p37=P3^7;
; T3 `' g) H$ u, w
void timerinit()//定时器 初始化函数
{
! [1 h" M8 l4 T& i& D         TMOD=0x01;
         TH0=(65536-6000)/256;
2 Q. R6 L2 G. I3 |+ C         TL0=(65536-6000)%256;
$ w' t: `. M( I& [         EA=1;
# L- X, v9 a/ J: d  @         ET0=1;
         TR0=1;
}
void disp()
{
        timernum++;
9 p; _7 o2 f' d! S7 G- ^( X        if(timernum==6) timernum=1;
. a2 W  E! i+ K1 s) k2 |9 I        P2=0;//显示前先关闭
        P3=P3&0x1f;
        switch(timernum)
        {
                case 1:anum=a[0];p34=0;p33=1;p32=1;p31=1;p30=1;break;
                case 2:anum=a[1];p34=1;p33=0;p32=1;p31=1;p30=1;break;
                case 3:anum=a[2];p34=1;p33=1;p32=0;p31=1;p30=1;break;
# D' L0 x* g7 o* Q+ H# C                case 4:anum=a[3];p34=1;p33=1;p32=1;p31=0;p30=1;break;
1 `6 v6 i+ C8 J* J6 j. b3 a                case 5:anum=a[4];p34=1;p33=1;p32=1;p31=1;p30=0;break;
7 h2 v& P% U% i        }
( X; p( Z9 ~9 J3 X        //anum=a[10];/*修改可以改变光柱高度 （anum值分开几个部分用定时器区分显示）(a[]内逐加) */
        if(anum<=8){P2=lednum[anum]3=P3&0x1f;}//屏蔽高三位
        //else {P2=0xff3=lednum2[anum-9];}
/ P! j& ~0 J- U) J) X% ?        if(anum==9){P2=0xff;p35=1;p36=0;p37=0;}
, M# q3 O" \+ ?3 G: u        if(anum==10){P2=0xff;p35=1;p36=1;p37=0;}
) c6 X) b. V- n0 _" t8 B        if(anum==11){P2=0xff;p35=1;p36=1;p37=1;}

2 ~9 A4 @$ Z( s/ R. J}

uchar STC_ADC()                   //！！根据数据手册写一个ad读取函数
  {
     uchar i;
        ADC_RES   = 0;
        ADC_RESL  = 0;
; y  u3 T: _* K  ADC_CONTR = BIN(10001000);
  i=3;
        while(i--);
- I  a  }7 F# g+ h        while (1)                     
- I9 k2 Y" D2 X4 W* L. O! n     {
         if (ADC_CONTR & BIN(10000))      
/ ?3 m6 ]6 T% b         {
0 }5 s8 j7 H8 N1 ^5 t6 n* t: s            break;
           }
3 c5 ^  ~3 @) Z& V3 g     }
     ADC_CONTR = BIN(10000000);
  return( ADC_RESL<<2) ;
}
8 `1 P% H0 A9 Z5 r7 Qshort sqrt_16( unsigned long M)   
{
    unsigned int N, i;
    unsigned long tmp, ttp;
    if( M == 0 )            
% ?/ ^' }2 }  y  g7 d( K" P: c        return 0;
+ s' X2 f$ [  R) f" a. V* r7 M$ x
$ G6 ]0 {! n- L2 O1 C  s    N = 0;
4 X6 D+ h* {6 `( _0 S( M7 f. ?+ _! C
    tmp = ( M >> 30 );        
& c3 i5 ~% a) I" ^7 j    M <<= 2;
% Z0 a0 k2 E  I" g4 C    if( tmp > 1 )            
    {
        N ++;               
        tmp -= N;
( d; P5 x4 y- W0 _    }
2 v% s- e, Y  q+ G
    for( i=15; i>0; i-- )   
    {
        N <<= 1;           
5 N3 e- [  H% f: A3 Q' X1 O) S
0 n1 V$ C4 R% O8 N( R        tmp <<= 2;
2 ~8 D0 ]2 E  S+ t        tmp += (M >> 30);  
$ i8 @8 N% O! z! @4 v9 Q  q3 o* E
        ttp = N;
        ttp = (ttp<<1)+1;

* y' r( _* M( {5 r) P1 I        M <<= 2;
        if( tmp >= ttp )   
        {
            tmp -= ttp;
            N ++;
        }      
    }
6 t' g3 ?8 Y  z  Z
9 X8 J8 L% J  |$ n  J& ?; }    return N;
}
void FFT()
: }6 \2 f  @; ~8 W& Z! K* _{
, I2 V* P: _) n# B( P register    uchar i,bb,j,k,p,max;
9 `, I, X5 k( X( L- y register short TR,TI,temp;
    unsigned long ulReal;                             
    unsigned long ulImage;
1 ?# v* R* ?6 c, I  X2 N
2 g. O/ v" h  F4 z* I
! E; e* S5 d9 s4 h) ~
for(i=0; i<SAMPLE_NUM;i++)          //此处可以加入自动增益
; ^/ f8 ]+ k2 |% Y7 R4 M {
$ w# [+ \9 t4 S! M                FftReal[BRTable] = STC_ADC()<<keep;//使显示保持在一定范围内
! k0 H  S& A. G- _        FftImage = 0;
+ n) `. J" P) D9 S" r) J/ ^5 R4 f }
6 n* U- _/ p- O3 C# A
9 A; e: C7 b5 C% v6 h& c         keepnum=FftReal[2]/32;//提取等级数
                   if((7<keepnum)&&(keepnum<=8)) {keep=1;}
         else if((4<keepnum)&&(keepnum<=6)) {keep=2;}
! h  Z% f7 G5 A. f1 h; ^         else if((2<keepnum)&&(keepnum<=4)) {keep=3;}
/ u7 m% N  [8 r) w% _$ b         else {keep=5;}        
! c( |, W# T# P, H2 }: q
. X$ m4 Y/ ^2 [! R7 l    for( i=1; i<=NUM_2_LOG; i++)                          
    {
7 }  c9 p, ^& U# K/ b; Q/ A        bb=1;
9 n6 P$ X/ ~7 D$ I        bb <<= (i-1);                                      
        for( j=0; j<=bb-1; j++)                           
$ {0 x- ^0 S& `- W        {
! A8 j  c  u7 u0 j            p=1;
            p <<= (NUM_2_LOG-i);            
4 I! n, p7 c( S: {            p = p*j;
. F& V. X. @0 ]' T+ D. J5 `            for( k=j; k<SAMPLE_NUM; k=k+2*bb)               
            {
$ Z! r" Z/ P5 I/ b. T                TR = FftReal[k]; TI = FftImage[k]; temp = FftReal[k+bb];
- \) d( Z, |/ T: Z5 ]                FftReal[k] = FftReal[k] + ((FftReal[k+bb]*cos_tabb[p])>>7) + ((FftImage[k+bb]*sin_tabb[p])>>7);
: H& h' W% v, G  g( H3 v                FftImage[k] = FftImage[k] - ((FftReal[k+bb]*sin_tabb[p])>>7) + ((FftImage[k+bb]*cos_tabb[p])>>7);
, J+ m: X' G) n  v. H  ]                FftReal[k+bb] = TR - ((FftReal[k+bb]*cos_tabb[p])>>7) - ((FftImage[k+bb]*sin_tabb[p])>>7);
1 m6 i* i3 v* v; C8 @) M; P3 X' v                FftImage[k+bb] = TI + ((temp*sin_tabb[p])>>7) - ((FftImage[k+bb]*cos_tabb[p])>>7);

                FftReal[k]  >>= 1;            
                FftImage[k]  >>= 1;
                FftReal[k+bb]  >>= 1;                 
' K* L* |: h4 q9 j% O                FftImage[k+bb]  >>= 1;

            }  
        }
    }
. n7 L- r) R& B" c4 j# }+ H& i    max=0;
/ Y) ?. B# ]3 s2 }# d$ Q    for( i=0; i<5; i++)//5
/ r# D/ P* k' y# ^0 u9 b  K: y    {  
        ulReal = FftReal[i+1];
. Y- d; d' }3 \: n% {+ [        ulReal *= ulReal;
        ulImage = FftImage[i+1];
        ulImage *= ulImage;

        a = sqrt_16( ulReal + ulImage );   //修改

7 {, o! d* l5 h* x  }        if( a < FFT_OUT_MIN )     
            a = 0;//修改
" ]% u3 _. x9 P5 N        else
          a = a-FFT_OUT_MIN;
0 {6 n' f( q9 ~0 O        if( a >max)
             max =a;
                         //disp();                     
* k* }" U. W+ g" L, D" E7 P9 X2 ^/ a    }
6 z5 i: Q! S8 N: p- r1 `* L6 J2 t2 ~    if(max>11) //11
4 A2 B: [4 A! ]# o5 Y3 G7 [    {
       max/=11;        
! G: V0 t* V$ J) g- U  F- K+ @- `        for( i=0; i<5; i++) //输出a的5个分离数值
        {      
( Q1 V$ v( ~3 i" z             a/=max;

4 _$ B9 R. g9 ?! A( ~# a        }  
; B, Y3 Q% g0 F& b6 A& |    }
+ R+ r8 K" S% P; s}            

. x8 `+ b/ f( B& ^3 u
void main()
$ E) @! F1 L' A& _{
        P2M0=0xff;//  (11111111);//P2组设置为推挽输出
" F# g2 L; ], X( }3 k9 _: d3 o8 s        P2M1=0;

% z( W0 F" E- J7 u- t        …………余下代码请下载附件…………
下载：
& H0 x* J% d7 N  Q) l1 k4 q

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

/ x; x- Q* Y/ M. s3 a' k
$ V3 c4 U* h$ C5 j

cat12620

学习一下

fndgcs

不错

colcol

看看，多谢