|
|
前言：
最近在做DS1302，上网搜了一堆程序出来，好用得没几个：（。
调了半天终于弄出个程序好用的，可以自动计算2000年~2099年中任意一天是星期几。
经过MEGA128上的测试，目前没发现问题，现在发上来，请各位大虾帮忙测试一下。
另外我现在的程序只能做2000年~2099年中的星期计算，现在想做个任意年份的星期计算，一直没找到合适的算法，（有一个叫“蔡勒公式”的，但我按他写的程序就是不好用，可能是我太苯了）还望各位大虾不吝赐教。
虽然是在MEGA128上调的但适用于所有AVR芯片，改下管脚设置就行了。
程序不是我原创，我只是把我找到的DS1302程序和星期计算程序做了下修改使他们能适应我的系统能一起工作而已，在此向写这些程序的原作者表示敬意。
struct timechar
{
uchar nowyear;
uchar nowmonth;
uchar nowday;
uchar nowhour;
uchar nowminute;
uchar nowsecond;
uchar nowweek;
};
struct timechar nowtime;///这里存时间
#define ds1302_rst 7 /*!PORTB7 DS1302实时时钟复位线引脚 */
#define ds1302_io 6 /*!PORTB6 DS1302实时时钟数据线引脚 */
#define ds1302_sclk 5 /*!PORTB5 DS1302实时时钟时钟线引脚 */
#define set_ds1302_rst_ddr() DDRB|=1<<ds1302_rst
#define set_ds1302_rst() PORTB|=1<<ds1302_rst
#define clr_ds1302_rst() PORTB&=~(1<<ds1302_rst)
#define set_ds1302_io_ddr() DDRB|=1<<ds1302_io
#define clr_ds1302_io_ddr() DDRB&=~(1<<ds1302_io)
#define set_ds1302_io() PORTB|=1<<ds1302_io
#define clr_ds1302_io() PORTB&=~(1<<ds1302_io)
#define in_ds1302_io() PINB&(1<<ds1302_io)
#define set_ds1302_sclk_ddr() DDRB|=1<<ds1302_sclk
#define set_ds1302_sclk() PORTB|=1<<ds1302_sclk
#define clr_ds1302_sclk() PORTB&=~(1<<ds1302_sclk)
#define ds1302_sec_reg 0x80
#define ds1302_min_reg 0x82
#define ds1302_hr_reg 0x84
#define ds1302_date_reg 0x86
#define ds1302_month_reg 0x88
#define ds1302_day_reg 0x8a
#define ds1302_year_reg 0x8c
#define ds1302_control_reg 0x8e
#define ds1302_charger_reg 0x90
#define ds1302_clkburst_reg 0xbe
uchar BcdToBin(uchar val)
{
val = (val >> 4) *10+(val &0x0f); ///将BCD码转换为10进制数
return val; ///返回10进制数
}
uchar BinToBcd(uchar val)
{
return ((val / 10) *16+val % 10);
}
void ds1302_write(uchar reg, uchar data)
{
uchar i = 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();
}
uchar ds1302_read(uchar reg)
{
uchar data = 0;
uchar i = 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);
}
uchar check_ds1302(void)
{
ds1302_write(ds1302_control_reg, 0x80);
if (ds1302_read(ds1302_control_reg) == 0x80)
{
return 1;
}
return 0;
}
void ds1302_read_time(void)
{
uchar tmphour;
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)); ///秒
}
const unsigned char WeekTab[] = {
//闰年月星期表
(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年星期算法
-------------------------------------------------------------------------------*/
unsigned char WeekDay20(unsigned char y, unsigned char m, unsigned char d)
{
unsigned char week, 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
return week;///返回星期
}
void ds1302_write_time(void)
{
uchar bcdyear;
uchar bcdmonth;
uchar bcdday;
uchar bcdhour;
uchar bcdminute;
uchar bcdsecond;
uchar bcdweek;
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); ///打开写保护
}
-----此内容被igoal于2006-07-04,09:41:13编辑过 |
|
发表于 2006-7-4 09:34:59
楼主
