標(biāo)題: C51多開關(guān)控制LED霓虹流水形式 程序+仿真原理圖 [打印本頁]
作者: 唐長老    時間: 2016-12-11 20:50
標(biāo)題: C51多開關(guān)控制LED霓虹流水形式 程序+仿真原理圖
用AT89C51實現(xiàn)各開關(guān)對應(yīng)流水形式，按下一個開關(guān)實現(xiàn)一種，當(dāng)同時按下兩個開關(guān)時停止工作。
Protues原理圖
新人初次發(fā)帖，各位壇友多多關(guān)照


源程序：
  1. #include<regx51.h>
  2. #include<intrins.h>
  3. void delay(unsigned int i)
  4. {
  5.         while(i--);
  6. }
  7. void move_l(unsigned char p)
  8. {
  9.         unsigned char i;
  10.         P1=p;
  11.         for(i=0;i<8;i++)
  12.         {
  13.                 delay(20000);
  14.                 P1=_crol_(P1,1);

  16.         }
  17. }

  19. void move_r(unsigned char p)
  20. {
  21.     unsigned char i;
  22.         P1=p;
  23.         for(i=0;i<8;i++)
  24.         {
  25.                  delay(20000);
  26.                  P1=_cror_(P1,1);
  27.         }
  28. }

  30. void move_to_m(unsigned char p)
  31. {
  32.         unsigned char i;
  33.         for(i=0;i<4;i++)
  34.         {
  35.                 P1=((p<<i)&0x0F)|(0xF0&(p>>i));
  36.                 delay(20000);
  37.         }
  38. }

  40. void move_from_m(unsigned char p)
  41. {
  42.         unsigned char i;
  43.         for(i=0;i<4;i++)
  44.         {
  45.                 P1=((p&0xF0)<<i)|((p&0x0F)>>i);
  46.                 delay(20000);
  47.         }
  48. }

  50. void main()
  51. {
  52.         unsigned char sw;
  53.         while(1)
  54.         {
  55.                 sw=P0&0x3f;
  56.                 switch(sw)
  57.                 {
  58.                         case 0x3e:move_l(0xfe);break;
  59.                         case 0x3d:move_r(0x7f);break;
  60.                         case 0x3b:move_l(0xfc);break;
  61.                         case 0x37:move_r(0x3f);break;
  62.                         case 0x2f:move_to_m(0x7e);break;
  63.                         case 0x1f:move_from_m(0xe7);break;
  64.                         default:P1=0xff;break;
  65.                 }
  66.         }
  67. }
復(fù)制代碼


多開關(guān)控制LED霓虹流水形式仿真工程文件及源程序下載：
開關(guān)霓虹燈.zip (49.77 KB, 下載次數(shù): 16)

作者: admin    時間: 2017-1-7 14:57
好資料，51黑有你更精彩�。。�



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