超声波模块测距

超声波模块测距

#include //器件配置文件
#include 
//传感器接口
sbit RX  = P3^2;
sbit TX  = P3^3;
//按键声明
sbit S1  = P1^4;
sbit S2  = P1^5;
sbit S3  = P1^6;
//蜂鸣器
sbit Feng= P2^0;

sbit W1=P1^0;
sbit W2=P1^1;
sbit W3=P1^2;
sbit W4=P1^3;
//变量声明
unsigned int  time=0;
unsigned int  timer=0;
unsigned char posit=0;
unsigned long S=0;
unsigned long BJS=50;//报警距离80CM
//模式 0正常模式 1调整
char Mode=0;
bit  flag=0;
bit flag_KEY=0;
unsigned char const discode[] ={0x3f0x060x5b0x4f0x660x6d0x7d0x070x7f0x6f0x400xff/*-*/};	
//数码管显示码0123456789-和不显示unsigned char const positon[4]={0xfd0xfb0xf70xfe};	//位选
unsigned char disbuff[4]	   ={0000};		 //数组用于存放距离信息
unsigned char disbuff_BJ[4]	={0000};//报警信息
void Display（）;
//延时20ms（不精确）
void delay（void）
{
    unsigned char abc;
    for（c=2;c>0;c--）
        for（b=38;b>0;b--）
            for（a=60;a>0;a--）;
}

//按键扫描
void Key_（）
{
	if（flag_KEY==0）
	{
		if（Mode!=0）
		{
			//+
			if（S1==0）
			{
				delay（）;	   /

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----
     目录           0  2019-07-07 09:41  超声波测距\
     文件      138224  2018-01-10 14:12  超声波测距\Last Loaded 超声测距原理图.DBK
     文件      983040  2018-06-11 15:02  超声波测距\MyDesign2.ddb
     文件         162  2019-07-07 09:41  超声波测距\~$大三上实训.doc
     文件     4072960  2018-06-11 15:43  超声波测距\大三上实训.doc
     文件        4645  2018-01-10 14:01  超声波测距\程序
     文件       14950  2018-01-10 14:01  超声波测距\程序.LST
     文件       14792  2018-01-10 14:01  超声波测距\程序.M51
     文件        5411  2018-01-10 14:01  超声波测距\程序.OBJ
     文件        2100  2013-09-05 23:36  超声波测距\程序.Uv2.bak
     文件        5712  2018-01-10 10:57  超声波测距\程序.c
     文件        5948  2018-01-10 14:01  超声波测距\程序.hex
     文件          40  2018-01-10 14:01  超声波测距\程序.lnp
     文件         829  2013-09-05 23:41  超声波测距\程序.opt.bak
     文件         149  2018-06-11 15:00  超声波测距\程序.plg
     文件       55347  2018-06-11 15:00  超声波测距\程序.uvopt
     文件       13201  2018-01-10 00:19  超声波测距\程序.uvproj
     文件         825  2013-09-05 23:36  超声波测距\程序_Opt.Bak
     文件        1662  2011-04-09 18:58  超声波测距\程序_Uv2.Bak
     文件       55339  2018-06-11 15:00  超声波测距\程序_uvopt.bak
     文件       13202  2013-09-06 19:59  超声波测距\程序_uvproj.bak
     文件      138224  2018-01-10 16:59  超声波测距\超声测距原理图.DSN
     文件        1078  2018-06-11 15:05  超声波测距\超声测距原理图.PWI
     文件       23056  2019-06-28 09:28  超声波测距\超声测距原理图.pdsprj
     文件         328  2020-03-09 21:41  超声波测距\超声测距原理图.pdsprj.LAPTOP-4UVQGUS3.54383.workspace