标题: 单片机8个led灯自上而下循环，通过按键改变方向、速度 [打印本页]
作者: 有一天雨也    时间: 2018-3-29 10:18
标题: 单片机8个led灯自上而下循环，通过按键改变方向、速度
流水灯，初学之系列。

单片机源程序如下:
  1. /*--------------------------------------------------
  2. 文件名称:led.c
  3. 功能：利用LED实现跑马灯效果
  4. 说明：8个led灯自上而下循环，通过按键改变方向、速度。
  5. ---------------------------------------------------*/
  6. #include<reg52.h>
  7. #include<intrins.h>
  8. #define uchar unsigned char
  9. #define uint  unsigned int
  10. unsigned char L[8]={0xfe,0xfd,0xfb,0xf7,0xef,0xdf,0xbf,0x7f};
  11. sbit key1=P1^0;
  12. sbit key2=P1^1;
  13. sbit key3=P1^2;
  14. uint dir=0,n=2500;
  15. void delay(uint z)//延时函数
  16. {
  17.         uint x,y;
  18.         for(x=z;x>0;x--)
  19.            for(y=100;y>0;y--);
  20. }
  21.        
  22. void speedminus()//减速函数
  23. {
  24.         if(n==5000) n=5000;//最慢4s
  25.                         else n=n+625;
  26. }
  27.                                
  28. void speedplus(){//加速函数
  29.         if(n==625) n=625;//最快0.5s
  30.                 else n=n-625;
  31. }
  32.                
  33. void main()//主函数
  34.                 {
  35.                         uint i=0;
  36.                        
  37.                         while(1){
  38.                         for(;i<8;){
  39.                         P0=L[i];
  40.                         delay(n);
  41.                         if(key1==0) dir=1-dir;//反向循环
  42.                         if(key2==0) speedminus();//按一次按键，延时时间变长
  43.                         if(key3==0) speedplus();//按一次按键，延时时间变短
  44.                         if(dir==0)
  45.                         {
  46.                                 i++;
  47.                                 if(i==8)//实现循环效果
  48.                                         i=0;
  49.                         break;
  50.                         }
  51.                         else
  52.                                 {
  53.                                 i--;
  54.                                 if(i>8)
  55.                                         i=7;
  56.                         break;
  57.                                 }
  58.                 }
  59.         }               
  60. }
复制代码

所有资料51hei提供下载:
新建 Microsoft Word 文档.docx (13.13 KB, 下载次数: 19)



作者: ASLJ    时间: 2021-5-23 14:24
请问有电路图看吗



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