[经验分享] 分享个很准的时钟程序!

[复制链接]
7529|29
 楼主| laslison 发表于 2009-9-30 22:26 | 显示全部楼层 |阅读模式
这有个时钟程序很准的分享一下   使用11.0592M晶振
/*P1.4小时调整   P1.5分种调整*/

#include <reg51.h>
#include <intrins.h>
unsigned char data dis_digit;
unsigned char key_s, key_v;
unsigned char code dis_code[11]={0xc0,0xf9,0xa4,0xb0, // 0, 1, 2, 3
    0x99,0x92,0x82,0xf8,0x80,0x90, 0xff};// 4, 5, 6, 7, 8, 9, off
unsigned char data dis_buf[8];
unsigned char data dis_index;
unsigned char hour,min,sec;
unsigned char sec100;
sbit K1 = P1^4;
sbit K2 = P1^5;
bit scan_key();
void proc_key();
void inc_sec();
void inc_min();
void inc_hour();
void display();
void delayms(unsigned char ms);
void main(void)
{
P0 = 0xff;
P2 = 0xff;
TMOD = 0x11;  // 定时器0, 1工作模式1, 16位定时方式
TH1 = 0xdc;
TL1 = 0;
TH0 = 0xFC;
TL0 = 0x17;

hour = 12;
min = 00;
sec = 00;
sec100 = 0;

dis_buf[0] = dis_code[hour / 10];  // 时十位
dis_buf[1] = dis_code[hour % 10];  // 时个位
dis_buf[3] = dis_code[min / 10];  // 分十位
dis_buf[4] = dis_code[min % 10];  // 分个位
dis_buf[6] = dis_code[sec / 10];  // 秒十位
dis_buf[7] = dis_code[sec % 10];  // 秒个位
dis_buf[2] = 0xbf;      // 显示"-"
dis_buf[5] = 0xbf;      // 显示"-"
   
dis_digit = 0xfe;
dis_index = 0;

TCON = 0x01;
IE = 0x8a;    // 使能timer0,1 中断

TR0 = 1;
TR1 = 1;
key_v = 0x03;
while(1)
{
  if(scan_key())
  {
   delayms(10);
   if(scan_key())
   {
    key_v = key_s;
    proc_key();
   }
  }
  
}
}
bit scan_key()
{
key_s = 0x00;
key_s |= K2;
key_s <<= 1;
key_s |= K1;
return(key_s ^ key_v);
}
void proc_key()
{
EA = 0;
if((key_v & 0x01) == 0)  // K1
{
  inc_hour();
}
else if((key_v & 0x02) == 0) // K2
{
  min++;
  if(min > 59)
  {
   min = 0;
  }
  dis_buf[3] = dis_code[min / 10];  // 分十位
  dis_buf[4] = dis_code[min % 10];  // 分个位
}
EA = 1;
}
void timer0() interrupt 1
// 定时器0中断服务程序, 用于数码管的动态扫描
// dis_index --- 显示索引, 用于标识当前显示的数码管和缓冲区的偏移量
// dis_digit --- 位选通值, 传送到P2口用于选通当前数码管的数值, 如等于0xfe时,
//    选通P2.0口数码管
// dis_buf   --- 显于缓冲区基地址
{
TH0 = 0xFC;
TL0 = 0x17;

P2 = 0xff;       // 先关闭所有数码管
P0 = dis_buf[dis_index];   // 显示代码传送到P0口
P2 = dis_digit;      //
dis_digit = _crol_(dis_digit,1); // 位选通值左移, 下次中断时选通下一位数码管
dis_index++;      //
     
dis_index &= 0x07;   // 8个数码管全部扫描完一遍之后,再回到第一个开始下一次扫描
}
void timer1() interrupt 3
{
TH1 = 0xdc;

sec100++;

if(sec100 >= 100)
{
  sec100 = 0;
  inc_sec();
}
}
void inc_sec()
{
sec++;
if(sec > 59)
{
  sec = 0;
  inc_min();
}
dis_buf[6] = dis_code[sec / 10];  // 秒十位
dis_buf[7] = dis_code[sec % 10];  // 秒个位
}
void inc_min()
{
min++;
if(min > 59)
{
  min = 0;
  inc_hour();
}
dis_buf[3] = dis_code[min / 10];  // 分十位
dis_buf[4] = dis_code[min % 10];  // 分个位
}
void inc_hour()
{
hour++;
if(hour > 23)
{
  hour = 0;
}
if(hour > 9)
  dis_buf[0] = dis_code[hour / 10];  // 时十位
else
  dis_buf[0] = 0xff;     // 当小时的十位为0时不显示
dis_buf[1] = dis_code[hour % 10];  // 时个位
}

void delayms(unsigned char ms)
// 延时子程序
{      
unsigned char i;
while(ms--)
{
  for(i = 0; i < 120; i++);
}
}
hhtseng 发表于 2009-10-1 09:59 | 显示全部楼层
顶一个.................
suoma 发表于 2009-10-1 22:50 | 显示全部楼层
huamunv 发表于 2009-10-1 23:15 | 显示全部楼层
楼主好人啊
 楼主| laslison 发表于 2009-10-1 23:28 | 显示全部楼层
感谢大家支持:lol
xcs_1211 发表于 2009-10-16 12:16 | 显示全部楼层
有没有汇编的程序
 楼主| laslison 发表于 2009-10-16 18:47 | 显示全部楼层
6# xcs_1211
没有···
suoma 发表于 2009-10-20 21:44 | 显示全部楼层
6#的,想要汇编程序,网上很多啊
Cypress2009 发表于 2009-10-21 00:51 | 显示全部楼层
确实是好东西,LZ辛苦了
suoma 发表于 2009-10-22 10:19 | 显示全部楼层
tjx727 发表于 2010-3-12 12:14 | 显示全部楼层
没有累计误差吗?这个程序的精度大概能够达到多少?
David_ming 发表于 2010-3-12 18:01 | 显示全部楼层
易达口香糖 发表于 2010-3-12 18:29 | 显示全部楼层
多谢分享
qyui789 发表于 2010-3-12 18:32 | 显示全部楼层
多谢分享
linhai2009 发表于 2010-3-12 23:05 | 显示全部楼层
不错,这个一定要收下
linhai1986 发表于 2010-3-13 09:37 | 显示全部楼层
好东西,收下了
thf2008 发表于 2010-3-13 23:24 | 显示全部楼层
这个用在其他片子上不知怎么样,明天试试
lovelyegle 发表于 2010-3-14 09:55 | 显示全部楼层
love_life 发表于 2010-3-14 12:53 | 显示全部楼层
不错的程序,收下了
happytiger2010 发表于 2010-3-14 21:55 | 显示全部楼层
谢谢LZ共享
您需要登录后才可以回帖 登录 | 注册

本版积分规则

95

主题

791

帖子

1

粉丝
快速回复 在线客服 返回列表 返回顶部