单片机万年历程序(共21页).doc
《单片机万年历程序(共21页).doc》由会员分享,可在线阅读,更多相关《单片机万年历程序(共21页).doc(21页珍藏版)》请在淘文阁 - 分享文档赚钱的网站上搜索。
1、精选优质文档-倾情为你奉上 单片机万年历程序#include /调用单片机头文件#define uchar unsigned char /无符号字符型 宏定义变量范围0255#define uint unsigned int /无符号整型 宏定义变量范围065535#include eeprom52.h#include nongli.hbit flag_200ms ;bit flag_100ms ;sbit beep = P37; /蜂鸣器定义bit flag_beep_en;uint clock_value; /用作闹钟用的sbit dq = P31; /18b20 IO口的定义uint t
2、emperature ; /温度变量uchar flag_nl; /农历 阳历显示标志位uchar menu_1,menu_2;uchar key_time,flag_value; /用做连加的中间变量bit key_500ms ;uchar n_nian,n_yue,n_ri;/农历显示的函数#include ds1302.h#include lcd1602.h/*把数据保存到单片机内部eeprom中*/void write_eeprom()SectorErase(0x2000);byte_write(0x2000, fen1);byte_write(0x2001, shi1);byte_w
3、rite(0x2002, open1);byte_write(0x2058, a_a);/*把数据从单片机内部eeprom中读出来*/void read_eeprom()fen1 = byte_read(0x2000);shi1 = byte_read(0x2001);open1 = byte_read(0x2002);a_a = byte_read(0x2058);/*开机自检eeprom初始化*/void init_eeprom()read_eeprom();/先读if(a_a != 1)/新的单片机初始单片机内问eepromfen1 = 3;shi1 = 8;open1 = 1;a_a
4、= 1;write_eeprom(); /保存数据/*18b20初始化函数*/void init_18b20()bit q;dq = 1;/把总线拿高delay_uint(1); /15usdq = 0;/给复位脉冲delay_uint(80);/750usdq = 1;/把总线拿高 等待delay_uint(10);/110usq = dq;/读取18b20初始化信号delay_uint(20);/200usdq = 1;/把总线拿高 释放总线/*写18b20内的数据*/void write_18b20(uchar dat)uchar i;for(i=0;i= 1;/*读取18b20内的数据
5、*/uchar read_18b20()uchar i,value;for(i=0;i= 1; /读数据是低位开始dq = 1; /释放总线if(dq = 1) /开始读写数据 value |= 0x80;delay_uint(5); /60us读一个时间隙最少要保持60us的时间return value; /返回数据/*读取温度的值 读出来的是小数*/uint read_temp()uint value;uchar low; /在读取温度的时候如果中断的太频繁了,就应该把中断给关了,否则会影响到18b20的时序init_18b20(); /初始化18b20write_18b20(0xcc);
6、 /跳过64位ROMwrite_18b20(0x44); /启动一次温度转换命令delay_uint(50); /500usinit_18b20(); /初始化18b20write_18b20(0xcc); /跳过64位ROMwrite_18b20(0xbe); /发出读取暂存器命令EA = 0;low = read_18b20(); /读温度低字节value = read_18b20(); /读温度高字节EA = 1;value = 8; /把温度的高位左移8位value |= low; /把读出的温度低位放到value的低八位中value *= 0.625; /转换到温度值 小数retur
7、n value; /返回读出的温度 带小数/*1ms 延时函数*/void delay_1ms(uint q)uint i,j;for(i=0;iq;i+)for(j=0;j120;j+);/*写星期函数*/void write_week(uchar hang,uchar add,uchar week)/写星期函数if(hang=1) write_com(0x80+add);elsewrite_com(0x80+0x40+add); switch(week)case 1:write_data(M);/星期数为1时,显示 write_data(O); write_data(N); break;
8、case 2:write_data(T);/星期数据为2时显示 write_data(U); write_data(E); break;case 3:write_data(W);/星期数据为3时显示 write_data(E); write_data(D); break;case 4:write_data(T);/星期数据为4是显示 write_data(H); write_data(U); break;case 5:write_data(F);/星期数据为5时显示 write_data(R); write_data(I); break;case 6:write_data(S);/星期数据为6
9、时显示 write_data(T); write_data(A); break;case 0:write_data(S);/星期数据为7时显示 write_data(U); write_data(N); break;/*时钟显示*/void init_1602_ds1302()write_sfm2_ds1302(1,1,shi); /显示时write_sfm2_ds1302(1,4,fen); /显示分write_sfm2_ds1302(1,7,miao); /显示秒write_week(2,12,week);/write_sfm1(1,14,week); /显示星期write_sfm3_18
10、B20(1,11,temperature); /显示温度if(flag_nl = 0) /显示阳历write_sfm2_ds1302(2,2,nian); /显示年write_sfm2_ds1302(2,5,yue); /显示月write_sfm2_ds1302(2,8,ri); /显示日 else /显示农历write_sfm2_ds1302(2,2,n_nian);/显示年write_sfm2_ds1302(2,5,n_yue);/显示月write_sfm2_ds1302(2,8,n_ri);/显示日 /*定时器0初始化程序*/void init_time0() EA = 1; /开总中断
11、TMOD = 0X01; /定时器0、工作方式1ET0 = 1; /开定时器0中断 TR0 = 1; /允许定时器0定时/*闹钟报警函数*/void menu_dis()static uchar mm,value;if(flag_100ms = 1) /100ms执行一次flag_100ms = 0;if(open1 = 1)/如果闹钟打开if(miao = 0) & (fen = fen1) & (shi = shi1) flag_beep_en = 1;/有报警 打开蜂鸣器响的标志位if(flag_beep_en = 1)/闹钟以被打开clock_value+;if(clock_value
12、 30)beep = 1; /蜂鸣器停1秒if(clock_value 40)clock_value = 0;/ 1 分钟后自动关闭闹钟value +;if(value = 10)value = 0;mm+;if(mm = 60)mm = 0;flag_beep_en = 0;beep = 1;/*独立按键程序*/uchar key_can; /按键值void key() /独立按键程序static uchar key_new;key_can = 20; /按键值还原P3 |= 0x78; /对应的按键IO口输出为1if(P3 & 0x78) != 0x78)/按键按下delay_1ms(1)
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 单片机 万年历 程序 21
限制150内