单片机 12864 ds1302 万年历（c51）

#include<reg52.h>
#include<intrins.h> //包含_nop_()函数定义的头文件
#define uchar unsigned char
#define uint unsigned int
/*在初次使用ds1302、掉电（带备用电池除外）时务必先选择恢复出厂设置*/

/**********************/
uchar keyz=0,shuzi1=0;
uchar key_1=0;
uchar m;
char wanbiao=0;//调整时用到的标志
uchar t;
uchar s;
uchar yibai,wsec,wmin,whour;
uchar time; //设置全局变量，专门用于严格延时(18b20) 温度计
uchar TL,TH,TD,TN;
uchar gewei=15;
uchar shiwei=10;
uchar baiwei=10;
uchar shi=10;
uchar bai=10;
uchar qian=10;
uchar wan=10;
uchar wenb=0;
uint xiaoshu;//温度计

/*=========================判忙================================*/
void checkbusy()
{
uchar panm;
rs=0;
rw=1;
P0=0xff;
do
{
en = 1;
panm=P0;
en = 0;
}
while(panm&0x80);
}
/*===========液晶写指令========================================*/
void writecommand(uchar command)
{
checkbusy();
rs=0;
rw=0;
en=1;
P0=command; //液晶数据线P0
en=0;
}
/*============液晶写数据========================================*/
void writedata(uchar date)
{
checkbusy();
rs=1;
rw=0;
en=1;
P0=date;
en=0;
}

/*==============液晶设置========================================*/
void lcdset(void)
{
writecommand(0x30); //基本指令集，功能设置
writecommand(0x01); //清屏，DDRAM的地址归零
writecommand(0x02); //地址归位
writecommand(0x0c); //显示开，光标关，反白关
writecommand(0x06); //DDRAM地址加1
}
/*===========显示程序===========================================*/
void display(uchar y, uchar x, uchar *p)
{
delay(10);
switch (y)
{
case 1:writecommand(0x7f+x); break; //液晶第一行
case 2:writecommand(0x8f+x); break; //0x90+(x-1)
case 3:writecommand(0x87+x);break;
case 4:writecommand(0x97+x);break;
default:break;
}
while(*p)
writedata(*p++);
}

/*========================键扫子程序========================*/
uchar keyscan(void)
{
uchar scan,tmp;
P1=0xf0; //发全行0扫描码
if((P1&0xf0)!=0xf0) //若有键按下
{delay(10); // 延时去抖
if((P1&0xf0)!=0xf0) //延时再判键是否还按下
{scan=0xfe;
while((scan&0x10)!=0) //逐行扫描
{
P1=scan; //输出行扫描码
if((P1&0xf0)!=0xf0) //本行有键按下
{tmp=(P1&0xf0)|0x0f;
while((P1&0xf0)!=0xf0); //设定为上升沿有效
return ((~scan)|(~tmp));} //还回键值
else scan=(scan<<1)|0x01; //行扫描码左移一位
}
}
}
return (0); //无键按下,还回0
}
/*========================键处理子程序========================*/
void keychuli()
{
keyz=keyscan();
if(keyz!=0)
{
switch(keyz)
{
case 0x11: key_1=1;break;
case 0x21: key_1=2;break;
case 0x41: key_1=3;break;
case 0x81: key_1=4;break;
case 0x12: key_1=5;break;
case 0x22: key_1=6;break;
case 0x42: key_1=7;break;
case 0x82: key_1=8;break;
case 0x14: key_1=9;break;
case 0x44: key_1=0;break;
default:break;
}
}
}
/*========================延时子程序========================*/
void delay(uint w) //w=1时,100us
{
uchar a;
for(w;w>0;w--)
for(a=47;a>0;a--);
}


/**********************************************************/
//控制秒表所需的计数时间，用定时器0
void timer0(void) interrupt 1 using 0 //定时器0方式1，10ms中断一次
{
TH0=0xd8;
TL0=0xf0;
yibai++;
}
//控制字符闪动 ，用定时器1
void timer1(void) interrupt 3 using 0 //定时器1方式1，500ms中断一次
{
uchar shan;
TH0=0x3c;
TL0=0xb0;
shan++;
if(shan==5)
{
shan=0;
shand=~shand;
}
}

/*****************温度计**********************************************************/
/*****************************************************
函数功能：将DS18B20传感器初始化，读取应答信号
出口参数：flag
***************************************************/
bit Init_DS18B20(void)
{
bit flag; //储存DS18B20是否存在的标志，flag=0，表示存在；flag=1，表示不存在
DQ = 1; //先将数据线拉高
for(time=0;time<2;time++) //略微延时约6微秒
;
DQ = 0; //再将数据线从高拉低，要求保持480~960us
for(time=0;time<200;time++) //略微延时约600微秒
; //以向DS18B20发出一持续480~960us的低电平复位脉冲
DQ = 1; //释放数据线（将数据线拉高）
for(time=0;time<16;time++)
; //延时约30us（释放总线后需等待15~60us让DS18B20输出存在脉冲）
flag=DQ; //让单片机检测是否输出了存在脉冲（DQ=0表示存在）
for(time=0;time<200;time++) //延时足够长时间，等待存在脉冲输出完毕
;
return (flag); //返回检测成功标志
}
/*****************************************************
函数功能：从DS18B20读取一个字节数据
出口参数：dat
***************************************************/
uchar ReadOneChar(void)
{
uchar i=0;
uchar dat; //储存读出的一个字节数据
for (i=0;i<8;i++)
{
DQ =1; // 先将数据线拉高
_nop_(); //等待一个机器周期
DQ = 0; //单片机从DS18B20读书据时,将数据线从高拉低即启动读时序
dat>>=1;
_nop_(); //等待一个机器周期
DQ = 1; //将数据线"人为"拉高,为单片机检测DS18B20的输出电平作准备
for(time=0;time<2;time++)
; //延时约6us，使主机在15us内采样
if(DQ==1)
dat|=0x80; //如果读到的数据是1，则将1存入dat
else
dat|=0x00;//如果读到的数据是0，则将0存入dat
//将单片机检测到的电平信号DQ存入r[i]
for(time=0;time<8;time++)
; //延时3us,两个读时序之间必须有大于1us的恢复期
}
return(dat); //返回读出的十进制数据
}
/*****************************************************
函数功能：向DS18B20写入一个字节数据
入口参数：dat
***************************************************/
void WriteOneChar(uchar dat)
{
unsigned char i=0;
for (i=0; i<8; i++)
{
DQ =1; // 先将数据线拉高
_nop_(); //等待一个机器周期
DQ=0; //将数据线从高拉低时即启动写时序
DQ=dat&0x01; //利用与运算取出要写的某位二进制数据,
//并将其送到数据线上等待DS18B20采样
for(time=0;time<10;time++)
;//延时约30us，DS18B20在拉低后的约15~60us期间从数据线上采样
DQ=1; //释放数据线
for(time=0;time<1;time++)
;//延时3us,两个写时序间至少需要1us的恢复期
dat>>=1; //将dat中的各二进制位数据右移1位
}
for(time=0;time<4;time++)
; //稍作延时,给硬件一点反应时间
}
/*****************************************************
函数功能：做好读温度的准备
***************************************************/
void ReadyReadTemp(void)
{
Init_DS18B20(); //将DS18B20初始化
WriteOneChar(0xCC); // 跳过读序号列号的操作
WriteOneChar(0x44); // 启动温度转换
for(time=0;time<100;time++)
; //温度转换需要一点时间
Init_DS18B20(); //将DS18B20初始化
WriteOneChar(0xCC); //跳过读序号列号的操作
WriteOneChar(0xBE); //读取温度寄存器,前两个分别是温度的低位和高位
}

/*****************温度检测****************************/
void wendujiance()
{
ReadyReadTemp();
TL=ReadOneChar(); //先读的是温度值低位
TH=ReadOneChar(); //接着读的是温度值高位
TN=TH*16+TL/16; //实际温度值=(TH*256+TL)/16,即：TH*16+TL/16
TD=(TL&0x0f);
xiaoshu=625*TD;
gewei=TN%10;
shiwei=(TN/10)%10;
baiwei=TN/100;
if(baiwei==0) baiwei=10;
if(baiwei==10&&shiwei==0) shiwei=10;
shi=(xiaoshu/1000)%10;
bai=(xiaoshu/100)%10;
qian=(xiaoshu/10)%10;
wan=xiaoshu%10;
//显示
writecommand(0x9b);
writedata(yejingtable[baiwei]);
writedata(yejingtable[shiwei]);
writedata(yejingtable[gewei]);
writedata(0x2e);
writedata(yejingtable[shi]);
writedata(yejingtable[bai]);
writedata(yejingtable[qian]);
writedata(yejingtable[wan]);
writedata(0xa1);
writedata(0xe6);
}
/****************闹铃监测**********************************/
naolingjiance()
{
if(wandisplay[7]==naoling[0]&&wandisplay[8]==naoling[1]&&wandisplay[9]==naoling[2]&&wandisplay[10]==naoling[3])
speaker=0;
else speaker=1;
}

/*****************************************************
*******************主函数*****************************
******************************************************/
main()
{
TMOD = 0x11; //time0为定时器，方式1
TH0=0xd8; //预置计数初值
TL0=0xf0;
TH1=0x3c; //预置计数初值
TL1=0xb0;
EA=1;
ET0=1;
ET1=1;
ril:
key_1=0;
wanbiao=0;
lcdset();
while(1)
{
display(1,1,"20");
display(1,3,"年");
display(1,6,"月");
display(1,8,"日");
display(2,1,"星期");
display(3,4,":");
display(3,6,":");
display(4,1,"菜单");
wendujiance();//温度检测
read_rtc();//读实时时钟
wanchuli();//万年历数据处理子程序
wanxians();//万年历显示子程序
keychuli();
if(naol==1)
{
naolingjiance();
writecommand(0x83);
writedata(0x0e);
}
else display(1,4," ");
if(keyz==0x88)
{
naol=~naol;
speaker=1;
}// 按退出以关闭正在的闹铃
if(keyz==0x84)// 按确认进入菜单
goto miaob;//菜单
}

/*==============秒表================*/
miaob://秒表
wanbiao=0;
key_1=0;
writecommand(0x01);//清屏
while(1)
{
//设置秒表格式
if(yibai==100)
{
yibai=0;
wsec++;
if(wsec==60) //秒钟设为60进制
{
wsec=0;
wmin++;
if(wmin==60) //分钟设为60进制
{
wmin=0;
whour++;
if(whour==100) //时钟设为100进制
{
whour=0;
}
}
}
}
//显示程序
display(1,1,"秒表");
display(3,1,"1.开始2.暂停");
display(4,1,"3.清零");
display(2,3,":");
display(2,5,":");
display(2,7,":");
writecommand(0x91);
writedata(yejingtable[whour/10]);//时
writedata(yejingtable[whour%10]);
writecommand(0x93);
writedata(yejingtable[wmin/10]);//分
writedata(yejingtable[wmin%10]);
writecommand(0x95);
writedata(yejingtable[wsec/10]);//秒
writedata(yejingtable[wsec%10]);
writecommand(0x97);
writedata(yejingtable[yibai/10]);//一秒的百分之一
writedata(yejingtable[yibai%10]);
do //当暂停时不执行以上程序
{
keychuli();
if(key_1==1)
TR0=1;
if(key_1==2)
TR0=0;
if(key_1==3)
{TR0=0;yibai=whour=wmin=wsec=0;}
if(keyz==0x28){ TR0=0; goto shen;} //下翻页
if(keyz==0x88){ TR0=0; goto ril;}//退出
}
while(key_1==2);
}


/*==============设置闹钟================*/
shen://设置闹钟
wanbiao=0;
TR1=1; //开光标
writecommand(0x01);//清屏
while(1)
{
display(1,1,"设置闹钟");
display(4,1,"闹铃：");
display(3,4,":");
key_1=10;
keychuli();
if(keyz==0x24) {TR1=0;goto miaob;}//上下翻页
if(keyz==0x28) {TR1=0;goto sher;}
if(keyz==0x48){wanbiao++;if(wanbiao>3)wanbiao=0;}// 选择调整对象
if(keyz==0x18){wanbiao--;if(wanbiao<0)wanbiao=3;}//
//修改闹铃时间
if(key_1!=10)
{
switch(wanbiao)
{
case 0: wanbiao++;if(wanbiao>3)wanbiao=0;naoling[0]=key_1;break;//时十
case 1: wanbiao++;if(wanbiao>3)wanbiao=0;naoling[1]=key_1;break;//时个
case 2: wanbiao++;if(wanbiao>3)wanbiao=0;naoling[2]=key_1;break;//分十
case 3: wanbiao++;if(wanbiao>3)wanbiao=0;naoling[3]=key_1;break;//分个
default:break;
}
}
//显示程序
writecommand(0x8a);
if(shand==1&&wanbiao==0) writedata(yejingtable[10]); //光标闪动
else writedata(yejingtable[naoling[0]]); //
if(shand==1&&wanbiao==1) writedata(yejingtable[10]);//光标闪动
else writedata(yejingtable[naoling[1]]);
writecommand(0x8c);
if(shand==1&&wanbiao==2) writedata(yejingtable[10]);
else writedata(yejingtable[naoling[2]]);
if(shand==1&&wanbiao==3) writedata(yejingtable[10]);
else writedata(yejingtable[naoling[3]]);
if(keyz==0x84) naol=~naol;
if(naol==1)display(4,4,"开");
else display(4,4,"关");
if(keyz==0x88) {TR1=0;goto ril;}//退回主菜单
}
/*==============设置日期================*/
sher://设置日期
TR1=1; //开光标
wanbiao=0;
writecommand(0x01);//清屏
while(1)
{
display(1,1,"设置日期");
display(3,1,"20");
display(3,3,"年");
display(3,6,"月");
display(3,8,"日");
display(4,1,"星期");
key_1=10;
keychuli();
if(keyz==0x48){wanbiao++;if(wanbiao>6)wanbiao=0;}
if(keyz==0x18){wanbiao--;if(wanbiao<0)wanbiao=6;}
if(keyz==0x24){TR1=0;goto shen;}//上下翻页
if(keyz==0x28){TR1=0;goto shes;}
if(key_1!=10)
{
switch(wanbiao)
{
case 0:wanbiao++;if(wanbiao>3)wanbiao=0;wandisplay[0]=key_1;break;//年十
case 1:wanbiao++;if(wanbiao>6)wanbiao=0;wandisplay[1]=key_1;break;//年个
case 2:wanbiao++;if(wanbiao>6)wanbiao=0;wandisplay[2]=key_1;break;//月十
case 3:wanbiao++;if(wanbiao>6)wanbiao=0;wandisplay[3]=key_1;break;//月个
case 4:wanbiao++;if(wanbiao>6)wanbiao=0;wandisplay[4]=key_1;break;//日十


if(keyz==0x84)//确认保存
{
time_data[0]=(wandisplay[1]+(wandisplay[0]*10));//年
time_data[1]=wandisplay[6]; //星期
time_data[2]=(wandisplay[3]+(wandisplay[2]*10));//月
time_data[3]=(wandisplay[5]+(wandisplay[4]*10));//日
//转BCD码
for(t=0;t<4;t++)
{
s=time_data[t]/10;
time_data[t]=time_data[t]%10;
time_data[t]=time_data[t]+s*16;
}
write_ds1302(0x8e,0x00);//去除写保护
for(t=0;t<4;t++)
write_ds1302(write_add[t],time_data[t]);
write_ds1302(0x8e,0x80);//写保护
TR1=0;
goto ril;//保存退出
}
if(keyz==0x88)//取消并退出
{TR1=0;
goto ril;}
}

/*==============设置时间================*/
shes://设置时间
TR1=1; //开光标
wanbiao=0;
writecommand(0x01);//清屏
while(1)
{
display(1,1,"设置时间");
display(3,4,":");
display(3,6,":");
key_1=10;
keychuli();
if(keyz==0x24) {TR1=0;goto sher; }//上翻页
if(keyz==0x28) {TR1=0;goto chuchang;}//下翻页
if(keyz==0x48){wanbiao++;if(wanbiao>5)wanbiao=0;}// 选择调整对象
if(keyz==0x18){wanbiao--;if(wanbiao<0)wanbiao=5;}//
if(key_1!=10)
{
switch(wanbiao)
{
case 0:wanbiao++;if(wanbiao>5)wanbiao=0;wandisplay[7]=key_1;break;//时十
case 1:wanbiao++;if(wanbiao>5)wanbiao=0;wandisplay[8]=key_1;break;//时个
case 2:wanbiao++;if(wanbiao>5)wanbiao=0;wandisplay[9]=key_1;break;//分十
case 3:wanbiao++;if(wanbiao>5)wanbiao=0;wandisplay[10]=key_1;break;//分个
case 4:wanbiao++;if(wanbiao>5)wanbiao=0;wandisplay[11]=key_1;break;//秒十
case 5:wanbiao++;if(wanbiao>5)wanbiao=0;wandisplay[12]=key_1;break;//秒个
default:break;
}
}
//显示程序
writecommand(0x8a);
if(shand==1&&wanbiao==0) writedata(yejingtable[10]);//光标闪动
else writedata(yejingtable[wandisplay[7]]);
if(shand==1&&wanbiao==1) writedata(yejingtable[10]);
else writedata(yejingtable[wandisplay[8]]);
writecommand(0x8c);
if(shand==1&&wanbiao==2) writedata(yejingtable[10]);
else writedata(yejingtable[wandisplay[9]]);
if(shand==1&&wanbiao==3) writedata(yejingtable[10]);
else writedata(yejingtable[wandisplay[10]]);
writecommand(0x8e);
if(shand==1&&wanbiao==4) writedata(yejingtable[10]);
else writedata(yejingtable[wandisplay[11]]);
if(shand==1&&wanbiao==5) writedata(yejingtable[10]);
else writedata(yejingtable[wandisplay[12]]);
if(keyz==0x84)//确认保存
{
time_data[4]=(wandisplay[8]+(wandisplay[7]*10));//时
time_data[5]=(wandisplay[10]+(wandisplay[9]*10));//分
time_data[6]=(wandisplay[12]+(wandisplay[11]*10));//秒
//转BCD码
for(t=4;t<7;t++)
{
s=time_data[t]/10;
time_data[t]=time_data[t]%10;
time_data[t]=time_data[t]+s*16;
}
write_ds1302(0x8e,0x00);//去除写保护
for(t=4;t<7;t++)
write_ds1302(write_add[t],time_data[t]);
write_ds1302(0x8e,0x80);//写保护
goto ril;//保存退出
}
if(keyz==0x88)//取消并退出
{
goto ril;
}
}

/*==============出厂设置================*/
chuchang:
while(1)
{
display(1,1,"恢复出厂设置？");
display(3,2,"确定 取消");
keychuli();
if(keyz==0x24) goto shes; //上翻页
if(keyz==0x84)//确认保存并退出
{
time_data[0]=11; //出厂设置为 2011年 8月8日 星期一 13:30:00
time_data[1]=1;
time_data[2]=8;
time_data[3]=8;
time_data[4]=12;
time_data[5]=30;
time_data[6]=0;
set_rtc();
goto ril;
}
if(keyz==0x88)//取消并退出
goto ril;
}
}