一乐电子
切换到窄版

一乐电子百科

 找回密码
 请使用微信账号登录和注册会员

QQ登录

只需一步，快速开始

快捷登录

手机号码，快捷登录

搜索
一乐电子百科»首页 › 分享进步 › 玩转LED点阵 › 3264双色频谱鬼程序
12下一页
返回列表 发新帖
查看: 4644|回复: 18
收起左侧

3264双色频谱鬼程序

  [复制链接]
280078498
发表于 2012-5-15 10:06 | 显示全部楼层 |阅读模式
本帖最后由 280078498 于 2012-5-15 10:12 编辑

看到好多论坛都有用3264双色屏制作音乐频谱显示，忍不住从淘宝上花120元大洋买了一块屏，有花了7.9元买个显示的程序，几天后收到，没有坏点，但商家提供的原理图和实际接口有出入，折腾了1天终于点亮了，但发现不随音乐闪动，自己在闪烁，折腾的我又问商家，最后把所有的端口轮着换插了一遍，还是自己在自娱自闪。难道是鬼程序？现将全部资料发上来供大家剖析，看看鬼在哪里 1.jpg 2.jpg 3.jpg 4.jpg 5.jpg 08标准接口.jpg


源码：
#include<STC12C5A60S2.H>
#define uchar unsigned char
#define uint unsigned int  
#define  channel  0x01     //设置AD通道为 P1.0
#define ADC_POWER   (1<<7)
#define ADC_SPEEDHH (0x03<<5)
#define ADC_START   (1<<3)
#define PADCH       (1<<5)
#define ADC_FLAG    (1<<4)
sbit  SDA_R=P1^5;
sbit  SDA_R_TOP=P1^4;
sbit  SDA_G=P1^3;   
sbit  SDA_G_TOP=P1^2;
sbit  STCP=P1^6;
sbit  SHCP=P1^7;
//---------------------------------------------------------------------
//----------------------------------------------------------------------------------------------------------------------
//放大128倍后的sin整数表（128）
code char SIN_TAB[128] = { 0, 6, 12, 18, 24, 30, 36, 42, 48, 54, 59, 65, 70, 75, 80, 85, 89, 94, 98, 102,
105, 108, 112, 114, 117, 119, 121, 123, 124, 125, 126, 126, 126, 126, 126, 125, 124, 123, 121, 119, 117, 114, 112,
108, 105, 102, 98, 94, 89, 85, 80, 75, 70, 65, 59, 54, 48, 42, 36, 30, 24, 18, 12, 6, 0, -6, -12, -18, -24, -30,
-36, -42, -48, -54, -59, -65, -70, -75, -80, -85, -89, -94, -98, -102, -105, -108, -112, -114, -117, -119, -121,
-123, -124, -125, -126, -126, -126, -126, -126, -125, -124, -123, -121, -119, -117, -114, -112, -108, -105, -102,
-98, -94, -89, -85, -80, -75, -70, -65, -59, -54, -48, -42, -36, -30, -24, -18, -12, -6 };
//放大128倍后的cos整数表（128）
code char COS_TAB[128] = { 127, 126, 126, 125, 124, 123, 121, 119, 117, 114, 112, 108, 105, 102, 98, 94,
89, 85, 80, 75, 70, 65, 59, 54, 48, 42, 36, 30, 24, 18, 12, 6, 0, -6, -12, -18, -24, -30, -36, -42, -48, -54, -59,
-65, -70, -75, -80, -85, -89, -94, -98, -102, -105, -108, -112, -114, -117, -119, -121, -123, -124, -125, -126, -
126, -126, -126, -126, -125, -124, -123, -121, -119, -117, -114, -112, -108, -105, -102, -98, -94, -89, -85, -80,
-75, -70, -65, -59, -54, -48, -42, -36, -30, -24, -18, -12, -6, 0, 6, 12, 18, 24, 30, 36, 42, 48, 54, 59, 65, 70,
75, 80, 85, 89, 94, 98, 102, 105, 108, 112, 114, 117, 119, 121, 123, 124, 125, 126, 126 };
//采样存储序列表
code char LIST_TAB[128] = { 0, 64, 32, 96, 16, 80, 48, 112,
8, 72, 40, 104, 24, 88, 56, 120,
4, 68, 36, 100, 20, 84, 52, 116,
12, 76, 44, 108, 28, 92, 60, 124,
2, 66, 34, 98, 18, 82, 50, 114,
10, 74, 42, 106, 26, 90, 58, 122,
6, 70, 38, 102, 22, 86, 54, 118,
14, 78, 46, 110, 30, 94, 62, 126,
1, 65, 33, 97, 17, 81, 49, 113,
9, 73, 41, 105, 25, 89, 57, 121,
5, 69, 37, 101, 21, 85, 53, 117,
13, 77, 45, 109, 29, 93, 61, 125,
3, 67, 35, 99, 19, 83, 51, 115,
11, 75, 43, 107, 27, 91, 59, 123,
7, 71, 39, 103, 23, 87, 55, 119,
15, 79, 47, 111, 31, 95, 63, 127
};

uchar COUNT=15,COUNT1=0,ADC_Count=0,LINE=15,G,T;
uchar i,j,k,b,p;                 
int Temp_Real,Temp_Imag,temp;                // 中间临时变量  
uint TEMP1;
int xdata Fft_Real[128];
int xdata Fft_Image[128];               // fft的虚部
uchar xdata LED_TAB2[16];    //记录 漂浮物 是否需要 停顿一下
uchar xdata LED_TAB[16];    //记录红色柱状
uchar xdata LED_TAB1[16];    //记录 漂浮点
void FFT()
{     //uchar x;              
    for( i=1; i<=7; i++)                            /* for(1) */
    {
        b=1;
        b <<=(i-1);                                       //碟式运算，用于计算 隔多少行计算 例如 第一极 1和2行计算，，第二级
        for( j=0; j<=b-1; j++)                              /* for (2) */
        {
            p=1;
            p <<= (7-i);            
            p = p*j;
            for( k=j; k<128; k=k+2*b)                /* for (3) 基二fft */
            {
                Temp_Real = Fft_Real[k]; Temp_Imag = Fft_Image[k]; temp = Fft_Real[k+b];
                Fft_Real[k] = Fft_Real[k] + ((Fft_Real[k+b]*COS_TAB[p])>>7) + ((Fft_Image[k+b]*SIN_TAB[p])>>7);
                Fft_Image[k] = Fft_Image[k] - ((Fft_Real[k+b]*SIN_TAB[p])>>7) + ((Fft_Image[k+b]*COS_TAB[p])>>7);
                Fft_Real[k+b] = Temp_Real - ((Fft_Real[k+b]*COS_TAB[p])>>7) - ((Fft_Image[k+b]*SIN_TAB[p])>>7);
                Fft_Image[k+b] = Temp_Imag + ((temp*SIN_TAB[p])>>7) - ((Fft_Image[k+b]*COS_TAB[p])>>7);     
                // 移位.防止溢出. 结果已经是本值的 1/64               
              Fft_Real[k] >>= 1;            
                Fft_Image[k] >>= 1;
               Fft_Real[k+b]  >>= 1;                 
                Fft_Image[k+b]  >>= 1;
                                                                              
            }     
        }
    }
//  Fft_Real[0]=Fft_Image[0]=0;    //去掉直流分量
//  Fft_Real[63]=Fft_Image[63]=0;
// x=((((Fft_Real[1]* Fft_Real[1]))+((Fft_Image[1]*Fft_Image[1])))>>5);
for(j=0;j<16;j++)            
{                     
  TEMP1=((((Fft_Real[j+1]* Fft_Real[j+1]))+((Fft_Image[j+1]*Fft_Image[j+1])))>>1);//求功率
  if(TEMP1>1)TEMP1--;
  else TEMP1=0;
  if(TEMP1>31)TEMP1=31;
  if(TEMP1>(LED_TAB[j]))LED_TAB[j]=TEMP1;
  if(TEMP1>(LED_TAB1[j]))
  {   LED_TAB1[j]=TEMP1;
   LED_TAB2[j]=14;      //提顿速度=12
  }
}      
}
void Init()
{  

//-----------------------------------------------------------------------------------
     P1ASF = 0x02;                 //0000,0010, 将 P1.1 置成模拟口
  P1M0 = 0x01;                    //0000，0001用于A/D转换的P1.x口，先设为开漏
  P1M1 = 0x01;                    //0000，0001 P1.0先设为开漏。断开内部上拉电阻
   
     AUXR1 &=0xFB;                 //1111,1011, 令 ADRJ=0
  
  EADC=1;        //AD中断打开
  ADC_CONTR = ADC_POWER | ADC_SPEEDHH | ADC_START | channel;
       //1110 1001   1打开 A/D （ADC_POWER）转换电源；11速度为70周期一次；
          //0中断标志清零；1启动adc(ADC_START);001AD通道打开（这里为P1.1）;
//-----------------------------------------------------------------------------------
  //P1M0=P1M1=1;
  P2M0=1;
     TMOD=0X12;        
  TH0=0xb0;      //                                 
  TL0=0xb0;
  TH1=0xEE;               
  TL1=0XC0;
  ET0=1;            //定时器0 打开
  TR0=0;            //关闭定时器
  ET1=1;
  TR1=1;
  PT1=0;
  PT0=1;
     IPH=PADCH;
  IP=PADC;        //中断优先级
  EA=1;       //总中断打开
}

void ADC_Finish() interrupt 5
{    ADC_CONTR &= !ADC_FLAG;
     Fft_Real[LIST_TAB[ADC_Count]]=(int)((ADC_RES)<<1)+(ADC_RESL>>1)*2;//-512; //按LIST_TAB表里的顺序，进行存储 采样值,,
//  ADC_CONTR = ADC_POWER | ADC_SPEEDHH| ADC_START | channel; // 为了采集负电压，采用 偏置采集。电压提高到1/2 vcc，，所以要减去256
   if(ADC_Count<=127)ADC_Count++;
   else {EADC=0;TR0=0;}                 
}
void LED_Display() interrupt 3      //中断一次 显示一行。。。
{   
  TH1=0xf2;            
  TL1=0XAa;      
  for (G=0;G<16;G++)        //往点阵屏填充 一行的 数据
  {
   if(LED_TAB[G]<=LINE+16)SDA_R_TOP=1;
   else SDA_R_TOP=0;
     if(LED_TAB[G]<=LINE)SDA_R=1;
   else SDA_R=0;
   if(LED_TAB1[G]==LINE){SDA_G_TOP=1;SDA_G=0;}
   else if(LED_TAB1[G]==(LINE+16)){SDA_G_TOP=0;SDA_G=1;}
   else SDA_G=SDA_G_TOP=1;
   SHCP=1;SHCP=0;
   SHCP=1;SHCP=0;
   SHCP=1;SHCP=0;
   SDA_G_TOP=1;SDA_G=1;SDA_R_TOP=1;SDA_R=1;
   SHCP=1;SHCP=0;
  }
  STCP=1;STCP=0;
  P2=15-LINE;
  if(LINE>0)LINE--;
  else LINE=15;
  //////////////////////////

   if(LED_TAB[COUNT]>0)LED_TAB[COUNT]--;     //柱状递减，
  if(COUNT>0)COUNT--;
    else COUNT=15;
   if(LED_TAB[COUNT]>0)LED_TAB[COUNT]--;
    if(COUNT>0)COUNT--;
    else COUNT=15;
                  //漂浮物递减
//  if(LED_TAB2[COUNT1]==0)     //判断是否需要停顿   
//  {
//     if(LED_TAB1[COUNT1]>LED_TAB[COUNT1])LED_TAB1[COUNT1]--;//大于柱状则递减（保持漂浮物在柱状之上）
//   }
//  else LED_TAB2[COUNT1]--;
//   COUNT1++;
//   if(COUNT1>=16)COUNT1=0;
   if(LED_TAB2[COUNT1]==0)
   {
     if(LED_TAB1[COUNT1]>LED_TAB[COUNT1])LED_TAB1[COUNT1]--;
   }
   else LED_TAB2[COUNT1]--;
   COUNT1++;
   if(COUNT1>=16)COUNT1=0;
}
void Ad_Control() interrupt 1      //控制采样率
{
ADC_CONTR = ADC_POWER | ADC_SPEEDHH| ADC_START | channel;  //开始AD采集
}
  //==============================================================================================================
// *******************          main()       *********************************            
//===============================================================================================================
void main()
{
    uchar i;
  Init();
while(1)
{  
  ADC_Count=0;
  TR0=1;
  EADC=1; //开启定时器中断0，，开启ADC
  while(ADC_Count<128);
        for(i=0;i<128;i++)
        {
         Fft_Image=0;
        }
  FFT();
  //FFT运算。并转换为 功率值。。。         
  // TR1=1;   
}
}


完整工程包： 3264.rar (52.9 KB, 下载次数: 664)
从程序上没有找到ABCD接到单片机哪个脚？不知道怎样看
电阻, 原理图
打赏
回复

举报

100abc
发表于 2012-5-15 10:43 | 显示全部楼层
14.jpg
abcd接到P2吧
打赏
回复 支持 反对

举报

zhouqian2018
发表于 2012-5-15 10:49 | 显示全部楼层
论坛里不是有程序，怎么不、试一试呢、
打赏
回复 支持 反对

举报

jatn112
发表于 2012-5-15 10:49 | 显示全部楼层
一块屏要120元是不是有点高了。
打赏
回复 支持 反对

举报

261307853
发表于 2012-5-15 11:08 | 显示全部楼层
LZ真有米，这种屏坛里貌似有很多的
打赏
回复 支持 反对

举报

share_all
发表于 2012-5-15 11:11 | 显示全部楼层
你的情况应该是AD输入通道没接对，真正的AD通道悬空了
我以前也玩过，开始也语带这个问题的
打赏
回复 支持 反对

举报

longlong
发表于 2012-5-15 12:13 | 显示全部楼层
7.9元买程序？？？？？？？？？？？？？无语了~
打赏
回复 支持 反对

举报

280078498
 楼主| 发表于 2012-5-15 12:24 | 显示全部楼层
你的情况应该是AD输入通道没接对，真正的AD通道悬空了
我以前也玩过，开始也语带这个问题的
share_all 发表于 2012-5-15 11:11 https://www.yleee.com.cn/images/common/back.gif


请能详细说一下吗？
打赏
回复 支持 反对

举报

280078498
 楼主| 发表于 2012-5-15 16:31 | 显示全部楼层
已经搞定
打赏
回复 支持 反对

举报

80x86
发表于 2012-5-15 17:26 | 显示全部楼层
已经搞定
280078498 发表于 2012-5-15 16:31 https://www.yleee.com.cn/images/common/back.gif



    说说是怎么解决的？
打赏
回复 支持 反对

举报

下一页 »
12下一页
返回列表 发新帖

本版积分规则

QQ|一淘宝店|手机版|商店|电子DIY套件|一乐电子 ( 粤ICP备09076165号 ) 公安备案粤公网安备 44522102000183号

GMT+8, 2024-5-3 06:04 , Processed in 0.101651 second(s), 51 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表