قاتناش چىرىغى 51 تىپلىق مىكرو كونتىروللىغۇچ

uyghurqut

قاتناش چىرىغىنىڭ خىزمەت پىرىنسىپى
  51  پىروگىراممىسى

1. //-----------------------------------------------------------------
   
2. // 名称: LED模拟交通灯
   
3. //-----------------------------------------------------------------
   
4. // 说明: 东西向绿灯亮若干秒后,黄灯闪烁,闪烁5次后亮红灯,
   
5. //                红灯亮后,南北向由红灯变为绿灯,若干秒后南北向黄灯闪烁,
   
6. //                闪烁5次后亮红灯,东西向绿灯亮,如此往复.
   
7. //                本例将时间设得较短是为了调试的时候能较快的观察到运行效果.
   
8. //       
   
9. //-----------------------------------------------------------------
   
10. #include
    
11. #define INT8U        unsigned char
    
12. #define INT16U        unsigned int
    
13. 
    
14. //
    
15. sbit  XG_kizl=P0^0;
    
16. sbit  XG_serik=P0^1;
    
17. sbit  XG_Yexil=P0^2;
    
18. //
    
19. sbit  JX_kizl=P0^3;
    
20. sbit  JX_serik=P0^4;
    
21. sbit  JX_Yexil=P0^5;
    
22. //闪烁次数及操作类型变量定义
    
23. INT8U Flash_Count = 0, Operation_Type = 1;
    
24. //-----------------------------------------------------------------
    
25. // 延时函数
    
26. //-----------------------------------------------------------------
    
27. void delay_ms(INT16U x)
    
28. {
    
29.         INT8U t; while(x--) for(t = 0; t < 120; t++);
    
30. }
    
31. 
    
32. //-----------------------------------------------------------------
    
33. // 交通灯切换子程序
    
34. //-----------------------------------------------------------------
    
35. void Traffic_Light()
    
36. {
    
37.         switch (Operation_Type)
    
38.         {
    
39.                 case 1://东西向绿灯与南北向红灯亮
    
40.                         XG_kizl=1;XG_serik=1;XG_Yexil=0;
    
41.                         JX_Yexil=1;JX_serik=1;JX_kizl=0;
    
42.                         delay_ms(2000);
    
43.                         Operation_Type=2;
    
44.                         break;
    
45. 
    
46.                 case 2://东西向黄灯开始闪烁,绿灯关闭
    
47.                            delay_ms(300);
    
48.                            XG_serik=~XG_serik;XG_Yexil=1;
    
49.                            if(++Flash_Count!=10) return;
    
50.                            Flash_Count=0;
    
51.                            Operation_Type=3;
    
52.                            break;
    
53. 
    
54.                 case 3://东西向红灯与南北向绿灯亮
    
55. 
    
56.                            XG_kizl=0;XG_serik=1;XG_Yexil=1;
    
57.                            JX_kizl=1;JX_serik=1;JX_Yexil=0;
    
58.                            delay_ms(2000);
    
59.                            Operation_Type=4;
    
60.                            break;
    
61. 
    
62.                 case 4://南北向黄灯开始闪烁
    
63. 
    
64.                           delay_ms(300);
    
65.                           JX_serik=~JX_serik;JX_Yexil=1;
    
66.                           if(++Flash_Count!=10) return;
    
67.                           Flash_Count=0;
    
68.                           Operation_Type=1;
    
69. 
    
70.         }
    
71. }
    
72. 
    
73. //-----------------------------------------------------------------
    
74. // 主程序
    
75. //-----------------------------------------------------------------
    
76. void main()
    
77. {
    
78.                 while (1) Traffic_Light();
    
79.                
    
80. }

مەزمۇننى كۆچۈرۈۋېلىش

uystar

مەزمۇنى قېنى بۇنىڭ؟

SEABOY/mg

يازغىنىنىڭ ھەممىسى مەزمۇنى ئىكەنغۇ؟سىزنىڭ دىگىنىڭىز قانداق مەزمۇن؟

uystar

SEABOY/mg يوللىغان ۋاقتى  2013-2-22 15:38
يازغىنىنىڭ ھەممىسى مەزمۇنى ئىكەنغۇ؟سىزنىڭ دىگىنىڭىز  ...

لېكىن  يانفۇندا كۆرۈنمىسە؟!

xaydayi

uystar يوللىغان ۋاقتى  2013-2-22 15:31
مەزمۇنى قېنى بۇنىڭ؟

مەزمۇن دىگەن شۇ كەنغۇ ، پىروگىراممىنىڭ ئەسلى كودى تۇرمامدۇ ...

xaydayi

uystar يوللىغان ۋاقتى  2013-2-22 15:45
لېكىن  يانفۇندا كۆرۈنمىسە؟!

يانفۇندا كۆرۈنمىسە كومپىيۇتېردا كۆرۈڭ ئەمىسە

ئىجادكار

بۇتىمىنىڭ بىزگە قانداق ئەھمىيتى بارلىقىنى بىلمىدىم.  قاتناش ساقچىلىرى كۆرسە بولغۇدەك.

قوياش

ھېچنېمە يوققۇ؟

uyghurqut

ئېزچى يوللىغان ۋاقتى  2013-2-22 15:56
بۇتىمىنىڭ بىزگە قانداق ئەھمىيتى بارلىقىنى بىلمىدىم.  ق ...

سىزگە نىسبەتەن ئەھمىيىتى يوق ،بۇنىسى ئېنىق . لېكىن ئېلىكتۇرۇن ئۇچۇر ئىلمى ئۆگۈنىۋاتقان دوسىتلىرىمىز بار بولسا  ئۇلارغا ئەھمىيىتى بار.

زوقلان506

رەخمەت..........