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

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

EDA365欢迎您登录！

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

x

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

5 w) H; h+ n' @+ b3 G
12单片机频闪，五色LED音乐频谱源程序代码, ?) D0 [5 s1 g# s, j; f

, _. Y) s6 {+ p; L, [( z7 |原理图如下：9 v" u# t: u/ M6 H

8 g" f1 x* ]  l0 L- @元件清单：# g2 N3 f2 S% X4 m
% k: S4 D! b4 s% d1 g
五色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;//使显示保持在一定范围内
1 t1 W8 P* j$ {; ~$ Z% k  v       FftImage = 0;- G, `1 B/ z! E( V" A5 o" O0 E" g
}
9 m0 W% }8 w$ V
% x# k7 i2 u3 P0 @6 i; g3 j       keepnum=FftReal[2]/32;//提取等级数/ n! B+ a" ~, e8 Z2 `7 {4 R
               if((7<keepnum)&&(keepnum<=8)) {keep=1;}' O/ m5 q' w2 G- f5 C
      else if((4<keepnum)&&(keepnum<=6)) {keep=2;}
) u. f7 L+ Y$ o( p' F       else if((2<keepnum)&&(keepnum<=4)) {keep=3;}
5 E8 N2 _: _1 \( t* |       else {keep=5;}       7 q( b# \3 y9 d7 [  h

" k/ V/ w" b! U) I) J0 ~" { for( i=1; i<=NUM_2_LOG; i++)
) K8 E- G. v$ l) D {
/ \/ h, v; O0 \: T$ n       bb=1;4 V7 c3 Q: R# @* X4 D
      bb <<= (i-1);                                     2 W7 _# ~* g: _5 W
      for( j=0; j<=bb-1; j++)                         ! P7 X6 ]9 H$ s/ ]3 c4 E
      {
* a- |! A6 g: Q          p=1;
/ k" p1 N+ X/ G/ m: z          p <<= (NUM_2_LOG-i);          5 V- p9 y0 h/ ?
         p = p*j;% E* K% c0 A) Z
         for( k=j; k<SAMPLE_NUM; k=k+2*bb)             ; v  r( |$ x1 w+ r  {6 h
         {
5 \: C# b2 L4 i) \1 d0 g/ t+ G: c             TR = FftReal[k]; TI = FftImage[k]; temp = FftReal[k+bb];0 O/ E& X! K/ `) m8 e
            FftReal[k] = FftReal[k] + ((FftReal[k+bb]*cos_tabb[p])>>7) + ((FftImage[k+bb]*sin_tabb[p])>>7);
) w1 P5 u$ n: w4 \7 o1 f& s             FftImage[k] = FftImage[k] - ((FftReal[k+bb]*sin_tabb[p])>>7) + ((FftImage[k+bb]*cos_tabb[p])>>7);4 O' S2 v) z$ x! ?' a+ H  U
            FftReal[k+bb] = TR - ((FftReal[k+bb]*cos_tabb[p])>>7) - ((FftImage[k+bb]*sin_tabb[p])>>7);
5 a7 f, D, k7 P  T( q             FftImage[k+bb] = TI + ((temp*sin_tabb[p])>>7) - ((FftImage[k+bb]*cos_tabb[p])>>7);
  N" {; X) K* ^! U4 T) s4 h6 M
0 l3 J1 g6 d% N2 z1 M' T3 ]& Y' V& X             FftReal[k]  >>= 1;
2 s& f: k/ M1 i5 e5 ~             FftImage[k]  >>= 1; : D+ w7 o' c$ @+ z$ J
            FftReal[k+bb]  >>= 1;                2 M3 z, m' p/ _; t- \
            FftImage[k+bb]  >>= 1; / n" d4 P+ `6 N
* b) [* A, _) e( {- {
         }
$ L: l" [$ A- B       }$ F. r2 J7 J6 s4 @1 s0 L" |0 C
}
4 |* t; Y8 W0 ^, ~9 M max=0;
' |1 c6 Y9 H8 e6 o) H for( i=0; i<5; i++)//5
& h" l" C: Q" O, V5 z9 j {  ! O) {8 n8 \+ x3 h
      ulReal = FftReal[i+1];5 G; P- h6 w: Q# L, @: j% X$ l
      ulReal *= ulReal;
& U0 t4 C* l. j" x2 N2 L       ulImage = FftImage[i+1];
) G% R4 {7 }8 q; f       ulImage *= ulImage;" N* V. e7 e9 S# p: Q7 y0 c- G, C

, @2 Q3 f4 x2 U* s. e$ a       a = sqrt_16( ulReal + ulImage ); //修改0 j- x  m; X; T$ m7 H

! W: [0 }4 k8 ]; u& B$ h       if( a < FFT_OUT_MIN )
3 u' n( Y3 Q8 i4 y6 W$ q          a = 0;//修改& |1 \) D( f$ U0 p
      else2 o9 ~" A7 N8 U
      a = a-FFT_OUT_MIN;( E6 u: c2 {; U. |8 b8 @7 ]5 s
      if( a >max)
9 }8 R- M5 b, M: {4 ~& b  p: _          max =a;
$ W9 \7 m5 }$ X% E+ \                      //disp();                     S4 C/ P- J: u! |' F, ^: U$ b3 s
}
% L, b; ~) F* Q7 g) [% e5 \/ R if(max>11) //114 ]7 v- G7 i# v" s, j
{% z, \% E! L6 E4 A' D6 f
   max/=11;       / n0 M7 }. Q7 B
      for( i=0; i<5; i++) //输出a的5个分离数值
1 a5 n$ J' |: X: z4 ^+ _8 \+ A       {
1 x! D0 E9 D" [- j3 c$ }          a/=max;
5 P  L; K! Z, w/ ], o5 g& e: |. ]2 V6 I/ @; @5 Z7 T! ?
      }  & y( ?, ~+ c  P: O
}- d0 i! ^+ d- \6 ~- X1 B
}          $ k9 d3 B* N# x  {8 c
( J. ?9 q/ c  @& ?: l
* S8 ?' ]" x! M
void main()
/ Y! G" o& o; M  ~9 k! [# c! m1 C{* ^9 {% j) |+ }; _5 R$ F
      P2M0=0xff;//  (11111111);//P2组设置为推挽输出/ ]3 h3 {; q" D, u: |
      P2M1=0; ) @8 e: J- m1 ?
8 F" W& T! Y* h: x+ Y
      …………余下代码请下载附件…………
4 J1 m/ r5 E; T" A; X下载：( \; I# `/ s5 q8 x

游客，如果您要查看本帖隐藏内容请回复
) `) |* Y6 y, A7 b: L+ o

1 p% {+ e( [# ~' y: t

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

学习一下

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

不错

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

看看，多谢

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

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

EDA365欢迎您登录！

推荐内容 /1

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