标题: 51单片机+TM1638驱动数码管测试程序 [打印本页]
作者: 979940927    时间: 2018-6-13 23:44
标题: 51单片机+TM1638驱动数码管测试程序
某宝上买的TM1638模块测试程序 根据数据手册搞出来的
骑远飞TM1638 按键数码管模块
电路原理图如下：




单片机源程序如下:
  1. #ifndef        _TM1638_H
  2. #define        _TM1638_H

  4. #include        <REGX51.H>

  6. #define        DATA_COMMAND        0X40
  7. #define        DISP_COMMAND        0x80
  8. #define        ADDR_COMMAND        0XC0

  10. //TM1638模块引脚定义
  11. sbit        DIO=P1^0;
  12. sbit        CLK=P1^1;
  13. sbit        STB=P1^2;

  15. //共阴数码管显示代码
  16. unsigned char code tab[]={0x3F,0x06,0x5B,0x4F,0x66,0x6D,0x7D,0x07,
  17.                            0x7F,0x6F,0x77,0x7C,0x39,0x5E,0x79,0x71};


  20. void TM1638_Write(unsigned char        DATA)                        //写数据函数
  21. {
  22.         unsigned char i;
  23.         for(i=0;i<8;i++)
  24.         {
  25.                 CLK=0;
  26.                 if(DATA&0X01)
  27.                         DIO=1;
  28.                 else
  29.                         DIO=0;
  30.                 DATA>>=1;
  31.                 CLK=1;
  32.         }
  33. }
  34. unsigned char TM1638_Read(void)                                        //读数据函数
  35. {
  36.         unsigned char i;
  37.         unsigned char temp=0;
  38.         DIO=1;        //设置为输入
  39.         for(i=0;i<8;i++)
  40.         {
  41.                 temp>>=1;
  42.                 CLK=0;
  43.                 if(DIO)
  44.                         temp|=0x80;
  45.                 CLK=1;
  46.         }
  47.         return temp;
  48. }
  49. void Write_COM(unsigned char cmd)                //发送命令字
  50. {
  51.         STB=0;
  52.         TM1638_Write(cmd);
  53.         STB=1;
  54. }
  55. unsigned char Read_key(void)
  56. {
  57.         unsigned char c[4],i,key_value=0;
  58.         STB=0;
  59.         TM1638_Write(0x42);                           //读键扫数据 命令
  60.         for(i=0;i<4;i++)               
  61.                 c[i]=TM1638_Read();
  62.         STB=1;                                                   //4个字节数据合成一个字节
  63.         for(i=0;i<4;i++)
  64.                 key_value|=c[i]<<i;
  65.         for(i=0;i<8;i++)
  66.                 if((0x01<<i)==key_value)
  67.                         break;
  68.         return i;
  69. }
  70. void Write_DATA(unsigned char add,unsigned char DATA)                //指定地址写入数据
  71. {
  72.         Write_COM(0x44);
  73.         STB=0;
  74.         TM1638_Write(0xc0|add);
  75.         TM1638_Write(DATA);
  76.         STB=1;
  77. }
  78. /*
  79. void Write_oneLED(unsigned char num,unsigned char flag)        //单独控制一个LED函数，num为需要控制的led序号，flag为0时熄灭，不为0时点亮
  80. {
  81.         if(flag)
  82.                 Write_DATA(2*num+1,1);
  83.         else
  84.                 Write_DATA(2*num+1,0);
  85. }          */
  86. void Write_allLED(unsigned char LED_flag)                                        //控制全部LED函数，LED_flag表示各个LED状态
  87. {
  88.         unsigned char i;
  89.         for(i=0;i<8;i++)
  90.                 {
  91.                         if(LED_flag&(1<<i))
  92.                                 //Write_DATA(2*i+1,3);
  93.                                 Write_DATA(2*i+1,1);
  94.                         else
  95.                                 Write_DATA(2*i+1,0);
  96.                 }
  97. }

  99. //TM1638初始化函数
  100. void init_TM1638(void)
  101. {
  102.         unsigned char i;
  103.         Write_COM(0x8b);       //亮度 (0x88-0x8f)8级亮度可调
  104.         Write_COM(0x40);       //采用地址自动加1
  105.         STB=0;                           //
  106.         TM1638_Write(0xc0);    //设置起始地址

  108.         for(i=0;i<16;i++)           //传送16个字节的数据
  109.                 TM1638_Write(0x00);
  110.         STB=1;
  111. }
  112. #endif
复制代码


  1. #include        <REGX51.H>
  2. #include        <tm1638.h>

  4. unsigned char num[8];                //各个数码管显示的值

  6. int main(void)
  7. {
  8.         unsigned char i;
  9.         init_TM1638();                                   //初始化TM1638
  10.         for(i=0;i<8;i++)
  11.         Write_DATA(i<<1,tab[0]);                       //初始化寄存器
  12.         
  13.         while(1)
  14.         {
  15.                 i=Read_key();                          //读按键值
  16.                 if(i<8)
  17.                 {
  18.                         num[i]++;
  19.                         while(Read_key()==i);                       //等待按键释放
  20.                         if(num[i]>15)
  21.                         num[i]=0;
  22.                         Write_DATA(i*2,tab[num[i]]);
  23.                         Write_allLED(1<<i);
  24.                 }
  25.         }
  26. }

复制代码

所有资料51hei提供下载:
TM1638 按键数码管模块.zip (802.45 KB, 下载次数: 398)


作者: yuancheng116    时间: 2018-8-3 17:50
下载来学习一下
作者: wangxing123456    时间: 2019-7-17 20:19
很好，可以直接用。
作者: amwcel    时间: 2019-8-12 13:35
新手进来学习下
作者: amwcel    时间: 2019-8-12 13:35
新手进来学习
作者: 梦园心田    时间: 2019-8-14 08:27
写的还不错
作者: homedou    时间: 2019-8-14 10:55
TM1638的代码，我下载看下，
作者: yangfeng2068    时间: 2020-1-31 23:34
好文章，正好需要
作者: Qc_Root    时间: 2020-2-1 11:21
新手过来学习一i下。感觉非常不错
作者: yangfeng2068    时间: 2020-2-1 12:38
下载测试很好用，谢谢分享
作者: mmloster001    时间: 2020-2-28 00:15
非常感谢,下载来试试看
作者: hantu    时间: 2020-2-28 10:01
这个不就是TM1638自带的例程？！
作者: aide51    时间: 2020-3-12 10:13
非常感谢，刚好再找呢，谢谢
作者: zxy2266    时间: 2020-3-14 15:00
模块早买了，商家程序也给了，就是不会点
作者: lastreg    时间: 2020-6-28 14:15
这个读函数 DIO=1设置为输入，是啥意思呢?
unsigned char TM1638_Read(void)                                        //读数据函数
{
        unsigned char i;
        unsigned char temp=0;
        DIO=1;        //设置为输入
        for(i=0;i<8;i++)
        {
                temp>>=1;
                CLK=0;
                if(DIO)
                        temp|=0x80;
                CLK=1;
        }
        return temp;
}
作者: lihanjunw    时间: 2021-3-13 00:03
12MHZ晶振，跑在1T的单片机会有错误，跑在12T单片机正常
作者: lihanjunw    时间: 2021-3-13 00:06
lastreg 发表于 2020-6-28 14:15
这个读函数 DIO=1设置为输入，是啥意思呢?
unsigned char TM1638_Read(void)                             ...

单片机把DIO拉高，就是说对应管脚是单片机内部电阻在拉高，如果TM1638的DIO管脚输出电平为低，单片机对应bit为0，反之是1
作者: shgdd520com    时间: 2021-4-14 23:39
51单片机IO 读 一般设置1 为输入
作者: xllin    时间: 2021-9-17 10:04
不错，刚好手上有个这片子的表头。
作者: lang30    时间: 2022-5-6 10:07
Write_oneLED(unsigned char num,unsigned char flag)；
Write_allLED(unsigned char LED_flag) ；

这两个函数没有用吧？
作者: kz0018    时间: 2022-5-8 21:25
资料很有用，已下载看过了，谢谢分享！
作者: haide1998    时间: 2022-8-6 13:51
zxy2266 发表于 2020-3-14 15:00
模块早买了，商家程序也给了，就是不会点

俺也是，反复的都是一样的全程，总是学到实际应用的技术，只想把每一个按键应用到各自的功能，LED发光管也能对应的显示不同的IO口状态。
作者: haide1998    时间: 2022-8-21 07:44
void Write_allLED(unsigned char LED_flag)                                        //控制全部LED函数，LED_flag表示各个LED状态
{
        unsigned char i;
        for(i=0;i<8;i++)
                {
                        if(LED_flag&(1<<i))
                                //Write_DATA(2*i+1,3);
                                Write_DATA(2*i+1,1);
                        else
                                Write_DATA(2*i+1,0);
                }
}
看了N多全程，这个LED显示都这么写的，总不会灵活应用
作者: sin123456    时间: 2023-8-1 20:37
void Write_allLED(u8 LED_flag)                                        //控制全部LED函数，LED_flag表示各个LED状态
{
        u8 i;
        for(i=0;i<8;i++)
                {
                        if(LED_flag&(1<<i))
                                {
                                //Write_DATA(2*i+1,3);
                                Write_DATA(2*i+1,1);
                                }
                        else
                                Write_DATA(2*i+1,0);
                }
}

这里报下面的警告要怎么 解决呐

main.c(32): warning C188: 'parameter 1': value truncated
作者: wkman    时间: 2023-8-3 19:37
1638 驱动10个数码管+3x8个按键，最优综合ic



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