#include

__CONFIG(1,XT) ; //晶振為外部4M

__CONFIG(2,WDTDIS) ; //看門狗關(guān)閉

__CONFIG(4,LVPDIS) ; //禁止低電壓編程

#define uint unsigned int

#define uchar unsigned char

#define nop NOP()

#define en RB3

#define rw RB4

#define rs RB5

#define scl RC5

#define sda RC6

uchar p[]="TIME:";

uchar q[]="week";

void delayms(uint z)

{

uint i,j;

for(i=0;i<=110;i++)

for(j=0;j<=z;j++);

}

void write_com(uchar com)

{

rs=0;

rw=0;

delayms(5);

en=1;

delayms(5);

PORTD=com;

en=0;

delayms(5);

}

void write_dat(uchar dat)

{

rs=1;

rw=0;

delayms(5);

en=1;

delayms(5);

PORTD=dat;

en=0;

delayms(5);

}

void init_1602()

{

write_com(0x38);

write_com(0x0c);

write_com(0x06);

write_com(0x01);

}

void usdelay()

{

nop;

}

void init_24c() //初始化24C，就是把兩根線拉高

{

TRISC6=0;

scl=1;

sda=1;

usdelay();

}

void start() //開始信號，根據(jù)時序圖（sx）

{

TRISC6=0;

scl=1;

usdelay();

sda=1;

usdelay();

sda=0;

}

void stop() //結(jié)束信號 sx

{

TRISC6=0;

scl=1;

usdelay();

sda=0;

usdelay();

sda=1;

}

void ack() //不知道為什么，在PIC中不能用ack，好像一用就會出錯= =？

{

uchar i;

TRISC6=0;

sda=1;

nop;

TRISC6=1;

scl=1;

nop;

while(sda==1&&i<10)i++;

scl=0;

}

void write_byte(uchar dat) //寫字節(jié) sx 由于不僅要寫數(shù)據(jù)，還要寫地址，所以只能先寫字節(jié)的最高位R7，最后寫最低位R0

{

uchar i;

TRISC6=0;

sda=0;

scl=0;

nop;

for(i=0;i<=8;i++)

{

sda=(dat&0x80)>>7;

nop;

scl=1;

nop;

scl=0;

dat<<=1;

nop;

}

}

uchar read_byte() //讀字節(jié) sx 先讀高位R7，最后讀地位R0

{

uchar i,dat=0;

TRISC6=1;

sda=0;

usdelay();

scl=1;

usdelay();

for(i=0;i<8;i++)

{

dat<<=1;

usdelay();

scl=1;

nop;

dat=dat|sda;

nop;

scl=0;

usdelay();

}

return dat;

}

void write_add(uchar add,uchar dat) //寫數(shù)據(jù)到地址 sx 注意不要用ack

{

start();

write_byte(0xa2);

write_byte(add);

write_byte(dat);

stop();

}

uchar read_add(uchar add) //從地址讀數(shù)據(jù) sx 注意不要用ack

{

uchar dat;

start();

write_byte(0xa2);

write_byte(add);

start();

write_byte(0xa3);

dat=read_byte();

stop();

return dat;

}

void main()

{

uchar temp=0;

uchar ii;

ADCON1=0x06;

TRISC5=0;

TRISB=0B11000111;

TRISD=0x00;

init_1602();

init_24c();

write_com(0x80+0x40+2);

write_dat(:);

write_com(0x80+0x40+5);

write_dat(:);

write_com(0x80);

for(ii=1;ii<=5;ii++)

write_dat(*(p+ii-1));

write_com(0x80+0x40+9);

for(ii=1;ii<=4;ii++)

write_dat(*(q+ii-1));

write_com(0x80+6);

write_dat(2);

write_dat(0);

write_com(0x80+10);

write_dat(.);

write_com(0x80+13);

write_dat(.);

while(1)

{

temp=read_add(0x08);//年

write_com(0x80+8);

write_dat(0x30+((temp>>4)&0x07));

write_dat(0x30+(temp&0x0f));

temp=read_add(0x07);//月

write_com(0x80+11);

write_dat(0x30+((temp>>4)&0x01));

write_dat(0x30+(temp&0x0f));

temp=read_add(0x06);//星期

write_com(0x80+0x40+14);

write_dat(0x30+temp);

temp=read_add(0x05);// 日

write_com(0x80+14);

write_dat(0x30+((temp>>4)&0x03));

write_dat(0x30+(temp&0x0f));

temp=read_add(0x04);//時

write_com(0x80+0x40);

write_dat(0x30+((temp>>4)&0x03));

write_dat(0x30+(temp&0x0f));

temp=read_add(0x03);//分

write_com(0x80+0x40+3);

write_dat(0x30+((temp>>4)&0x07));

write_dat(0x30+(temp&0x0f));

temp=read_add(0x02);//秒

write_com(0x80+0x40+6);

write_dat(0x30+((temp>>4)&0x07));

write_dat(0x30+(temp&0x0f));

}

}