标题: 51单片机PWM水滴滴落效果流水灯程序 [打印本页]
作者: 51黑芯片    时间: 2016-1-17 00:53
标题: 51单片机PWM水滴滴落效果流水灯程序
此程序的电路图下载：http://www.51hei.com/f/ks51.pdf   


  2. /**作者：网友 孤竹翼羽 **/
  3. //自已修正了下，可以在我的板子上运行了
  4. //水滴形成，并拖尾滴落
  5. #include <reg52.h>
  6. typedef unsigned char uint8;
  7. sbit ENLED = P0^4;
  8. sbit ADDR3 = P0^3;
  9. sbit ADDR2 = P0^2;
  10. sbit ADDR1 = P0^1;
  11. sbit ADDR0 = P0^0;
  12. sbit DB0 = P1^0;
  13. sbit P25=P2^5;
  14. void main()
  15. {
  16. unsigned char i,k,p,t,j;
  17. char l;
  18. unsigned char a[]={0,1,2,4,6,16,32,64};           //亮度数组以实现拖尾效果
  19. unsigned char b[]={0,34,48,59,68,76,84,91,97,103,109,114,119,123,126};   //时间数组以实现加速效果
  20. signed   char c[]={-7,-6,-5,-4,-3,-2,-1,0,1,2,3,4,5,6,7};

  22. ENLED=0;ADDR3=1;
  23. ADDR0=0;ADDR1=1;ADDR2=1;
  24. P25=1;
  25. P0=0xff;
  26. P1=0xFF;

  28. while(1)
  29. {
  30.   /******************************************************************************************************/
  31.   /****************************************水滴形成（渐变效果）******************************************/
  32.   /******************************************************************************************************/
  33.   k=0;
  34.   for(i=0;i<=252;i++)   
  35.   {         
  36.    if(0==(i%4))   
  37.     k++;     
  38.    for(t=0;t<=16;t++)
  39.    {        
  40.     DB0=0;
  41.     for(j=0;j<=96;j++)  
  42.      if(j==k)   
  43.       DB0=1;
  44.    }            
  45.   }   
  46.     /******************************************************************************************************/
  47.   /***********************************水滴掉下（加速与拖尾效果）*****************************************/
  48.   /******************************************************************************************************/
  49.   
  50.   for(j=0;j<=254;j++)
  51.   {
  52.    p=0;
  53.    for(k=0;k<=15;k++)
  54.    {
  55.     if(j==b[k]) l=c[k];
  56.    }
  57.   
  58.    for(i=0;i<=64;i++)
  59.    {
  60.     for(k=0;k<=7;k++)
  61.     {     
  62.      if(i==a[k])
  63.      {
  64.       p=p|(1<<k);
  65.       t=~p;
  66.       if(l>=0)
  67.       P1=~(t<<l);
  68.       else
  69.       P1=~(t>>-l);
  70.      }
  71.     }
  72.    }
  73.   }
  74. }
  75. }
复制代码



作者: bulia    时间: 2018-5-30 18:27
PWM水滴滴落效果流水灯程序



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