STC51 ADC 采集及串口通讯

STC51 单片机的 ADC 采集及串口通讯实例，红外测距传感器

#include<1602.h>
#include
#include

/******LCD1602基本初始化子程序
void LCD1602（）
{
	LCD_E=0;
	LCD_RS=1;
	LCD_RW=1;
	LCD_Data=0xff;
}
/******读忙程序********/
void Read_Busy（）
{
	LCD_Data=0xff;
	LCD_RS=0;
	LCD_RW=1;
	LCD_E=0;
		_nop_（）;
		_nop_（）;
		_nop_（）;
		_nop_（）;
	LCD_E=0;
	LCD_E=1;
	while（LCD_Data&0x80）;			//P2和1000 0000相与，D7若不为0，停在此处
}

/******写指令子程序*****/
void WriteCommand（uchar ibit j）  //j为0时忽略忙检测
{
	if（j）Read_Busy（）;	   //检测忙
	LCD_Data=i;
	LCD_RS=0;			
	LCD_RW=0;
	LCD_E=1;			   //若晶振速度太高可以在这后加小的延时
		_nop_（）;
		_nop_（）;
		_nop_（）;
		_nop_（）;
	LCD_E=0;
//	LCD_E=1;
}
/******写数据子程序*****/
void WriteData（uchar i）
{
	Read_Busy（）;	   //检测忙
	LCD_Data=i;
	LCD_RS=1;			
	LCD_RW=0;
	LCD_E=1;		  //若晶振速度太高可以在这后加小的延时
	_nop_（）;
	_nop_（）;
	_nop_（）;
	_nop_（）;
	LCD_E=0;
//	LCD_E=1;

}
/*****延时程序******/
void Delayms（uint c）
{
	uint ab;
	for（a=0;a	for（b=0;b<2400;b++）;
}
/******1602初始化子程序*******/
void Init_1602（

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----
     目录           0  2019-11-26 11:22  My_HC\
     文件        5453  2019-11-26 11:11  My_HC\1602.LST
     文件       11536  2019-11-26 11:11  My_HC\1602.OBJ
     文件        2150  2019-11-20 16:00  My_HC\1602.c
     文件         572  2019-11-20 16:00  My_HC\1602.h
     文件        2672  2019-11-26 11:11  My_HC\ADC.LST
     文件        6298  2019-11-26 11:11  My_HC\ADC.OBJ
     文件         839  2019-11-20 15:58  My_HC\ADC.c
     文件         597  2019-11-20 15:58  My_HC\ADC.h
     文件       38931  2019-11-26 11:11  My_HC\My_HC
     文件       27653  2019-11-26 11:11  My_HC\My_HC.M51
     文件       11321  2019-11-26 11:11  My_HC\My_HC.hex
     文件          85  2019-11-26 11:11  My_HC\My_HC.lnp
     文件       10484  2019-11-26 11:11  My_HC\My_HC.plg
     文件       58490  2019-11-26 11:22  My_HC\My_HC.uvopt
     文件       14428  2019-11-26 11:22  My_HC\My_HC.uvproj
     文件           0  2019-11-26 10:40  My_HC\My_HC_uvproj.bak
     文件       12805  2019-11-21 16:28  My_HC\STC15F2K60S2.H
     文件        6383  2019-11-26 11:11  My_HC\main.LST
     文件       10867  2019-11-26 11:11  My_HC\main.OBJ
     文件        2974  2019-11-26 11:11  My_HC\main.c
     文件       14000  2019-11-26 11:11  My_HC\uart_debug.LST
     文件       11497  2019-11-26 11:11  My_HC\uart_debug.OBJ
     文件        8246  2019-11-26 10:32  My_HC\uart_debug.c
     文件        1218  2019-11-26 10:50  My_HC\uart_debug.h