ds1302.c

Keil C51完整的128X64LCD显示的电子打铃仪代码,内含DS1302X5045等操作代码

/*********************************************************************
 *Description：    		Real Time Clock Module For IC DS1302
 *File Name:   			DS1302.C
 *Use Compile Lanague: 	KEIL C51
 *Version :    			V1.0
 *Code Author：    		zhouhuanxi
 *Date:					2005-01-19
 CopyRight(C) 			2005 --  SHENZHEN XINSANWEI Machine&Electronics CO.,LTD.
*********************************************************************/

//==== FILE Include And Macro Declare Segment=====

#include 	"Config.H"

code uint8 monthday[]={0x31,0x29,0x31,0x30,0x31,0x30,0x31,0x31,0x30,0x31,0x30,0x31};
//Define DS1302 Operate IO Pin
sbit IO 	=	 P3^6;
sbit SCLK 	=	 P3^5;
sbit RSTB 	=	 P3^7;

/******************************************************************** 
*
* 名称: DS1302_InputByte
* 说明: 
* 功能: 往DS1302写入1Byte数据
* 调用:
* 输入: ucDa 写入的数据 
* 返回值: 无
***********************************************************************/
void DS1302_InputByte(uint8 ucDa) 
{ 
	uint8 i;
	
	for(i=8; i>0; i--)
	{
		if((ucDa&0x01)==0x01)
			IO=1;
		else
			IO=0;

		SCLK = 1;
		_NOP_();
		SCLK = 0;
		ucDa = ucDa >> 1; 
	} 
}

/******************************************************************** 
*
* 名称: uint8 DS1302_OutputByte
* 说明: 
* 功能: 从DS1302读取1Byte数据
* 调用: 
* 输入: 
* 返回值: ACC
***********************************************************************/
uint8 DS1302_OutputByte(void) 
{ 
	uint8 i,ucDB=0x00;
	CY	=	0;
	for(i=8; i>0; i--)
	{
		ucDB=ucDB>>1;
		if (IO)
			ucDB=ucDB|0x80;
		SCLK = 1;
		_NOP_();
		SCLK = 0;
	} 
	return(ucDB); 
}

/******************************************************************** 
* 名称: v_W1302
* 说明: 先写地址，后写命令/数据
* 功能: 往DS1302写入数据
* 调用: DS1302_InputByte() 
* 输入: ucAddr: DS1302地址, ucDa: 要写的数据
* 返回值: 无
***********************************************************************/
void W_ByteToDS1302(uint8 ucAddr, uint8 ucDa)
{
	RSTB = 0;
	SCLK = 0;
	RSTB = 1;
	DS1302_InputByte(ucAddr); /* 地址，命令 */
	DS1302_InputByte(ucDa); /* 写1Byte数据*/
	SCLK = 1;
	RSTB =0;
} 

/******************************************************************** 
* 名称: RD_ByteFromDS1302
* 说明: 先写地址，后读命令/数据
* 功能: 读取DS1302某地址的数据
* 调用: DS1302_InputByte() , DS1302_OutputByte()
* 输入: ucAddr: DS1302地址
* 返回值: ucDa :读取的数据
***********************************************************************/
uint8 RD_ByteFromDS1302(uint8 ucAddr)
{
	uint8 ucDa;
	RSTB = 0;
	SCLK = 0;
	RSTB = 1;
	DS1302_InputByte(ucAddr); /* 地址，命令 */
	ucDa = DS1302_OutputByte(); /* 读1Byte数据 */
	SCLK = 1;
	RSTB =0;
	return(ucDa);
}

#ifdef MY_USE
/******************************************************************** 
*
* 名称: DS1302_REG_Burst_WR
* 说明: 先写地址，后写数据(时钟多字节方式)
* 功能: 往DS1302写入时钟数据(多字节方式)
* 调用: DS1302_InputByte() 
* 输入: pSecDa: 时钟数据地址 格式为: 秒 分 时 日 月 星期 年 控制
* 8Byte (BCD码) 1B 1B 1B 1B 1B 1B 1B 1B
* 返回值: 无
***********************************************************************/
void DS1302_REG_Burst_WR(uint8 *pSecDa)
{
	uint8 i;

	W_ByteToDS1302(0x8e,0x00); /* 控制命令,WP=0,写操作?*/
	RSTB = 0;
	SCLK = 0;
	RSTB = 1;
	DS1302_InputByte(0xbe); /* 0xbe:时钟多字节写命令 */
	for (i=8;i>0;i--) /*8Byte = 7Byte 时钟数据 + 1Byte 控制*/
	{
		DS1302_InputByte(*pSecDa);/* 写1Byte数据*/
		pSecDa++;
	}
	SCLK = 1;
	RSTB =0;
} 

/******************************************************************** 
*
* 名称: DS1302_REG_Burst_RD
* 说明: 先写地址，后读命令/数据(时钟多字节方式)
* 功能: 读取DS1302时钟数据
* 调用: DS1302_InputByte() , DS1302_OutputByte()
* 输入: pSecDa: 时钟数据地址 格式为: 秒 分 时 日 月 星期 年 
* 7Byte (BCD码) 1B 1B 1B 1B 1B 1B 1B
* 返回值: ucDa :读取的数据
***********************************************************************/
void DS1302_REG_Burst_RD(uint8 *pSecDa)
{
	uint8 i;  

	RSTB = 0;
	SCLK = 0;
	RSTB = 1;
	DS1302_InputByte(0xbf); /* 0xbf:时钟多字节读命令 */
	for (i=8; i>0; i--) 
	{
		*pSecDa = DS1302_OutputByte(); /* 读1Byte数据 */
		pSecDa++;
	}
	SCLK = 1;
	RSTB =0;
}

/******************************************************************** 
*
* 名称: DS1302_RAM_Burst_WR
* 说明: 先写地址，后写数据(寄存器多字节方式)
* 功能: 往DS1302寄存器数写入数据(多字节方式)
* 调用: DS1302_InputByte() 
* 输入: pReDa: 寄存器数据地址
* 返回值: 无
***********************************************************************/
void DS1302_RAM_Burst_WR(uint8 *pReDa)
{
	uint8 i;

	W_ByteToDS1302(0x8e,0x00); // 控制命令,WP=0,写操作?
	RSTB = 0;
	SCLK = 0;
	RSTB = 1;
	DS1302_InputByte(0xfe); // 0xbe:时钟多字节写命令
	for (i=31;i>0;i--) //31Byte 寄存器数据 
	{
		DS1302_InputByte(*pReDa); // 写1Byte数据
		pReDa++;
	}
	SCLK = 1;
	RSTB =0;
} 

/******************************************************************** 
*
* 名称: DS1302_RAM_Burst_RD
* 说明: 先写地址，后读命令/数据(寄存器多字节方式)
* 功能: 读取DS1302寄存器数据
* 调用: DS1302_InputByte() , DS1302_OutputByte()
* 输入: pReDa: 寄存器数据地址
* 返回值: 无
***********************************************************************/
void DS1302_RAM_Burst_RD(uint8 *pReDa)
{
	uint8 i;

	RSTB = 0;
	SCLK = 0;
	RSTB = 1;
	DS1302_InputByte(0xff); // 0xbf:时钟多字节读命令 
	for (i=31; i>0; i--) //31Byte 寄存器数据 
	{
		*pReDa = DS1302_OutputByte(); // 读1Byte数据 
		pReDa++;
	}
	SCLK = 1;
	RSTB =0;
}
#endif

/*********************************************************************** 
*
* 名称: Write_TimeToDS1302
* 说明: 
* 功能: 设置初始时间
* 调用: v_W1302() 
* 输入: pSecDa: 初始时间地址。初始时间格式为: 秒 分 时 日 月 星期 年 
* 7Byte (BCD码) 1B 1B 1B 1B 1B 1B 1B
* 返回值: 无
***********************************************************************/
void Write_TimeToDS1302(uint8 *pSecDa,uint8 change_flag) 
{
	uint8 i;
	uint8 ucAddr = 0x80; 
	
	W_ByteToDS1302(0x8E,0x00); // 控制命令,WP=0,写操作?

	for(i =0;i<7;i++)
	{ 
	    if((change_flag&0x01)==0x01)//只写入已改变的值
		    W_ByteToDS1302(ucAddr,pSecDa[i]); // 秒 分 时 日 月 星期 年 
		change_flag=change_flag>>1;    
		ucAddr +=2;
	}
	
	W_ByteToDS1302(0x80,pSecDa[0]&0x7F); 	//打开时钟振荡
	W_ByteToDS1302(0x8E,0x80); // 控制命令,WP=1,写保护?
}

/*********************************************************************** 
*
* 名称: Get_TimeFromDS1302
* 说明: 
* 功能: 读取DS1302当前时间
* 调用: RD_ByteFromDS1302() 
* 输入: ucCurtime: 保存当前时间地址。当前时间格式为: 秒 分 时 日 月 星期 年 
* 7Byte (BCD码) 1B 1B 1B 1B 1B 1B 1B
* 返回值: 无
***********************************************************************/
void Get_TimeFromDS1302(uint8 ucCurtime[]) 
{
	uint8 i;
	uint8 ucAddr = 0x81;
	for (i=0;i<7;i++)
	{
		ucCurtime[i] = RD_ByteFromDS1302(ucAddr);//格式为: 秒 分 时 日 月 星期 年 
		ucAddr += 2;
	}
} 

/******************************************************************** 
*
* 名称: W_ByteToDS1302_RAM
* 说明: 先写地址，后写数据
* 功能: 往DS1302的RAM中写入数据
* 调用: W_ByteToDS1302() 
* 输入: ucAddr: DS1302地址, ucDa: 要写的数据
* 返回值: 无
***********************************************************************/
void W_ByteToDS1302_RAM(uint8 ucAddr, uint8 ucDa)
{
	W_ByteToDS1302(0x8E,0x00); 			// 控制命令,WP=0,写操作?
	W_ByteToDS1302(ucAddr,ucDa); 		// 秒 分 时 日 月 星期 年     
	W_ByteToDS1302(0x8E,0x80); 			// 控制命令,WP=1,写保护?
} 

/******************************************************************** 
*
* 名称: RD_ByteFromDS1302_RAM
* 说明: 先写地址，后读数据
* 功能: 读取DS1302某地址的数据
* 调用: RD_ByteFromDS1302()
* 输入: ucAddr: DS1302地址
* 返回值: ucDa :读取的数据
***********************************************************************/
uint8 RD_ByteFromDS1302_RAM(uint8 ucAddr)
{
	uint8 ucDa;
	ucDa = RD_ByteFromDS1302(ucAddr);
	return(ucDa);
}

/*********************************************************************** 
*
* 名称: Initial_DS1302
* 说明: 
* 功能: 初始化DS1302,
* 调用: W_ByteToDS1302() 
* 输入: 无
* 返回值: 无
***********************************************************************/
void Initial_DS1302(void) 
{
	uint8 tempvv0,tempvv1;

	tempvv0 =	RD_ByteFromDS1302(0x81);//读秒值
	tempvv1 =	RD_ByteFromDS1302(0x85);//读小时值

	W_ByteToDS1302(0x8e,0x00); 			// 控制命令,WP=0,写操作?

	W_ByteToDS1302(0x90,0xAA);			//设置充电模式
	W_ByteToDS1302(0x84,tempvv1&0x7F);	//设置为24小时制
    W_ByteToDS1302(0x80,tempvv0&0x7F); 	//打开时钟振荡

	W_ByteToDS1302(0x8e,0x80); 			// 控制命令,WP=1,写保护?
}


/***********************************************************************
* 名称: Calc_Week
* 说明: 只计算2000年至2099年的星期
* 功能: 通过日期算星期
* 调用: month_n_day()
* 输入: y,m,d(年,月,日)
* 返回值: 星期几
***********************************************************************/
uint8 Calc_Week(uint8 y,uint8 m,uint8 d)
{
    uint32 nday=0;
    uint16 i;
    uint16 yy;
	uint8 zz;
	
	y=((y>>4)&0x0F)*10+(y&0x0F);
	m=((m>>4)&0x0F)*10+(m&0x0F);
	d=((d>>4)&0x0F)*10+(d&0x0F);
	
    yy=y+2000;

    for (i=2000;i<yy;i++)  
	{  
		if(((i%4 == 0) && (i%100 != 0)) || (i%400 == 0))
			zz=1;
		else
			zz=0;
        nday =nday+zz+365;
    }
    
    for (i=1;i<m;i++)
	{
		zz=month_n_day(yy,i);
        nday=nday+zz;
    }
    
    nday=nday+d+5;
    zz=(uint8)(nday%7);
    return(zz);
    
}

/******************************************************************** 
*
* 名称: month_n_day
* 说明: 计算某年的某月有几天
* 功能: 计算某年的某月有几天
* 调用: 无
* 输入: y,m(年,月)
* 返回值: 这个月的天数
***********************************************************************/
uint8 month_n_day(uint16 y,uint8 m)  //算出某年某月有多少天
{
       if(m==2)
	   {
              if(((y%4 == 0) && (y%100 != 0)) || (y%400 == 0))
				return 0x29;
			  else
				return 0x28;
	   }
       else
              return(monthday[m-1]);
}
/************************************************************************************************************
***************************************** END OF FILE *******************************************************
************************************************************************************************************/