标题: 基于Proteus8仿真和keil4的单片机键控流水灯 [打印本页]
作者: ponuyy    时间: 2018-9-30 19:00
标题: 基于Proteus8仿真和keil4的单片机键控流水灯
K1是总开关，当K1首次按下时，流水灯由下往上流动；当K2按下时停止流动且全部灯灭；当K3按下时使灯由上往下流动，K4则使灯由下往上运动。

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


单片机源程序如下:
  1. # include <reg51.h>

  3. unsigned char led[]= {0xfe,0xfd,0xfb,0xf7};
  4. void delay(unsigned char time)
  5. {
  6.      unsigned int j=15000;
  7.          for(;time> 0;time--)
  8.             for(;j> 0;j--);

  10. }
  11. void main()
  12. {
  13.     bit dir=0,run=0;
  14.      char i;
  15.     while(1)
  16.         {
  17.      switch (P0&0x0f)
  18.      {
  19.       case 0x0e:run=1;break;
  20.       case 0x0d:run=0,dir= 1;break;
  21.       case 0x0b:dir=1;break;
  22.       case 0x07:dir=0;break;
  23.      }
  24.     if (run)
  25.       if (dir)
  26.           for (i=0;i<=3;i++)
  27.                   {
  28.              P2=led[i];
  29.              delay(200);
  30.            }
  31.          else
  32.             for(i=3;i>=0;i--)
  33.                         {
  34.              P2=led[i];
  35.              delay(200);
  36.             }
  37.              else P2= 0xff;
  38.      }}
复制代码

所有资料51hei提供下载:
键控流水灯.zip (62.15 KB, 下载次数: 38)


0.png (17.39 KB, 下载次数: 40)

0.png
作者: chen232001    时间: 2018-10-5 19:39
不错的例程
作者: madyu    时间: 2019-12-10 22:46
灯亮不起来呀




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