标题: 我的单片机跑马灯c语言源程序 [打印本页]

---

作者: moli111    时间: 2018-4-9 22:06
标题: 我的单片机跑马灯c语言源程序
单片机跑马灯源程序如下:

1. /*编译环境**************************************
   
2. 功能：跑马灯实验,依靠程序延时控制跑马灯
   
3. CPU:  STC12C5A系列
   
4. IDE:  KEIL uVission2 V2.4a
   
5. ************************************************/
   
6. 
   
7. /*资源分配**************************************
   
8. P0:        跑马灯
   
9. P33:跑马灯整体控制
   
10. P24-P27:数码管控制
    
11. ************************************************/
    
12. 
    
13. #include        "stc12c5a.h"
    
14. 
    
15. #define                Dtube_SEG3        P27                                                //每一位的数码管总控IO定义
    
16. #define                Dtube_SEG2        P26
    
17. #define                Dtube_SEG1        P25
    
18. #define                Dtube_SEG0        P24
    
19. #define                LED_SEG                P33                                                //跑马灯总控IO定义
    
20. 
    
21. #define                HORSE_BUS        P0                                                //跑马灯定义
    
22. 
    
23. void Delay_Time(unsigned int time)                                //延时函数
    
24. {
    
25.         while(time>0)
    
26.                 time--;
    
27. }
    
28. 
    
29. void main(void)
    
30. {
    
31.         unsigned char horse_led;
    
32. 
    
33.         P2M1&=~0xf0;                                                                //P2口                7 6 5 4 3 2 1 0
    
34.                                                                                                 //                        O O O O                        :数码管总控IO为强推挽输出
    
35.                                                                                                 //P2M1      0 0 0 0
    
36.         P2M0|=0xf0;                                                                        //P2M0                1 1 1 1
    
37. 
    
38.         P3M1&=~0x08;                                                                //P3口                7 6 5 4 3 2 1 0
    
39.                                                                                                 //                                O                :跑马灯总控IO为强推挽输出
    
40.                                                                                                 //P3M1              0
    
41.         P3M0|=0x08;                                                                        //P3M0                        1
    
42. 
    
43.         Dtube_SEG0=0;                                                                //关闭数码管显示
    
44.         Dtube_SEG1=0;
    
45.         Dtube_SEG2=0;
    
46.         Dtube_SEG3=0;
    
47. 
    
48.         LED_SEG=1;                                                                        //打开跑马灯显示
    
49. 
    
50.         horse_led=1;                                                                //跑马灯初始值
    
51. 
    
52.         for(;;)
    
53.         {
    
54.                 HORSE_BUS=horse_led;                                        //把跑马灯的值送出,点亮一个灯
    
55.                 horse_led<<=1;                                                        //把跑马灯的值左移,准备点亮下一个灯.更改此处可以改变方向
    
56.                 if(horse_led==0)                                                //直到点亮最后一个灯,
    
57.                 {
    
58.                         horse_led=1;                                                //再回到第一个灯
    
59.                 }
    
60.                 Delay_Time(50000);                                                //延时,更改此处可以改变周期
    
61. 
    
62.         }
    
63. }
    
64. 
    

复制代码

所有资料51hei提供下载:
跑马灯1.zip (19.19 KB, 下载次数: 8)

2018-4-9 22:04 上传

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

---

欢迎光临 (http://www.51hei.com/bbs/)

Powered by Discuz! X3.1