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

 找回密码
 立即注册

QQ登录

只需一步，快速开始

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

搜索
»论坛 › 嵌入式/单片机论坛 › 51单片机 › 单片机LED数码管显示数字及左移程序Proteus仿真(独立按 ...
返回列表 发新帖
查看: 1670|回复: 0
打印 上一主题 下一主题
收起左侧

单片机LED数码管显示数字及左移程序Proteus仿真(独立按键)

[复制链接]
跳转到指定楼层
楼主
ID:1048098 发表于 2022-11-28 21:55 | 只看该作者 |只看大图 回帖奖励 |倒序浏览 |阅读模式
单片机独立按键控制LED数码管显示数字及左移
仿真原理图如下（proteus仿真工程文件可到本帖附件中下载）



单片机源程序如下:
  1. #include<reg51.h>
  2. #include<intrins.h>
  3. #define uchar unsigned char
  4. #define uint unsigned int
  5. disp_DK[]= {0xc0,0xf9,0xa4,0xb0,0x99,
  6. 0x92,0x82,0xf8,0x80,0x90,0xbf};
  7. uchar find[]={0,0,0,0};

  9. void Delay_ms(uint xms)
  10. {
  11.         uchar t;
  12.         while (xms--)
  13.         for(t=0;t<120;t++);
  14. }

  16. uchar keychuli()
  17. {
  18.         uchar key;
  19.         P1=0xff;
  20.         key=P1;
  21.         key=~key;
  22.         key=key&0xff;
  23.         return key;
  24. }

  26. uchar keyscan()
  27.         {
  28.                 uchar keys,keyzhi;
  29.                 keys= keychuli();
  30.                 if(keys!=0)
  31.                 {Delay_ms(1);
  32.                         Delay_ms(1);
  33.                         keys=keychuli();
  34.                         if(keys!=0)
  35.                         {
  36.                                 keyzhi=keys;
  37.                                 while(keys!=0)
  38.                                 {       
  39.                                         Delay_ms(1) ;
  40.                                         keys=keychuli();
  41.                                 }
  42.                         }
  43.                 }
  44.         else keyzhi=0;
  45.         return keyzhi;
  46.         }
  47.        
  48. void display()
  49. {
  50.         uchar i, k, aa=0x08;
  51.         for(i=0;i<4;i++)
  52.         {
  53.                 P2=aa;
  54.                 k=find[i];
  55.                 P0=disp_DK[k];
  56.                 aa=_cror_(aa,1) ;
  57.                 Delay_ms(1);
  58.                 P0=0xff;
  59.         }
  60. }

  62. void dischuli()
  63. {
  64.         find[3]=find[2];
  65.         find[2]=find[1];
  66.         find[1]=find[0];
  67. }

  69. void keyaa()
  70. {
  71.         find[0]=1;
  72. }
  73. void keybb()
  74. {
  75.         find[0]=2;
  76. }
  77. void keycc()
  78. {
  79.         find[0]=3;
  80. }
  81. void keydd()
  82. {
  83.         find[0]=4;
  84. }
  85. void keyee()
  86. {
  87.         find[0]=5;
  88. }
  89. void keyff()
  90. {
  91.         find[0]=6;
  92. }
  93. void keygg()
  94. {
  95.         find[0]=7;
  96. }
  97. void keyhh()
  98. {
  99.         find[0]=8;
  100. }

  102. void main(void)
  103. { uchar keys;
  104.   while(1)
  105.                 {
  106.                 display();
  107.                 keys=keyscan();
  108.                 if (keys!=0) {dischuli();}
  109.                 switch(keys)
  110.                         {case 0x00:break;
  111.                         case 0x01:keyaa();break;
  112.                         case 0x02:keybb();break;
  113.                         case 0x04:keycc();break;
  114.                         case 0x08:keydd();break;
  115.                         case 0x10:keyee();break;
  116.                         case 0x20:keyff();break;
  117.                         case 0x40:keygg();break;
  118.                         case 0x80:keyhh();break;
  119.                         default:break;
  120.                         }
  121.                 }
  122. }
复制代码

Keil代码与Proteus仿真下载:
LED数码管显示.zip (91.66 KB, 下载次数: 24)

评分

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

查看全部评分

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

使用道具 举报

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

本版积分规则

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

Powered by 单片机教程网

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