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

 找回密码
 立即注册
搜索
查看: 836|回复: 10

简单时钟显示程序(只显示时分秒)(C语言,可用于51单片

[复制链接]

该用户从未签到

3

主题

3

回帖

0

积分

一级逆天

积分
0

终身成就奖

发表于 2021-7-20 16:18:23 | 显示全部楼层 |阅读模式
#include <reg52.h>
#define uchar unsigned char
#define uint unsigned int

sbit dula=P2^7;
sbit wela=P2^6;
sbit led1=P1^0;

uchar code table[]={
0x5f,0x41,0x9b,0xcb,
0xc5,0xce,0xde,0x47,
0xdf,0xcf,0xd7,0xdc,
0x1e,0xd9,0x9e,0x96};

void delayms(uint);
void display(uchar,uchar,uchar,uchar);
uchar fen,miao,num1,num2,fshi,fge,mshi,mge,dian;

void main()
{   
    TMOD=0x11;
    TH0=(65536-45872)/256;
    TL0=(65536-45872)%256;   
    TH1=(65536-45872)/256;
    TL1=(65536-45872)%256;
    EA=1;
    ET0=1;
    ET1=1;
    TR0=1;
    TR1=1;

    while(1)
    {
        display(fshi,fge,mshi,mge);
    }
}

void display(uchar fshi,uchar fge,uchar mshi,uchar mge)
{
        dula=1;
        P0=table[fshi];
        dula=0;
        P0=0xff;
        wela=1;
        if(fen>9)
            P0=0xf7;
        else
            P0=0xff;
        wela=0;
        delayms(5);

        dula=1;
        if(dian==1)
            P0=table[fge]+0x20;
        else
            P0=table[fge];
        dula=0;
        P0=0xff;
        wela=1;
        P0=0xfb;
        wela=0;
        delayms(5);

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

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

void delayms(uint xms)
{
    uint i,j;
    for(i=xms;i>0;i--)
        for(j=110;j>0;j--);
}

void T0_time() interrupt 1
{
    TH0=(65536-45872)/256;
    TL0=(65536-45872)%256;
    num1++;
    if(num1==4)
    {
        num1=0;
        led1=~led1;
    }
}

void T1_time() interrupt 3
{
    TH1=(65536-45872)/256;
    TL1=(65536-45872)%256;
    num2++;
    if(num2==1)
    {
        num2=0;
        miao++;   
        if(miao==60)
            {miao=0;
            fen++;}
        if(fen==24)
            fen=0;
        mshi=miao/10;
        mge=miao%10;
        fshi=fen/10;
        fge=fen%10;
        dian=miao%2;
    }
}
回复

使用道具 举报

  • TA的每日心情
    开心
    9 分钟前
  • 签到天数: 128 天

    [LV.7]常住居民III

    32

    主题

    1万

    回帖

    3万

    积分

    三级逆天

    积分
    34414

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

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

    使用道具 举报

    该用户从未签到

    51

    主题

    545

    回帖

    0

    积分

    二级逆天

    积分
    0

    终身成就奖

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

    使用道具 举报

    该用户从未签到

    5

    主题

    1411

    回帖

    2656

    积分

    二级逆天

    积分
    2656

    终身成就奖特殊贡献奖优秀斑竹奖

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

    使用道具 举报

    该用户从未签到

    1

    主题

    6740

    回帖

    3

    积分

    二级逆天

    积分
    3

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

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

    使用道具 举报

  • TA的每日心情
    擦汗
    2024-8-7 10:43
  • 签到天数: 1 天

    [LV.1]初来乍到

    0

    主题

    4393

    回帖

    2964

    积分

    二级逆天

    积分
    2964

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

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

    使用道具 举报

  • TA的每日心情
    难过
    3 天前
  • 签到天数: 81 天

    [LV.6]常住居民II

    0

    主题

    3710

    回帖

    7451

    积分

    二级逆天

    积分
    7451

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

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

    使用道具 举报

    该用户从未签到

    10

    主题

    3481

    回帖

    11

    积分

    二级逆天

    积分
    11

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

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

    使用道具 举报

  • TA的每日心情
    开心
    6 天前
  • 签到天数: 57 天

    [LV.5]常住居民I

    3

    主题

    2506

    回帖

    4283

    积分

    二级逆天

    积分
    4283

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

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

    使用道具 举报

  • TA的每日心情
    开心
    昨天 22:49
  • 签到天数: 40 天

    [LV.5]常住居民I

    6

    主题

    1万

    回帖

    2万

    积分

    三级逆天

    积分
    20506

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

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

    使用道具 举报

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

    本版积分规则

    论坛开启做任务可以
    额外奖励金币快速赚
    积分升级了


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

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

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