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

51单片机实现红外避障小车

[复制链接]

该用户从未签到

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

EDA365欢迎您登录!

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

x
51单片机实现红外避障小车 & x3 T7 U  e, z" M4 e: Q
这下面是一个红外线避障智能小车的程序,下载附件是全部程序  m: s: |$ U( ]
  • #include<reg51.h>
  • #define uint unsigned int
  • #define uchar unsigned char
  •   sbit z=P0^0;//定义红外避障检测端口
  •   sbit q=P0^4;
  •   sbit y=P0^2;
  •   sbit mz=P1^5;//定义电机Mz电平输出端口
  •   sbit IN1=P1^6;
  •   sbit IN2=P1^7;
  •   sbit my=P1^2;//定义电机My电平输出端口
  •   sbit IN3=P1^3;
  •   sbit IN4=P1^4;
  •   void delayms(uint);//声明延时函数
  •   main()//主函数
  •   {
  •    uint i=0;//初始值设定
  •    mz=1;
  •    my=1;
  • while(1)//无限循环
  • {
  • if(z==0&&q==1&&y==1)//表示z方有障碍物  进行y转向
  •   {
  •    for(i=0;i<5;i++)
  •     {
  •    mz=1;
  •    IN1=1;
  •    IN2=0;
  •    my=0;
  •    delayms(100);//状态保持100ms
  •    mz=0;
  •    my=0;
  •    delayms(2);//状态保持2ms
  •    }
  •   }
  • if(z==1&&q==0&&y==1)//表示前方有障碍物  进行y转向
  •   {
  •    for(i=0;i<5;i++)
  •     {
  •    mz=1;
  •    IN1=1;
  •    IN2=0;
  •    my=0;
  •    delayms(100);//状态保持100ms
  •    mz=0;
  •    my=0;
  •    delayms(2);//状态保持2ms
  •    }
  •   }
  • if(z==1&&q==1&&y==0)//表示y方有障碍物  进行z转向
  •   {
  •    for(i=0;i<5;i++)
  •     {
  •    mz=0;
  •    my=1;
  •    IN3=1;
  •    IN4=0;
  •    delayms(100);//状态保持100ms
  •    mz=0;
  •    my=0;
  •    delayms(2);//状态保持2ms
  •    }
  •   }
  •   if(z==0&&q==0&&y==1)//表示z前方有障碍物  进行y转向
  •   {
  •    for(i=0;i<5;i++)
  •     {
  •    mz=1;
  •    IN1=1;
  •    IN2=0;
  •    my=0;
  •    delayms(100);//状态保持100ms
  •    mz=0;
  •    my=0;
  •    delayms(2);//状态保持2ms
  •    }
  •   }
  • if(z==1&&q==0&&y==0)//表示y前方有障碍物  进行z转向
  •   {
  •    for(i=0;i<5;i++)
  •     {
  •    mz=0;
  •    my=1;
  •    IN3=1;
  •    IN4=0;
  •    delayms(100);//状态保持100ms
  •    mz=0;
  •    my=0;
  •    delayms(2);//状态保持2ms
  •    }
  •   }* I& r& ^4 n5 W) v5 i$ y0 z
; g8 E. b  A4 [5 [; L! Q

9 N9 K3 w: Y) r
0 C- m9 W5 e4 C4 ]  S
游客,如果您要查看本帖隐藏内容请回复
' g( N( n8 }& b9 L0 N
您需要登录后才可以回帖 登录 | 注册

本版积分规则

关闭

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

EDA365公众号

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

GMT+8, 2025-8-3 02:10 , Processed in 0.125000 second(s), 26 queries , Gzip On.

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

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

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