51单片机利用传感器测距

利用传感器测距,主要用在小车上,有仿真图,可以直接观看.绝对好用.试验板成功调试.

#include “reg52.h“
#include <1602.h>
#define uchar unsigned char 
#define uint unsigned int
unsigned int num=0num1=0;
unsigned char code table1[]=“ 00:00“;
uchar code table2[]=“00“;
unsigned char countmiaofen;
void delay（unsigned int  z）
{
	unsigned int xy;
	for（x=z;x>0;x--）
		for（y=110;y>0;y--）;
}
void init（）
{
	vdInitialize（）;		
	vWriteCMD（0x81）;	  
	vShowChar（“Status:“）;
	vWriteCMD（0x89）;
	vShowChar（“Common“）;
	vWriteCMD（0xCC）;	
	vShowChar（“cm“）;


	vWriteCMD（0x80+0x40）;
	for（num=0;num<6;num++）
		{
			vWriteData（table1[num]）;
			delay（5）;
		}
	vWriteCMD（0x80+0x4a）;
	for（num=0;num<2;num++）
		{
			vWriteData（table2[num]）;
			delay（5）;
		}


	EA=1;
	EX0=1;
	IT0=1;

	TMOD=0x01;
	TH0=（65536-50000）/256;
	TL0=（65536-50000）%256;
	ET0=1;
	TR0=1;
}
void int0（） interrupt 0
{
	EX0=0;
	num1++;
	EX0=1;	

			vWriteCMD（0xC7）;
		vShowNumber（num1*10）;
}

void write_sfm（uchar adduchar date）
{
	uchar shige;
	shi=date/10;
	ge=date%10;
	vWriteCMD（0x80+0x40+add）;
	vWriteData（0x30+shi）;
	vWriteData（0x30+ge）;
}
void timer0（） interrupt 1
{
	TH0=（65536-50000）/256;
	TL0=（65536-50000）%256;
	count++;
if（count==20）
		{
			count=0;
			miao++;
			if（miao==60）
			{
				miao=0;
				fen++;
				write_sfm（1fen）;
			}
			write_sfm（4miao）;
			
		}	
}

void main（）
{ 
	init（）;
	while（1）
	{


		
	}

}

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件       5115  2002-04-16 15:32  测距\STARTUP.A51

     文件       1174  2009-09-23 19:30  测距\123.plg

     文件       1400  2009-09-23 19:30  测距\123.c

     文件       4474  2009-07-24 20:45  测距\1602.h

     文件         23  2009-09-23 19:30  测距\123.lnp

     文件      16874  2009-09-23 19:30  测距\123.M51

     文件       4946  2009-09-23 19:30  测距\123.hex

    .......      1977  2009-07-24 09:15  测距\123_Uv2.Bak

     文件      90114  2009-07-24 09:15  测距\Last Loaded StepMotor.DBK

     文件      96262  2009-07-24 09:22  测距\StepMotor.DSN

     文件        768  2009-09-23 19:30  测距\StepMotor.PWI

     文件       2096  2009-09-23 13:23  测距\123.Uv2

    .......      1151  2009-09-23 13:23  测距\123_Opt.Bak

     文件       4438  2009-09-23 19:30  测距\123.LST

     文件      16859  2009-09-23 19:30  测距\123.OBJ

     文件      14172  2009-09-23 19:30  测距\123

     文件       1163  2009-09-23 19:30  测距\123.Opt

     目录          0  2009-07-24 20:48  测距

----------- ---------  ---------- -----  ----

               263006                    18