1602+ds1302+18B20万年历显示温度星期完全通过

用51单片机完成的数字万年历同时带数字温度计，程序完整，自带proteus仿真图。

#include
#include“DS18B20_3.H“
#define uint unsigned int
#define uchar unsigned char
uchar amiaoshifenriyuenianweekflagkey1ntemp;
//flag用于读取头文件中的温度值，和显示温度值

#define yh 0x80 //LCD第一行的初始位置因为LCD1602字符地址首位D7恒定为1（100000000=80）
#define er 0x80+0x40 //LCD第二行初始位置（因为第二行第一个字符位置地址是0x40）

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

//DS1302时钟芯片与C51之间的引脚连接定义
sbit IO=P1^1;
sbit SCLK=P1^0;
sbit RST=P1^2;

sbit ACC0=ACC^0;
sbit ACC7=ACC^7;
/************************************************************
ACC累加器=A
ACC.0=E0H 

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

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

//校时按键与C51的引脚连接定义
sbit key1=P1^5;  //设置键
sbit key2=P1^6;  //加键
sbit key3=P1^7;  //减键

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

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

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

//延时函数，后面经常调用
void delay（uint xms）//延时函数，有参函数
{
	uint xy;
	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 adduchar 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）;
}

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件        909  2010-01-08 21:42  1602+ds1302+18B20万年历显示温度星期（完全通过）\lcd 1302.PWI

    .......      1038  2010-01-10 23:18  1602+ds1302+18B20万年历显示温度星期（完全通过）\lcd1602_Opt.Bak

     文件      88627  2010-01-10 21:54  1602+ds1302+18B20万年历显示温度星期（完全通过）\Last Loaded lcd1602.DBK

     文件      85538  2009-03-12 19:53  1602+ds1302+18B20万年历显示温度星期（完全通过）\Backup Of lcd 1302.DBK

     文件        128  2010-01-10 23:23  1602+ds1302+18B20万年历显示温度星期（完全通过）\lcd1602.plg

     文件      17276  2010-01-10 23:23  1602+ds1302+18B20万年历显示温度星期（完全通过）\lcd1602.c

     文件      35589  2010-01-10 23:23  1602+ds1302+18B20万年历显示温度星期（完全通过）\lcd1602.M51

     文件       6055  2010-01-10 23:23  1602+ds1302+18B20万年历显示温度星期（完全通过）\lcd1602.hex

     文件      85836  2009-03-17 18:55  1602+ds1302+18B20万年历显示温度星期（完全通过）\Last Loaded lcd 1302.DBK

     文件       1007  2010-01-10 23:51  1602+ds1302+18B20万年历显示温度星期（完全通过）\说明.txt

     文件       1662  2010-01-09 00:27  1602+ds1302+18B20万年历显示温度星期（完全通过）\lcd1602.Uv2

     文件      97907  2010-01-10 23:42  1602+ds1302+18B20万年历显示温度星期（完全通过）\lcd1602.DSN

     文件       3884  2010-01-09 00:11  1602+ds1302+18B20万年历显示温度星期（完全通过）\LCD18B20.h

     文件       1383  2010-01-10 23:55  1602+ds1302+18B20万年历显示温度星期（完全通过）\lcd1602.PWI

     文件       3765  2010-01-08 23:48  1602+ds1302+18B20万年历显示温度星期（完全通过）\DS18B20_3.H

     文件         46  2010-01-10 23:23  1602+ds1302+18B20万年历显示温度星期（完全通过）\lcd1602.lnp

     文件      27455  2010-01-10 23:23  1602+ds1302+18B20万年历显示温度星期（完全通过）\lcd1602.LST

     文件      33289  2010-01-10 23:23  1602+ds1302+18B20万年历显示温度星期（完全通过）\lcd1602.OBJ

     文件      27996  2010-01-10 23:23  1602+ds1302+18B20万年历显示温度星期（完全通过）\lcd1602

     文件       1035  2010-01-10 23:23  1602+ds1302+18B20万年历显示温度星期（完全通过）\lcd1602.Opt

     目录          0  2010-01-09 00:34  1602+ds1302+18B20万年历显示温度星期（完全通过）

----------- ---------  ---------- -----  ----

               520425                    21