標(biāo)題: 單片機(jī)8個(gè)led燈自上而下循環(huán)，通過按鍵改變方向、速度 [打印本頁(yè)]
作者: 有一天雨也    時(shí)間: 2018-3-29 10:18
標(biāo)題: 單片機(jī)8個(gè)led燈自上而下循環(huán)，通過按鍵改變方向、速度
流水燈，初學(xué)之系列。

單片機(jī)源程序如下:
  1. /*--------------------------------------------------
  2. 文件名稱:led.c
  3. 功能：利用LED實(shí)現(xiàn)跑馬燈效果
  4. 說明：8個(gè)led燈自上而下循環(huán)，通過按鍵改變方向、速度。
  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)//延時(shí)函數(shù)
  16. {
  17.         uint x,y;
  18.         for(x=z;x>0;x--)
  19.            for(y=100;y>0;y--);
  20. }
  21.        
  22. void speedminus()//減速函數(shù)
  23. {
  24.         if(n==5000) n=5000;//最慢4s
  25.                         else n=n+625;
  26. }
  27.                                
  28. void speedplus(){//加速函數(shù)
  29.         if(n==625) n=625;//最快0.5s
  30.                 else n=n-625;
  31. }
  32.                
  33. void main()//主函數(shù)
  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;//反向循環(huán)
  42.                         if(key2==0) speedminus();//按一次按鍵，延時(shí)時(shí)間變長(zhǎng)
  43.                         if(key3==0) speedplus();//按一次按鍵，延時(shí)時(shí)間變短
  44.                         if(dir==0)
  45.                         {
  46.                                 i++;
  47.                                 if(i==8)//實(shí)現(xiàn)循環(huán)效果
  48.                                         i=0;
  49.                         break;
  50.                         }
  51.                         else
  52.                                 {
  53.                                 i--;
  54.                                 if(i>8)
  55.                                         i=7;
  56.                         break;
  57.                                 }
  58.                 }
  59.         }               
  60. }
復(fù)制代碼

所有資料51hei提供下載:
新建 Microsoft Word 文檔.docx (13.13 KB, 下載次數(shù): 19)



作者: ASLJ    時(shí)間: 2021-5-23 14:24
請(qǐng)問有電路圖看嗎



歡迎光臨 (http://www.torrancerestoration.com/bbs/) Powered by Discuz! X3.1