当前位置:首页 > 单片机 > 单片机
[导读] 虽然是在MEGA128上调的但适用于所有AVR芯片,改下管脚设置就行了。程序不是我原创,我只是把我找到的DS1302程序和星期计算程序做了下修改使他们能适应我的系统能一起工作而已,在此向写这些程序的原作者

虽然是在MEGA128上调的但适用于所有AVR芯片,改下管脚设置就行了。

程序不是我原创,我只是把我找到的DS1302程序和星期计算程序做了下修改使他们能适应我的系统能一起工作而已,在此向写这些程序的原作者表示敬意。

structtimechar
{
ucharnowyear;

ucharnowmonth;
ucharnowday;
ucharnowhour;
ucharnowminute;
ucharnowsecond;
ucharnowweek;
};
structtimecharnowtime;///这里存时间


#defineds1302_rst7/*!PORTB7DS1302实时时钟复位线引脚*/
#defineds1302_io6/*!PORTB6DS1302实时时钟数据线引脚*/
#defineds1302_sclk5/*!PORTB5DS1302实时时钟时钟线引脚*/

#defineset_ds1302_rst_ddr()DDRB|=1<#defineset_ds1302_rst()PORTB|=1<#defineclr_ds1302_rst()PORTB&=~(1<
#defineset_ds1302_io_ddr()DDRB|=1<#defineclr_ds1302_io_ddr()DDRB&=~(1<#defineset_ds1302_io()PORTB|=1<#defineclr_ds1302_io()PORTB&=~(1<#definein_ds1302_io()PINB&(1<
#defineset_ds1302_sclk_ddr()DDRB|=1<#defineset_ds1302_sclk()PORTB|=1<#defineclr_ds1302_sclk()PORTB&=~(1<
#defineds1302_sec_reg0x80
#defineds1302_min_reg0x82
#defineds1302_hr_reg0x84
#defineds1302_date_reg0x86
#defineds1302_month_reg0x88
#defineds1302_day_reg0x8a
#defineds1302_year_reg0x8c
#defineds1302_control_reg0x8e
#defineds1302_charger_reg0x90
#defineds1302_clkburst_reg0xbe

ucharBcdToBin(ucharval)
{
val=(val>>4)*10+(val&0x0f);///将BCD码转换为10进制数
returnval;///返回10进制数
}

ucharBinToBcd(ucharval)
{
return((val/10)*16+val%10);
}

voidds1302_write(ucharreg,uchardata)
{
uchari=0;
set_ds1302_io_ddr();
nop();
nop();
clr_ds1302_rst();
nop();
nop();
clr_ds1302_sclk();
nop();
nop();
set_ds1302_rst();
nop();
nop();
for(i=8;i>0;i--)
{
if(reg&0x01)
{
set_ds1302_io();
}
else
{
clr_ds1302_io();
}
nop();
nop();
set_ds1302_sclk();
nop();
nop();
clr_ds1302_sclk();
nop();
nop();
reg>>=1;
}
for(i=8;i>0;i--)
{
if(data&0x01)
{
set_ds1302_io();
}
else
{
clr_ds1302_io();
}
nop();
nop();
set_ds1302_sclk();
nop();
nop();
clr_ds1302_sclk();
nop();
nop();
data>>=1;
}
clr_ds1302_rst();
nop();
nop();
clr_ds1302_io_ddr();
nop();
nop();
}
uchards1302_read(ucharreg)
{
uchardata=0;
uchari=0;
reg+=1;///读标志
set_ds1302_io_ddr();
nop();
nop();
clr_ds1302_rst();
nop();
nop();
clr_ds1302_sclk();
nop();
nop();
set_ds1302_rst();
nop();
nop();
for(i=8;i>0;i--)
{
if(reg&0x01)
{
set_ds1302_io();
}
else
{
clr_ds1302_io();
}
nop();
nop();
set_ds1302_sclk();
nop();
nop();
clr_ds1302_sclk();
nop();
nop();
reg>>=1;
}
clr_ds1302_io_ddr();
nop();
nop();
for(i=8;i>0;i--)
{
data>>=1;
if(in_ds1302_io())
{
data|=0x80;
}
nop();
nop();
set_ds1302_sclk();
nop();
nop();
clr_ds1302_sclk();
nop();
nop();
}
clr_ds1302_rst();
nop();
nop();
return(data);
}
ucharcheck_ds1302(void)
{
ds1302_write(ds1302_control_reg,0x80);
if(ds1302_read(ds1302_control_reg)==0x80)
{
return1;
}
return0;
}
voidds1302_read_time(void)
{
uchartmphour;
nowtime.nowyear=BcdToBin(ds1302_read(ds1302_year_reg));///年
nowtime.nowmonth=BcdToBin(ds1302_read(ds1302_month_reg));///月
nowtime.nowday=BcdToBin(ds1302_read(ds1302_date_reg));///日
nowtime.nowweek=BcdToBin(ds1302_read(ds1302_day_reg));///周
tmphour=ds1302_read(ds1302_hr_reg);///时
nowtime.nowhour=(tmphour&0b00100000)/32*20+(tmphour&0x10)/16*10+(tmphour&0x0F);
nowtime.nowminute=BcdToBin(ds1302_read(ds1302_min_reg));///分
nowtime.nowsecond=BcdToBin(ds1302_read(ds1302_sec_reg));///秒
}

constunsignedcharWeekTab[]={
//闰年月星期表
(3<<5)+31,///1月
(6<<5)+29,///2月
(0<<5)+31,///3月
(3<<5)+30,///4月
(5<<5)+31,//5月
(1<<5)+30,//6月
(3<<5)+31,//7月
(6<<5)+31,//8月
(1<<5)+30,//9月
(4<<5)+31,//10月
(0<<5)+30,//11月
(2<<5)+31//12月
};

/*!------------------------------------------------------------------------------
2000年~2099年星期算法
-------------------------------------------------------------------------------*/
unsignedcharWeekDay20(unsignedchary,unsignedcharm,unsignedchard)
{
unsignedcharweek,day;
day=WeekTab[m-1];///月表
week=day>>5;///月星期数
day&=0x1f;//月天数
if((m<3)&&(y&0x03))
{///平年
if(m==2)day--;///平年月天数
week++;///平年月表+1
}
y=y+(y>>2);//年+年/4
week=(week+y+d+2)%7;///(星期=年+年/4+月表+2日)%7
returnweek;///返回星期
}

voidds1302_write_time(void)
{
ucharbcdyear;
ucharbcdmonth;
ucharbcdday;
ucharbcdhour;
ucharbcdminute;
ucharbcdsecond;
ucharbcdweek;

bcdyear=BinToBcd(nowtime.nowyear);
bcdmonth=BinToBcd(nowtime.nowmonth);
bcdday=BinToBcd(nowtime.nowday);
bcdhour=BinToBcd(nowtime.nowhour);
bcdminute=BinToBcd(nowtime.nowminute);
bcdsecond=BinToBcd(nowtime.nowsecond);

nowtime.nowweek=WeekDay20(nowtime.nowyear,nowtime.nowmonth,nowtime.nowday);
bcdweek=BinToBcd(nowtime.nowweek);

ds1302_write(ds1302_control_reg,0x00);///关闭写保护
ds1302_write(ds1302_sec_reg,0x80);///暂停
ds1302_write(ds1302_day_reg,bcdweek);///周
ds1302_write(ds1302_charger_reg,0xa9);///涓流充电
ds1302_write(ds1302_year_reg,bcdyear);///年
ds1302_write(ds1302_month_reg,bcdmonth);///月
ds1302_write(ds1302_date_reg,bcdday);///日
ds1302_write(ds1302_hr_reg,bcdhour);///时
ds1302_write(ds1302_min_reg,bcdminute);///分
ds1302_write(ds1302_sec_reg,bcdsecond);///秒
ds1302_write(ds1302_control_reg,0x80);///打开写保护
}

本站声明: 本文章由作者或相关机构授权发布,目的在于传递更多信息,并不代表本站赞同其观点,本站亦不保证或承诺内容真实性等。需要转载请联系该专栏作者,如若文章内容侵犯您的权益,请及时联系本站删除。
换一批
延伸阅读

9月2日消息,不造车的华为或将催生出更大的独角兽公司,随着阿维塔和赛力斯的入局,华为引望愈发显得引人瞩目。

关键字: 阿维塔 塞力斯 华为

加利福尼亚州圣克拉拉县2024年8月30日 /美通社/ -- 数字化转型技术解决方案公司Trianz今天宣布,该公司与Amazon Web Services (AWS)签订了...

关键字: AWS AN BSP 数字化

伦敦2024年8月29日 /美通社/ -- 英国汽车技术公司SODA.Auto推出其旗舰产品SODA V,这是全球首款涵盖汽车工程师从创意到认证的所有需求的工具,可用于创建软件定义汽车。 SODA V工具的开发耗时1.5...

关键字: 汽车 人工智能 智能驱动 BSP

北京2024年8月28日 /美通社/ -- 越来越多用户希望企业业务能7×24不间断运行,同时企业却面临越来越多业务中断的风险,如企业系统复杂性的增加,频繁的功能更新和发布等。如何确保业务连续性,提升韧性,成...

关键字: 亚马逊 解密 控制平面 BSP

8月30日消息,据媒体报道,腾讯和网易近期正在缩减他们对日本游戏市场的投资。

关键字: 腾讯 编码器 CPU

8月28日消息,今天上午,2024中国国际大数据产业博览会开幕式在贵阳举行,华为董事、质量流程IT总裁陶景文发表了演讲。

关键字: 华为 12nm EDA 半导体

8月28日消息,在2024中国国际大数据产业博览会上,华为常务董事、华为云CEO张平安发表演讲称,数字世界的话语权最终是由生态的繁荣决定的。

关键字: 华为 12nm 手机 卫星通信

要点: 有效应对环境变化,经营业绩稳中有升 落实提质增效举措,毛利润率延续升势 战略布局成效显著,战新业务引领增长 以科技创新为引领,提升企业核心竞争力 坚持高质量发展策略,塑强核心竞争优势...

关键字: 通信 BSP 电信运营商 数字经济

北京2024年8月27日 /美通社/ -- 8月21日,由中央广播电视总台与中国电影电视技术学会联合牵头组建的NVI技术创新联盟在BIRTV2024超高清全产业链发展研讨会上宣布正式成立。 活动现场 NVI技术创新联...

关键字: VI 传输协议 音频 BSP

北京2024年8月27日 /美通社/ -- 在8月23日举办的2024年长三角生态绿色一体化发展示范区联合招商会上,软通动力信息技术(集团)股份有限公司(以下简称"软通动力")与长三角投资(上海)有限...

关键字: BSP 信息技术
关闭
关闭