电子万年历

#include<reg51.h>
#include"ds18b20_3.h"
#define uint unsigned int
#define uchar unsigned char
uchar a,miao,shi,fen,ri,yue,nian,week,flag,key1n,temp;
//flag用于读取头文件中的温度值，和显示温度值

#define yh 0x80 //lcd第一行的初始位置,因为lcd1602字符地址首位d7恒定为1（**0=80）
#define er 0x80+0x40 //lcd第二行初始位置（因为第二行第一个字符位置地址是0x40）

//液晶屏的与c51之间的引脚连接定义（显示数据线接c51的p0口）
**it rs=p2^0;
**it en=p2^2;
**it rw=p2^1; //如果硬件上rw接地，就不用写这句和后面的rw=0了
**it led=p2^6; //lcd背光开关

//ds1302时钟芯片与c51之间的引脚连接定义
**it io=p1^1;
**it sclk=p1^0;
**it rst=p1^2;

**it acc0=acc^0;
**it acc7=acc^7;
/************************************************************
acc累加器=a
acc.0=e0h

acc.0就是acc的第0位。acc可以位寻址。

累加器acc是一个8位的存储单元，是用来放数据的。但是，这个存储单元有其特殊的地位，
是单片机中一个非常关键的单元，很多运算都要通过acc来进行。以后在学习指令时，
常用a来表示累加器。但有一些地方例外，比如在push指令中，就必须用acc这样的名字。
一般的说法，a代表了累加器中的内容、而acc代表的是累加器的地址。
***************************************************************/

//校时按键与c51的引脚连接定义
**it key1=p1^5; //设置键
**it key2=p1^6; //加键
**it key3=p1^7; //减键

**it buzzer=p1^3;//蜂鸣器，通过三极管9012驱动，端口低电平响

/**************************************************************/

uchar code tab1[]={"20 - - "}; //年显示的固定字符
uchar code tab2[]={" : : "};//时间显示的固定字符

//延时函数，后面经常调用
void delay(uint xms)//延时函数，有参函数
{
uint x,y;
for(x=xms;x>0;x--)
for(y=110;y>0;y--);
}

/********液晶写入指令函数与写入数据函数，以后可调用**************/

/*在这个程序中，液晶写入有关函数会在ds1302的函数中调用，所以液晶程序要放在前面*/

write_1602com(uchar com)//****液晶写入指令函数****
{
rs=0;//数据/指令选择置为指令
rw=0; //读写选择置为写
p0=com;//送入数据
delay(1);
en=1;//拉高使能端，为制造有效的下降沿做准备
delay(1);
en=0;//en由高变低，产生下降沿，液晶执行命令
}

write_1602dat(uchar dat)//***液晶写入数据函数****
{
rs=1;//数据/指令选择置为数据
rw=0; //读写选择置为写
p0=dat;//送入数据
delay(1);
en=1; //en置高电平，为制造下降沿做准备
delay(1);
en=0; //en由高变低，产生下降沿，液晶执行命令
}

lcd_init()//***液晶初始化函数****
{
write_1602com(0x38);//设置液晶工作**，意思：16*2行显示，5*7点阵，8位数据
write_1602com(0x0c);//开显示不显示光标
write_1602com(0x06);//整屏不移动，光标自动右移
write_1602com(0x01);//清显示

write_1602com(yh+1);//日历显示固定符号从第一行第1个位置之后开始显示
for(a=0;a<14;a++)
{
write_1602dat(tab1[a]);//向液晶屏写日历显示的固定符号部分
//delay(3);
}
write_1602com(er+2);//时间显示固定符号写入位置，从第2个位置后开始显示
for(a=0;a<8;a++)
{
write_1602dat(tab2[a]);//写显示时间固定符号，两个冒号
//delay(3);
}

}

/*********************over***********************/

/***************ds1302有关子函数********************/

void write_byte(uchar dat)//写一个字节
{
acc=dat;
rst=1;
for(a=8;a>0;a--)
{
io=acc0;
sclk=0;
sclk=1;
acc=acc>>1;
}
}
uchar read_byte()//读一个字节
{
rst=1;
for(a=8;a>0;a--)
{
acc7=io;
sclk=1;
sclk=0;
acc=acc>>1;

}
return (acc);
}
//----------------------------------------
void write_1302(uchar add,uchar dat)//向1302芯片写函数，指定写入地址，数据
{

rst=0;
sclk=0;
rst=1;
write_byte(add);
write_byte(dat);
sclk=1;
rst=0;
}
uchar read_1302(uchar add)//从1302读数据函数，指定读取数据来源地址
{
uchar temp;
rst=0;
sclk=0;
rst=1;
write_byte(add);
temp=read_byte();
sclk=1;
rst=0;
return(temp);
}
uchar bcd_decimal(uchar bcd)//bcd码转十进制函数，输入bcd，返回十进制
{
uchar decimal;
decimal=bcd>>4;
return(decimal=decimal*10+(bcd&=0x0f));
}
//--------------------------------------
void ds1302_init() //1302芯片初始化子函数(2010-01-07,12:00:00,week4)
{
rst=0;
sclk=0;

write_1302(0x8e,0x00); //允许写，禁止写保护
//write_1302(0x80,0x00); //向ds1302内写秒寄存器80h写入初始秒数据00
//write_1302(0x82,0x00);//向ds1302内写分寄存器82h写入初始分数据00
//write_1302(0x84,0x12);//向ds1302内写小时寄存器84h写入初始小时数据12
//write_1302(0x8a,0x04);//向ds1302内写周寄存器8ah写入初始周数据4
//write_1302(0x86,0x07);//向ds1302内写日期寄存器86h写入初始日期数据07
//write_1302(0x88,0x01);//向ds1302内写月份寄存器88h写入初始月份数据01
//write_1302(0x8c,0x10);//向ds1302内写年份寄存器8ch写入初始年份数据10
write_1302(0x8e,0x80); //打开写保护

}

//------------------------------------
//温度显示子函数
void write_temp(uchar add,uchar dat)//向lcd写温度数据,并指定显示位置
{
uchar gw,sw;
gw=dat%10;//取得个位数字
sw=dat/10;//取得十位数字
write_1602com(er+add);//er是头文件规定的值0x80+0x40
write_1602dat(0x30+sw);//数字+30得到该数字的lcd1602显示码
write_1602dat(0x30+gw);//数字+30得到该数字的lcd1602显示码
write_1602dat(0xdf);//显示温度的小圆圈符号，0xdf是液晶屏字符库的该符号地址码
write_1602dat(0x43); //显示"c"符号，0x43是液晶屏字符库里大写c的地址码
}

//------------------------------------
//时分秒显示子函数
void write_sfm(uchar add,uchar dat)//向lcd写时分秒,有显示位置加、现示数据，两个参数
{
uchar gw,sw;
gw=dat%10;//取得个位数字
sw=dat/10;//取得十位数字
write_1602com(er+add);//er是头文件规定的值0x80+0x40
write_1602dat(0x30+sw);//数字+30得到该数字的lcd1602显示码
write_1602dat(0x30+gw);//数字+30得到该数字的lcd1602显示码

}

//-------------------------------------
//年月日显示子函数
void write_nyr(uchar add,uchar dat)//向lcd写年月日，有显示位置加数、显示数据，两个参数

{
uchar gw,sw;
gw=dat%10;//取得个位数字
sw=dat/10;//取得十位数字
write_1602com(yh+add);//设定显示位置为第一个位置+add
write_1602dat(0x30+sw);//数字+30得到该数字的lcd1602显示码
write_1602dat(0x30+gw);//数字+30得到该数字的lcd1602显示码

}

//-------------------------------------------
void write_week(uchar week)//写星期函数
{
write_1602com(yh+0x0c);//星期字符的显示位置
switch(week)
{
case 1:write_1602dat('m');//星期数为1时，显示
write_1602dat('o');
write_1602dat('n');
break;

case 2:write_1602dat('t');//星期数据为2时显示
write_1602dat('u');
write_1602dat('e');
break;

case 3:write_1602dat('w');//星期数据为3时显示
write_1602dat('e');
write_1602dat('d');
break;

case 4:write_1602dat('t');//星期数据为4是显示
write_1602dat('h');
write_1602dat('u');
break;

case 5:write_1602dat('f');//星期数据为5时显示
write_1602dat('r');
write_1602dat('i');
break;

case 6:write_1602dat('s');//星期数据为6时显示
write_1602dat('t');
write_1602dat('a');
break;

case 7:write_1602dat('s');//星期数据为7时显示
write_1602dat('u');
write_1602dat('n');
break;

}

}

//****************键盘扫描有关函数**********************

void keyscan()
{
if(key1==0)//---------------key1为功能键（设置键）--------------------
{
delay(9);//延时，用于消抖动
if(key1==0)//延时后再次确认按键按下
{
buzzer=0;//蜂鸣器短响一次
delay(20);
buzzer=1;
while(!key1);
key1n++;
if(key1n==9)
key1n=1;//设置按键共有秒、分、时、星期、日、月、年、返回，8个功能循环
switch(key1n)
{

case 1: tr0=0;//关闭定时器
//tr1=0;
write_1602com(er+0x09);//设置按键按动一次，秒位置显示光标
write_1602com(0x0f);//设置光标为闪烁
temp=(miao)/10*16+(miao)%10;//秒数据写入ds1302
write_1302(0x8e,0x00);
write_1302(0x80,0x80|temp);//miao
write_1302(0x8e,0x80);
break;
case 2: write_1602com(er+6);//按2次fen位置显示光标

//write_1602com(0x0f);
break;
case 3: write_1602com(er+3);//按动3次，shi
//write_1602com(0x0f);
break;
case 4: write_1602com(yh+0x0e);//按动4次，week
//write_1602com(0x0f);
break;
case 5: write_1602com(yh+0x0a);//按动5次，ri
//write_1602com(0x0f);
break;
case 6: write_1602com(yh+0x07);//按动6次，yue
//write_1602com(0x0f);
break;
case 7: write_1602com(yh+0x04);//按动7次，nian
//write_1602com(0x0f);
break;
case 8:
write_1602com(0x0c);//按动到第8次，设置光标不闪烁
tr0=1;//打开定时器
temp=(miao)/10*16+(miao)%10;
write_1302(0x8e,0x00);
write_1302(0x80,0x00|temp);//miao数据写入ds1302
write_1302(0x8e,0x80);
break;

}

}

}
//------------------------------加键key2----------------------------
if(key1n!=0)//当key1按下以下。再按以下键才有效（按键次数不等于零）
{

if(key2==0) //上调键
{
delay(10);
if(key2==0)
{
buzzer=0;//蜂鸣器短响一次
delay(20);
buzzer=1;
while(!key2);
switch(key1n)
{
case 1:miao++;//设置键按动1次，调秒
if(miao==60)
miao=0;//秒超过59，再加1，就归零
write_sfm(0x08,miao);//令lcd在正确位置显示"加"设定好的秒数
temp=(miao)/10*16+(miao)%10;//十进制转换成ds1302要求的dcb码
write_1302(0x8e,0x00); //允许写，禁止写保护
write_1302(0x80,temp); //向ds1302内写秒寄存器80h写入调整后的秒数据bcd码
write_1302(0x8e,0x80); //打开写保护
write_1602com(er+0x09);//因为设置液晶的**是写入数据后，光标自动右移，所以要指定返回
//write_1602com(0x0b);
break;
case 2:fen++;
if(fen==60)
fen=0;
write_sfm(0x05,fen);//令lcd在正确位置显示"加"设定好的分数据
temp=(fen)/10*16+(fen)%10;//十进制转换成ds1302要求的dcb码
write_1302(0x8e,0x00);//允许写，禁止写保护
write_1302(0x82,temp);//向ds1302内写分寄存器82h写入调整后的分数据bcd码
write_1302(0x8e,0x80);//打开写保护
write_1602com(er+6);//因为设置液晶的**是写入数据后，指针自动加一，在这里是写回原来的位置
break;
case 3:shi++;
if(shi==24)
shi=0;
write_sfm(2,shi);//令lcd在正确的位置显示"加"设定好的小时数据
temp=(shi)/10*16+(shi)%10;//十进制转换成ds1302要求的dcb码
write_1302(0x8e,0x00);//允许写，禁止写保护
write_1302(0x84,temp);//向ds1302内写小时寄存器84h写入调整后的小时数据bcd码
write_1302(0x8e,0x80);//打开写保护
write_1602com(er+3);//因为设置液晶的**是写入数据后，指针自动加一，所以需要光标回位
break;
case 4:week++;
if(week==8)
week=1;
write_1602com(yh+0x0c);//指定'加'后的周数据显示位置
write_week(week);//指定周数据显示内容
temp=(week)/10*16+(week)%10;//十进制转换成ds1302要求的dcb码
write_1302(0x8e,0x00);//允许写，禁止写保护
write_1302(0x8a,temp);//向ds1302内写周寄存器8ah写入调整后的周数据bcd码
write_1302(0x8e,0x80);//打开写保护
write_1602com(yh+0x0e);//因为设置液晶的**是写入数据后，指针自动加一，所以需要光标回位
break;
case 5:ri++;
if(ri==32)
ri=1;
write_nyr(9,ri);//令lcd在正确的位置显示"加"设定好的日期数据
temp=(ri)/10*16+(ri)%10;//十进制转换成ds1302要求的dcb码
write_1302(0x8e,0x00);//允许写，禁止写保护
write_1302(0x86,temp);//向ds1302内写日期寄存器86h写入调整后的日期数据bcd码
write_1302(0x8e,0x80);//打开写保护
write_1602com(yh+10);//因为设置液晶的**是写入数据后，指针自动加一，所以需要光标回位
break;
case 6:yue++;
if(yue==13)
yue=1;
write_nyr(6,yue);//令lcd在正确的位置显示"加"设定好的月份数据
temp=(yue)/10*16+(yue)%10;//十进制转换成ds1302要求的dcb码
write_1302(0x8e,0x00);//允许写，禁止写保护
write_1302(0x88,temp);//向ds1302内写月份寄存器88h写入调整后的月份数据bcd码
write_1302(0x8e,0x80);//打开写保护
write_1602com(yh+7);//因为设置液晶的**是写入数据后，指针自动加一，所以需要光标回位
break;
case 7:nian++;
if(nian==100)
nian=0;
write_nyr(3,nian);//令lcd在正确的位置显示"加"设定好的年份数据
temp=(nian)/10*16+(nian)%10;//十进制转换成ds1302要求的dcb码
write_1302(0x8e,0x00);//允许写，禁止写保护
write_1302(0x8c,temp);//向ds1302内写年份寄存器8ch写入调整后的年份数据bcd码
write_1302(0x8e,0x80);//打开写保护
write_1602com(yh+4);//因为设置液晶的**是写入数据后，指针自动加一，所以需要光标回位
break;

}

}

}
//------------------减键key3，各句功能参照'加键'注释---------------
if(key3==0)
{
delay(10);//调延时，消抖动
if(key3==0)
{
buzzer=0;//蜂鸣器短响一次
delay(20);
buzzer=1;
while(!key3);
switch(key1n)
{
case 1:miao--;
if(miao==-1)
miao=59;//秒数据减到-1时自动变成59
write_sfm(0x08,miao);//在lcd的正确位置显示改变后新的秒数
temp=(miao)/10*16+(miao)%10;//十进制转换成ds1302要求的dcb码
write_1302(0x8e,0x00); //允许写，禁止写保护
write_1302(0x80,temp); //向ds1302内写秒寄存器80h写入调整后的秒数据bcd码
write_1302(0x8e,0x80); //打开写保护
write_1602com(er+0x09);//因为设置液晶的**是写入数据后，指针自动加一，在这里是写回原来的位置
//write_1602com(0x0b);
break;
case 2:fen--;
if(fen==-1)
fen=59;
write_sfm(5,fen);
temp=(fen)/10*16+(fen)%10;//十进制转换成ds1302要求的dcb码
write_1302(0x8e,0x00);//允许写，禁止写保护
write_1302(0x82,temp);//向ds1302内写分寄存器82h写入调整后的分数据bcd码
write_1302(0x8e,0x80);//打开写保护
write_1602com(er+6);//因为设置液晶的**是写入数据后，指针自动加一，在这里是写回原来的位置
break;

case 3:shi--;
if(shi==-1)
shi=23;
write_sfm(2,shi);
temp=(shi)/10*16+(shi)%10;//十进制转换成ds1302要求的dcb码
write_1302(0x8e,0x00);//允许写，禁止写保护
write_1302(0x84,temp);//向ds1302内写小时寄存器84h写入调整后的小时数据bcd码
write_1302(0x8e,0x80);//打开写保护
write_1602com(er+3);//因为设置液晶的**是写入数据后，指针自动加一，所以需要光标回位
break;
case 4:week--;
if(week==0)
week=7;

write_1602com(yh+0x0c);//指定'加'后的周数据显示位置
write_week(week);//指定周数据显示内容
temp=(week)/10*16+(week)%10;//十进制转换成ds1302要求的dcb码
write_1302(0x8e,0x00);//允许写，禁止写保护
write_1302(0x8a,temp);//向ds1302内写周寄存器8ah写入调整后的周数据bcd码
write_1302(0x8e,0x80);//打开写保护
write_1602com(yh+0x0e);//因为设置液晶的**是写入数据后，指针自动加一，所以需要光标回位
break;
case 5:ri--;
if(ri==0)
ri=31;
write_nyr(9,ri);
temp=(ri)/10*16+(ri)%10;//十进制转换成ds1302要求的dcb码
write_1302(0x8e,0x00);//允许写，禁止写保护
write_1302(0x86,temp);//向ds1302内写日期寄存器86h写入调整后的日期数据bcd码
write_1302(0x8e,0x80);//打开写保护
write_1602com(yh+10);//因为设置液晶的**是写入数据后，指针自动加一，所以需要光标回位
break;
case 6:yue--;
if(yue==0)
yue=12;
write_nyr(6,yue);
temp=(yue)/10*16+(yue)%10;//十进制转换成ds1302要求的dcb码
write_1302(0x8e,0x00);//允许写，禁止写保护
write_1302(0x88,temp);//向ds1302内写月份寄存器88h写入调整后的月份数据bcd码
write_1302(0x8e,0x80);//打开写保护
write_1602com(yh+7);//因为设置液晶的**是写入数据后，指针自动加一，所以需要光标回位
break;
case 7:nian--;
if(nian==-1)
nian=99;
write_nyr(3,nian);
temp=(nian)/10*16+(nian)%10;//十进制转换成ds1302要求的dcb码
write_1302(0x8e,0x00);//允许写，禁止写保护
write_1302(0x8c,temp);//向ds1302内写年份寄存器8ch写入调整后的年份数据bcd码
write_1302(0x8e,0x80);//打开写保护
write_1602com(yh+4);//因为设置液晶的**是写入数据后，指针自动加一，所以需要光标回位
break;

}

}

}

}

}

//-------------------------------
void init() //定时器、计数器设置函数
{
tmod=0x11; //指定定时/计数器的工作方式为3
th0=0; //定时器t0的高四位=0
tl0=0; //定时器t0的低四位=0
ea=1; //系统允许有开放的中断
et0=1; //允许t0中断
tr0=1; //开启中断，启动定时器

}

//*******************主函数**************************
//***************************************************
void main()
{
lcd_init(); //调用液晶屏初始化子函数
ds1302_init(); //调用ds1302时钟的初始化子函数
init(); //调用定时计数器的设置子函数
led=0; //打开lcd的背光电源
buzzer=0;//蜂鸣器长响一次
delay(80);
buzzer=1;
while(1) //无限循环下面的语句：
{

keyscan(); //调用键盘扫描子函数

}
}

void timer0() interrupt 1 //取得并显示日历和时间
{

//init_ds18b20();//温度传感器ds18b2初始化子函数，在头文件中
flag=readtemperature();//将18b2头文件运行返回的函数结果送到变量flag中，用于显示

//读取秒时分周日月年七个数据（ds1302的读寄存器与写寄存器不一样）：

miao = bcd_decimal(read_1302(0x81));
fen = bcd_decimal(read_1302(0x83));
shi = bcd_decimal(read_1302(0x85));
ri = bcd_decimal(read_1302(0x87));
yue = bcd_decimal(read_1302(0x89));
nian=bcd_decimal(read_1302(0x8d));
week=bcd_decimal(read_1302(0x8b));

//显示温度、秒、时、分数据：

write_temp(12,flag);//显示温度，从第二行第12个字符后开始显示
write_sfm(8,miao);//秒，从第二行第8个字后开始显示（调用时分秒显示子函数）
write_sfm(5,fen);//分，从第二行第5个字符后开始显示
write_sfm(2,shi);//小时，从第二行第2个字符后开始显示

//显示日、月、年数据：
write_nyr(9,ri);//日期，从第二行第9个字符后开始显示
write_nyr(6,yue);//月份，从第二行第6个字符后开始显示
write_nyr(3,nian);//年，从第二行第3个字符后开始显示
write_week(week);

}