设为首页收藏本站
开启辅助访问 切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

热门： 51单片机 | 24小时必答区 | 单片机教程 | 单片机DIY制作 | STM32 | Cortex M3 | 模数电子 | 电子DIY制作 | 音响/功放 | 拆机乐园 | Arduino | 嵌入式OS | 程序设计

搜索
»论坛 › 嵌入式/单片机论坛 › 51单片机 › TM1638模块简化单片机代码包括8个按键8个指示灯8个数码 ...
返回列表 发新帖
查看: 3968|回复: 5
打印 上一主题 下一主题
收起左侧

TM1638模块简化单片机代码包括8个按键8个指示灯8个数码管

  [复制链接]
跳转到指定楼层
楼主
ID:278006 发表于 2022-1-17 16:13 | 只看该作者 |只看大图 回帖奖励 |倒序浏览 |阅读模式
TM1638 模块简化代码包括8个按键8个指示灯8个数码管

包括以下资源:
1、8个按键，
2、8个LED，
3、8位数码管
该模块所用芯片为TM1638，集合了以上三种单片机常见外围电路，是大特点是只需占用单片机三个IO口即可驱动，扫描显示和按键扫描不需要单片机干预，只需要读写相关寄存器送显示数据或检测按键，节省MCU资源。购买该模块提供实例程序。
试想下，我们平时使用单片机外接8个LED，8位数码管，8个按键这需占用多少个IO口，远不止3个IO口吧，但用这个模块就可以实现。经实际应用，按键灵敏显示效果良好。
接线方法：
VCC GND接5V电源， STB CLK DIO接单片机IO口。



手里有这个模块 开始搞不大明白参考了好多前辈大神的代码  进行了针对性的 简化 只针对 8个按键8个指示灯8个数码管  （TM1638可以扩展更多这里不保留）附带的芯片规格书 去掉了水银 不明白为什么自己公司的规格书还加水印，附件里 还有 模块原理图尺寸图
以及 键盘扫描的分析


本人业余难免错误疏漏，请大家指正！

单片机源程序如下:
  1. #include <stc15series.h>
  2. #include <TM1638_drive.h>
  3. #include <delay.h>

  5. void sys_init()
  6. {
  7.         unsigned char i;
  8.        
  9.         init_TM1638();                                   //初始化TM1638

  11.         for(i=0;i<8;i++)
  12.                 Write_DATA(WeiL_tab[i],Num_tab[8]);                       //初始化寄存器
  13.         delayms(5000);
  14.         Write_LED(0x00);
  15.         for(i=0;i<8;i++)
  16.                 Write_DATA(WeiL_tab[i],0x00);                       //初始化寄存器

  18.         Write_DATA(WeiL_tab[6],Num_tab[0]);
  19.         Write_DATA(WeiL_tab[7],Num_tab[0]);       

  21. }
  22. void key_show()// 读取按键编码 并且显示出来，同时对应按键的LED灯亮
  23. {
  24.         unsigned char key=0;
  25.         key=Read_Onekey();
  26.                
  27.                 if(key>=1&&key<=64)
  28.                 {       
  29.                         Write_DATA(WeiL_tab[6],Num_tab[key/10]);
  30.                         Write_DATA(WeiL_tab[7],Num_tab[key%10]);         

  32.                         if(key==1)
  33.                         {
  34.                                 Write_LED(0x01);
  35.                         }
  36.                         else if(key==2)
  37.                         {
  38.                                 Write_LED(0x02);                 
  39.                         }
  40.                         else if(key==3)
  41.                         {
  42.                                 Write_LED(0x04);                  
  43.                         }
  44.                         else if(key==4)
  45.                         {
  46.                                 Write_LED(0x08);          
  47.                         }
  48.                         else if(key==5)
  49.                         {
  50.                                 Write_LED(0x10);          
  51.                         }
  52.                         else if(key==6)
  53.                         {
  54.                                 Write_LED(0x20);                  
  55.                         }
  56.                         else if(key==7)
  57.                         {
  58.                                 Write_LED(0x40);         
  59.                         }
  60.                         else if(key==8)
  61.                         {
  62.                                 Write_LED(0x80);                       
  63.                         }

  65.                         while(Read_Onekey()==key);                       //等待按键释放
  66.                 }
  67. }

  69. void main()
  70. {
  71.        
  72.        
  73.        
  74.         sys_init();

  76.         while(1)
  77.         {
  78.                
  79.         key_show();
  80.         }
  81. }
复制代码
本人业余难免错误疏漏，请大家指正！
Keil代码下载:
TM1638驱动 - 简化.zip (1.01 MB, 下载次数: 141)

评分

参与人数 1黑币 +50 收起 理由
admin + 50 共享资料的黑币奖励！

查看全部评分

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

使用道具 举报

沙发
ID:981841 发表于 2023-4-23 11:20 | 只看该作者
只有第一个按键可以使用
回复

使用道具 举报

板凳
ID:996773 发表于 2023-4-23 13:12 | 只看该作者
本人在雅马哈收音控制系统中用上了楼主的1638模块和按键，显示部分是没有问题，按键部分如果

启用按键读取会产生随机频点的细微干扰，在程序上过几十或者一百个周期低频率读取按键会减轻

干扰，1638供电装大电容滤波仍然无法解决，在收音系统用这个模块大神要谨慎些，希望有技术更

高的大神有解决方法

51hei.jpg (767.22 KB, 下载次数: 84)

51hei.jpg
回复

使用道具 举报

地板
ID:1033105 发表于 2023-10-23 17:06 | 只看该作者
734585 发表于 2023-4-23 11:20
只有第一个按键可以使用

我用的是stc8g1k08a,频率用下载器设定11.0592，试运行这段代码也是只能亮一个灯，把这个代码移植到stc8h1k16可以点亮8个，频率11.0592，后来把stc8g1k08a的频率改成12M就可以点亮8个灯了，不知道什么原因。
回复

使用道具 举报

5#
ID:433219 发表于 2023-10-24 08:40 | 只看该作者
3个K，可以3x8＝24个按键
回复

使用道具 举报

6#
ID:1033105 发表于 2023-10-24 11:23 | 只看该作者
http://www.51hei.com/bbs/dpj-227298-1.html 参考大师的意见，在CLK后面加了3个空操作，STC8g1k08使用下载器的11.0592和12几个频率后灯都可以点亮了。

回复

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

Powered by 单片机教程网

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