做个15路输出的彩灯

红太狼 2022-08-19 15:24 125阅读 0赞

//想做个15路输出的彩灯，使用P0.0~P0.7和P2.0~P2.6端口输出；预置数为15个1（10进制32767）。  
//设置＋1（P3.3）和－1(P3.4)两个按钮。  
//可以减到十进制32047，到32047后如果继续按-1按钮，可以回到32767重新进行减法。  
//加法也一样，加到32767后，再按＋1按钮可以到32047重新＋1.  
//再设置一个按钮（P2.7），当P2.7接地时，在当前显示的数字上减去十进制数1712进行显示。  
//求单片机彩灯程序。

最佳答案：  
//============================  
\#include<reg52.h>  
sbit K\_1 = P3^3;       //＋  
sbit K\_2 = P3^4;       //－  
sbit D\_1 = P2^7;       //显示方式选择  
//----------------------------  
void delay\_ms(unsigned int n)  
\{  
    unsigned char j;  
    while(n--)  for(j = 0; j < 230; j++); //230是实验测试所得！  
\}

void main()  
\{  
    unsigned int m;  
    m = 32767;  
    while(1) \{  
      if (D\_1 == 1) \{  
        P2 = ~(m / 256);  
        P0 = ~(m % 256);  
      \}  
      else \{  
        P2 = ~((m - 1712) / 256);        
        P0 = ~((m - 1712) % 256);  
      \}  
      if (K\_1 == 0) \{  
        delay\_ms(10);  
        if (K\_1 == 0) \{  
          m++;  
          if (m > 32767)  m = 32047;  
          while(K\_1 == 0);  
      \} \}  
      if (K\_2 == 0) \{  
        delay\_ms(10);  
        if (K\_2 == 0) \{  
          m--;  
          if (m < 32047)  m = 32767;  
          while(K\_2 == 0);  
    \} \} \}  
\}  
//============================  
本程序用PROTEUS仿真画面如下： ![做个15路输出的彩灯 - 非著名博主 - 电子信息角落][15_ - _ -]

图片连接：[http://hi.baidu.com/%D7%F6%B6%F8%C2%DB%B5%C0/album/item/ac1d266356960de3e6113aa0.html][http_hi.baidu.com_D7_F6_B6_F8_C2_DB_B5_C0_album_item_ac1d266356960de3e6113aa0.html]  
//============================  
回答者：做而论道 - 十三级   2010-7-1 15:34  
提问者对于答案的评价：非常感谢，做的真好。有机会要多和你学习学习！！！！  
原题网址：[http://zhidao.baidu.com/question/163583437.html][http_zhidao.baidu.com_question_163583437.html]  
本程序的题目，虽然是流水灯，但是其真正应用是在车载对讲机的技术改造上。  
具体可参考：[http://blog.ednchina.com/qianwan/42633/category.aspx][http_blog.ednchina.com_qianwan_42633_category.aspx]

[15_ - _ -]: /images/20220731/29f524ce894740a69b93baca8337517a.png
[http_hi.baidu.com_D7_F6_B6_F8_C2_DB_B5_C0_album_item_ac1d266356960de3e6113aa0.html]: http://hi.baidu.com/%D7%F6%B6%F8%C2%DB%B5%C0/album/item/ac1d266356960de3e6113aa0.html
[http_zhidao.baidu.com_question_163583437.html]: http://zhidao.baidu.com/question/163583437.html
[http_blog.ednchina.com_qianwan_42633_category.aspx]: http://blog.ednchina.com/qianwan/42633/category.aspx