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

 找回密码
 立即注册

QQ登录

只需一步，快速开始

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

搜索
»论坛 › 嵌入式/单片机论坛 › 51单片机 › 一个单片机按键控制跑马灯流水灯切换
返回列表 发新帖
查看: 7319|回复: 0
收起左侧

一个单片机按键控制跑马灯流水灯切换

[复制链接]
ID:703953 发表于 2020-3-19 16:38 | 显示全部楼层 |阅读模式
51hei.png

单片机源程序如下:
  1. #include<AT89X52.H>
  2. int main()
  3. {
  4.         unsigned int i;
  5.         unsigned char j;
  6.         unsigned char LEDState=0;//0 闪烁 1 跑马灯上之下 2 流水灯上之下 3 流水灯下之上 4跑马灯下之上
  7.         //识别按键
  8.         while(1)
  9.         {
  10.                 if(P1_0==0)//按键按下
  11.                 {
  12.                         //消抖 延时 10S
  13.                         for(i=0;i<1000;i++);
  14.                         //等待按键抬起，直到按键抬起为止
  15.                         while(P1_0==0);
  16.                         //消抖
  17.                         for(i=0;i<1000;i++);//按键抬起以后做的事
  18.                         LEDState=(LEDState+1)%5;
  19.                 }
  20.                
  21.                 if(LEDState==0)//闪烁
  22.                 {
  23.                         P2=0X00;
  24.                         for(i=0;i<20000;i++);
  25.                         P2=~P2;
  26.                         for(i=0;i<20000;i++);
  27.                 }
  28.                 else if(LEDState==1)//上到下跑马
  29.                 {
  30.                         for(j=0;j<8;j++)
  31.                         {
  32.                                 P2=~(1<<j);
  33.                                 for(i=0;i<20000;i++);
  34.                         }
  35.                 }
  36.                 else if(LEDState==2)//上到下流水
  37.                 {
  38.                         P2=0XFF;
  39.                         for(j=0;j<8;j++)
  40.                         {
  41.                                 P2=P2&(~(1<<j));
  42.                                 for(i=0;i<20000;i++);
  43.                         }
  44.                         for(j=0;j<8;j++)
  45.                         {
  46.                                 P2=P2|(1<<j);
  47.                                 for(i=0;i<20000;i++);
  48.                         }
  49.                        
  50.                 }
  51.                 else if(LEDState==3)//下到上流水
  52.                 {
  53.                         P2=0XFF;
  54.                         for(j=0;j<8;j++)
  55.                         {
  56.                                 P2=P2&(~(1<<(7-j)));
  57.                                 for(i=0;i<20000;i++);
  58.                         }
  59.                         for(j=0;j<8;j++)
  60.                                 {
  61.                                         P2=P2|(1<<(7-j));
  62.                                         for(i=0;i<20000;i++);
  63.                                 }
  64.                        
  65.                 }
  66.                 else if(LEDState==4)//下到上跑马
  67.                 {
  68.                         for(j=0;j<8;j++)
  69.                         {
  70.                                 P2=~(1<<(7-j));
  71.                                 for(i=0;i<20000;i++);
  72.                         }
  73.                 }
  74.         }
  75. }
复制代码

所有资料51hei提供下载:
RZH跑马流水切换.zip (75.88 KB, 下载次数: 35)

评分

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

查看全部评分

回复

使用道具 举报

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

本版积分规则

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

Powered by 单片机教程网

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