89c51产生正弦波.c

这是用tlc5620产生正弦波的程序(本人编写,调试通过),附加VB环境下的正弦波数据产生器(下载资料)

                 //*********************************************************
//File Name  :AD5620.c
//Author     :GHL
//Date       :2007/7/31
//Desciption :AD5620的驱动程序
//            8位DA转换
//            模拟信号从A口输出
//*********************************************************

#include  <reg51.h>
#include  <intrins.h>

#define   uchar   unsigned char
#define key_bus P0

sbit clk=P0^0;      //定义与5620有关的端口
sbit load=P0^1;
sbit sdata=P0^2;

uchar code sin[]={0x7F,0x82,0x85,0x88,0x8B,0x8F,0x92,0x95,0x98,0x9B,0x9E,0xA1,0xA4,0xA7,0xAA,0xAD
                  ,0xB0,0xB3,0xB6,0xB8,0xBB,0xBE,0xC1,0xC3,0xC6,0xC8,0xCB,0xCD,0xD0,0xD2,0xD5,0xD7
                  ,0xD9,0xDB,0xDD,0xE0,0xE2,0xE4,0xE5,0xE7,0xE9,0xEB,0xEC,0xEE,0xEF,0xF1,0xF2,0xF4
                  ,0xF5,0xF6,0xF7,0xF8,0xF9,0xFA,0xFB,0xFB,0xFC,0xFD,0xFD,0xFE,0xFE,0xFE,0xFE,0xFE
                  ,0xFE,0xFE,0xFE,0xFE,0xFE,0xFE,0xFD,0xFD,0xFC,0xFB,0xFB,0xFA,0xF9,0xF8,0xF7,0xF6
                  ,0xF5,0xF4,0xF2,0xF1,0xEF,0xEE,0xEC,0xEB,0xE9,0xE7,0xE5,0xE4,0xE2,0xE0,0xDD,0xDB
                  ,0xD9,0xD7,0xD5,0xD2,0xD0,0xCD,0xCB,0xC8,0xC6,0xC3,0xC1,0xBE,0xBB,0xB8,0xB6,0xB3
                  ,0xB0,0xAD,0xAA,0xA7,0xA4,0xA1,0x9E,0x9B,0x98,0x95,0x92,0x8F,0x8B,0x88,0x85,0x82
                  ,0x7F,0x7C,0x79,0x76,0x73,0x6F,0x6C,0x69,0x66,0x63,0x60,0x5D,0x5A,0x57,0x54,0x51
                  ,0x4E,0x4B,0x48,0x46,0x43,0x40,0x3D,0x3B,0x38,0x36,0x33,0x31,0x2E,0x2C,0x29,0x27
                  ,0x25,0x23,0x21,0x1E,0x1C,0x1A,0x19,0x17,0x15,0x13,0x12,0x10,0x0F,0x0D,0x0C,0x0A
                  ,0x09,0x08,0x07,0x06,0x05,0x04,0x03,0x03,0x02,0x01,0x01,0x00,0x00,0x00,0x00,0x00
                  ,0x00,0x00,0x00,0x00,0x00,0x00,0x01,0x01,0x02,0x03,0x03,0x04,0x05,0x06,0x07,0x08
                  ,0x09,0x0A,0x0C,0x0D,0x0F,0x10,0x12,0x13,0x15,0x17,0x19,0x1A,0x1C,0x1E,0x21,0x23
                  ,0x25,0x27,0x29,0x2C,0x2E,0x31,0x33,0x36,0x38,0x3B,0x3D,0x40,0x43,0x46,0x48,0x4B
                  ,0x4E,0x51,0x54,0x57,0x5A,0x5D,0x60,0x63,0x66,0x69,0x6C,0x6F,0x73,0x76,0x79,0x7C }


                  //输出点数为256，精度为8的正弦波



/***************AD5620转换****************/   
void  dac5620(uchar send_char)
{   
   uchar i;
   load=1;
   clk=1;sdata=0;clk=0;
   clk=1;sdata=0;clk=0;
   clk=1;sdata=0;clk=0;
   for(i=0;i<8;i++)
   {
      clk=1;
      if(send_char&0x80==0x80) sdata=1;
        else sdata=0;
      clk=0;
      send_char=send_char<<1;
   }
   load=0;
   load=1;

}



/************产生正弦波程序*******************/

sin(uchar time[])
{
    uchar i,j;

    while(1)
    {
    for(i=0;i<255;i++)
        {

        for(j=0;j<100;j++);
        dac5620(sin[i]);                    //查表取数据
        
        }
    }      
}




main()
{  
  dac5620(15);
  while(1)
  {}

}