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()       *********************************           
 //===============================================================================================================

sbit STR=P1^7;              //鎖存 
sbit SCK=P1^6;             //時鐘 
sbit SERr= P0^4;            //數據
sbit SERg= P0^5;

sbit SERr1= P0^6;
sbit SERg1= P0^7; 
uchar Move,Speed,line;  //時間溫度變量
uint zimuo;                     //字模計數器
uchar BUFF[20];              //緩存
uchar BUFF1[20];              //緩存

void   DelayMs(void);              // 延時
void   in_data();       // 調整移動數據
void   rxd_data();       // 串口發送移動數據
/******************************************************/
/**************************延時***********************/

void DelayMs(void)
 {
  uchar TempCyc;
  for(TempCyc=250;TempCyc>1;TempCyc--)
     {;}
 }
/********************************************/

/*主函數*/
void main()
{ 
   Move=0;
   zimuo=0;
   P0M0=0XFF;
   P0M1=0X00;
   P1M0=0X0C;
   P1M0=0X00;
   while(1) 
   {
   while(zimuo<2048)
    {
  while(Move<16)                 //數據移位。
       {
      for(Speed=0;Speed<3;Speed++)       //移動速度
       { 
      for(line=0;line<16;line++)
     {
           in_data();         //調整移動數據
              rxd_data();
                 P0=sw[line];      
                              
    STR=1;//鎖存
    STR=0;
       STR=1;
       DelayMs();  //延時，等待一段時間，讓這列顯示的內容在人眼內產生“視覺暫留”現象。
     DelayMs();
    DelayMs();
    DelayMs();
    
           }
   }
       Move++;                     //移動一步
      }
     Move=0;
  zimuo=zimuo+32;
    } 
   zimuo=0;
   }
}  
/**********************************************************/

void in_data(void)                         //調整數據
{
 char s;
 for(s=8;s>=0;s--)                       //i為向后先擇字節計數器，zimuoo為向后先字計數器
 {
  BUFF[2*s+1]=hanzi[zimuo+1+32*s+2*line];            //把第一個字模的第一個字節放入BUFF0中,第二個字模和第一個字節放入BUFF2中
  BUFF[2*s]=hanzi[zimuo+32*s+2*line];         //把第一個字模的第二個字節放入BUFF1中,第二個字模的第二個字節放入BUFF3中

  BUFF1[2*s+1]=hanzi1[zimuo+1+32*s+2*line];            //把第一個字模的第一個字節放入BUFF0中,第二個字模和第一個字節放入BUFF2中
  BUFF1[2*s]=hanzi1[zimuo+32*s+2*line];         //把第一個字模的第二個字節放入BUFF1中,第二個字模的第二個字節放入BUFF3中

 }
}

/***********************發送移動的數據****************************/
void rxd_data(void)              //串行發送數據
{
  uchar s;
  uchar inc,tempyid,temp,k,temp1;
 
  if(Move<8)
    inc=0;
  else
    inc=1;
  for(s=0+inc;s<16+inc;s++)     //發送16字節數據
 {
  if(Move<8)
       tempyid=Move;
     else
     tempyid=Move-8;
     temp=(BUFF>>tempyid)|(BUFF[s+1]<<(8-tempyid)); //h1左移tempyid位后和h2右移8-tempyid相或，取出移位后的數據。
     temp=255-temp;
  temp1=(BUFF1>>tempyid)|(BUFF1[s+1]<<(8-tempyid)); //h1左移tempyid位后和h2右移8-tempyid相或，取出移位后的數據。
     temp1=255-temp1;