51单片机PWM水滴滴落效果流水灯程序

此程序的电路图下载：http://www.51hei.com/f/ks51.pdf   

1. 
   
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};
    
21. 
    
22. ENLED=0;ADDR3=1;
    
23. ADDR0=0;ADDR1=1;ADDR2=1;
    
24. P25=1;
    
25. P0=0xff;
    
26. P1=0xFF;
    
27. 
    
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. }
    

复制代码

PWM水滴滴落效果流水灯程序