51单片机超声波测距 含源程序视频Proteus原理图

51黑电子论坛 超声波测距 51单片机超声波测距仿真与实物设计 含源程序,视频,Proteus原理图

#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（）;	   //延时去抖
				if（S1==0）
				{
					BJS++;	 //报警值加
					flag_KEY=1;
					if（BJS>=151） //最大151
					{
						BJS=0;
					}
//					while（S1==0）
//					Display（）;
				}
				
			}
			//-
			if（S2==0）
			{
				delay（）;
				if（S2==0）
				{
					BJS--;	 //报警值减
					flag_KEY=1;
					if（BJS<=1）	 //最小1
					{
						BJS=150;
					}	
//					while（S2==0）
//					Display（）;
				}
				
			}
		}
		//功能
		if（S3==0）		//设置键
		{
			delay（）;
			if（S3==0）
			{
				Mode++;		//模式加
				flag_KEY=1;
				if（Mode>=2）		//加到2时清零
				{
					Mode=0;
				}
//				while（S3==0）
//				Display（）;
			}
		}
	}
	if（（P1&0x70）==0x70）
	{
		flag_KEY=0;
	}
}
/**********************************************************************************************************/
//扫描数码管
void Display（void）				 
{
	//正常显示
	if（Mode==0）
	{
		P0=0x00;  //关闭显示
		if（posit==1）//数码管的小数点
		{
			P0=（discode[disbuff[posit]]）|0x80;//按位或，最高位变为1，显示小数点
		}
		else if（posit==0）
		{
			P0=~discode[11];
		}
		else
		{
			P0=discode[disbuff[posit]];
		}
		switch（posit）
		{
			case 0 : W1=0;W2=1;W3=1;W4=1; break;
			case 1 : W1=1;W2=0;W3=1;W4=1; break;
			case 2 : W1=1;W2=1;W3=0;W4=1; break;
			case 3 : W1=1;W2=1;W3=1;W4=0; break;
		}
		posit++;
		if（posit>3）		//每进一次显示函数，变量加1
			posit=0;		//加到3时清零
	}
	//报警显示
	else
	{
		P0=0x00;
		if（posit==1）//数码管的小数点
		{
			P0=（discode[disbuff_BJ[posit]]）|0x80;
		}
		else if（posit==0）
		{
			P0=0x76;	//显示字母		
		}
		else
		{
			P0=discode[disbuff_BJ[posit]];
		}
		switch（posit）
		{
			case 0 : W1=0;W2=1;W3=1;W4=1; break;
			case 1 : W1=1;W2=0;W3=1;W4=1; break;
			case 2 : W1=1;W2=1;W3=0;W4=1; break;
			case 3 : W1=1;W2=1;W3=1;W4=0; break;
		}
		posit++;
		if（posit>3）
			posit=0;
	}
}
/**********************************************************************************************************/
//计算
void Conut（void）
{
	time=TH0*256+TL0;	  //读出T0的计时数值
	TH0=0;
	TL0=0;				  //清空计时器
	S=（time*1.7）/100;     //算

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----
     目录           0  2018-07-02 17:29  51黑论坛_超声波测距\
     目录           0  2018-07-02 17:29  51黑论坛_超声波测距\超声波测距\
     目录           0  2017-10-30 15:14  51黑论坛_超声波测距\超声波测距\1-程序修正\
     文件        4631  2017-05-11 22:27  51黑论坛_超声波测距\超声波测距\1-程序修正\程序
     文件       14976  2017-05-11 22:27  51黑论坛_超声波测距\超声波测距\1-程序修正\程序.LST
     文件       14706  2017-05-11 22:27  51黑论坛_超声波测距\超声波测距\1-程序修正\程序.M51
     文件        5385  2017-05-11 22:27  51黑论坛_超声波测距\超声波测距\1-程序修正\程序.OBJ
     文件        2100  2013-09-05 23:36  51黑论坛_超声波测距\超声波测距\1-程序修正\程序.Uv2.bak
     文件        5724  2017-05-11 22:27  51黑论坛_超声波测距\超声波测距\1-程序修正\程序.c
     文件        5919  2017-05-11 22:27  51黑论坛_超声波测距\超声波测距\1-程序修正\程序.hex
     文件          40  2017-05-11 22:27  51黑论坛_超声波测距\超声波测距\1-程序修正\程序.lnp
     文件         829  2013-09-05 23:41  51黑论坛_超声波测距\超声波测距\1-程序修正\程序.opt.bak
     文件        1029  2017-05-11 22:28  51黑论坛_超声波测距\超声波测距\1-程序修正\程序.plg
     文件       55887  2017-05-11 22:28  51黑论坛_超声波测距\超声波测距\1-程序修正\程序.uvopt
     文件       13202  2013-09-06 19:59  51黑论坛_超声波测距\超声波测距\1-程序修正\程序.uvproj
     文件         825  2013-09-05 23:36  51黑论坛_超声波测距\超声波测距\1-程序修正\程序_Opt.Bak
     文件        1662  2011-04-09 18:58  51黑论坛_超声波测距\超声波测距\1-程序修正\程序_Uv2.Bak
     文件       55888  2017-05-11 22:27  51黑论坛_超声波测距\超声波测距\1-程序修正\程序_uvopt.bak
     目录           0  2017-10-30 15:13  51黑论坛_超声波测距\超声波测距\11-仿真\
     文件        1024  2014-05-14 17:36  51黑论坛_超声波测距\超声波测距\11-仿真\HC-SR04.hex
     文件       56161  2014-10-29 21:53  51黑论坛_超声波测距\超声波测距\11-仿真\ISIS.dmp
     文件      139481  2016-06-29 11:29  51黑论坛_超声波测距\超声波测距\11-仿真\Last Loaded chaosengbo.DBK
     文件        9728  2016-04-24 17:20  51黑论坛_超声波测距\超声波测距\11-仿真\Thumbs.db
     文件      146575  2017-04-27 10:53  51黑论坛_超声波测距\超声波测距\11-仿真\chaosengbo.DSN
     文件        1364  2017-04-27 10:53  51黑论坛_超声波测距\超声波测距\11-仿真\chaosengbo.PWI
     文件        5608  2014-11-13 11:30  51黑论坛_超声波测距\超声波测距\11-仿真\程序.hex
     文件          49  2014-10-29 23:50  51黑论坛_超声波测距\超声波测距\11-仿真\说明.txt
     文件    14351605  2015-01-17 21:02  51黑论坛_超声波测距\超声波测距\11-仿真\超声波仿真如何运行.wmv
     文件      106496  2017-03-27 22:27  51黑论坛_超声波测距\超声波测距\原理图.doc