单片机论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

搜索
查看: 77|回复: 0
收起左侧

51单片机驱动CT1642数码管显示源程序

[复制链接]
ak48mi 发表于 2020-8-1 11:35 | 显示全部楼层 |阅读模式
拆解电视机顶盒找到带CT1642控制的数码管 在网上找到代码修改了一下 没有解决按键检测的问题  可根据自己的需求修改对应引脚

制作出来的实物图如下:
IMG_20200801_113426.jpg IMG_20200801_113432.jpg
单片机源程序如下:
  1. sbit DAT=P2^2;
  2. sbit CLK=P2^1;
  3. sbit KEY=P2^0;
  4. u8 NixieTable[]={0x3F,0x06,0x5B,0x4F,0x66,0x6D,0x7D,0x07,0x7F,0x6F};
  5. u8 NixieTablepos[]={0,0x02,0x04,0x08};
  6. void CT1642_Write(u8 Pos, u8 Val)
  7. {
  8. u8 i,Posn;
  9. // 1、移18位:对应C1--C4、6位空、Q2--Q9
  10. Posn=~Pos;
  11. for(i=0; i<4; i++)//C1--C4
  12. {
  13.   DAT=Posn & 0x01;
  14.   Posn >>= 1;
  15.   CLK=0;         CLK=1;
  16. }
  17. for(i=0; i<6; i++)//6位空
  18. {
  19.   DAT=1;
  20.   CLK=0;         CLK=1;
  21. }
  22. for(i=0; i<8; i++)//Q2--Q9
  23. {
  24.   DAT=Val & 0x01;
  25.   Val >>= 1;
  26.   CLK=0;         CLK=1;
  27. }
  28. // 2、锁存
  29. CLK=1; DAT=0;         DAT=1;
  30. // 3、输出
  31. CLK=0; DAT=0;         DAT=1;
  32. }

  33. void NixieTabledisplay(unsigned int number)//ct1642数码管显示数字
  34. {
  35.   CT1642_Write(NixieTablepos[1],NixieTable[number%10]);
  36.         number/=10;
  37.         Delayms(1);
  38.   CT1642_Write(NixieTablepos[2],NixieTable[number%10]);
  39.         number/=10;
  40.         Delayms(1);
  41.         CT1642_Write(NixieTablepos[3],NixieTable[number%10]);
  42.         Delayms(1);
  43. }

  44. void NixieTabledisplayonoff(u8 state)
  45. {
  46.         if(state)//显示ON
  47.         {CT1642_Write(NixieTablepos[1],0x37);
  48.         Delayms(1);
  49.         CT1642_Write(NixieTablepos[2],0x5C);
  50.         Delayms(1);
  51.         }
  52.         else//显示OFF
  53.         {
  54.          CT1642_Write(NixieTablepos[1],0x71);
  55.         Delayms(1);
  56.   CT1642_Write(NixieTablepos[2],0x71);
  57.         Delayms(1);
  58.         CT1642_Write(NixieTablepos[3],0x5C);
  59.         Delayms(1);
  60.         }
  61.         
  62. }
复制代码


IMG_20200801_113442.jpg

CT1642.zip

1 KB, 下载次数: 3, 下载积分: 黑币 -5

评分

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

查看全部评分

回复

使用道具 举报

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

本版积分规则

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

Powered by 单片机教程网

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