51读写AT24C02测试程序

今天下午写了个测试读写2402存储器的程序。

                                                51与2402连接电路图

                                    51与键盘连接部分电路图


                                               显示部分电路
                                        显示电路左上角放大图

                                        显示部分电路左下脚放大图
以下是测试程序全部代码：
//-----------------------------------------    AT24C02_test.c    -----------------------------------
#include "at89x52.h"
#include <intrins.h>
#define uchar unsigned char
#define uint unsigned int

#define AT2402_ADDR 0x50
#define DATA_ADDR 200

#define nop _nop_()

uchar delay_time;
#define I2C_Delay() \
{    delay_time=2;\
    while((--delay_time)!=0);\
}

void I2C_Start();
void I2C_Write(char dat);
uchar I2C_Read();
uchar I2C_GetAck();
void I2C_PutAck(char ack);
void I2C_Stop();
char I2C_Gets(unsigned char SlaveAddr, unsigned int SubAddr, unsigned char SubMod, char *dat, unsigned int Size);
char I2C_Puts(unsigned char SlaveAddr, unsigned int SubAddr, unsigned char SubMod, char *dat, unsigned int Size);

void key_delay();
uchar kbscan();

sbit scl=P3^4;
sbit sda=P3^5;
//1字节读写程序
void main(void)//{{{
{
    uchar key;
    char dat;//从2402读出的数据
    char indat;//写入2402的数据
    while(1)
    {    key=kbscan();
        if(key==0)//如果没扫描按键
            continue;
        else
        {    //P0=(key<<4);
            if(key==2)//如果按下2号键
            {    indat=2;//写入的数据
                if(I2C_Puts(AT2402_ADDR,DATA_ADDR,1,&indat,1)==0)
                    P0=(10<<4)|0x5;//写入成功则在数码管最高位显示成功的字码
                else
                    P0=(11<<4)|0x5;//写入失败则在数码管最高位显示失败的字码
            }
            else if(key==3)//如果按下3号键
            {    if(I2C_Gets(AT2402_ADDR,DATA_ADDR,1,&dat,1)==0)
                {    P0=(dat<<4);//读出成功则在数码管最低位显示读出的数据（写入的数据故意在0～15间取以便一位数码管能显示）
                }
                else
                    P0=(11<<4)|0x4;//读出失败则在数码管次高位显示失败字码
            }
            //------------------
            else if(key==6)
            {    indat=3;
                if(I2C_Puts(AT2402_ADDR,6,1,&indat,1)==0)
                    P0=(10<<4)|0x5;
                else
                    P0=(11<<4)|0x5;
            }
            else if(key==7)
            {    if(I2C_Gets(AT2402_ADDR,6,1,&dat,1)==0)
                {    P0=(dat<<4);
                }
                else
                    P0=(11<<4)|0x4;
            }
            //------------------
            else if(key==10)
            {    indat=4;
                if(I2C_Puts(AT2402_ADDR,10,1,&indat,1)==0)
                    P0=(10<<4)|0x5;
                else
                    P0=(11<<4)|0x5;
            }
            else if(key==11)
            {    if(I2C_Gets(AT2402_ADDR,10,1,&dat,1)==0)
                {    P0=(dat<<4);
                }
                else
                    P0=(11<<4)|0x4;
            }
        }
    }
    
} //}}}

//键盘去抖延时函数,约10ms
void key_delay()//{{{
{    uchar i;
    for(i=200;i>0;i--){}
} //}}}

//键盘扫描函数
uchar kbscan()//{{{
{    uchar sccode,//列扫描信号
        recode;//行扫描信号
    uchar row=1,//按键在第几行
          col=1;//按键在第几列
    P1=0xf0;
    if((P1&0xf0)!=0xf0)    //有键按下
    {    key_delay();
        if((P1&0xf0)!=0xf0)//再次判断是否按下
        {    sccode=0xfe;
            while((sccode&0x10)!=0)//首先逐列扫描，当0左移到P1.4表示4列扫描完
            {    P1=sccode;
                if((P1&0xf0)!=0xf0)//接着看哪一行上的按钮按下
                {    recode=(P1&0xf0)|0x0f;
                    P2=(~sccode)+(~recode);//在led高4位和低4位中显示行码和列码
                    recode=(~recode)>>4;
                    while((recode>>=1)!=0)//通过行信号算出第几行
                    {    row++;
                    }
                    return ((row-1)*4+col);//返回键码1～16
                }
                else
                {    sccode=(sccode<<1)|0x01;//行扫描输出左移
                    col++;
                }
            }
        }
    }
    return 0;
}
//}}}

/* 函数：I2C_Gets()    
功能：I2C总线综合接收函数，从从机接收多个字节的数据
参数：
    SlaveAddr：从机地址（7位纯地址，不含读写位）
    SubAddr：从机的子地址
    SubMod：子地址模式，0－无子地址，1－单字节子地址，2－双字节子地址
    *dat：保存接收到的数据
    Size：数据的字节数
返回：
    0：接收成功
    1：在接收过程中出现异常
说明：
    本函数能够很好地适应所有常见的I2C器件，不论其是否有子地址
    当从机没有子地址时，参数SubAddr任意，而SubMod应当为0
*/
static char I2C_Gets//{{{
(
    unsigned char SlaveAddr,
    unsigned int SubAddr,
    unsigned char SubMod,
    char *dat,
    unsigned int Size
)
{
//定义临时变量
    unsigned char i;
    char a[3];
//检查长度
    if ( Size == 0 ) return 0;
//准备从机地址
    a[0] = (SlaveAddr << 1);
//检查子地址模式
    if ( SubMod > 2 ) SubMod = 2;
//如果是有子地址的从机，则要先发送从机地址和子地址
    if ( SubMod != 0 )
    {
    //确定子地址
        if ( SubMod == 1 )
        {
            a[1] = (char)(SubAddr);
        }
        else
        {
            a[1] = (char)(SubAddr >> 8);
            a[2] = (char)(SubAddr);
        }
    //发送从机地址，接着发送子地址
        SubMod++;
        I2C_Start();
        for ( i=0; i<SubMod; i++ )
        {
            I2C_Write(a[i]);
            if ( I2C_GetAck() )
            {
                I2C_Stop();
                return 1;
            }
        }
    }
//这里的I2C_Start()对于有子地址的从机是重复起始状态
//对于无子地址的从机则是正常的起始状态
    I2C_Start();
//发送从机地址
    I2C_Write(a[0]+1);//最后一位为1,读数据
    if ( I2C_GetAck() )
    {
        I2C_Stop();
        return 1;
    }
//接收数据
    for (;;)
    {
        *dat++ = I2C_Read();
        if ( --Size == 0 )
        {
            I2C_PutAck(1);//传送结束主机必须产生非应答位告诉从机不要继续发数据
            break;
        }
        I2C_PutAck(0);//dong? datasheet中要求不要这个
    }
//接收完毕，停止I2C总线，并返回结果
    I2C_Stop();
    return 0;
} // }}}

/* 函数：I2C_Puts()    
功能：I2C总线综合发送函数，向从机发送多个字节的数据
参数：
    SlaveAddr：从机地址（7位纯地址，不含读写位）
    SubAddr：从机的子地址
    SubMod：子地址模式，0－无子地址，1－单字节子地址，2－双字节子地址
    *dat：要发送的数据
    Size：数据的字节数
返回：
    0：发送成功
    1：在发送过程中出现异常
说明：
    本函数能够很好地适应所有常见的I2C器件，不论其是否有子地址
    当从机没有子地址时，参数SubAddr任意，而SubMod应当为0
*/
static char I2C_Puts//{{{
(
    unsigned char SlaveAddr,
    unsigned int SubAddr,
    unsigned char SubMod,
    char *dat,
    unsigned int Size
)
{
//定义临时变量
    unsigned char i;
    char a[3];

//检查长度
    if ( Size == 0 ) return 0;
//准备从机地址
    a[0] = (SlaveAddr << 1);
//检查子地址模式
    if ( SubMod > 2 ) SubMod = 2;
//确定子地址
    switch ( SubMod )
    {
    case 0:
        break;
    case 1:
        a[1] = (char)(SubAddr);
        break;
    case 2:
        a[1] = (char)(SubAddr >> 8);
        a[2] = (char)(SubAddr);
        break;
    default:
        break;
    }
//发送从机地址，接着发送子地址（如果有子地址的话）
    SubMod++;
    I2C_Start();
    for ( i=0; i<SubMod; i++ )
    {
        I2C_Write(a[i]);
        if ( I2C_GetAck() )
        {    
            I2C_Stop();
            return 1;
        }
    }
//发送数据
    do
    {
        I2C_Write(*dat++);
        if ( I2C_GetAck() ) break;
        
    } while ( --Size != 0 );
//发送完毕，停止I2C总线，并返回结果

    I2C_Stop();
    if ( Size == 0 )
    {    
        return 0;
    }
    else
    {    
        return 1;
    }
} //}}}

/*
函数：I2C_Start()
功能：产生I2C总线的起始状态
说明：
    SCL处于高电平期间，当SDA出现下降沿时启动I2C总线
    不论SDA和SCL处于什么电平状态，本函数总能正确产生起始状态
    本函数也可以用来产生重复起始状态
    本函数执行后，I2C总线处于忙状态
*/
static void I2C_Start()//{{{
{
    sda = 1;
    I2C_Delay();
    scl = 1;
    I2C_Delay();
    sda = 0;
    I2C_Delay();
    scl = 0;
    I2C_Delay();
}//}}}

/*
函数：I2C_Write()
功能：向I2C总线写1个字节的数据
参数：
    dat：要写到总线上的数据
*/
static void I2C_Write(char dat)//{{{
{
    unsigned char t = 8;
    do
    {
        uchar s=(dat & 0x80);
        if(s)
            sda = 1;
        else
            sda =0;
        //I2C_SDA = (bit)(dat & 0x80);
        dat <<= 1;
        scl = 1;
        I2C_Delay();
        scl = 0;
        I2C_Delay();
    } while ( --t != 0 );
}//}}}

/*
函数：I2C_Read()
功能：从从机读取1个字节的数据
返回：读取的一个字节数据
*/
uchar I2C_Read()//{{{
{
    uchar dat;
    unsigned char t = 8;
    sda = 1;    //在读取数据之前，要把SDA拉高
    //在读sda前把其改成输入模式    
    //set_gpio_ctrl(GPIO_MODE_IN | GPIO_PULLUP_DIS | IICSDA);
    do
    {    
        scl = 1;
        I2C_Delay();
        dat <<= 1;
                
        if( sda==1 ) dat|=0x01; //if ( I2C_SDA ) dat |= 0x01;
        scl = 0;
        I2C_Delay();
    } while ( --t != 0 );
    return dat;
}//}}}

/*
函数：I2C_GetAck()
功能：读取从机应答位
返回：
    0：从机应答
    1：从机非应答
说明：
    从机在收到每个字节的数据后，要产生应答位
    从机在收到最后1个字节的数据后，一般要产生非应答位
*/
static uchar I2C_GetAck()//{{{
{
    uchar ack=0x00;
    sda = 1;
    I2C_Delay();
    scl = 1;
    I2C_Delay();
    ack |= sda;
    
    scl = 0;
    //I2C_Delay();
    sda =0;
    return ack;
}//}}}

/*
函数：I2C_PutAck()
功能：主机产生应答位或非应答位
参数：
    ack=0：主机产生应答位
    ack=1：主机产生非应答位
说明：
    主机在接收完每一个字节的数据后，都应当产生应答位
    主机在接收完最后一个字节的数据后，应当产生非应答位
*/
static void I2C_PutAck(char ack)
{
    sda = ack;
    I2C_Delay();
    scl = 1;
    I2C_Delay();
    scl = 0;
    I2C_Delay();
}

/*
函数：I2C_Stop()
功能：产生I2C总线的停止状态
说明：
    SCL处于高电平期间，当SDA出现上升沿时停止I2C总线
    不论SDA和SCL处于什么电平状态，本函数总能正确产生停止状态
    本函数执行后，I2C总线处于空闲状态
*/
static void I2C_Stop()//{{{
{
    //unsigned int t = I2C_STOP_WAIT_VALUE;
    sda =0; //I2C_SDA = 0;
    I2C_Delay();
    scl =1; //I2C_SCL = 1;
    I2C_Delay();
    sda=1; //I2C_SDA = 1;
    I2C_Delay();
}//}}}
//-------------------------------------------------------------------------------------------------------------------