I2c程序 51系列及 AVR系列

#define uchar unsigned char
#define uint unsigned int
#include "reg51.h"
#include "intrins.h"

sbit Scl=P3^3; //串行时钟
sbit Sda=P3^4; //串行数据

/*发送起始条件*/
void Start(void) /*起始条件*/
{
Sda=1;
Scl=1;
_nop_ ();
_nop_ ();
_nop_ ();
_nop_ ();
Sda=0;
_nop_ ();
_nop_ ();
_nop_ ();
_nop_ ();
}
void Stop(void) /*停止条件*/
{
Sda=0;
Scl=1;
_nop_ ();
_nop_ ();
_nop_ ();
_nop_ ();
Sda=1;
_nop_ ();
_nop_ ();
_nop_ ();
_nop_ ();
}
void Ack(void) /*应答位*/
{
Sda=0;
_nop_ ();
_nop_ ();
_nop_ ();
_nop_ ();
Scl=1;
_nop_ ();
_nop_ ();
_nop_ ();
_nop_ ();
Scl=0;
}
void NoAck(void) /*反向应答位*/
{
Sda=1;
_nop_ ();
_nop_ ();
_nop_ ();
_nop_ ();
Scl=1;
_nop_ ();
_nop_ ();
_nop_ ();
_nop_ ();
Scl=0;
}
void Send(uchar Data) /*发送数据子程序,Data为要求发送的数据*/
{
uchar BitCounter=8; /*位数控制*/
uchar temp; /*中间变量控制*/
do
{
temp=Data;
Scl=0;
_nop_ ();
_nop_ ();
_nop_ ();
_nop_ ();
if((temp&0x80)==0x80)/* 如果最高位是1*/
Sda=1;
else
Sda=0;
Scl=1;
temp=Data<<1; /*RLC*/
Data=temp;
BitCounter--;
}while(BitCounter);
Scl=0;
}
uchar Read(void) /*读一个字节的数据,并返回该字节值*/
{
uchar temp=0;
uchar temp1=0;
uchar BitCounter=8;
Sda=1;
do{
Scl=0;
_nop_ ();
_nop_ ();
_nop_ ();
_nop_ ();
Scl=1;
_nop_ ();
_nop_ ();
_nop_ ();
_nop_ ();
if(Sda) /*如果Sda=1;*/
temp=temp|0x01; /*temp的最低位置1*/
else
temp=temp&0xfe; /*否则temp的最低位清0*/
if(BitCounter-1)
{ temp1=temp<<1;
temp=temp1;
}
BitCounter--;
}while(BitCounter);
return(temp);
}
////////////////////////////////////////////////
void WrToROM(uchar Data[],uchar Address,uchar Num)
{
uchar i=0;
uchar *PData;
PData=Data;
Start();
Send(0xa0);
Ack();
Send(Address);
Ack();
for(i=0;i {
Send(*(PData+i));
Ack();
}
Stop();
}
void RdFromROM(uchar Data[],uchar Address,uchar Num)
{
uchar i=0;
uchar *PData;
PData=Data;
for(i=0;i {
Start();
Send(0xa0);
Ack();
Send(Address+i);
Ack();
Start();
Send(0xa1);
Ack();
*(PData+i)=Read();
Scl=0;
NoAck();
Stop();
}
}

/////////////////////////////////END of IIC/////////////////////////////////
////////////////////start of DS1621/////////////////////////////////
void delay_ms(unsigned char temp)
{
while(temp--);
}
void temp_config(unsigned char temp)
{

Start();
Send(0x90);
Ack();
Send(0xac);
Ack();
Send(temp);
Ack();
Stop();
delay_ms(110);
}

void init_temp()
{
Scl=1; //串行时钟
Sda=1;
Start();
Send(0x90);
Ack();
Send(0xee);
Ack();
Stop();
temp_config(8);
}

void read_temp() ////// Returns degrees F (0-255)
{
unsigned char datah,datal;

////温度数据读入开始
Start(); //
Send(0x90);
Ack();
Send(0xaa);
Ack();
Start();
Send(0x91);
Ack();
datah=Read();
Ack();
datal=Read();
Stop();
///温度数据读入结束
if((datah&0x80)!=0)
{
word1[3]=-;
datah=datah-1;
datah=~datah;
word1[4]=datah/100+48;
word1[5]=((datah/10)%10)+48;
word1[6]=datah%10+48;
word1[7]=C;

}
else
{
word1[3]=+;
word1[4]=datah/100+48;
word1[5]=((datah/10)%10)+48;
word1[6]=datah%10+48;
word1[7]=C;

}

}

AVR

void Start() //I2C总线的开始条件
{Set_SDA(1); //SDA=1;
Set_SCL(1); //SCL=1;
delay(100); //等待时钟信号变高
Set_SDA(0); //SDA=0;
delay(100);
Set_SCL(0); // SCL=0;
}

void Stop() //I2C总线结束条件
{Set_SDA(0); //SDA=0;
delay(100);
Set_SCL(1); //SCL=1;
delay(100); //等待时钟信号变低
Set_SDA(1); //SDA=1;
delay(100);
Set_SCL(0); //SCL=0;
}

void Ack() //I2C总线应答
{Set_SDA(0); //SDA=0;
delay(50);
Set_SCL(1); //SCL=1;
delay(100);
Set_SCL(0); //SCL=0;
delay(50);
Set_SDA(1); //SDA=1;
}

void Nack() //I2C总线应答非
{Set_SDA(1); //SDA=1;
delay(50);
Set_SCL(1); //SCL=1;
delay(100);
Set_SCL(0); //SCL=0;
delay(50);
Set_SDA(0); //SDA=0;
}

void Check_Ack() //I2C总线应答检查
{Set_SDA(1); //SDA=1;
Set_SCL(1); //SCL=1;
Ack_Flag=0; //清除应答标志;
DDRA&=0xbf; //设置SDA为输入
if(!((PINA & 0x40)>>6))
{delay(50);
Set_SCL(0); //SCL=0;
delay(100);}
else
{Ack_Flag=1; //收到应答;
delay(50);
Set_SCL(0); //SCL=0;
delay(100);}
DDRA |=0xff; //重新设置SDA为输出
}

void Write_Bit0() //写1bit数据：0
{Set_SDA(0); //SDA=0;
Set_SCL(1); //SCL=1;
delay(100);
Set_SCL(0); //SCL=0;
}

void Write_Bit1() //写1bit数据：1
{Set_SDA(1); //SDA=1;
Set_SCL(1); //SCL=1;
delay(100);
Set_SCL(0); //SCL=0;
Set_SDA(0); //SDA=0;
}

void Write_Byte(uchar Data) //写一字节数据Data
{uchar i;
for(i=0;i<8;i++)
{if(Data & 0x80) Write_Bit1(); //传输位从高位到低位,先传最高位
else Write_Bit0();
Data <<=1;} //数据左移
}

uchar Read_Byte() //读一字节数据：返回值即读的数据
{uchar Read_Data=0xff; // Read_Data为读入的数据，初始值为0xff
uchar j;
for (j=0;j<8;j++)
{Set_SDA(1);
Set_SCL(1);
DDRA &=0xbf;
if((PINA & 0x40)==0)
{Read_Data <<=1;
Read_Data=(Read_Data & 0xfe);
Set_SCL(0);}
else
{Read_Data <<=1;
Read_Data =( Read_Data | 0x01);
Set_SCL(0);}}
DDRA |=0x40;
return(Read_Data);
}

//***************************写一字节数据****************************//
//向从地址为Slave的IIC器件的Address地址写一字节数据Data
void Write_1byte(uchar Slave,uchar Address,uchar Data)
{Start(); //开始
Write_Byte(Slave); //写I2C器件地址
do Check_Ack(); //检查应答位
while(Ack_Flag==1);
Write_Byte(Address); //送寄存器地址
do Check_Ack(); //检查应答位
while(Ack_Flag==1);
Write_Byte(Data); //写入一字节数据
do Check_Ack(); //检查应答位
while(Ack_Flag==1);
Stop(); //停止
}

//***************************写两字节数据****************************//
//向从地址为Slave的IIC器件的Address地址开始写两字节数据Data0，Data1
void Write_2byte(uchar Slave,uchar Address,uchar Data0,uchar Data1)
{Start(); //开始
Write_Byte(Slave); //写I2C器件地址
do Check_Ack(); //检查应答位
while(Ack_Flag==1);
Write_Byte(Address); //送寄存器地址
do Check_Ack(); //检查应答位
while(Ack_Flag==1);
Write_Byte(Data0);
do Check_Ack(); //检查应答位
while(Ack_Flag==1);
Write_Byte(Data1);
do Check_Ack(); //检查应答位
while(Ack_Flag==1);
Stop(); //停止信号
}

//***************************读一字节数据****************************//
//从从地址为Slave的IIC器件的Address地址处读一字节数据
uchar Read_1byte(uchar Slave,uchar Address)
{uchar data0,x;
do{
Start(); //开始信号
Write_Byte(Slave); //写I2C器件地址
Check_Ack(); //检查应答位
}while(Ack_Flag);
do{
Write_Byte(Address); //写寄存器地址
Check_Ack(); //检查应答位
}while(Ack_Flag);
do{
Start(); //开始
Write_Byte(Slave+1); //写I2C器件地址（+1表示为读操作）
Check_Ack(); //检查应答位
}while(Ack_Flag);
data0=Read_Byte(); //读1字节
Nack(); //读完发送一个Not Ack应答
Stop(); //停止
return data0; //返回读取数据
}