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

wu68aq · 发表于 2019-1-21 09:33

EDA365欢迎您登录！

您需要登录才可以下载或查看，没有帐号？注册

x

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

. E) E8 n6 W8 R3 e3 f+ ~5 }
12单片机频闪，五色LED音乐频谱源程序代码9 r. S+ Z# \5 K7 E+ G5 V
4 X$ J* F# Y6 G2 V" z) h+ F, @, ]
原理图如下：
( b% J- n! n: u. n! n+ Q
# W" ?6 o' }6 x: t# K. ]元件清单：4 U- Q8 a0 Z1 ?( L. s

; r2 y9 [1 J- \! Q. x五色LED音乐频谱源程序：
#include <stc12c5a60s2.h>
#include<intrins.h>
#define BIN(n) LongToBin(0x##n##)
#define uchar  unsigned char
#define uint  unsigned int
#define SAMPLE_NUM 64
#define NUM_2_LOG 6
#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))

uchar 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  };

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;//用于分离

/*加入数组用于显示相应led灯数目*/
uchar lednum[]={0x00,0x01,0x03,0x07,0x0f,0x1f,0x3f,0x7f,0xff};//0-7的显示数组  P2组控制
int xdata FftReal[SAMPLE_NUM];
int xdata FftImage[SAMPLE_NUM];
sbit p30=P3^0;
sbit p31=P3^1;
sbit p32=P3^2;
sbit p33=P3^3;
sbit p34=P3^4;
sbit p35=P3^5;//9-11的led控制
sbit p36=P3^6;
sbit p37=P3^7;

void timerinit()//定时器初始化函数
{
      TMOD=0x01;
      TH0=(65536-6000)/256;
      TL0=(65536-6000)%256;
      EA=1;
      ET0=1;
      TR0=1;
}
void disp()
{
      timernum++;
      if(timernum==6) timernum=1;
      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;
            case 4:anum=a[3];p34=1;p33=1;p32=1;p31=0;p30=1;break;
            case 5:anum=a[4];p34=1;p33=1;p32=1;p31=1;p30=0;break;
      }
      //anum=a[10];/*修改可以改变光柱高度（anum值分开几个部分用定时器区分显示）(a[]内逐加) */
      if(anum<=8){P2=lednum[anum]

3=P3&0x1f;}//屏蔽高三位
//else {P2=0xff

3=lednum2[anum-9];}
      if(anum==9){P2=0xff;p35=1;p36=0;p37=0;}
      if(anum==10){P2=0xff;p35=1;p36=1;p37=0;}
      if(anum==11){P2=0xff;p35=1;p36=1;p37=1;}

}

uchar STC_ADC()                //！！根据数据手册写一个ad读取函数
  {
   uchar i;
      ADC_RES = 0;
      ADC_RESL  = 0;
  ADC_CONTR = BIN(10001000);
  i=3;
      while(i--);
      while (1)
   {
      if (ADC_CONTR & BIN(10000))
      {
         break;
         }
   }
   ADC_CONTR = BIN(10000000);
  return( ADC_RESL<<2) ;
}
short sqrt_16( unsigned long M)
{
unsigned int N, i;
unsigned long tmp, ttp;
if( M == 0 )
      return 0;

N = 0;

tmp = ( M >> 30 );
M <<= 2;
if( tmp > 1 )
{
      N ++;
      tmp -= N;
}

for( i=15; i>0; i-- )
{
      N <<= 1;

      tmp <<= 2;
      tmp += (M >> 30);

      ttp = N;
      ttp = (ttp<<1)+1;

      M <<= 2;
      if( tmp >= ttp )
      {
         tmp -= ttp;
         N ++;
      }
}

return N;
}
void FFT()
{
register uchar i,bb,j,k,p,max;
register short TR,TI,temp;
unsigned long ulReal;
unsigned long ulImage;

for(i=0; i<SAMPLE_NUM;i++)       //此处可以加入自动增益
{
            FftReal[BRTable] = STC_ADC()<<keep;//使显示保持在一定范围内
6 X/ C9 U8 V' h0 |       FftImage = 0;
9 o' |/ J* g* {' |# Z+ { }
( ^( o$ p: ]' S
& I: T- g% ^% G: }       keepnum=FftReal[2]/32;//提取等级数
3 G& W; H: {/ _. K  g5 S9 J) W                if((7<keepnum)&&(keepnum<=8)) {keep=1;}
8 u' |& K+ k" \) @0 j! C       else if((4<keepnum)&&(keepnum<=6)) {keep=2;}& z* h" Z# q; d
      else if((2<keepnum)&&(keepnum<=4)) {keep=3;}, J9 a( i6 ^6 K# _6 {( _+ g
      else {keep=5;}
8 E7 D8 d# v6 d. ^, B1 R/ J. E  V# p! {3 I! X' L
for( i=1; i<=NUM_2_LOG; i++)
6 F$ G, l- @7 ~% N( X3 o { " ^! d) L5 ]2 ]. A8 Y9 c) Z
      bb=1;# s' k( [5 H+ r, U3 |% w
      bb <<= (i-1);
  K2 U% T7 `: {1 B' r0 M       for( j=0; j<=bb-1; j++)                         9 [0 Y! z. @3 n+ @4 ]/ p- d
      { 4 Q. c; X; h% M2 }) d
         p=1;& u3 Z& J: D" f8 k7 w3 ~( z/ a" X
         p <<= (NUM_2_LOG-i);          * ^7 x' g1 t' n) r3 z
         p = p*j;
5 R5 E; z+ V% D( [          for( k=j; k<SAMPLE_NUM; k=k+2*bb)             5 M- O3 c4 s% }8 q! o3 c7 `; j
         {
7 E$ |  X7 S) t+ Z& G- n5 ~8 b             TR = FftReal[k]; TI = FftImage[k]; temp = FftReal[k+bb];  x, W6 y/ f& e) ^+ N
            FftReal[k] = FftReal[k] + ((FftReal[k+bb]*cos_tabb[p])>>7) + ((FftImage[k+bb]*sin_tabb[p])>>7);
0 R$ M5 l$ h( I- [$ M1 d             FftImage[k] = FftImage[k] - ((FftReal[k+bb]*sin_tabb[p])>>7) + ((FftImage[k+bb]*cos_tabb[p])>>7);
, N7 p) ~1 |7 {6 c: H1 P* w             FftReal[k+bb] = TR - ((FftReal[k+bb]*cos_tabb[p])>>7) - ((FftImage[k+bb]*sin_tabb[p])>>7);
1 k& [# ^; p0 H5 @! F, H7 y             FftImage[k+bb] = TI + ((temp*sin_tabb[p])>>7) - ((FftImage[k+bb]*cos_tabb[p])>>7); + i8 k8 v2 k: {( h

/ t& E! y0 J+ U  @& k- z             FftReal[k]  >>= 1;
% u9 o( h5 A8 v1 I             FftImage[k]  >>= 1;
; o- ]! e4 C* E$ ?" q             FftReal[k+bb]  >>= 1;
9 z' U* n6 j* w" K) `- g4 k& H             FftImage[k+bb]  >>= 1;
% F9 l2 D; K3 J# s. M  O- i1 F# M/ R% e* _% m1 `5 ~
         }  ; [1 a$ [( b# y3 V
      }; }# D' M. J" _6 R) y- ?& U& \
}
6 ~; y4 W, s9 [5 g" g0 N: D max=0;3 l, _' z# K' k9 `1 ?
for( i=0; i<5; i++)//5
- `" J1 K- C% Q {
1 h& s+ Z0 U& d. A  ?" a       ulReal = FftReal[i+1];3 {3 n- q6 _( m7 i7 T
      ulReal *= ulReal;! V# q& m$ ]" x) w+ x  o, U0 C0 y$ p
      ulImage = FftImage[i+1];
( S( B4 v/ ~5 Q! o       ulImage *= ulImage;
0 e$ b) o; ~6 v  c0 l
, M1 c1 W. S7 c2 m2 E       a = sqrt_16( ulReal + ulImage ); //修改3 I+ D. G# |- @& i

5 i& p: x: [7 X$ J+ o, M! i  a* K* x       if( a < FFT_OUT_MIN )    + W" u/ B; m% r2 H; \& v  _! ?
         a = 0;//修改3 u/ l* g, T6 E3 h& d4 |
      else: m+ t: n4 x4 |! ?
      a = a-FFT_OUT_MIN;" v/ R+ ~1 F( c+ y
      if( a >max)
- _0 f( C/ L6 g0 m. S; \# F          max =a;8 j% H, p* L$ b& I& w) W
                     //disp();                   . Y$ T* c4 ^& Q) W$ H: Z! H
}
  V% P1 `' `* ] if(max>11) //11
" g) N$ P) u) M: g {
, Z- t5 w: H7 p$ v9 s    max/=11;
' A9 e6 \; Y- q( E7 Y       for( i=0; i<5; i++) //输出a的5个分离数值. i: E/ p# q  w
      {
* s; p3 N7 Q2 g4 J          a/=max;
2 t, P- K* E) X
2 o4 U  b; ^# G3 }  {5 P       }  ) ~% ^! o& l; `, v2 `
}
" y% I% j) i+ F8 J$ P}
0 j& r  A# U5 F! n0 Y4 F
% \) N1 o4 O) w1 n/ k! F+ r
$ b8 a; D# W, ?" w6 jvoid main()
" q3 q2 x( Z* \! _/ p, p{
9 ~' P5 O9 c2 {% S- Y0 L       P2M0=0xff;//  (11111111);//P2组设置为推挽输出
7 I& D: w) x) _# P9 }9 ]1 z       P2M1=0;
' p% L' c. M) I& u3 O: O
5 e3 y6 i( e' p       …………余下代码请下载附件…………
, \# A8 R" j1 ?/ H" a0 }' s5 s下载：
5 S' n7 d$ E6 h3 Z; p
游客，如果您要查看本帖隐藏内容请回复
2 f4 [/ E' E6 K3 v3 x. B" s  Q0 S/ @

9 J: _1 T" V7 v% P

cat12620 · 发表于 2019-1-21 13:18

学习一下

fndgcs · 发表于 2020-5-26 13:36

不错

colcol · 发表于 2020-8-10 23:58

看看，多谢

帐号		自动登录	找回密码
密码			注册

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

EDA365欢迎您登录！

推荐内容 /1

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