資源簡介
自己用vb設計的溫度報警系統,包括上位機程序和下位機程序

代碼片段和文件信息
#include
#include
#include
#define?a8255_PA??XBYTE[0xD9FF]????//PA口地址
#define?a8255_PB??XBYTE[0xDAFF]????//PB口地址
#define?a8255_PC??XBYTE[0xDDFF]????//PC口地址
#define?a8255_CON?XBYTE[0xDFFF]????//控制字地址?
sbit?DQ=P1^7;??????????????????????//定義18B20數據端口
sbit?Buzzer=P3^3;? ???????????????//定義蜂鳴器數據端口
unsigned?char?temp=0;
float?f_temp=0;
unsigned?char?const?dis_table[]={0xa00xbb0x620x2a0x390x2c0x240xba0x200x280xff};
/************************************
*?????????????延時函數??????????????*
************************************/
void?delay(unsigned?int?i)?
{?
??while(i--);?
}?
/************************************
*?????????定義數碼管函數????????????*
************************************/
void?display1(unsigned?char?placeunsigned?char?num)
{
????unsigned?char?i=0display_num=0;
unsigned?int?test=0;
a8255_CON=0x80;
a8255_PB=0xff;
a8255_PA=0xff;
????delay(2);
????if(place==1)??
test=0xdf; //個位數碼管
????else?if(place==2)??
test=0xef; ????//十位數碼管
????else?if(place==3)??
test=0xf7; //百位數碼管
????else?if(place==4)??
test=0xfb; //千位數碼管
????else?if(place==5)??
test=0xfd; //萬位數碼管
????else?if(place==6)??
test=0xfe; //十萬位數碼管
????a8255_PA=test;
????if(num==0)
display_num=dis_table[0];
else?if(num==1)
display_num=dis_table[1];
else?if(num==2)
display_num=dis_table[2];
else?if(num==3)
display_num=dis_table[3];
else?if(num==4)
display_num=dis_table[4];
else?if(num==5)
display_num=dis_table[5];
else?if(num==6)
display_num=dis_table[6];
else?if(num==7)
display_num=dis_table[7];
else?if(num==8)
display_num=dis_table[8];
else?if(num==9)
display_num=dis_table[9];
else?if(num==10)
display_num=dis_table[10]; ?//此數為0xff,讓數碼管滅
a8255_PB=display_num;
delay(100);
}
/************************************
*???????初始化ds18b20函數???????????*
************************************/
void?Init_DS18B20(void)?
{?
????unsigned?char?x=0;?
????DQ=1;???????//DQ復位?
????delay(1);???//稍做延時?
????DQ=0;???????//單片機將DQ拉低?
????delay(80);??//精確延時大于480us?
????DQ=1;???????//拉高總線?
????delay(5);?
????x=DQ;
????while(x);???//稍做延時后如果‘x=0‘則初始化成功‘x=1‘則初始化失敗
????delay(15);?
}??
/************************************
*?????ds18b20寫一個字節函數?????????*
************************************/
void?WriteOneChar(unsigned?char?dat)?
{?
???unsigned?char?i=0;?
???for?(i=8;i>0;i--)?
??{?
??????DQ=0;?
??????DQ=dat&0x01;?
??????delay(2);?
??????DQ=1;?
??????dat>>=1;?
??}?
???delay(2);?
}?
/************************************
*??????ds18b20讀一個字節函數????????*
************************************/
unsigned?char?ReadOneChar(void)?
{?
????unsigned?char?i=0;?
????unsigned?char?dat=0;?
????for?(i=8;i>0;i--)?
????{?
????????DQ?=?0;???//給脈沖信號?
????????dat>>=1;??
????????DQ?=?1;???//給脈沖信號?
????????if(DQ)?
????????dat|=0x80;?
????????delay(2);?
????}?
????return(dat);?
}
/************************************
*?????????????顯示
?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----
?????文件????1869615??2012-07-20?17:12??溫度報警系統(上位機+下位機)\溫度報警系統(上位機部分)\安裝版\Temp.exe
?????文件??????45056??2012-07-20?16:40??溫度報警系統(上位機+下位機)\溫度報警系統(上位機部分)\綠色版\溫度報警系統.exe
?????文件???????6376??2009-05-07?14:37??溫度報警系統(上位機+下位機)\溫度報警系統(下位機部分)\STARTUP.A51
?????文件??????14048??2012-07-19?16:28??溫度報警系統(上位機+下位機)\溫度報警系統(下位機部分)\STARTUP.LST
?????文件????????749??2012-07-19?16:28??溫度報警系統(上位機+下位機)\溫度報警系統(下位機部分)\STARTUP.OBJ
?????文件??????15427??2012-07-19?16:28??溫度報警系統(上位機+下位機)\溫度報警系統(下位機部分)\temp
?????文件???????5809??2012-07-19?16:28??溫度報警系統(上位機+下位機)\溫度報警系統(下位機部分)\temp.c
?????文件??????10370??2012-07-19?16:28??溫度報警系統(上位機+下位機)\溫度報警系統(下位機部分)\temp.hex
?????文件?????????56??2012-07-19?16:28??溫度報警系統(上位機+下位機)\溫度報警系統(下位機部分)\temp.lnp
?????文件??????12189??2012-07-19?16:28??溫度報警系統(上位機+下位機)\溫度報警系統(下位機部分)\temp.LST
?????文件??????19603??2012-07-19?16:28??溫度報警系統(上位機+下位機)\溫度報警系統(下位機部分)\temp.M51
?????文件??????13542??2012-07-19?16:28??溫度報警系統(上位機+下位機)\溫度報警系統(下位機部分)\temp.OBJ
?????文件??????35817??2012-07-19?08:10??溫度報警系統(上位機+下位機)\溫度報警系統(下位機部分)\temp.plg
?????文件??????55653??2012-07-18?15:25??溫度報警系統(上位機+下位機)\溫度報警系統(下位機部分)\temp.uvopt
?????文件??????13398??2012-07-16?11:33??溫度報警系統(上位機+下位機)\溫度報警系統(下位機部分)\temp.uvproj
?????文件??????55657??2012-07-16?20:33??溫度報警系統(上位機+下位機)\溫度報警系統(下位機部分)\temp_uvopt.bak
?????文件??????????0??2012-07-16?09:32??溫度報警系統(上位機+下位機)\溫度報警系統(下位機部分)\temp_uvproj.bak
?????文件????????673??2012-07-19?17:02??溫度報警系統(上位機+下位機)\軟件說明.txt
?????目錄??????????0??2012-07-20?17:13??溫度報警系統(上位機+下位機)\溫度報警系統(上位機部分)\安裝版
?????目錄??????????0??2012-07-18?20:22??溫度報警系統(上位機+下位機)\溫度報警系統(上位機部分)\綠色版
?????目錄??????????0??2012-07-19?17:11??溫度報警系統(上位機+下位機)\溫度報警系統(上位機部分)
?????目錄??????????0??2012-07-19?16:59??溫度報警系統(上位機+下位機)\溫度報警系統(下位機部分)
?????目錄??????????0??2012-07-19?17:11??溫度報警系統(上位機+下位機)
-----------?---------??----------?-----??----
??????????????2174038????????????????????23
- 上一篇:實驗室設備管理系統 VB+SQL
- 下一篇:車輛管理系統VB源碼
評論
共有 條評論