- 10
- 0
- 约2万字
- 约 7页
- 2016-11-27 发布于河南
- 举报
用89C2051的最简单的电子钟(含电路图及用C51编写的源程...
用89C2051的最简单的电子钟(含电路图及用C51编写的源程序清单)?附:用C51编写的源程序清单(已由实验板运行通过)?#include AT89X51.H????/*包含器件配置文件*/?#define uchar unsigned char?#define uint unsigned int?char DATA_7SEG[10]={0xC0,0xF9,0xA4,0xB0,0x99,???????????????????? 0x92,0x82,0xF8,0x80,0x90,};/*0~9的数码管段码*/?uchar hour=0,min=0,sec=0;???/*时、分、秒单元清零*/?uchar deda=0;?? ?????/*5mS计数单元清零*/ ?uchar t_hour=0,t_min=0;? ???/*闹时时、分单元清零*/?bit d_05s=0;??????????? ???/*0.5秒标志*/?bit o_f=0; ??????/*闹时启/停标志*/?uchar set=0;??????/*模式设定标志*/?uchar m=0;?uchar flag=0;??????/*RAM掉电标志*/?void delay(uint k);?????/*延时子函数*/?void conv();??????/*走时单元转换*/?void p_out();??????/*判别闹时到否子函数*/?void dirve();??????/*走时时间输出驱动子函数*/?void t_dirve();??????/*闹时时间输出驱动子函数*/???/*闹时启/停子函数*/?void time1_of()??????{uchar m;??if(P3_7==0)delay(1);??if(P3_7==0)o_f=1;??for(m=0;m30;m++)???{???t_dirve();???P1=DATA_7SEG[t_min/10];P3=0xfd;delay(1);???if(P3_1==0){if(o_f==1)P1_7=0;}else P1_7=1;???delay(1);???}?????if(P3_5==0)delay(1);??if(P3_5==0)?o_f=0;??for(m=0;m30;m++)???{???t_dirve();???P1=DATA_7SEG[t_min/10];P3=0xfd;delay(1);???if(P3_1==0){if(o_f==1)P1_7=0;else P1_7=1;}???delay(1);???}?}??/*走时函数*/?void time()?{?conv();???????/*走时单元转换*/?dirve();???????/*走时时间输出驱动子函数*/?p_out();???????/*判别闹时到否子函数*/?}???/*定时器T0? 5mS初始化*/?void init_timer()?{?TMOD=0x01;?TH0=-(4800/256);?TL0=-(4800%256);?IE=0x82;?TR0=1;?}??/*扫描按键子函数*/?void scan_key()?{?delay(1);?if(P3_4==0)set++;?if(set=4)set=0;?if(set==1)flag=0x55;?F0:if(P3_4==0)goto F0;????/*按键未释放,在此等候*/?}???/*延时子函数*/?void delay(uint k)?{?uint i,j;?for(i=0;ik;i++){?for(j=0;j121;j++)?{;}}?}??/*5mS定时中断服务子函数*/?void zd(void) interrupt 1 ?{?TH0=-(4800/256);?TL0=-(4800%256);?deda++;?}??/*调整走时时间*/?void time_adj()?{uchar m;??if(P3_5==0)delay(1);??if(P3_5==0)hour++;??if(hour==24)hour=0;??for(m=0;m30;m++)???{???dirve();???if(P3_2==0)P1_7=0;???else P1_7=1;???delay(1);???}?????if(P3_7==0)delay(1);??if(P3_7==0)min++;??if(min==60)min=0;??for(m=0;m30;m++)
原创力文档

文档评论(0)