单片机开关控制心型LED闪烁状态源程序与Proteus仿真

Proteus通过使用单片机C51控制流水灯的闪硕状态，语言简单

仿真原理图如下（proteus仿真工程文件可到本帖附件中下载）


单片机源程序如下:

1. #include<reg51.h>
   
2. #include<intrins.h>
   
3. #define uchar unsigned char
   
4. #define uint unsigned int
   
5. sbit S1=P2^0;
   
6. sbit S2=P2^1;
   
7. sbit S3=P2^2;
   
8. sbit S4=P2^3;
   
9. uchar keyval;   //定义键值变量
   
10. void key_scan();        //按键扫描函数声明
    
11. void delayms(uint);       //延时函数声明
    
12. void pattern1();
    
13. void pattern2();
    
14. void pattern3();
    
15. void pattern4();
    
16. 
    
17. void main(void)
    
18. {
    
19. keyval=0;
    
20. while(1)
    
21. {
    
22.   key_scan();                         //调用按键扫描函数
    
23.   switch(keyval)                  
    
24.   {
    
25.    case 1:pattern1();break; //按键1被按下时执行操作
    
26.    case 2:pattern2();break; //按键2被按下时执行操作
    
27.    case 3:pattern3();break; //按键3被按下时执行操作
    
28.    case 4:pattern4();break; //按键4被按下时执行操作
    
29.   }
    
30. }
    
31. }
    
32. void key_scan(void)       //按键扫描函数定义
    
33. {
    
34. P2=0xff;
    
35. if((P2&0x0f)!=0x0f)
    
36. {
    
37.   delayms(100);    //按键消抖
    
38.   if(S1==0)
    
39.   keyval=1;
    
40.   if(S2==0)
    
41.   keyval=2;
    
42.   if(S3==0)
    
43.   keyval=3;
    
44.   if(S4==0)
    
45.   keyval=4;
    
46. }
    
47. }
    
48. void delayms(uint j)
    
49. {
    
50.         uchar i;
    
51.         for(;j>0;j--)
    
52.         {
    
53.                 i=250;
    
54.                 while(--i);
    
55.                 i=249;
    
56.                 while(--i);
    
57.         }
    
58. }
    
59. 
    
60. 
    
61. void pattern1()
    
62. {
    
63.   uchar i;
    
64.         P0=0x7f;
    
65.         P1=0xfe;
    
66.         for(i=0;i<8;i++)
    
67.         {delayms(200);
    
68.          P0=_cror_(P0,1);
    
69.          P1=_crol_(P1,1);
    
70.   }
    
71. }
    
72. 
    
73. void pattern2()
    
74. {
    
75.   uchar i,temp;
    
76.         temp=0xfe;
    
77.         for(i=0;i<8;i++)
    
78.         {delayms(200);
    
79.          P0=P1=temp;
    
80.          temp=temp<<1;
    
81.   }
    
82. }
    
83. 
    
84. void pattern3()
    
85. {
    
86.     P0=P1=0xff;
    
87.           delayms(200);
    
88.           P0=P1=0x00;
    
89.           delayms(200);
    
90. }
    
91. 
    
92. 
    
93. void pattern4()
    
94. {
    
95.   uchar i;
    
96.         P0=0x7f;
    
97.         for(i=0;i<8;i++)
    
98.         {delayms(200);
    
99.          P0=_cror_(P0,1);
    
100.   }        
     
101.         P0=0xff;
     
102.         P1=0xfe;
     
103.         for(i=0;i<8;i++)
     
104.         {delayms(200);
     
105.          P1=_crol_(P1,1);
     
106.   }
     
107.         P1=0xff;
     
108. }
     

复制代码

本人初学,仅供参考,存在错误和不足之处,请大家回帖多多指教,切勿照搬,文件下载:
以上的Keil5代码工程文件和Proteus仿真8.13下载:
以上代码下载.7z (60.43 KB, 下载次数: 16)

2022-6-2 20:03 上传

点击文件名下载附件
下载积分: 黑币 -5

刚试用了  发现要切换不同的闪烁只能在刚接通电源时才能，中途按下其他键没有反应，

我的也是这样的效果 只有复位后按按键可以切换 之后就切换不了