体温传感器 TN901 单片机 51代码 KEIL 已经测试通过

本人已经测试通过的源代码，直接可以应用 有使用说明！

#include“reg52.h“
#include “intrins.h“
#define uchar unsigned char
#define uint unsigned int

/************* 1602LCD引脚定义 *************/
#define LCD_data  P0       //数据口
sbit RS  =  P2^6;      //寄存器选择输入
sbit RW = P2^5;	 //写数据端 
sbit EN  =  P2^7;      //液晶使能控制

/************* 红外测温引脚定义 *************/
sbit A_TN9=P1^3;     	//TN9触发
sbit CLK_TN9=P1^1;		//TN9时钟线
sbit DATA_TN9=P1^0;		//TN9数据线

/***********全局变量定义**************/
bit flag;

unsigned char TN_Data_Buff[5];		//红外模块数据缓存数组
unsigned char DATA_INDEX;
unsigned char DATA_NUM;				//八位数据计数
unsigned char data_tmp;				//红外模块数据缓存
unsigned char table_mbtemp[]=“00.00^C“;
float iTempMBTemp=11.01;				//温度数据
//函数定义声明
void show_temp（）;				    //温度显示子函数函数
void delay（）
{
	unsigned int i;
	for（i=0;i<10;i++）;
}
/************延时毫秒子程序，11.0592M晶振下*****************/
void delay_ms（unsigned int time）
{
	unsigned int ij;
	for（i=1;i<=time;i++）
		for（j=1;j<=113;j++）;
}
/*------------------------------------------------
              写入命令函数
------------------------------------------------*/
 void LCD_Write_Com（unsigned char com） 
{  
	delay_ms（5）;
	RS=0;
	RW=0; 
	EN=1; 
	P0=com; 
	_nop_（）; 
	EN=0;
}
/*------------------------------------------------
              写入数据函数
------------------------------------------------*/
 void LCD_Write_Data（unsigned char Data） 
{ 
	delay_ms（5）;
	RS=1;
	RW=0; 
	EN=1; 
	P0= Data; 
	_nop_（）;
	EN=0;
}
/*------------------------------------------------
              写入字符串函数
------------------------------------------------*/
 void LCD_Write_String（unsigned char xunsigned char yunsigned char *s） 
{        
	if （y == 0） 
	{     
	 	LCD_Write_Com（0x80 + x）;     //表示第一行
	}
	else 
	{      
		LCD_Write_Com（0xC0 + x）;      //表示第二行
	}        
	while （*s） 
	{     
	 	LCD_Write_Data（ *s）;     
	 	s ++;     
	}
}
/*------------------------------------------------
              初始化函数
------------------------------------------------*/
 void LCD_Init（void） 
{
	LCD_Write_Com（0x38）;    /*显示模式设置*/ 
	delay_ms（5）; 
	LCD_Write_Com（0x38）; 
	delay_ms（5）; 
	LCD_Write_Com（0x38）; 
	delay_ms（5）; 
	LCD_Write_Com（0x38）;  
	LCD_Write_Com（0x08）;    /*显示关闭*/ 
	LCD_Write_Com（0x01）;    /*显示清屏*/ 
	LCD_Write_Com（0x06）;    /*显示光标移动设置*/ 
	delay_ms（5）; 
	LCD_Write_Com（0x0C）;    /*显示开及光标设置*/
}


//==========================================================================
//	//	C格式：	void TN_IRACK_EN（void）;
//	实现功能：	红外模块启动函数
//	入口参数：	无
//	出口参数：	无
//==========================================================================
void TN_IRACK_EN（void）
{    
	unsigned char j;
	flag=0;
	A_TN9=0;
	delay（）;
    DATA_NUM=0;
    DATA_INDEX=0;

	for（j=0;j<=4;j++）
		TN_Data_Buff[j]=0;

}
//==========================================================================
//	C格式：		void TN_IRACK_UN（void）;
//	实现功能：	红外模块关闭函数
//	入口参数：	无
//	出口参数：	无
//==========================================================================	
void TN_IR

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

     文件     105472  2011-10-28 20:42  TN901测温\TN901资料与例程\传感器资料\TN901.doc

     文件     120564  2011-10-30 17:09  TN901测温\TN901资料与例程\传感器资料\TN901.pdf

     文件    2435072  2013-09-07 08:39  TN901测温\TN901资料与例程\传感器资料\tn901说明书.doc

     文件    2429952  2011-10-28 20:04  TN901测温\TN901资料与例程\传感器资料\人体红外辐射的医学应用.doc

     文件          0  2013-09-07 08:37  TN901测温\TN901资料与例程\传感器资料\新建 文本文档.txt

     文件    1551995  2011-10-28 20:32  TN901测温\TN901资料与例程\传感器资料\红外测温仪的设计（有用）.pdf

     文件    1452593  2011-10-28 20:24  TN901测温\TN901资料与例程\传感器资料\红外测温仪的设计.pdf

     文件     693760  2011-10-30 09:51  TN901测温\TN901资料与例程\传感器资料\红外测温论文论文.doc

     文件     111616  2011-10-28 20:04  TN901测温\TN901资料与例程\传感器资料\红外温度计的设计与实现文.doc

     文件      56320  2011-10-28 20:04  TN901测温\TN901资料与例程\传感器资料\非接触式智能人体测温仪.doc

     文件     955904  2011-10-28 20:26  TN901测温\TN901资料与例程\传感器资料\非接触式红外测温仪设计.doc

     文件      10933  2013-05-16 21:17  TN901测温\TN901资料与例程\程序\程序1\TN901

     文件       6362  2013-05-18 14:16  TN901测温\TN901资料与例程\程序\程序1\TN901.c

     文件       5080  2013-05-16 21:17  TN901测温\TN901资料与例程\程序\程序1\TN901.hex

     文件         42  2013-05-16 21:17  TN901测温\TN901资料与例程\程序\程序1\TN901.lnp

     文件      13485  2013-05-16 21:17  TN901测温\TN901资料与例程\程序\程序1\TN901.LST

     文件      16383  2013-05-16 21:17  TN901测温\TN901资料与例程\程序\程序1\TN901.M51

     文件      11545  2013-05-16 21:17  TN901测温\TN901资料与例程\程序\程序1\TN901.OBJ

     文件        977  2013-08-30 08:27  TN901测温\TN901资料与例程\程序\程序1\TN901.Opt

     文件        200  2013-09-17 22:00  TN901测温\TN901资料与例程\程序\程序1\TN901.plg

     文件       2143  2013-08-30 08:27  TN901测温\TN901资料与例程\程序\程序1\TN901.Uv2

    .......       970  2013-05-18 18:39  TN901测温\TN901资料与例程\程序\程序1\TN901_Opt.Bak

    .......      2109  2013-05-16 21:17  TN901测温\TN901资料与例程\程序\程序1\TN901_Uv2.Bak

     文件       5799  2013-01-24 11:50  TN901测温\TN901资料与例程\程序\程序2\51HUB02程序.asm

     文件      15761  2013-01-24 11:50  TN901测温\TN901资料与例程\程序\程序2\MSP430Hub单片机程序.asm

     文件     301768  2013-01-24 11:50  TN901测温\TN901资料与例程\程序\程序2\TN90系列资料.jpg

     文件    2579968  2013-01-24 11:50  TN901测温\TN901资料与例程\程序\程序2\TN9_UserManual_009中.doc

     文件    9540866  2014-03-19 08:12  TN901测温\TN901资料与例程.rar

     目录          0  2013-08-30 08:27  TN901测温\TN901资料与例程\程序\程序1

     目录          0  2013-09-07 09:01  TN901测温\TN901资料与例程\程序\程序2

............此处省略7个文件信息