找回密码
 注册
关于网站域名变更的通知
查看: 515|回复: 3
打印 上一主题 下一主题

开关控制交通灯源程序和proteus仿真

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2018-12-6 14:29 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

EDA365欢迎您登录!

您需要 登录 才可以下载或查看,没有帐号?注册

x
开关控制交通灯源程序和proteus仿真
- F, i% R8 F2 u1 D# y- D2 c
/ v; ?! p3 U* T4 J8 A( A) g* R$ X! L/ C4 i$ g4 P4 Z
交通灯设计,# W" s; t" r5 u& M3 i
) `/ Z' T. P9 t6 F
#include<reg51.h>5 q* h! @- R, k  h0 {
#define uint8 unsigned char
  d7 z, S$ g9 F6 b#define uint16 unsigend short int
( z1 F5 n2 g- S8 ]$ a. |5 ^sbit k1=P2^0;
+ t, K  q4 t3 vsbit k2=P2^1;
7 N" Y9 I0 I8 u& vsbit RED_N=P0^0;
8 d1 t4 L$ v* q7 csbit GREEN_N=P0^1;
+ |$ n* Y: y3 G% }sbit YELLOW_N=P0^2;" W3 F% u6 M) I3 L+ P8 Z1 ~
sbit RED_E=P0^3;
: q1 ^: n1 q' n* Y3 Ksbit GREEN_E=P0^4;7 Y0 s: L6 ?0 I3 K
sbit YELLOW_E=P0^5;
+ v! m' P& @& y* X( xvoid delay(uint8 x)
0 m2 V/ }+ O3 v! N{6 h& v, I  M2 B
uint8 i;9 ?8 l6 d. g( s( N; z4 W, c
while(x--)% e) @5 u! B% L
{% I- u! f, S1 _, J# F) F
  for(i=120;i>0;i--);
$ g3 a; E5 F' g  M. r" B }5 i! {6 J, ^" d5 Y
}6 d% y) E( b6 }5 q8 b* }! i
uint8 num=1;- {* A) d0 h& d. }
void main()
% \5 z( V0 E/ v$ h5 }{; v# T/ v4 L, B
while(1)
6 t6 u( a, r7 d& H{
: `7 p1 Z9 N: {$ \ while(k1==0)
: U. n; S  A$ T/ J8 B {
* }1 E6 R- B5 N  switch(num)0 P2 D8 o) E9 P4 Z
  {5 k; D& a3 i' n5 `" W
   case 1:RED_N=1;GREEN_N=0;YELLOW_N=1;
: R- v7 K- T% G: F  M: r          GREEN_E=1;RED_E=0;YELLOW_E=1;1 `  ?( |, n- K; m8 i
                  delay(2000);delay(2000); delay(2000);% M9 l' C- n/ J9 J
                  num=2;break;
0 ]4 _9 w" ]% f4 r) X2 Y   case 2:GREEN_N=1;RED_N=1;
2 |1 i7 ]! K1 l0 z          YELLOW_N=0;' s! a$ {6 P7 W+ a  h% I
                  delay(500);
) [7 {) `, S2 A1 o                  YELLOW_N=1;' `: L" s/ E8 l  e! T9 K" B0 X4 z5 a5 v
                  delay(500);; z9 }; M* {+ o
                   YELLOW_N=0;" p. s( e: v5 E4 S4 u
                  delay(500);
$ ~: z  L! S& Y% N: \' l5 ~                  YELLOW_N=1;
6 Q. j) V, A- G) V7 `                  delay(500);
8 S/ @, P6 i$ g# f5 H$ ^                  YELLOW_N=0;
& s+ g5 v  d+ P) k                  delay(500);
4 ~2 t, R( r3 G: h& u4 G                  YELLOW_N=1;
8 o7 L$ U! s/ \! k& Y                  delay(500);
: [' ^. d# F7 x4 j+ S0 D                   RED_E=0;GREEN_E=1;YELLOW_E=1;
9 E. Z, o" r/ ~4 u3 j/ F                   num=3;break;6 Y4 ^$ O! ^( s! G- E
    case 3:1 F5 j" z+ {. b8 X0 v/ B
              RED_N=0;GREEN_N=1;YELLOW_N=1;
5 y& R( h& W  N, V                  GREEN_E=0;RED_E=1;YELLOW_E=1;- I0 j5 `0 F( g. I" w' m  w" T
                  delay(2000);delay(2000);delay(2000);
9 N0 y- \2 ?. V                  num=4;break;3 N6 G; Q4 o! |" e# L* X6 S
        case 4:RED_N=0;GREEN_N=1;YELLOW_N=1;, U% x$ r. t! A, E" B9 _
               GREEN_E=1;RED_E=1;0 j6 k3 s: m) d2 h6 s" m
                   YELLOW_E=0;- T# e" E8 s7 S  B( |
                   delay(500);
" u# t; M6 I* l/ G8 h                   YELLOW_E=1;
1 A" m, L+ d& i. G/ j) B                   delay(500);# {' o" t! x1 }  A
                   YELLOW_E=0;
% f- s! G, W) ~8 M% @                   delay(500);. D! p. h, S5 a- G3 h+ I3 k+ e
                   YELLOW_E=1;
" G; Q$ G, p2 O                   delay(500);8 n) t) G# e$ j4 W. z  y
                   YELLOW_E=0;
! E9 m4 h! v# I8 r! g! m                   delay(500);
+ n& m% M% w4 [# a8 k                   YELLOW_E=1;
9 P1 }$ I' f$ F7 Q5 x6 u                   delay(500);
$ G$ p* i/ P) d) s                   num=1;4 k: c# {! r" Y8 B
                   break;
& [! {3 }% j9 q; f- j# d              % `% h( l3 R4 H9 H4 o8 f
    }( W. h  c; b" e2 F( O* `  y8 q
   }
9 [" {& X8 |3 W! Y# h& l8 t        while(k2==0)5 w# @; D' y# }) H& c
        {& }8 ?1 i& U6 P) \# c, w+ m- n
         RED_N=0;GREEN_N=1;YELLOW_N=1;
; t! z* x) G  Q5 Z" j# n: j9 K         RED_E=0;GREEN_E=1;YELLOW_E=1;
: V) f4 I5 C" i5 T/ i) ~        }
' B# s, J/ S) z5 V9 Z }
2 D$ s- r: o) |3 a  N}. y4 Z( N# m5 D  w8 `/ N& R- g6 X- ^
游客,如果您要查看本帖隐藏内容请回复

# @/ v) [: ~/ h+ Q: s1 d
8 `* Z7 z! V8 I: {0 G  d7 h

该用户从未签到

2#
发表于 2018-12-6 15:04 | 只看该作者
Thank you very very much!

该用户从未签到

4#
发表于 2019-12-6 09:50 | 只看该作者
您需要登录后才可以回帖 登录 | 注册

本版积分规则

关闭

推荐内容上一条 /1 下一条

EDA365公众号

关于我们|手机版|EDA365电子论坛网 ( 粤ICP备18020198号-1 )

GMT+8, 2025-11-5 22:58 , Processed in 0.156250 second(s), 27 queries , Gzip On.

深圳市墨知创新科技有限公司

地址:深圳市南山区科技生态园2栋A座805 电话:19926409050

快速回复 返回顶部 返回列表