时钟DS1302 C语言 程序代码

/******************************************************************** * 文件名 ： 时钟DS1302.c * 描述 : 该文件实现用DS1302来实现日历和时钟功能，数码管上显示出来。 * 创建人 ： 东流，2009年4月10日 * 版本号 ： 2.0 ***********************************************************************/ #include<reg52.h> #include<intrins.h> #define uchar unsigned char #define uint unsigned int uchar code table[10] = {0x3f,0x06,0x5b,0x4f,0x66,0x6d,0x7d,0x07,0x7f,0x6f}; sbit ACC0 = ACC^0; sbit ACC7 = ACC^7; sbit P3_2 = P3^2; sbit P3_5 = P3^4; sbit T_CLK = P1^6; /*实时时钟时钟线引脚 */ sbit T_IO = P3^5; /*实时时钟数据线引脚 */ sbit T_RST = P1^7; /*实时时钟复位线引脚 */ /******************************************************************** * 名称 : delay() * 功能 : 延时,延时时间大概为140US。 * 输入 : 无 * 输出 : 无 ***********************************************************************/ void delay() { int i,j; for(i=0; i<=10; i++) for(j=0; j<=2; j++) ; } /******************************************************************** * 名称 : Delay_1ms() * 功能 : 延时子程序，延时时间为 1ms * x * 输入 : x (延时一毫秒的个数) * 输出 : 无 ***********************************************************************/ void Delay_1ms(uint i)//1ms延时 { uchar x,j; for(j=0;j<i;j++) for(x=0;x<=148;x++); } /******************************************************************** * 名称 : v_RTInputByte（） * 功能 : 往DS1302写入1Byte数据 * 输入 : ucDa 写入的数据 * 输出 : 无 ***********************************************************************/ void v_RTInputByte(uchar ucDa) { uchar i; ACC = ucDa; T_RST = 1; for(i=8; i>0; i--) { T_IO = ACC0; T_CLK = 1; T_CLK = 0; ACC = ACC >> 1; } } /******************************************************************** * 名称 : uc_RTOutputByte（） * 功能 : 从DS1302读取1Byte数据 * 输入 : 无 * 返回值: ACC ***********************************************************************/ uchar uc_RTOutputByte(void) { uchar i; T_RST = 1; for(i=8; i>0; i--) { ACC = ACC >>1; T_IO=1; ACC7 = T_IO; T_CLK = 1; T_CLK = 0; } return(ACC); } /******************************************************************** * 名称 : v_W1302(uchar ucAddr, uchar ucDa) * 功能 : 往DS1302写入数据 * 输入 : ucAddr: DS1302地址, ucDa: 要写的数据 * 返回值 : 无 ***********************************************************************/ void v_W1302(uchar ucAddr, uchar ucDa) { T_RST = 0; T_CLK = 0; T_RST = 1; v_RTInputByte(ucAddr); // 写地址 _nop_(); _nop_(); v_RTInputByte(ucDa); // 写1Byte数据 T_CLK = 1; T_RST = 0; } /******************************************************************** * 名称 : uc_R1302(uchar ucAddr) * 功能 : 读取DS1302某地址的数据 * 输入 : ucAddr: DS1302地址 * 返回值 : ucDa :读取的数据 ***********************************************************************/ uchar uc_R1302(uchar ucAddr) { uchar ucDa; T_RST = 0; T_CLK = 0; T_RST = 1; v_RTInputByte(ucAddr); //写地址，命令 _nop_(); _nop_(); ucDa = uc_RTOutputByte(); //读1Byte数据 T_CLK = 1; T_RST = 0; return(ucDa); } /******************************************************************** * 名称 : v_BurstW1302T * 功能 : 往DS1302写入时钟数据(多字节方式) * 输入 : pSecDa: 时钟数据地址 格式为: 秒 分 时 日 月 星期 年 控制 * 8Byte (BCD码) 1B 1B 1B 1B 1B 1B 1B 1B * 返回值 : 无 ***********************************************************************/ void v_BurstW1302T(uchar *pSecDa) { uchar i; v_W1302(0x8e, 0x00); //控制命令,WP=0,写操作 T_RST = 0; T_CLK = 0; T_RST = 1; v_RTInputByte(0xbe); //0xbe:时钟多字节写命令 for(i=8; i>0; i--) //8Byte = 7Byte 时钟数据 + 1Byte 控制 { v_RTInputByte(*pSecDa); //写1Byte数据 pSecDa++; } T_CLK = 1; T_RST = 0; } /******************************************************************** * 名称 : v_BurstR1302T(uchar *pSecDa) * 功能 : 读取DS1302时钟数据 * 输入 : pSecDa: 时钟数据地址 格式为: 秒 分 时 日 月 星期 年 * 7Byte (BCD码) 1B 1B 1B 1B 1B 1B 1B * 返回值 : ucDa :读取的数据 ***********************************************************************/ void v_BurstR1302T(uchar *pSecDa) { uchar i; T_RST = 0; T_CLK = 0; T_RST = 1; v_RTInputByte(0xbf); //0xbf:时钟多字节读命令 for(i=8; i>0; i--) { *pSecDa = uc_RTOutputByte(); //读1Byte数据 pSecDa++; } T_CLK = 1; T_RST = 0; } /******************************************************************** * 名称 : v_BurstW1302R(uchar *pReDa) * 功能 : 往DS1302寄存器数写入数据(多字节方式) * 输入 : pReDa: 寄存器数据地址 * 返回值 : 无 ***********************************************************************/ void v_BurstW1302R(uchar *pReDa) { uchar i; v_W1302(0x8e,0x00); //控制命令,WP=0,写操作 T_RST = 0; T_CLK = 0; T_RST = 1; v_RTInputByte(0xfe); //0xbe:时钟多字节写命令 for(i=31; i>0; i--) //31Byte 寄存器数据 { v_RTInputByte(*pReDa); //写1Byte数据 pReDa++; } T_CLK = 1; T_RST = 0; } /******************************************************************** * 名称 : v_BurstR1302R(uchar *pReDa) * 功能 : 读取DS1302寄存器数据 * 输入 : pReDa: 寄存器数据地址 * 返回值 : 无 ***********************************************************************/ void v_BurstR1302R(uchar *pReDa) { uchar i; T_RST = 0; T_CLK = 0; T_RST = 1; v_RTInputByte(0xff); //0xbf:时钟多字节读命令 for(i=31; i>0; i--) //31Byte 寄存器数据 { *pReDa = uc_RTOutputByte(); //读1Byte数据 pReDa++; } T_CLK = 1; T_RST = 0; } /******************************************************************** * 名称 : v_Set1302(uchar *pSecDa) * 功能 : 设置初始时间 * 输入 : pSecDa: 初始时间地址。初始时间格式为: 秒 分 时 日 月 星期 年 * 7Byte (BCD码) 1B 1B 1B 1B 1B 1B 1B * 返回值: 无 ***********************************************************************/ void v_Set1302(uchar *pSecDa) { uchar i; uchar ucAddr = 0x80; v_W1302(0x8e, 0x00); //控制命令,WP=0,写操作 for(i=7; i>0; i--) { v_W1302(ucAddr, *pSecDa); // 秒 分 时 日 月 星期 年 pSecDa++; ucAddr += 2; } v_W1302(0x8e, 0x80); //控制命令,WP=1,写保护 } /******************************************************************** * 名称 : v_Get1302(uchar ucCurtime[]) * 功能 : 读取DS1302当前时间 * 输入 : ucCurtime: 保存当前时间地址。当前时间格式为: 秒 分 时 日 月 星期 年 * 7Byte (BCD码) 1B 1B 1B 1B 1B 1B 1B * 返回值 : 无 ***********************************************************************/ void v_Get1302(uchar ucCurtime[]) { uchar i; uchar ucAddr = 0x81; for(i=0; i<7; i++) { ucCurtime[i] = uc_R1302(ucAddr); //格式为: 秒 分 时 日 月 星期 年 ucAddr += 2; } } /******************************************************************** * 名称 : dectobcd(uchar dec) * 功能 : DEC码转换为BCD码 * 输入 : dec码 * 输出 : bcd码 ***********************************************************************/ uchar dectobcd(uchar dec) { uchar bcd; bcd = 0; while(dec >= 10) { dec -= 10; bcd++; } bcd <<= 4; bcd |= dec; return bcd; } /******************************************************************** * 名称 : bcdtodec(uchar bcd) * 功能 : BCD码转换为DEC码 * 输入 : bcd码 * 输出 : dec码 ***********************************************************************/ uchar bcdtodec(uchar bcd) { uchar data1; data1 = bcd & 0x0f; //取BCD低4位 bcd = bcd & 0x70; //剔除BCD的最高位和低4位。 data1 += bcd >> 1; data1 += bcd >> 3; //用位移代替乘法运算 return data1; } /******************************************************************** * 名称 : Write_DS1302Init() * 功能 : 往DS1302中写入数据。最