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

汽车灯程序,相关软件

[复制链接]
  • TA的每日心情
    开心
    2019-11-20 15:05
  • 签到天数: 2 天

    [LV.1]初来乍到

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

    EDA365欢迎您登录!

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

    x
    #include<at89x51.h>! W8 x+ G9 Q1 \* x- T$ w
    void delay(unsigned char a)) y, S: O5 ^) e5 \7 k9 B! x+ i
    {5 P! _1 V- {( u
    unsigned char j,y;4 k/ D$ \1 F. h8 \
    for(j=0;j<a;j++)
    : f& d4 v3 o- N2 Mfor(y=0;y<115;y++);
    9 p4 `& J$ x4 p( d  {; Q  A}
    ' Q- X/ L3 X( c6 A% X4 P) q. {void main()% a4 q$ V4 x4 _4 _$ ^
    {  Y: c1 O7 j% ?7 ]% }$ @
    unsigned char x;
    0 o( z6 q. ~% }; I' V3 ^6 OP0=0x00;8 J& t+ e% E% Y9 F# q
    while(1)
    # Y6 k* L2 M9 J  j{
    2 u9 w# f8 o3 X' t5 Z5 ?7 P( b/**********************************/$ `) A& L- e6 P/ A8 h
    P1=0xff;
    2 n" _8 I' c# [  Qx=P1;
    ' ]9 X4 U/ L( P/ P  Mx=~x;
    4 O, K, S9 M% ]2 X2 I1 X( bif(x==0)continue;delay(10);
    1 q" z  }. I, g/ |* X/ `5 u: wx=P1;
    5 m$ m+ J" K/ H3 Qx=~x;& ?& i8 n. n2 E, f8 j" L& c
    if(x==0)continue;2 I% t: b6 w' v- z
    if(P1_0==0)/*****左转****/
    ) a& ~2 a$ R7 o1 t: Z' Y9 X- ^{
    0 y7 O' Q  m5 e; sP0=0x15;delay(100)0=0x00;delay(100);}: l6 R( t# c* l% |2 ^, _
    else if(P1_1==0)/**右转**/
    7 C2 @% n# j6 \+ N6 y, j# v) i0 q{P0=0x2a;delay(100)0=0x00;delay(100);}
    * `$ ?' P7 w( C, o2 L+ _0 \else if(P1_2==0)/**刹车**/
    , n2 G7 |! D5 C5 o{while(P1_2==0){P0=0x30;}P0=0x00;}6 i3 [; R5 o& H9 f! }
    else if(P1_3==0)/**紧急**/
    2 V% V: Z$ u# i/ U{P0=0x3f;delay(100)0=0x00;delay(100);}
    - `: F& _6 ~* w6 kelse0 M. n6 s3 W4 p2 n. n. k: R$ I
    P0=0x00;
    , i6 j+ e: o/ _* k& C}& P8 f+ Q0 v) |% Y; ^, C2 F; U( r
    }5 h, |: q: g  A# N0 X( j8 U
    游客,如果您要查看本帖隐藏内容请回复
    " L9 N/ H5 T2 A0 S* m: |

    # t5 d' n: `9 @( `4 \3 E
    您需要登录后才可以回帖 登录 | 注册

    本版积分规则

    关闭

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

    EDA365公众号

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

    GMT+8, 2025-7-22 02:15 , Processed in 0.140625 second(s), 26 queries , Gzip On.

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

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

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