打印
[经验分享]

分享个很准的时钟程序!

[复制链接]
6053|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 | 只看该作者
楼主好人啊

使用特权

评论回复
5
laslison|  楼主 | 2009-10-1 23:28 | 只看该作者
感谢大家支持:lol

使用特权

评论回复
6
xcs_1211| | 2009-10-16 12:16 | 只看该作者
有没有汇编的程序

使用特权

评论回复
7
laslison|  楼主 | 2009-10-16 18:47 | 只看该作者
6# xcs_1211
没有···

使用特权

评论回复
8
suoma| | 2009-10-20 21:44 | 只看该作者
6#的,想要汇编程序,网上很多啊

使用特权

评论回复
9
Cypress2009| | 2009-10-21 00:51 | 只看该作者
确实是好东西,LZ辛苦了

使用特权

评论回复
10
suoma| | 2009-10-22 10:19 | 只看该作者
顶!

使用特权

评论回复
11
tjx727| | 2010-3-12 12:14 | 只看该作者
没有累计误差吗?这个程序的精度大概能够达到多少?

使用特权

评论回复
12
David_ming| | 2010-3-12 18:01 | 只看该作者
顶下

使用特权

评论回复
13
易达口香糖| | 2010-3-12 18:29 | 只看该作者
多谢分享

使用特权

评论回复
14
qyui789| | 2010-3-12 18:32 | 只看该作者
多谢分享

使用特权

评论回复
15
linhai2009| | 2010-3-12 23:05 | 只看该作者
不错,这个一定要收下

使用特权

评论回复
16
linhai1986| | 2010-3-13 09:37 | 只看该作者
好东西,收下了

使用特权

评论回复
17
thf2008| | 2010-3-13 23:24 | 只看该作者
这个用在其他片子上不知怎么样,明天试试

使用特权

评论回复
18
lovelyegle| | 2010-3-14 09:55 | 只看该作者
看看

使用特权

评论回复
19
love_life| | 2010-3-14 12:53 | 只看该作者
不错的程序,收下了

使用特权

评论回复
20
happytiger2010| | 2010-3-14 21:55 | 只看该作者
谢谢LZ共享

使用特权

评论回复
发新帖 我要提问
您需要登录后才可以回帖 登录 | 注册

本版积分规则

95

主题

791

帖子

1

粉丝