tm1638单片机程序+仿真模块 TM1638.DLL

tm1638仿真原理图如下（proteus仿真工程文件可到本帖附件中下载）


单片机源程序如下:

1. #ifndef        _TM1638_H
   
2. #define        _TM1638_H
   
3. 
   
4. #include        <REGX51.H>
   
5. 
   
6. #define        DATA_COMMAND        0X40
   
7. #define        DISP_COMMAND        0x80
   
8. #define        ADDR_COMMAND        0XC0
   
9. 
   
10. //TM1638模块引脚定义
    
11. sbit        DIO=P1^0;
    
12. sbit        CLK=P1^1;
    
13. sbit        STB=P1^2;
    
14. 
    
15. //共阴数码管显示代码
    
16. unsigned char code tab[]={0x3F,0x06,0x5B,0x4F,0x66,0x6D,0x7D,0x07,
    
17.                            0x7F,0x6F,0x77,0x7C,0x39,0x5E,0x79,0x71};
    
18. 
    
19. 
    
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. }
    
98. 
    
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);    //设置起始地址
     
107. 
     
108.         for(i=0;i<16;i++)           //传送16个字节的数据
     
109.                 TM1638_Write(0x00);
     
110.         STB=1;
     
111. }
     
112. #endif
     

复制代码

TM1638.DLL文件要放到MODELS目录里面才能仿真,还有LIBRARY目录的文件也要放进去,要用Proteus7.8版本:
TM1638C51仿真和程序.zip (86.13 KB, 下载次数: 202)

2020-7-23 14:10 上传

点击文件名下载附件
下载积分: 黑币 -5

wwh2382 发表于 2020-8-3 21:03
将tm1638.dll放到models文件夹，运行仿真文件还是报错，请问该怎么办？

需要用Proteus7.5版本才行,我测试了

将tm1638.dll放到models文件夹，运行仿真文件还是报错，请问该怎么办？

楼主好 最近在学习这个1638芯片，我的按键数码管是 接的GRID5 GRID8 4个数码管，这个程序该修改哪里呢

这仿真电路，明显看到短路了。

非常不错

将tm1638.dll放到models文件夹，运行仿真文件还是报错，请问该怎么办？

mengfanhua2022 发表于 2022-2-3 20:55
将tm1638.dll放到models文件夹，运行仿真文件还是报错，请问该怎么办？

需要用Proteus7.5这个版本 其他都不行  你看我在楼上发的动图

唉，没首先自己实践一遍，看了大家的加复就安装了个7.5版本，后来事实证明8.13版本是可以仿真的！不知道那些说只有7.5能仿真的人是咋操作的

不知道能不能仿真成功？

仿真出错误是为什么

8.7 SP3 仿真成功!

tm1638.dll是怎么做出来的？