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

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

[复制链接]

该用户从未签到

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

EDA365欢迎您登录!

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

x
51单片机实现红外避障小车 - d) v4 Y5 ?3 q) o& v' F  i" c
这下面是一个红外线避障智能小车的程序,下载附件是全部程序
& `( {: M8 Q9 K7 [5 |
  • #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
  •    }
  •   }
    + q3 P- {# }4 u- g. o3 T

% L6 J6 K$ `% N9 G9 {4 b3 J' ^0 o! D! H7 D! I

2 D4 r2 o, q+ L  Y4 c$ j
游客,如果您要查看本帖隐藏内容请回复

$ k; N$ c9 ~' Y$ {2 X
您需要登录后才可以回帖 登录 | 注册

本版积分规则

关闭

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

EDA365公众号

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

GMT+8, 2025-6-29 06:05 , Processed in 0.078125 second(s), 26 queries , Gzip On.

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

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

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