/******************************************************************* 
一、程序說明： 
1, 24LC02器件地址是1010000R/W. 同時(shí)也一部分為SMBUS  0x16
2, 數(shù)組寫入24LC02采取頁寫方式. 
3, 數(shù)組code從24LC02讀出時(shí)采取自由讀方式. 
4, 采用4.00M晶體。 
5，采用軟件I2C。 

二、硬件連接： 
1， SDA_DIRE------->23 pin.(當(dāng)然你可以任意選擇腳位） 
2,  SCL_DIRE------->18 Pin.(當(dāng)然你可以任意選擇腳位） 
3， PORTD----->外接8個(gè)LED，顯示讀出的數(shù)據(jù)，在這里，讀出的剛好是一個(gè)閃動(dòng)的流水燈狀態(tài)。 

*******************************************************************/ 
#include "pic.h" 

#define uchar   unsigned char 
#define nop()  asm("nop")
//#define SCL_DIRE  TRISC3  //PIC mcu專用I2C
//#define SDA_DIRE  TRISC4 
//#define SCL_E     RC3
//#define SDA_E     RC4

#define SCL_E     RA0
#define SDA_E     RA1
#define SCL_DIRE  TRISA0 
#define SDA_DIRE  TRISA1 

void start_i2c(); 
void stop_i2c(); 
void send_byte(uchar c); 
uchar receive_byte(); 
void I_send_str(uchar sla,uchar suba,uchar *s,uchar no);
void I_send_word(uchar sla,uchar suba,uchar datal,uchar datah); 
void delay_250ms(); 
void i2c_error (); 
int ReadByte_EE(uchar addr);
//int ReadWord(uchar addr);

uchar code[]={0x34,0x64,0x03,0x07,0x0f,0x1f,0x3f,0x7f,0xff}; 
uchar no,ack,c,data; 

/*
void main(void) 
{ 
 uchar i; 
 
 ADCON1=0X06;
 TRISA=0x0F;
 PORTA=0;
 
 TRISC=0Xff;     //C口設(shè)為輸入 RC3為SCL_DIRE線，RC4為SDA_DIRE線。 
 PORTC=0X0;     
 TRISB=0X00;     //D口為輸出，顯示IC24LC02中讀出的內(nèi)容 
 PORTB=0X00;     //初始顯示全亮 

 I_send_str(0xa0,0x00,code,6); //頁寫入code數(shù)組到24LC02,器件地址為0Xa0,子地址為0X00，共9個(gè)數(shù)。 
  
 delay_250ms(); 
  

 ///////////開始讀出到D口進(jìn)行顯示,根據(jù)Random read時(shí)序圖。 
 while (1) 
  { 
    for (i=0x00;i<0x09;i++) 
     { 
      start_i2c(); 
      send_byte(0xA0);      //發(fā)送器件地址，即DEVICE ADDRESS。 
        if (ack==0) i2c_error(); //如果24LC02無應(yīng)答。則進(jìn)入I2C ERROR錯(cuò)誤指示。 
      send_byte(i);         //發(fā)送字地址，即WORD ADDRESS。D口顯示數(shù)組。 
        if (ack==0) i2c_error(); 
      start_i2c();          //重新啟動(dòng)總線。 
      send_byte(0xA1);      //發(fā)送讀命令和器件地址DEVICE ADDRESS。 
        if (ack==0) i2c_error(); 
      data=receive_byte(); 
      stop_i2c(); 
      PORTB=data; 
      delay_250ms(); 
      PORTB=ReadByte_EE(2);
      delay_250ms();
     } 
  } 
} 
*/

/******************************************************************* 
起動(dòng)總線函數(shù) 
函數(shù)原型： void start_i2c(); 
Function: start on the I2C bus 
*******************************************************************/ 
void start_i2c() 
{ 
 SDA_DIRE=1;       //發(fā)送啟始條件的數(shù)據(jù)信號(hào) 
 nop(); 
 SCL_DIRE=1; 
 nop();nop();nop();nop();nop(); //24LC02要求建立時(shí)間大于4，7S 
 SDA_DIRE=0;                      //發(fā)送起始信號(hào) 
 nop();nop();nop();nop();nop(); 
 SCL_DIRE=0;                      //鉗住I2C總線，準(zhǔn)備發(fā)送數(shù)據(jù)或接收數(shù)據(jù) 
 nop();nop(); 
} 


/******************************************************************* 
停止總線函數(shù) 
函數(shù)原型： void stop_i2c(); 
Function: stop the I2C bus 
*******************************************************************/ 
void stop_i2c() 
{ 
  
 SDA_DIRE=0; //發(fā)送結(jié)束條件的數(shù)據(jù)信號(hào) 
 nop(); 
 SCL_DIRE=1; 
 nop();nop();nop();nop();nop(); 
 SDA_DIRE=1; 
 nop();nop();nop();nop(); 
} 

/*================================================================= 
字節(jié)數(shù)據(jù)傳送函數(shù) 
函數(shù)原型： void send_byte(uchar c); 
Function: 將數(shù)據(jù)C發(fā)送出去，可以是地址，也可以是數(shù)據(jù)，發(fā)完后等待回應(yīng)，并對(duì)此狀態(tài) 
         位進(jìn)行操作（不應(yīng)答或非應(yīng)答都使ack=0 ），發(fā)送數(shù)據(jù)正常，ack=1;ack=0 
         表示被控器無應(yīng)答或損壞。 
==================================================================*/ 
void send_byte(uchar c) 
{ 
 uchar bit_count; 
 for (bit_count=0;bit_count<8;bit_count++) 
  { 
   if ((c<<bit_count)&0x80) {SDA_DIRE=1;} 
   else {SDA_DIRE=0;} 
   nop(); 
   SCL_DIRE=1; 
   nop();nop();nop();nop();nop(); 
   SCL_DIRE=0; 
  } 
  nop();nop(); 
  SDA_DIRE=1; 
  nop();nop(); 
  SCL_DIRE=1; 
  nop();nop();nop(); 
  if (SDA_E==1) ack=0; 
  else ack=1; //用ASK=1為有應(yīng)答信號(hào) 
  SCL_DIRE=0; 
  nop();nop(); 
} 

/*================================================================== 
字節(jié)數(shù)據(jù)接收函數(shù) 
函數(shù)原型：uchar receive_byte(); 
FUNCTION: 用來接收從器件傳來的數(shù)據(jù)，并判斷總線錯(cuò)誤（不發(fā)應(yīng)答信號(hào)）， 
         發(fā)完后請(qǐng)用應(yīng)答函數(shù)。 
===================================================================*/ 
uchar receive_byte() 
{ 
  uchar retc,bit_count; 
  retc=0; 
  SDA_DIRE=1; 
  for (bit_count=0;bit_count<8;bit_count++) 
  { 
     nop(); 
     SCL_DIRE=0; 
     nop();nop();nop();nop();nop(); 
     SCL_DIRE=1; 
     nop();nop(); 
     retc=retc<<1; 
     if (SDA_E==1)  retc=retc+1; 
     nop();nop(); 
   } 
   SCL_DIRE=0; 
   nop();nop(); 
   return (retc); 
} 

////////********************************//////////////
int ReadByte_EE(uchar addr){
uchar data1;
 start_i2c(); 
      send_byte(0xA0);      //發(fā)送器件地址，即DEVICE ADDRESS。 
        if (ack==0) i2c_error(); //如果24LC02無應(yīng)答。則進(jìn)入I2C ERROR錯(cuò)誤指示。 
      send_byte(addr);         //發(fā)送字地址，即WORD ADDRESS。D口顯示數(shù)組。 
        if (ack==0) i2c_error(); 
      start_i2c();          //重新啟動(dòng)總線。 
      send_byte(0xA1);      //發(fā)送讀命令和器件地址DEVICE ADDRESS。 
        if (ack==0) i2c_error(); 
      data1=receive_byte(); 
      stop_i2c(); 
      return(data1);
      }


/*================================================================ 
向有子地址器件發(fā)送多字節(jié)數(shù)據(jù)函數(shù) 
函數(shù)原型： bit I_send_str(uchar sla,uchar suba,uchar *s,uchar no); 
Function: 從啟動(dòng)總線到發(fā)送地址，數(shù)據(jù)，結(jié)束總線的全過程，從器件地址sla。如果 
         返回1表示操作成功，否則操作有誤。 
=================================================================*/ 
void I_send_str(uchar sla,uchar suba,uchar *s,uchar no) 
{ 
  uchar i; 
  start_i2c(); 
  send_byte(sla); 
  if (ack==0)  i2c_error(); 
  send_byte(suba); 
  if (ack==0)  i2c_error(); 
  for (i=0;i<no;i++) 
   { 
     send_byte(*s); 
     if (ack==0)  i2c_error(); 
     s++; 
   } 
  stop_i2c(); 
 // return(1); 
} 

/*================================================================ 
向有子地址器件發(fā)送兩字節(jié)數(shù)據(jù)函數(shù) 
函數(shù)原型： bit I_send_word(uchar sla,uchar suba,uchar datal,uchar datah); 
Function: 從啟動(dòng)總線到發(fā)送地址，數(shù)據(jù)，結(jié)束總線的全過程，從器件地址sla。如果 
         返回1表示操作成功，否則操作有誤。 
=================================================================*/ 
void I_send_word(uchar sla,uchar suba,uchar datal,uchar datah) 
{ 
  uchar i; 
  start_i2c(); 
  send_byte(sla); 
  if (ack==0)  i2c_error(); 
  send_byte(suba); 
  if (ack==0)  i2c_error(); 
  send_byte(datal); 
  if (ack==0)  i2c_error(); 
  send_byte(datah); 
  if (ack==0)  i2c_error(); 
  stop_i2c(); 
 // return(1); 
} 
/***************************************************************** 
延時(shí)函數(shù) 
函數(shù)原型： void delay_250ms(); 
FUNCTION: 延明250ms 
*****************************************************************/ 
void delay_250ms() 
{ 
 unsigned int d=24999; 
 while (--d); 
} 

/***************************************************************** 
總線錯(cuò)誤函數(shù) 
函數(shù)原型：　void i2c_error(); 
Function: 通過RD7閃動(dòng)8次表示總線操作失敗一次報(bào)警。 
*****************************************************************/ 
void i2c_error () 
{ 
 uchar i; 
 for (i=0;i<8;i++) 
 { 
   RB7=0; 
   delay_250ms(); 
   RB7=1; 
   delay_250ms(); 
 } 
  
} 
/**********END**************/