找回密碼
 立即注冊

QQ登錄

只需一步,快速開始

搜索
查看: 5835|回復(fù): 0
打印 上一主題 下一主題
收起左側(cè)

由38譯碼器驅(qū)動(dòng)的數(shù)碼管單片機(jī)程序帶proteus仿真

[復(fù)制鏈接]
跳轉(zhuǎn)到指定樓層
樓主
適合新手學(xué)習(xí)仿真38譯碼器驅(qū)動(dòng)的數(shù)碼管原理圖如下(proteus仿真工程文件可到本帖附件中下載)


單片機(jī)源程序如下:
  1. #include<reg51.h>
  2. #define uchar unsigned char
  3. #define uint unsigned int
  4. uchar duanma[]={0x3f,0x06,0x5b,0x4f,0x66,0x6d,0x7d,0x07,0x7f,0x6f,0x77,0x7c,0x39,0x5e,0x79,0x71};   
  5. sbit A0=P2^2;
  6. sbit A1=P2^3;
  7. sbit A2=P2^4;
  8. uchar a,t,x,y;                 
  9. void delay(void)
  10. {
  11.     unsigned char i=0,j=0;
  12.     for(i=0;i<100;i++);
  13.         for(j=0;j<20;j++);
  14. }
  15. void Timer0() interrupt        1        //中斷函數(shù)  中斷方式1
  16. {
  17.         t++;
  18.         TH0=0x4C;  //計(jì)數(shù)器賦初值   下同
  19.         TL0=0x00;
  20. }
  21. void data_tim()
  22. {
  23.         if(t==20)
  24.         {
  25.                 a--;
  26.                 t=0;
  27.         }
  28.         x=a/10;
  29.         y=a%10;       
  30. }
  31. void display()
  32. {
  33.     A1=A2=A0=0;    //38譯碼器的位碼
  34.     P0=duanma[x];   //八個(gè)數(shù)碼管的段碼
  35.     delay();
  36.         P0=0;
  37.         A1=A2=0;A0=1;
  38.         P0=duanma[y];
  39.         delay();
  40.     P0=0;       //消隱       
  41. }
  42. void init_t()
  43. {
  44.         TMOD=0x01;
  45.         TH0=0x4C;
  46.         TL0=0x00;
  47.         ET0=1;                                                                                                                                                                                       
  48.         TR0=1;
  49.         EA=1;
  50. }
  51. void main(void)
  52. ……………………

  53. …………限于本文篇幅 余下代碼請從51黑下載附件…………
復(fù)制代碼

所有資料51hei提供下載:
38譯碼器驅(qū)動(dòng)數(shù)碼管.rar (31.3 KB, 下載次數(shù): 32)


評(píng)分

參與人數(shù) 1黑幣 +50 收起 理由
admin + 50 共享資料的黑幣獎(jiǎng)勵(lì)!

查看全部評(píng)分

分享到:  QQ好友和群QQ好友和群 QQ空間QQ空間 騰訊微博騰訊微博 騰訊朋友騰訊朋友
收藏收藏 分享淘帖 頂 踩
回復(fù)

使用道具 舉報(bào)

您需要登錄后才可以回帖 登錄 | 立即注冊

本版積分規(guī)則

手機(jī)版|小黑屋|51黑電子論壇 |51黑電子論壇6群 QQ 管理員QQ:125739409;技術(shù)交流QQ群281945664

Powered by 單片機(jī)教程網(wǎng)

快速回復(fù) 返回頂部 返回列表