我们从2011年坚守至今,只想做存粹的技术论坛。  由于网站在外面,点击附件后要很长世间才弹出下载,请耐心等待,勿重复点击不要用Edge和IE浏览器下载,否则提示不安全下载不了

 找回密码
 立即注册
搜索
查看: 1064|回复: 6

计时器程序(0-9999)(C语言,可用于51单片机)

[复制链接]

该用户从未签到

3

主题

3

回帖

0

积分

一级逆天

积分
0

终身成就奖

发表于 2021-7-20 16:15:42 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区

您需要 登录 才可以下载或查看,没有账号?立即注册

×
#include<reg52.h>
#define  uchar unsigned char
#define uint unsigned int
sbit dula=P2^6;
sbit wela=P2^7;
  sbit led1=P1^2;
uchar code table[]={
0x3f,0x06,0x5b,0x4f,0x66,0x6d,0x7d,0x07,0x7f,0x6f}    ;

  void delayms(uint);
  void display(uchar,uchar,uchar,uchar);

unsigned int num,num1,num2, num3,qiang,bai,shi,ge,k;
  void main()
  {
  TMOD=0x11;
TH1=(65536-25872)/256;
TL1=(65536-25872)%256;
TH0=(65536-25872)/256;
TL0=(65536-25872)%256;
EA=1;
ET0=1;
TR0=1;
ET1=1;
TR1=1;
  while(1)
  {
   display(qiang,bai,shi,ge);

   }
   }
  
   void display( uchar qiang,uchar bai,uchar shi,uchar ge)

  {
  dula=1;
P0=table[shi];
dula=0;
P0=0xff;
wela=1;
P0=0xfb    ;
wela=0;
delayms(1);

dula=1;
P0=table[ge];
dula=0;
P0=0xff;
wela=1;
P0=0xf7    ;
wela=0;
delayms(1);


  dula=1;
P0=table[qiang];
dula=0;
P0=0xff;
wela=1;
P0=0xfe    ;
wela=0;
delayms(1);

dula=1;
P0=table[bai];
dula=0;
P0=0xff;
wela=1;
P0=0xfd    ;
wela=0;
delayms(1);

}


void delayms(uint xms)
{
unsigned int i,j;
  for(i=xms;i>0;i--)
    for(j=110;j>0;j--);
}
void T0_time() interrupt 1
{

   TH0=(65536-25872)/256;
   TL0=(65536-25872)%256;
   num1++;
     
   if(num1==1)
{
    num1=0;
    num3++;
    if (num3==520)
{  
    num3=0;
    for(k=15;k>0;k--)
{
  dula=1;
  P0=table[5];
  dula=0;
P0=0xff;
wela=1;
P0=0xfe    ;
wela=0;
delayms(5);

dula=1;
P0=table[2];
dula=0;
P0=0xff;
wela=1;
P0=0xfd    ;
wela=0;
delayms(5);

dula=1;
P0=table[0];
dula=0;
P0=0xff;
wela=1;
P0=0xfb    ;
wela=0;
delayms(5);
}

for(k=20;k>0;k--)
{


dula=1;
P0=table[1];
dula=0;
P0=0xff;
wela=1;
P0=0xfe    ;
wela=0;
delayms(4);

dula=1;
P0=table[3];
dula=0;
P0=0xff;
wela=1;
P0=0xfd    ;
wela=0;
delayms(4);

dula=1;
P0=table[1];
dula=0;
P0=0xff;
wela=1;
P0=0xfb    ;
wela=0;
delayms(4);

dula=1;
P0=table[4];
dula=0;
P0=0xff;
wela=1;
P0=0xf7    ;
wela=0;
delayms(4);
}
for(k=35;k>0;k--)
{
  dula=1;
  P0=table[5];
  dula=0;
P0=0xff;
wela=1;
P0=0xfe    ;
wela=0;
delayms(5);

dula=1;
P0=table[2];
dula=0;
P0=0xff;
wela=1;
P0=0xfd    ;
wela=0;
delayms(5);

dula=1;
P0=table[0];
dula=0;
P0=0xff;
wela=1;
P0=0xfb    ;
wela=0;
delayms(5);
}

for(k=40;k>0;k--)
{


dula=1;
P0=table[1];
dula=0;
P0=0xff;
wela=1;
P0=0xfe    ;
wela=0;
delayms(4);

dula=1;
P0=table[3];
dula=0;
P0=0xff;
wela=1;
P0=0xfd    ;
wela=0;
delayms(4);

dula=1;
P0=table[1];
dula=0;
P0=0xff;
wela=1;
P0=0xfb    ;
wela=0;
delayms(4);

dula=1;
P0=table[4];
dula=0;
P0=0xff;
wela=1;
P0=0xf7    ;
wela=0;
delayms(4);
}
}
}
}

void T1_time() interrupt 3
{

TH1=(65536-25872)/256;
TL1=(65536-25872)%256;
num2++;
if (num2==1)
{
num2=0;
num++;
if (num==9999)
num=0;
qiang=num/1000;
bai=num%1000/100 ;
shi=num%1000%100/10;
ge=num%1000%100%10;
}
}
  
回复

使用道具 举报

  • TA的每日心情
    开心
    昨天 12:11
  • 签到天数: 178 天

    [LV.7]常住居民III

    31

    主题

    1万

    回帖

    3万

    积分

    三级逆天

    积分
    34598

    终身成就奖特殊贡献奖原创先锋奖社区居民忠实会员社区劳模最爱沙发原创达人优秀斑竹奖宣传大使奖

    QQ
    发表于 2021-7-20 20:33:41 | 显示全部楼层
    回复

    使用道具 举报

    该用户从未签到

    51

    主题

    545

    回帖

    0

    积分

    二级逆天

    积分
    0

    终身成就奖

    发表于 2021-7-21 06:37:42 | 显示全部楼层
    回复

    使用道具 举报

    该用户从未签到

    1

    主题

    6740

    回帖

    1280

    积分

    二级逆天

    积分
    1280

    终身成就奖特殊贡献奖原创先锋奖优秀斑竹奖

    发表于 2021-7-21 07:47:27 | 显示全部楼层
    回复

    使用道具 举报

  • TA的每日心情
    开心
    3 天前
  • 签到天数: 88 天

    [LV.6]常住居民II

    3

    主题

    2537

    回帖

    4399

    积分

    二级逆天

    积分
    4399

    终身成就奖特殊贡献奖原创先锋奖

    发表于 2021-7-21 08:48:07 | 显示全部楼层
    回复

    使用道具 举报

  • TA的每日心情
    开心
    前天 08:51
  • 签到天数: 54 天

    [LV.5]常住居民I

    2

    主题

    1万

    回帖

    2万

    积分

    三级逆天

    积分
    20559

    终身成就奖特殊贡献奖原创先锋奖优秀斑竹奖

    QQ
    发表于 2021-7-21 08:52:07 | 显示全部楼层
    回复

    使用道具 举报

    该用户从未签到

    1

    主题

    833

    回帖

    0

    积分

    二级逆天

    积分
    0

    终身成就奖优秀斑竹奖

    发表于 2021-7-21 08:57:33 | 显示全部楼层
    回复

    使用道具 举报

    您需要登录后才可以回帖 登录 | 立即注册

    本版积分规则

    每日签到,有金币领取。


    Copyright ©2011-2024 NTpcb.com All Right Reserved.  Powered by Discuz! (NTpcb)

    本站信息均由会员发表,不代表NTpcb立场,如侵犯了您的权利请发帖投诉

    ( 闽ICP备2024076463号-1 ) 论坛技术支持QQ群171867948 ,论坛问题,充值问题请联系QQ1308068381

    平平安安
    TOP
    快速回复 返回顶部 返回列表