AD7798code.doc

#include #include intrins.hsbit AD7798_CS=P22; / 1sbit AD7798_SCLK=P23; / 1sbit AD7798_RDY=P21;/ 0sbit AD7798_DOUT=P21;sbit AD7798_DIN=P20;/ 1void Init_Serial( void );/串口初始化void WaiteRDY( void );/等待RDY变为低电平unsigned char ReadByte_7798( void );/读一个字节void ReadData_7798( void );/AD7798采集到得数据void Serial_Receive(unsigned char Data);/发送一个字节数据void WriteByte_7798(unsigned char Data);/写一个字节 void Init_Ad7798(unsigned char ChannelNum);/AD7798初始化unsigned char disp8 = 0x1f,0x00,0x00,0x00,0x00,0x00,0x00,0x04;unsigned char New_Data8 = 0x1f,0x00,0x00,0x00,0x00,0x00,0x00,0x04;unsigned char Next_Data8 = 0x1f,0x00,0x00,0x00,0x00,0x00,0x00,0x04;unsigned char Two_Data8 = 0x1f,0x00,0x00,0x00,0x00,0x00,0x00,0x04;unsigned char hData,lData;long int new,old,yy;/=主函数void main( void )unsigned char i,j;/AD7798读取的数据Init_Serial();P2 = 0x00;WriteByte_7798(0xff);/reset ad7798 WriteByte_7798(0xff); WriteByte_7798(0xff); WriteByte_7798(0xff);while(1) for(i=0;i3;i+)Init_Ad7798(i);/通道1、通道2、通道3初始化 ReadData_7798();new = hData * 256 +lData;old = (long int)(new - yy)/2); yy = (unsigned int)(old + yy);j=2*i+1;New_Dataj=yy / 256;New_Dataj+1=yy % 256;/Serial_Receive(hData); /发送数据/Serial_Receive(lData); /发送数据/=写一个字节void WriteByte_7798(unsigned char Data) unsigned char i ; /AD7798_CS=0; for(i=0;i8;i+) AD7798_SCLK=0 ;_nop_(); _nop_(); if(Data&0x80)AD7798_DIN=1 ; else AD7798_DIN=0 ;_nop_(); _nop_(); Data=Data1 ;_nop_(); _nop_(); AD7798_SCLK=1 ; _nop_(); _nop_(); /AD7798_CS=1;/=读一个字节unsigned char ReadByte_7798( void ) unsigned char i ; unsigned char ReadData ; /AD7798_CS=0; ReadData=0 ; for(i=0;i8;i+) AD7798_SCLK=0 ; _nop_(); _nop_(); ReadData=ReadData65500) WriteByte_7798(0xff);/reset ad7798 WriteByte_7798(0xff); WriteByte_7798(0xff); WriteByte_7798(0xff); Init_Ad7798(0); break; /=7798的初始化void Init_Ad7798(unsigned char ChannelNum) WriteByte_7798(0xff);/reset ad7798 WriteByte_7798(0xff); WriteByte_7798(0xff); WriteByte_7798(0xff); WriteByte_7798(0x10);/写入通讯寄存器设置下一个操作,写信给配置寄存器 WriteByte_7798(0x27);/增益为128 WriteByte_7798(0x30+ChannelNum);/* /写入模式注册启动 系统满量程较准 WriteByte_7798(0x08);/写入通讯寄存器设置下一个操作,写信给模式寄存器 WriteByte_7798(0xe0); WriteByte_7798(0x0a); WaiteRDY();/等待及由RDY销去低显示最终的校准周期/写入模式注册启动 系统失调较准 WriteByte_7798(0x08);/写入通讯寄存器设置下一个操作,写信给模式寄存器 WriteByte_7798(0xc0); WriteByte_7798(0x0a); WaiteRDY();/等待及由RDY销去低显示最终的校准周期*/写入模式注册启动 内部零刻度校准 WriteByte_7798(0x08);/写入通讯寄存器设置下一个操作,写信给模式寄存器 WriteByte_7798(0x80); WriteByte_7798(0x0a); WaiteRDY();/等待及由RDY销去低显示最终的校准周期/写入模式注册启动 内部满刻度校准/ WriteByte_7798(0x08);/写入通讯寄存器设置下一个操作,写信给模式寄存器/ WriteByte_7798(0xa0);/ WriteByte_7798(0x0a);/ WaiteRDY();/等待及由RDY销去低显示最终的校准周期 WriteByte_7798(0x08);/写入通讯寄存器设置下一个操作,写信给模式寄存器 WriteByte_7798(0x00); WriteByte_7798(0x0a);/=读AD的数据void ReadData_7798( void ) int ConverData ; unsigned char ADSAT ;unsigned char ErrNUM; WaiteRDY();/RDY为低电平时读取数据，读取完成后变为高电平 WriteByte_7798(0x40); ADSAT=ReadByte_7798();/出错或者读写异常/Serial_Receive(ADSAT); while(ADSAT&0x40)|(ADSAT&0x08)/0x40 错误位 0x08 必须为1 WriteByte_7798(0xff); WriteByte_7798(0xff); WriteByte_7798(0xff); WriteByte_7798(0xff); Init_Ad7798(0); WaiteRDY(); WriteByte_7798(0x40); ADSAT=ReadByte_7798(); ErrNUM+; if(ErrNUM5)break; WriteByte_7798(0x58);/写入通讯寄存器设置下一个操作是连续的读取数据寄存器 WaiteRDY();/等待及由RDY销去低显示最终的校准周期 if(!AD7798_RDY) ConverData=0 ; hData=ReadByte_7798(); ConverData=hData; ConverData=ConverData8 ;lData=ReadByte_7798(); ConverData=lData+ConverData ; ReadByte_7798(); /*WriteByte_7798(0x60);/读IDADSAT=ReadByte_7798();Serial_Receive(ADSAT); /ID 显示 */=波特率初始化void Init_Serial( void )TMOD=0X20; /设置定时器1为方式2TH1=0xfa; /装入初值TL1=0Xfa; /装入初值TR1=1; /启动定时器1SM0=0; /设置串口为方式1SM1=1; /设置串口为方式1REN=1; /接收始能EA=1; /打开总中断开关ES=1; /打开串口中断开关/=串口发送void Serial_Receive(unsigned char Data)ES=0;/关闭串口中断开关SBUF=Data;/将数据发送给电脑while(!TI); /等待数据发送结束TI=0;ES=1;/=串口接受void serial() interrupt 4unsigned char k;unsigned char a;static unsigned char index_a=0;static unsigned char index_b=0; a=SBUF;RI=0;if(index_b)for(k=1;k7;k+)Two_Datak=Next_Datak; for(k=1;k=Next_Datak)&(Next_Datak=Two_Datak) dispk=Next_Datak;if(New_Datak =Two_Datak) &(Two_Datak =Next_Datak) dispk=Two_Datak;if(Next_Datak=New_Datak) &(New_Datak =Two_Datak) dispk=New_Datak;if(Next_Datak=Two_Datak) &(Two_Datak =New_Datak) dispk=Two_Datak;if(Two_Datak =New_Datak) &(New_Datak =Next_Datak) dispk=New_Data