tiaopin.c

本代码实现利用ＤＤＳ器件ＡＤ９８５１和单片机实现任意频率（１００hz－１０Ｍhz）正弦波的产生

#include <at89x51.h>
#include "scancodes.h"
#include<intrins.h>
#include<absacc.h>
#define uchar unsigned char
#define LCM_Data P0
#define Busy 0x80 //用于检测LCM状态字中的Busy标识
#define IN0 XBYTE[0x7ff]
sbit ad_busy=P3^3;
sbit LCM_RW=P1^6; //定义LCD引脚
sbit LCM_RS=P1^5;
sbit LCM_E=P1^7;
sbit W_CLK=P1^2;
sbit FQ_UD=P1^3;
sbit AD9851_Data=P1^1;
sbit Key_Data=P1^0; //定义Keyboard引脚
sbit Key_CLK=P3^2;
void delay (uchar us);
void LCMInit(void);
void DisplayOneChar(unsigned char X, unsigned char Y, unsigned char DData);
void DisplayListChar(unsigned char X, unsigned char Y, unsigned char code *DData);
void Delay5Ms(void);
void Delay400Ms(void);
void Decode(unsigned char ScanCode);
void WriteDataLCM(unsigned char WDLCM);
void WriteCommandLCM(unsigned char WCLCM,BuysC);
void selet(void);
void ad9851send(unsigned char);
void fm(unsigned int);
void fm5k(unsigned int);
void send9851();
void getw(unsigned long www);
uchar ad0809(void);
unsigned char ReadDataLCM(void);
unsigned char ReadStatusLCM(void);
unsigned char code frequents[] = {"The Frequent:"};
unsigned char code Hz[] = {"00,100,000Hz"};
unsigned char code MHz[] = {"10,000,000Hz"};
unsigned char code Cls[] = {" "};
static unsigned char IntNum = 0; //中断次数计数
static unsigned char KeyV; //键值
static unsigned char DisNum = 0; //显示用指针
static unsigned char Key_UP=0, Shift = 0;//Key_UP是键松开标识，Shift是Shift键按下标识
static unsigned char BF = 0; //标识是否有字符被收到
unsigned char keyse,key1,key2,key3,key4,key5,key6,key7,key8,cursor=0x80; //光标位置调整
unsigned long f,h;
bit fmflag=1,fmp=1;
float ff;
//unsigned char w0=0x09,w1=0x00,w2=0x00,w3=0x5d,w4=0x35;
unsigned char w0=0x09,w1=0x00,w2=0x24,w3=0x68,w4=0xAD;
//unsigned char w1=0x0e,w2=0x38,w3=0xe8,w4=0x8e,w0=0x09;
static uchar bdata adb[8];
void main(void)
{
unsigned char TempCyc;
unsigned int adm;
Delay400Ms(); //启动等待，等LCM讲入工作状态
W_CLK=0;
LCMInit(); //LCM初始化
Delay5Ms(); //延时片刻(可不要)
ReadDataLCM();//测试用句无意义
DisplayListChar(0, 0, frequents);
DisplayListChar(0, 1, Hz);
WriteCommandLCM(0xc0,1);
//DisplayListChar(0, 1, Cls);
IT0 = 0; //设外部中断1为低电平触发
EA = 1;
EX0 = 1; //开中断
W_CLK=0;
FQ_UD=0;
do
{
   if(fmflag==0)
     {
      adm=ad0809();
      adm=ad0809();
      fm(adm);
      }
    if(fmp==0)
    {
      adm=ad0809();
      adm=ad0809();
      fm5k(adm);
      }

   if (BF)
    {
      Decode(KeyV);
     if(KeyV==0x2B)
      {
        fmflag=0;
        _nop_();
      }
      if(KeyV==0x2C)
       {
        fmflag=1;
        fmp=1;
       }
     if(KeyV==0x34)
        fmp=0;
     if(KeyV==0x29)
      selet();
     if(KeyV==0x4E)
     {
      w3=w3-4;
      if(w3<=5)
      w2--;
      if(w2==0)
      w1--;
     }
     if(KeyV==0x55)
     {
      w3=w3+4;
      if(w3>=250)
      w2++;
      if(w2==255)
      w1++;
     }
     if(KeyV==0x31)
     w4++;
     if(KeyV==0x3A)
     w4--;
     if(KeyV==0x5B)
     {
       w0=0x09;w1=0x0e;w2=0x38;w3=0x0e8;w4=0x8e;
       //w0=0x09;w1=0x00;w2=0x00;w3=0x09;w4=0x53;
       DisplayListChar(0, 1, MHz);
     }
    }
  else
    EA = 1; //开中断
     //display();
     if(fmflag==1)
      {
       ad9851send(w4);
       ad9851send(w3);
       ad9851send(w2);
       ad9851send(w1);
       ad9851send(w0);
       FQ_UD=1;
       _nop_();
       FQ_UD=0;
      }
}
while(1);
}
void ad9851send(unsigned char ww)
{
unsigned char k;
for(k=0;k<8;k++)
{
 AD9851_Data=0x01&ww;
 ww=ww/2;
  // _nop_();
   W_CLK=1;
  // _nop_();
   W_CLK=0;
//   _nop_();}
}
}
//添加功能
void selet()
{ unsigned char i;
   f=key8*10000000+key7*1000000+key6*100000+key5*10000+key4*1000+key3*100+key2*10+key1;
   ff=536870912/180000000.0*8*f+0.5;
   h=(long)ff;
   w4=h;w3=h>>8;w2=h>>16;w1=h>>24;
}
uchar ad0809()
{
   uchar xdata *ad_adr;
   uchar jj;
   uchar admax=adb[0];
   ad_adr=&IN0;
   *ad_adr=0;
   delay(40);
   for(jj=7;jj>0;jj--)
     adb[jj]=adb[jj-1];
   adb[0]=*ad_adr;
   for(jj=1;jj<8;jj++)
     if(adb[jj]>admax)
      admax=adb[jj];
   return admax;
}
void fm(unsigned int admm)
{
   unsigned long wf,w10,wmax,wfmax,yy,yy2;
   uchar wmax1,wmax2,wmax3,wmax4;
   wf=w1*16777216+w2*65536+w3*256+w4;
   w10=238609;
   yy2=255-admm;
   yy=yy2*931;
   wmax=w10-yy;
   wfmax=wf+wmax;
   getw(wfmax);  
    send9851();
   wfmax=wf+wmax/2;
   getw(wfmax);  
    send9851();
  wfmax=wf-wmax;
  getw(wfmax);
      send9851();
   wfmax=wf-wmax/2;
   getw(wfmax);  
    send9851();
      _nop_();
  getw(wf);
  send9851(); 
    _nop_();
}
void fm5k(unsigned int admm)
{
   unsigned long wf,w10,wmax,wfmax,yy,yy2;
   uchar wmax1,wmax2,wmax3,wmax4;
   wf=w1*16777216+w2*65536+w3*256+w4;
   w10=119305;
   yy2=255-admm;
   yy=yy2*477;
   wmax=w10-yy;
   wfmax=wf+wmax;
   getw(wfmax);  
    send9851();
   wfmax=wf+wmax/2;
   getw(wfmax);  
    send9851();
  wfmax=wf-wmax;
  getw(wfmax);
      send9851();
   wfmax=wf-wmax/2;
   getw(wfmax);  
    send9851();
      _nop_();
  getw(wf);
  send9851(); 
    _nop_();
}
void getw(unsigned long www)
{
   w4=www&0x000000ff;
   www=www>>8;
   w3=www&0x000000ff;
   www=www>>8;   
   w2=www&0x000000ff;
   www=www>>8;
   w1=www&0x000000ff;
}
void send9851()
{
      ad9851send(w4);
      ad9851send(w3);
      ad9851send(w2);
      ad9851send(w1);
      ad9851send(w0); 
      FQ_UD=1;
      _nop_();
      FQ_UD=0;
       ad9851send(w4);
      ad9851send(w3);
      ad9851send(w2);
      ad9851send(w1);
      ad9851send(w0); 
      FQ_UD=1;
      _nop_();
      FQ_UD=0;
}
/*void display()
{
  DisplayOneChar(0, 1, DData[ListLength]);
}*/
//写数据
void WriteDataLCM(unsigned char WDLCM)
{
ReadStatusLCM(); //检测忙
LCM_Data = WDLCM;
LCM_RS = 1;
LCM_RW = 0;
LCM_E = 0; //若晶振速度太高可以在这后加小的延时
LCM_E = 0; //延时
LCM_E = 1;
}

//写指令
void WriteCommandLCM(unsigned char WCLCM,BuysC) //BuysC为0时忽略忙检测
{
if (BuysC) ReadStatusLCM(); //根据需要检测忙
LCM_Data = WCLCM;
LCM_RS = 0;
LCM_RW = 0;
LCM_E = 0;
LCM_E = 0;
LCM_E = 1;
}

//读数据
unsigned char ReadDataLCM(void)
{
LCM_RS = 1;
LCM_RW = 1;
LCM_E = 0;
LCM_E = 0;
LCM_E = 1;
return(LCM_Data);
}

//读状态
unsigned char ReadStatusLCM(void)
{
LCM_Data = 0xFF;
LCM_RS = 0;
LCM_RW = 1;
LCM_E = 0;
LCM_E = 0;
LCM_E = 1;
while (LCM_Data & Busy); //检测忙信号
return(LCM_Data);
}

void LCMInit(void) //LCM初始化
{
LCM_Data = 0;
WriteCommandLCM(0x38,0); //三次显示模式设置，不检测忙信号
Delay5Ms();
WriteCommandLCM(0x38,0);
Delay5Ms();
WriteCommandLCM(0x38,0);
Delay5Ms();

WriteCommandLCM(0x38,1); //显示模式设置,开始要求每次检测忙信号
WriteCommandLCM(0x08,1); //关闭显示
WriteCommandLCM(0x01,1); //显示清屏
WriteCommandLCM(0x06,1); // 显示光标移动设置
WriteCommandLCM(0x0f,1); // 显示开及光标设置
}

//按指定位置显示一个字符
void DisplayOneChar(unsigned char X, unsigned char Y, unsigned char DData)
{
Y &= 0x1;
X &= 0xF; //限制X不能大于15，Y不能大于1
if (Y) X |= 0x40; //当要显示第二行时地址码+0x40;
X |= 0x80; //算出指令码
WriteCommandLCM(X, 1); //发命令字
WriteDataLCM(DData); //发数据
}

//按指定位置显示一串字符
void DisplayListChar(unsigned char X, unsigned char Y, unsigned char code *DData)
{
unsigned char ListLength;

ListLength = 0;
Y &= 0x1;
X &= 0xF; //限制X不能大于15，Y不能大于1
while (DData[ListLength]>0x19) //若到达字串尾则退出
{
if (X <= 0xF) //X坐标应小于0xF
{
DisplayOneChar(X, Y, DData[ListLength]); //显示单个字符
ListLength++;
X++;
}
}
}
void delay (uchar us)
{
  while (us--);
}
//5ms延时
void Delay5Ms(void)
{
unsigned int TempCyc = 5552;
while(TempCyc--);
}

//400ms延时
void Delay400Ms(void)
{
unsigned char TempCycA = 5;
unsigned int TempCycB;
while(TempCycA--)
{
TempCycB=7269;
while(TempCycB--);
};
}

void Keyboard_out(void) interrupt 0 using 1
{
if ((IntNum > 0) && (IntNum < 9))
{
KeyV = KeyV >> 1; //因键盘数据是低>>高，结合上一句所以右移一位
if (Key_Data) KeyV = KeyV | 0x80; //当键盘数据线为1时为1到最高位
}
IntNum++;
while (!Key_CLK); //等待PS/2CLK拉高

if (IntNum > 10)
{
IntNum = 0; //当中断11次后表示一帧数据收完，清变量准备下一次接收
BF = 1; //标识有字符输入完了
EA = 0; //关中断等显示完后再开中断 (注：如这里不用BF和关中断直接调Decode()则所Decode中所调用的所有函数要声明为再入函数)
}
}

void Decode(unsigned char ScanCode)
{
unsigned char TempCyc;
if (Key_UP)
{  Key_UP = 0;
    for (TempCyc = 0;(UnShifted[TempCyc][0]!=ScanCode)&&(TempCyc<59); TempCyc++); //查表显示
     if (UnShifted[TempCyc][0] == ScanCode&&ScanCode!=0x29&&ScanCode!=0x4E&&ScanCode!=0x55&&ScanCode!=0x5B&&ScanCode!=0x31&&ScanCode!=0x3A&&ScanCode!=0x2B&&ScanCode!=0x2C&&ScanCode!=0x33)
      {
       DisplayOneChar(DisNum, 1, UnShifted[TempCyc][1]);
       key8=key7;
       key7=key6;
       key6=key5;
       key5=key4;
       key4=key3;
       key3=key2;
       key2=key1;
       key1=UnShifted[TempCyc][1]-48;
       DisNum++;
       _nop_();
       }
      if(DisNum==10)
         DisNum=0;
      if(DisNum==2||DisNum==6)
      DisNum++;
}
else
{
    switch (ScanCode)
     {
      case 0xF0 : // 当收到0xF0，Key_UP置1表示断码开始
      Key_UP = 1;
      break;
      default: break;
     }
}
BF = 0; //标识字符处理完了
}