91av视频/亚洲h视频/操亚洲美女/外国一级黄色毛片 - 国产三级三级三级三级

  • 大小: 1.72MB
    文件類型: .rar
    金幣: 2
    下載: 0 次
    發布日期: 2023-08-30
  • 語言: VB
  • 標簽: vb??溫度報警??上位機??

資源簡介

自己用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


評論

共有 條評論