#include<reg51.h>
sbit OUT=P3^2;
sbit INT=P3^3;
sbit beep=P1^0;
#define uchar unsigned char;
#define uint unsigned uint;
uint time,count,S,wei;
uchar code table[] ={0xc0,0xf9,0xa4,0xb0,0x99,0x92,0x82,0xf8,0x80,0x90};//共阳数码管
unsigned char code weixuan[4]={ 0xfe,0xfd,0xfb,0xf7}; //位选
unsigned char temp[4]={ 0,0,0,0,};
//--------------------延时函数-----------------//
void delay(unsigned int delaytime)
{
while(delaytime--);
}
//-----------------数码管显示--------------//
void display()
{
P2=weixuan[wei]; //位选
P0=table[temp[wei]]; //段选
wei++;
if(wei>3)
wei=0;
}
//-----------------测距计时-------------//
void CT()
{
while(INT==0);
TR0=1; //启动计时
while(INT==1);
TR0=0; //关闭定时器
}
//----------------超距报警----------------//
void baojing()
{
if(S<1000)
beep=!beep;
}
//------------计算距离--------------//
void distance(void)
{
time=TH0*256+TL0;
S=0.17*time;
temp[0]=S/1000; // 千位
temp[1]=S/100%10; // 百位
temp[2]=S/10%10; // 十位
temp[3]=S%10; // 个位
TH0=0;
TL0=0;
}
//-----------初始化函数-----------------//
void inital()
{
TMOD=0x11; //T0、T1使用方式1
TH1=(65535-1000)/256;
TL1=(65535-1000)%256;
TH0=0;
TL0=0;
ET1=1; // 允许T1中断
TR1=1; // 开启T1
ET0=1; // 允许T0中断
TR0=0; // 关闭T0
EA=1; // 开启总中断
}
void main()
{
inital();
while(1)
{
CT(); //计算测距时间
distance(); //计算距离
}
}
//-------------中断函数-----------------//
void t0() interrupt 1
{
}
//------------中断函数-------------------//
void t1() interrupt 3
{
count++;
display(); //数码管显示
baojing(); //超距报警
if(count>=500) //每500MS发送一次超声波
{
count=0;
OUT=1;
delay(20);
OUT=0;
}
TH1=(65535-1000)/256;
TL1=(65535-1000)%256;
}
chaoshengboceju.zip_chaoshengboceju_倒车雷达_超声波雷达
版权申诉
93 浏览量
2022-09-21
17:10:59
上传
评论
收藏 39KB ZIP 举报
小波思基
- 粉丝: 72
- 资源: 1万+
最新资源
- Python 程序语言设计模式思路-行为型模式:职责链模式:将请求从一个处理者传递到下一个处理者
- 9241703124789646.16健身系统2.apk
- postgresql-16.3-1-windows-x64.exe
- Python 程序语言设计模式思路-结构型模式:装饰器讲解及利用Python装饰器模式实现高效日志记录和性能测试
- 基于YOLOv5和DeepSORT的多目标跟踪仿真与记录
- Python 程序语言设计模式思路-创建型模式:原型模式:通过复制现有对象来创建新对象,面向对象编程
- 卸载软件geek卸载软件geek
- Python 程序语言设计模式思路-创建型模式:单例模式,确保一个类的唯一实例(装饰器)面向对象编程、继承
- skywalking-plugins.jar skywalking-alarm.jar
- 独栋别墅图纸D020-两层-10.00&11.00米- 施工图.dwg
资源上传下载、课程学习等过程中有任何疑问或建议,欢迎提出宝贵意见哦~我们会及时处理!
点击此处反馈