找回密码
 立即注册

QQ登录

只需一步,快速开始

搜索
查看: 3459|回复: 3
打印 上一主题 下一主题
收起左侧

基于单片机+TM1637的数码管显示程序

[复制链接]
跳转到指定楼层
楼主
上班闲着没事,找来一个数码管的模块,编写了一段程序,可做秒表计数,程序大家有需要的自己下载!




单片机源程序如下:
  1. #include <STC8G.h>
  2. #include <intrins.h>

  3. #define u8 unsigned char
  4. #define u16 unsigned int

  5. sbit DIO = P1^0;
  6. sbit CLK = P1^1;

  7. //u8 num[10]={0x3F,0x06,0x5B,0x4F,0x66,0x6D,0x7D,0x07,0x7f,0x6F};
  8. u8 num[10]={0xBF,0x86,0xDB,0xCF,0xE6,0xED,0xFD,0x87,0xFf,0xEF};
  9. u16 ms,second,min,hour;

  10. void Delay2us()                //@11.0592MHz
  11. {
  12.         unsigned char i;

  13.         _nop_();
  14.         i = 5;
  15.         while (--i);
  16. }

  17. void Delay3us()                //@11.0592MHz
  18. {
  19.         unsigned char i;

  20.         i = 9;
  21.         while (--i);
  22. }

  23. void Delay5us()                //@11.0592MHz
  24. {
  25.         unsigned char i;

  26.         _nop_();
  27.         i = 16;
  28.         while (--i);
  29. }

  30. void I2CStart()
  31. {
  32.         CLK = 1;
  33.         DIO = 1;
  34.         Delay2us();
  35.         DIO = 0;
  36. }

  37. void I2CAsk()
  38. {
  39.         CLK = 0;
  40.         Delay5us();
  41.         while(DIO);
  42.         CLK = 1;
  43.         Delay2us();
  44.         CLK = 0;
  45. }

  46. void I2CStop()
  47. {
  48.         CLK = 0;
  49.         Delay2us();
  50.         DIO = 0;
  51.         Delay2us();
  52.         CLK = 1;
  53.         Delay2us();
  54.         DIO = 1;
  55. }

  56. void I2CWriteByte(u8 dat)
  57. {
  58.         u8 i;
  59.         for(i=0;i<8;i++)
  60.         {
  61.                 CLK = 0;
  62.                 if(dat&0x01)
  63.                 {
  64.                         DIO = 1;
  65.                 }
  66.                 else
  67.                 {
  68.                         DIO = 0;
  69.                 }
  70.                 Delay3us();
  71.                 dat>>=1;
  72.                 CLK = 1;
  73.                 Delay3us();
  74.         }
  75. }

  76. void Display(u8 m,u8 s)
  77. {
  78.         I2CStart();
  79.         I2CWriteByte(0x40);
  80.         I2CAsk();
  81.         I2CStop();
  82.         I2CStart();
  83.         I2CWriteByte(0xC0);
  84.         I2CAsk();
  85.         I2CWriteByte(num[m/10]);
  86.         I2CAsk();
  87.         I2CWriteByte(num[m%10]);
  88.         I2CAsk();
  89.         I2CWriteByte(num[s/10]);
  90.         I2CAsk();
  91.         I2CWriteByte(num[s%10]);
  92.         I2CAsk();
  93.         I2CWriteByte(0xFF);
  94.         I2CAsk();
  95.         I2CWriteByte(0xFF);
  96.         I2CAsk();
  97.         I2CStop();
  98.         I2CStart();
  99.         I2CWriteByte(0x8F);
  100.         I2CAsk();
  101.         I2CStop();
  102. }

  103. void Timer0Init(void)                //1毫秒@11.0592MHz
  104. {
  105.         AUXR |= 0x80;
  106.         TMOD &= 0xF0;
  107.         TL0 = 0xCD;
  108.         TH0 = 0xD4;
  109.         ET0 = 1;
  110.         EA = 1;
  111.         TF0 = 0;
  112.         TR0 = 1;
  113. }

  114. void TM0_Isr() interrupt 1
  115. {
  116.         ms++;
  117.         if(ms==1000)
  118.         {
  119.                 ms=0;
  120.                 second++;
  121.                 if(second==60)
  122.                 {
  123.                         second=0;
  124.                         min++;
  125.                         if(min==60)
  126.                         {
  127.                                 min=0;
  128.                                 hour++;
  129.                                 if(hour==24)
  130.                                 {
  131.                                         hour=0;
  132.                                 }
  133.                         }
  134.                 }
  135.         }
  136. }

  137. void main()
  138. {
  139.         P1M0 = 0x00;
  140.         P1M1 = 0x00;
  141.         Timer0Init();
  142.         while(1)
  143.         {
  144.                 Display(min,second);
  145.         }
  146. }
复制代码

所有代码51hei提供下载:
四位数码管显示.rar (40.4 KB, 下载次数: 58)

评分

参与人数 2黑币 +60 收起 理由
lzh085 + 10 赞一个!
admin + 50 共享资料的黑币奖励!

查看全部评分

分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏6 分享淘帖 顶 踩
回复

使用道具 举报

沙发
ID:229641 发表于 2021-3-30 23:15 来自手机 | 只看该作者
楼主有8g1k08a的例程吗?
回复

使用道具 举报

板凳
ID:923440 发表于 2021-6-10 14:41 | 只看该作者
触景情伤 发表于 2021-3-30 23:15
楼主有8g1k08a的例程吗?

同求,有嘛
回复

使用道具 举报

地板
ID:230742 发表于 2021-6-18 02:06 | 只看该作者
这个不就是8G的吗。
回复

使用道具 举报

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

本版积分规则

手机版|小黑屋|51黑电子论坛 |51黑电子论坛6群 QQ 管理员QQ:125739409;技术交流QQ群281945664

Powered by 单片机教程网

快速回复 返回顶部 返回列表