【proteus练一练2.13】K1-K4 控制 LED移位

proteus

/*  名称：K1-K4  控制 LED移位
  说明：按下 K1 时，P0口 LED上移一位；
   按下 K2 时，P0 口 LED下移一位；
   按下 K3 时，P2 口 LED上移一位；
   按下 K4 时，P2 口 LED下移一位；
*/
#include
#include
#define uchar unsigned char
#define uint unsigned int
//延时
void DelayMS(uint x)
{
uchar i;
while(x--)
for(i=0;i<120;i++);
}
//根据 P1 口的按键移动
LED
void Move_LED()
{
  if    ((P1&0x10)==0) P0=_cror_(P0,1);  //K1
else if((P1&0x20)==0) P0=_crol_(P0,1); //K2
else if((P1&0x40)==0) P2=_cror_(P2,1);  //K3
else if((P1&0x80)==0) P2=_crol_(P2,1); //K4
}
//主程序
void main()
{
uchar Recent_Key; //最近按键
P0=0xfe;
P2=0xfe;
P1=0xff;
Recent_Key=0xff;
while(1)
{
  if(Recent_Key!=P1)
  {
Recent_Key=P1; //保存最近按键
Move_LED();
DelayMS(10);
  }
}
}
proteus 仿真图：

游客
，如果您要查看本帖隐藏内容请回复

高先生 · 2012-2-13 11:36:33

赞一个

liliang0416 · 2012-2-14 00:29:51

把论坛搞活加油中！

李玲枫 · 2012-2-25 13:03:37

看看

其实蛮想 · 2012-2-25 21:15:59

看看~~

Lancet · 2012-5-8 17:31:45

再来个左右移动

陈辉 · 2013-1-29 13:37:34

谢谢

yefengling · 2013-11-27 10:33:18

看看啊啊啊。。。。

madaha0010 · 2014-1-17 23:55:27

学习

Giliable · 2016-7-19 12:41:58

【proteus练一练2.13】K1-K4 控制 LED移位

你眨眼萌死他啊ii · 2016-12-27 17:26:58

陌上花早 · 2016-12-27 23:31:58

看看

xiadandan · 2017-3-10 13:57:33

谢谢谢分享

123企鹅 · 2017-4-5 12:53:47

000

scccx8106 · 2017-4-27 10:29:10

单片机密码锁设计按键 6位密码 LCD1602

死神的艺术 · 2017-4-27 16:22:57

若需要拖长声音，可以调整 400 和800

李乐园 · 2017-10-22 17:09:06

想学

汪海燕 · 2017-10-22 23:30:50

赞一个……想看看

郭一 · 2017-10-29 19:08:23

感谢分享

wo想好好学习 · 2017-11-7 13:39:55

看看酷酷酷酷酷酷酷酷酷酷酷酷酷酷酷咳咳5

搜索历史

【proteus练一练2.13】K1-K4 控制 LED移位

相关推荐

29 条评论

评论

精选推荐

站长推荐 /6