求助ds1302+6位数码管万年历

2025-03-06 22:31:38

推荐回答（2个）

回答1：

给你一个我写的我的开发板的程序，你对着你的开发板做相应的改变一下应该就可以了，很简单的

/*头文件*/
#include
#include
#define uint unsigned int
#define uchar unsigned char
#define nop() _nop_()

sbit T_CLK = P1^4; /*实时时钟时钟线引脚 */
sbit T_IO = P1^5; /*实时时钟数据线引脚 */
sbit T_RST = P2^2; /*实时时钟复位线引脚 */
sbit ACC0 = ACC^0;
sbit ACC7 = ACC^7;
sbit time_en_port = P3^7; /*时间控制通道寄存器LE控制脚*/
sbit sled_en_port = P3^6; /*数码管控制通道寄存器LE控制脚*/

#define sled_dm_port P0 /*定义数码管段码的控制脚*/
#define sled_wm_port P2 /*定义数码管位码的控制脚*/
/*定义数码管显示字符跟数字的对应数组关系*/
uchar code mun_to_char[]={0xc0,0xf9,0xa4,0xb0,0x99,0x92,0x82,0xf8,0x80,0x90,0x88,0x83,0xc6,0xa1,0x86,0x8e};
/* 0 1 2 3 4 5 6 7 8 9 a b c d e f */

/*定义需要点亮的数码管*/
uchar code sled_bit_table[]={0xfe,0xfd,0xfb,0xf7,0xef,0xdf,0xbf,0x7f};

uchar data sled_data[8]={0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff}; /*0-7号SLED缓冲值*/
uchar data led_lighten_bit=0 ; /*LED灯点亮标志位0-7*/

uchar data time_data[8]={0x00,0x57,0x16,0x00,0x00,0x00,0x00,0x00};/*格式为: 秒分时日月星期年 */

/*-----------------------------------------------
显示部分程序,采用定时器0产生中断，1MS更新一次
------------------------------------------------*/
void SLED_Disp() interrupt 1 using 3
{
TH0 = (65536-1000)/256;
TL0 = (65536-1000)/256;
time_en_port = 0; /*关闭时钟控制通道*/
sled_wm_port = sled_bit_table[led_lighten_bit]; /*输出位码数据到数码管*/
sled_dm_port = sled_data[led_lighten_bit]; /*输出段码数据到数码管*/
sled_en_port = 1; /*打开数码管控制通道*/
sled_en_port = 0; /*关闭数码管控制通道*/
sled_wm_port = 0xdf; /* 释放P2端口,同时关闭发光二极管显示*/
time_en_port = 1; /*打开时钟控制通道*/
led_lighten_bit++;
if(led_lighten_bit>=8) led_lighten_bit=0; /*8位数码管全动态输出*/
}

void T0_valueSet() /*定义中断方式，中断时间*/
{
TMOD = 0x01; /*定时0，工作在方式1*/
TH0 = (65536-1000)/256;
TL0 = (65536-1000)/256;
TR0 = 1; /*启动计数*/
EA = 1; /*开总中断*/
ET0 = 1; /*开定时器0中断*/
return;
}

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

函数名：RTInputByte()
功能：实时时钟写入一字节
说明：往DS1302写入1Byte数据 (内部函数)
入口参数：d 写入的数据
返回值：无
设计：zhaojunjie 日期：2002-03-19
修改：日期：
***********************************************************************/
void RTInputByte(uchar d)
{
uchar i;
ACC = d;
for(i=8; i>0; i--)
{
T_IO = ACC0; /*相当于汇编中的 RRC */
T_CLK = 1;
T_CLK = 0;
ACC = ACC >> 1;
}
}
/********************************************************************

函数名：RTOutputByte()
功能：实时时钟读取一字节
说明：从DS1302读取1Byte数据 (内部函数)
入口参数：无
返回值：ACC
设计：zhaojunjie 日期：2002-03-19
修改：日期：
***********************************************************************/
uchar RTOutputByte(void)
{
uchar i;
for(i=8; i>0; i--)
{
ACC = ACC >>1; /*相当于汇编中的 RRC */
ACC7 = T_IO;
T_CLK = 1;
T_CLK = 0;
}
return(ACC);
}
/********************************************************************

函数名：W1302()
功能：往DS1302写入数据
说明：先写地址，后写命令/数据 (内部函数)
调用：RTInputByte() , RTOutputByte()
入口参数：ucAddr: DS1302地址, ucData: 要写的数据
返回值：无
设计：zhaojunjie 日期：2002-03-19
修改：日期：
***********************************************************************/
void W1302(uchar ucAddr, uchar ucDa)
{
T_RST = 0;
T_CLK = 0;
T_RST = 1;
RTInputByte(ucAddr); /* 地址，命令 */
RTInputByte(ucDa); /* 写1Byte数据*/
T_CLK = 1;
T_RST = 0;
}
/********************************************************************

函数名：R1302()
功能：读取DS1302某地址的数据
说明：先写地址，后读命令/数据 (内部函数)
调用：RTInputByte() , RTOutputByte()
入口参数：ucAddr: DS1302地址
返回值：ucData :读取的数据
设计：zhaojunjie 日期：2002-03-19
修改：日期：
***********************************************************************/
uchar R1302(uchar ucAddr)
{
uchar ucData;
T_RST = 0;
T_CLK = 0;
T_RST = 1;
RTInputByte(ucAddr); /* 地址，命令 */
ucData = RTOutputByte(); /* 读1Byte数据 */
T_CLK = 1;
T_RST = 0;
return(ucData);
}
/********************************************************************

函数名：BurstW1302T()
功能：往DS1302写入时钟数据(多字节方式)
说明：先写地址，后写命令/数据
调用：RTInputByte()
入口参数：pWClock: 时钟数据地址格式为: 秒分时日月星期年控制
8Byte (BCD码)1B 1B 1B 1B 1B 1B 1B 1B
返回值：无
设计：zhaojunjie 日期：2002-03-19
修改：日期：
***********************************************************************/
void BurstW1302T(uchar *pWClock)
{
uchar i;
W1302(0x8e,0x00); /* 控制命令,WP=0,写操作?*/
T_RST = 0;
T_CLK = 0;
T_RST = 1;
RTInputByte(0xbe); /* 0xbe:时钟多字节写命令 */
for (i = 8; i>0; i--) /*8Byte = 7Byte 时钟数据 + 1Byte 控制*/
{
RTInputByte(*pWClock); /* 写1Byte数据*/
pWClock++;
}
T_CLK = 1;
T_RST = 0;
}
/********************************************************************

函数名：BurstR1302T()
功能：读取DS1302时钟数据
说明：先写地址/命令，后读数据(时钟多字节方式)
调用：RTInputByte() , RTOutputByte()
入口参数：pRClock: 读取时钟数据地址格式为: 秒分时日月星期年
7Byte (BCD码)1B 1B 1B 1B 1B 1B 1B
返回值：无
设计：zhaojunjie 日期：2002-03-19
修改：日期：
***********************************************************************/
void BurstR1302T(uchar *pRClock)
{
uchar i;
T_RST = 0;
T_CLK = 0;
T_RST = 1;
RTInputByte(0xbf); /* 0xbf:时钟多字节读命令 */
for (i=8; i>0; i--)
{
*pRClock = RTOutputByte(); /* 读1Byte数据 */
pRClock++;
}
T_CLK = 1;
T_RST = 0;
}

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

函数名：Set1302()
功能：设置初始时间
说明：先写地址，后读命令/数据(寄存器多字节方式)
调用：W1302()
入口参数：pClock: 设置时钟数据地址格式为: 秒分时日月星期年
7Byte (BCD码)1B 1B 1B 1B 1B 1B 1B
返回值：无
设计：zhaojunjie 日期：2002-03-19
修改：日期：
***********************************************************************/
void Set1302(uchar *pClock)
{
uchar i;
uchar ucAddr = 0x80;
EA = 0;
W1302(0x8e,0x00); /* 控制命令,WP=0,写操作?*/
for(i =7; i>0; i--)
{
W1302(ucAddr,*pClock); /* 秒分时日月星期年 */
pClock++;
ucAddr +=2;
}
W1302(0x8e,0x80); /* 控制命令,WP=1,写保护?*/
EA = 1;
}
/********************************************************************

函数名：Get1302()
功能：读取DS1302当前时间
说明：
调用：R1302()
入口参数：ucCurtime: 保存当前时间地址。当前时间格式为: 秒分时日月星期年
7Byte (BCD码) 1B 1B 1B 1B 1B 1B 1B
返回值：无
设计：zhaojunjie 日期：2002-03-19
修改：日期：
***********************************************************************/
void Get1302(uchar ucCurtime[])
{
uchar i;
uchar ucAddr = 0x81;
EA = 0;
for (i=0; i<7; i++)
{
ucCurtime[i] = R1302(ucAddr);/*格式为: 秒分时日月星期年 */
ucAddr += 2;
}
EA = 1;
}

void delay_1ms(uchar x)
/* 1MS为单位的延时程序 */
{
uchar j;
while(x--){
for(j=0;j<125;j++)
{;}
}
}

void main()
{
T0_valueSet();
Set1302(time_data);
while(1){
Get1302(time_data);
sled_data[0]=mun_to_char[time_data[2]/0x10];
sled_data[1]=mun_to_char[time_data[2]%0x10];

sled_data[3]=mun_to_char[time_data[1]/0x10];
sled_data[4]=mun_to_char[time_data[1]%0x10];

sled_data[6]=mun_to_char[time_data[0]/0x10];
sled_data[7]=mun_to_char[time_data[0]%0x10];

delay_1ms(200);
}
}

回答2：

用单片机啊，只要把1302内部的寄存器都弄明白是什么意思，显示部分最简单了，还可以加块纽扣电池，这样就不会调电了，我刚完做一个练手。