資源簡介
本人已經測試通過的源代碼,直接可以應用 有使用說明!
代碼片段和文件信息
#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個文件信息
- 上一篇:IocompV4Sp2完全破解版
- 下一篇:Raize for delphi10.3
評論
共有 條評論