标题: 基于单片机+TM1637的数码管显示程序 [打印本页]
作者: 707794433    时间: 2021-3-24 17:45
标题: 基于单片机+TM1637的数码管显示程序
上班闲着没事，找来一个数码管的模块，编写了一段程序，可做秒表计数，程序大家有需要的自己下载！




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

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

  7. sbit DIO = P1^0;
  8. sbit CLK = P1^1;

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

  14. void Delay2us()                //@11.0592MHz
  15. {
  16.         unsigned char i;

  18.         _nop_();
  19.         i = 5;
  20.         while (--i);
  21. }

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

  27.         i = 9;
  28.         while (--i);
  29. }

  31. void Delay5us()                //@11.0592MHz
  32. {
  33.         unsigned char i;

  35.         _nop_();
  36.         i = 16;
  37.         while (--i);
  38. }

  40. void I2CStart()
  41. {
  42.         CLK = 1;
  43.         DIO = 1;
  44.         Delay2us();
  45.         DIO = 0;
  46. }

  48. void I2CAsk()
  49. {
  50.         CLK = 0;
  51.         Delay5us();
  52.         while(DIO);
  53.         CLK = 1;
  54.         Delay2us();
  55.         CLK = 0;
  56. }

  58. void I2CStop()
  59. {
  60.         CLK = 0;
  61.         Delay2us();
  62.         DIO = 0;
  63.         Delay2us();
  64.         CLK = 1;
  65.         Delay2us();
  66.         DIO = 1;
  67. }

  69. void I2CWriteByte(u8 dat)
  70. {
  71.         u8 i;
  72.         for(i=0;i<8;i++)
  73.         {
  74.                 CLK = 0;
  75.                 if(dat&0x01)
  76.                 {
  77.                         DIO = 1;
  78.                 }
  79.                 else
  80.                 {
  81.                         DIO = 0;
  82.                 }
  83.                 Delay3us();
  84.                 dat>>=1;
  85.                 CLK = 1;
  86.                 Delay3us();
  87.         }
  88. }

  90. void Display(u8 m,u8 s)
  91. {
  92.         I2CStart();
  93.         I2CWriteByte(0x40);
  94.         I2CAsk();
  95.         I2CStop();
  96.         I2CStart();
  97.         I2CWriteByte(0xC0);
  98.         I2CAsk();
  99.         I2CWriteByte(num[m/10]);
  100.         I2CAsk();
  101.         I2CWriteByte(num[m%10]);
  102.         I2CAsk();
  103.         I2CWriteByte(num[s/10]);
  104.         I2CAsk();
  105.         I2CWriteByte(num[s%10]);
  106.         I2CAsk();
  107.         I2CWriteByte(0xFF);
  108.         I2CAsk();
  109.         I2CWriteByte(0xFF);
  110.         I2CAsk();
  111.         I2CStop();
  112.         I2CStart();
  113.         I2CWriteByte(0x8F);
  114.         I2CAsk();
  115.         I2CStop();
  116. }

  118. void Timer0Init(void)                //1毫秒@11.0592MHz
  119. {
  120.         AUXR |= 0x80;
  121.         TMOD &= 0xF0;
  122.         TL0 = 0xCD;
  123.         TH0 = 0xD4;
  124.         ET0 = 1;
  125.         EA = 1;
  126.         TF0 = 0;
  127.         TR0 = 1;
  128. }

  130. void TM0_Isr() interrupt 1
  131. {
  132.         ms++;
  133.         if(ms==1000)
  134.         {
  135.                 ms=0;
  136.                 second++;
  137.                 if(second==60)
  138.                 {
  139.                         second=0;
  140.                         min++;
  141.                         if(min==60)
  142.                         {
  143.                                 min=0;
  144.                                 hour++;
  145.                                 if(hour==24)
  146.                                 {
  147.                                         hour=0;
  148.                                 }
  149.                         }
  150.                 }
  151.         }
  152. }

  154. void main()
  155. {
  156.         P1M0 = 0x00;
  157.         P1M1 = 0x00;
  158.         Timer0Init();
  159.         while(1)
  160.         {
  161.                 Display(min,second);
  162.         }
  163. }
复制代码

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

作者: 触景情伤    时间: 2021-3-30 23:15
楼主有8g1k08a的例程吗？
作者: 51c_yang    时间: 2021-6-10 14:41
触景情伤 发表于 2021-3-30 23:15
楼主有8g1k08a的例程吗？

同求，有嘛
作者: 啤酒瓶子老大    时间: 2021-6-18 02:06
这个不就是8G的吗。



欢迎光临 (http://www.51hei.com/bbs/) Powered by Discuz! X3.1