tm1638單片機(jī)程序+仿真模塊 TM1638.DLL

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


單片機(jī)源程序如下:

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. //共陰數(shù)碼管顯示代碼
    
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)                        //寫(xiě)數(shù)據(jù)函數(shù)
    
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)                                        //讀數(shù)據(jù)函數(shù)
    
35. {
    
36.         unsigned char i;
    
37.         unsigned char temp=0;
    
38.         DIO=1;        //設(shè)置為輸入
    
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)                //發(fā)送命令字
    
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);                           //讀鍵掃數(shù)據(jù) 命令
    
60.         for(i=0;i<4;i++)               
    
61.                 c[i]=TM1638_Read();
    
62.         STB=1;                                                   //4個(gè)字節(jié)數(shù)據(jù)合成一個(gè)字節(jié)
    
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)                //指定地址寫(xiě)入數(shù)據(jù)
    
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)        //單獨(dú)控制一個(gè)LED函數(shù)，num為需要控制的led序號(hào)，flag為0時(shí)熄滅，不為0時(shí)點(diǎn)亮
    
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函數(shù)，LED_flag表示各個(gè)LED狀態(tài)
    
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初始化函數(shù)
    
100. void init_TM1638(void)
     
101. {
     
102.         unsigned char i;
     
103.         Write_COM(0x8b);       //亮度 (0x88-0x8f)8級(jí)亮度可調(diào)
     
104.         Write_COM(0x40);       //采用地址自動(dòng)加1
     
105.         STB=0;                           //
     
106.         TM1638_Write(0xc0);    //設(shè)置起始地址
     
107. 
     
108.         for(i=0;i<16;i++)           //傳送16個(gè)字節(jié)的數(shù)據(jù)
     
109.                 TM1638_Write(0x00);
     
110.         STB=1;
     
111. }
     
112. #endif
     

復(fù)制代碼

TM1638.DLL文件要放到MODELS目錄里面才能仿真,還有LIBRARY目錄的文件也要放進(jìn)去,要用Proteus7.8版本:
TM1638C51仿真和程序.zip (86.13 KB, 下載次數(shù): 216)

2020-7-23 14:10 上傳

點(diǎn)擊文件名下載附件
下載積分: 黑幣 -5

wwh2382 發(fā)表于 2020-8-3 21:03
將tm1638.dll放到models文件夾，運(yùn)行仿真文件還是報(bào)錯(cuò)，請(qǐng)問(wèn)該怎么辦？

需要用Proteus7.5版本才行,我測(cè)試了

將tm1638.dll放到models文件夾，運(yùn)行仿真文件還是報(bào)錯(cuò)，請(qǐng)問(wèn)該怎么辦？

樓主好 最近在學(xué)習(xí)這個(gè)1638芯片，我的按鍵數(shù)碼管是 接的GRID5 GRID8 4個(gè)數(shù)碼管，這個(gè)程序該修改哪里呢

這仿真電路，明顯看到短路了。

非常不錯(cuò)

將tm1638.dll放到models文件夾，運(yùn)行仿真文件還是報(bào)錯(cuò)，請(qǐng)問(wèn)該怎么辦？

mengfanhua2022 發(fā)表于 2022-2-3 20:55
將tm1638.dll放到models文件夾，運(yùn)行仿真文件還是報(bào)錯(cuò)，請(qǐng)問(wèn)該怎么辦？

需要用Proteus7.5這個(gè)版本 其他都不行  你看我在樓上發(fā)的動(dòng)圖

唉，沒(méi)首先自己實(shí)踐一遍，看了大家的加復(fù)就安裝了個(gè)7.5版本，后來(lái)事實(shí)證明8.13版本是可以仿真的！不知道那些說(shuō)只有7.5能仿真的人是咋操作的

不知道能不能仿真成功？

仿真出錯(cuò)誤是為什么

8.7 SP3 仿真成功!

tm1638.dll是怎么做出來(lái)的？