标题: (原创)骑远飞TM1638模块显示功能实践 源程序 [打印本页]
作者: wione1979    时间: 2024-4-19 13:38
标题: (原创)骑远飞TM1638模块显示功能实践 源程序
  1. #include "reg51.h"
  2. #include "tm1638.h"

  4. void DelayMs(unsigned int ms);
  5. void DelayMs(unsigned int ms)      
  6.   {
  7.    unsigned int i,j;
  8.         for(i=0;i<ms;i++)
  9.         for(j=0;j<200;j++);  
  10.          
  11.   }

  13. void main(void)
  14. {
  15. unsigned char i;
  16. init_TM1638(); //初始化TM1638
  17. for(i=0;i<8;i++)
  18. Write_Data(i,dis[10]); //初始化寄存器
  19. /***************************************
  20. 选中GRID1  令第一位数码管显示0
  21.               第二位数码管显示1
  22.                           ......
  23. 下面是各数码管编号
  24. 0xC0,0xC2,0xC4,0xC6,0xC8,0xCA,0xCC,0xCE
  25. 下面是各LED编号
  26. 0xC1,0xC3,0xC5,0xC7,0xC9,0xCB,0xCD,0xCF
  27. ****************************************/
  28. while(1)
  29. {
  30. for(i=0;i<8;i++){
  31. Write_Data(0xC0+i*2,dis[i]); //轮显各数码管
  32. DelayMs(200);                                 //轮显各LED
  33. Write_Data(0xC0+i*2+1,0xff);
  34. DelayMs(500);
  35. }
  36. Write_Command(0x80);
  37. DelayMs(500);
  38. init_TM1638();
  39. }
  40. }
复制代码
  1. #ifndef _TM1638_H
  2. #define _TM1638_H
  3. #include "reg51.h"
  4. //TM1638模块引脚定义
  5. sbit DIO=P1^3; //数据线
  6. sbit CLK=P1^2; //时钟线
  7. sbit STB=P1^1; //片选线
  8. //共阴数码管显示代码
  9. unsigned char code dis[11]={0x3F,0x06,0x5B,0x4F,0x66,0x6D,0x7D,0x07,
  10. 0x7F,0x6F,0x00};
  11. void TM1638_Write(unsigned char Data) //写数据函数
  12. {
  13. unsigned char i;
  14. for(i=0;i<8;i++)
  15. {
  16. CLK=0;
  17. DIO=Data&0x01;
  18. Data>>=1;
  19. CLK=1;
  20. }
  21. }
  22. void Write_Command(unsigned char Command) //发送命令
  23. {
  24. STB=0;
  25. TM1638_Write(Command);
  26. STB=1;
  27. }
  28. void Write_Data(unsigned char add,unsigned char Data) //指定地址写入数据
  29. {
  30. STB=0;
  31. TM1638_Write(0x00|add);
  32. TM1638_Write(Data);
  33. STB=1;
  34. }
  35. //TM1638初始化函数
  36. void init_TM1638(void)
  37. {
  38. unsigned char i;
  39. Write_Command(0x8F);
  40. Write_Command(0x40); //采用地址自动加1
  41. STB=0;
  42. TM1638_Write(0xc0); //设置起始地址
  43. for(i=0;i<16;i++) //传送16个字节的数据
  44. TM1638_Write(0x00);
  45. STB=1;


  48. }
  49. #endif
复制代码

002.gif (95.66 KB, 下载次数: 39)

002.gif

004.jpg (79.83 KB, 下载次数: 39)

004.jpg

骑远飞TM1638模块显示.zip

1.18 KB, 下载次数: 11, 下载积分: 黑币 -5

这个是上面2个程序,可以直接从网页复制 不必下载

骑远飞TM1638模块显示视频.zip

3.82 MB, 下载次数: 6, 下载积分: 黑币 -5

作者: wione1979    时间: 2024-4-19 13:53
TM1638芯片的数据手册很抽象，对于初学者来说各功能也很容易搞混，这里参考了网上资料和帖子将显示功能实践一番并加以记录，提供给同样的初学者一起探讨完善。如有更好的更详细的实例，欢迎交流。
作者: hi等你    时间: 2024-4-19 16:14


已经用汇编写出1638程序并应用到数控收音系统，
作者: wione1979    时间: 2024-4-19 16:26
hi等你 发表于 2024-4-19 16:14
已经用汇编写出1638程序并应用到数控收音系统，

向你学习，我是初学者
作者: joyb    时间: 2024-4-19 16:52
74hc164读按键程序有没有
作者: wione1979    时间: 2024-4-20 16:05
joyb 发表于 2024-4-19 16:52
74hc164读按键程序有没有

没有呢，电脑资料里有仿真和hex文件



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