标题: 单片机控制数码管显示按键数字左移的Proteus仿真+程序 [打印本页]
作者: 2180eue    时间: 2019-4-15 11:36
标题: 单片机控制数码管显示按键数字左移的Proteus仿真+程序
led8位数码管显示按键数字，同时数字左移



单片机源程序如下:
  1. #include<reg51.h>
  2. #include<intrins.h>
  3. #define uchar unsigned char
  4. #define uint unsigned int
  5. uchar code table[]={0x3f,0x06,0x5b,0x4f,0x66,0x6d,0x7d,0x07,0x7f,0x6f,0x77,0x7c,0x39,0x5e,0x79,0x71,0x00};
  6. uchar  Display_Buffer[]={16,16,16,16,16,16,16,16} ;
  7. void delay(uint z)
  8. {
  9.         uint x,y;
  10.         for(x=z;x>0;x--)
  11.                 for(y=110;y>0;y--);
  12. }
  13. kscan(void)
  14. {
  15.         uchar i,temp,num=16;
  16.         for(i=0;i<4;i++)
  17.         {
  18.                 P3=_crol_(0xef,i);
  19.                 temp=P1;
  20.                 temp=temp&0x0f;
  21.                 if(temp!=0x0f)
  22.                 {
  23.                         delay(20);
  24.                         temp=P1;
  25.                         temp=temp&0x0f;
  26.                         if(temp!=0x0f)
  27.                         {
  28.                                  temp=(P3&0x0f0)|(P1&0x0f);
  29.                                 switch(temp)
  30.                                 {
  31.                                         case 0xe7:num=0;break;
  32.                                         case 0xeb:num=4;break;
  33.                                         case 0xed:num=8;break;
  34.                                         case 0xee:num=12;break;
  35.         
  36.                                         case 0xd7:num=1;break;
  37.                                         case 0xdb:num=5;break;
  38.                                         case 0xdd:num=9;break;
  39.                                         case 0xde:num=13;break;
  40.         
  41.                                         case 0xb7:num=2;break;
  42.                                         case 0xbb:num=6;break;
  43.                                         case 0xbd:num=10;break;
  44.                                         case 0xbe:num=14;break;
  45.         
  46.                                         case 0x77:num=3;break;
  47.                                         case 0x7b:num=7;break;
  48.                                         case 0x7d:num=11;break;
  49.                                         case 0x7e:num=15;break;
  50.                                         default:break;
  51.                                 
  52.                                 }
  53.                                 while((temp&0x0f)!=0x0f)
  54.                                 {
  55.                                         temp=P1;
  56.                                 }
  57.                         }
  58.                 }
  59.         }
  60.    return num;
  61. }

  63. void main()
  64. {
  65.          int k,m=0x7f,num;
  66.         P0=0x00;
  67.         P2=0xff;
  68.         while(1)
  69.         {
  70.                 num=kscan();
  71.                 if(num!=16)
  72.                 {
  73.                         for(k=1;k<8;k++)
  74.                         {
  75.                                 Display_Buffer[k-1]=Display_Buffer[k];
  76.                         }
  77.                         Display_Buffer[7]=num;
  78.                         num=16;
  79.                 }
  80.                 for(k=0;k<8;k++)
  81.                 {
  82.                         m=_crol_(m,1);
  83.                         P2=m;
  84.                         P0=table[Display_Buffer[k]];
  85.                         delay(2);
  86.                 }
  87.         }
  88. }
复制代码

所有资料51hei提供下载:
sy5.zip (75 KB, 下载次数: 36)


作者: q348034246    时间: 2019-10-22 23:10
为什么没有dns文件
作者: q348034246    时间: 2019-10-22 23:11
为什么没有dns文件
作者: 51hei团团    时间: 2019-10-22 23:47
q348034246 发表于 2019-10-22 23:10
为什么没有dns文件

Proteus新版都是pdsprj文件了,dsn文件已经放弃了
作者: 10957    时间: 2019-10-25 16:26
楼主很给力，帮助很大
作者: fancunwu    时间: 2019-10-25 22:30
补充楼主的仿真    矩阵式键盘按键值的数码管左移动显示

矩阵式键盘按键值的数码管左移动显示实验WinRAR ZIP 压缩文件.zip

40.26 KB, 下载次数: 18, 下载积分: 黑币 -5





欢迎光临 (http://www.51hei.com/bbs/) Powered by Discuz! X3.1