基于VB6.0的温度采集控制监控系统

这是本人在众多网友开发的基础上，进一步对基于单片机的温度采集系统进行了优化与完善，VB用户界面具有实时监控温度数据，温度数据曲线描绘，同时利用后台数据库进行数据的保存，以及利用上位机实时调整下位机温度监控范围。特此拿出来跟大家分享。

#include 
#define uint unsigned int
#define uchar unsigned char
//typedef unsigned char UINT8;
//typedef unsigned int UINT16;
sbit DQ=P1^1;

/**********************************/
void delay_18B20（uchar i）//延时1微秒
{
   while（i--）;
}
/**********************************//**********************************/
void ds1820rst（）/*ds1820复位*/
{ 	
	TR0=0;
	DQ = 1;          //DQ复位
	delay_18B20（4）; //延时
	DQ = 0;          //DQ拉低
	delay_18B20（100）; //精确延时大于480us
	DQ = 1;          //拉高
	delay_18B20（40）;
	TR0=1; 
} 

uchar ds1820rd（）/*读数据*/
{ 
	uchar i=0;
	uchar dat = 0;
	for （i=8;i>0;i--）
	{  
		TR0=0;
		DQ = 0; //给脉冲信号
	    dat>>=1;
	    DQ = 1; //给脉冲信号
	    if（DQ）
	   		 dat|=0x80;
	    delay_18B20（10）;
		TR0=1;
	}
   return（dat）;
}

void ds1820wr（uchar wdata）/*写数据*/
{
	uchar i=0;
    for （i=8; i>0; i--）
	{ 
		TR0=0;
		DQ = 0;
	    DQ = wdata&0x01;
	    delay_18B20（10）;
	    DQ = 1;
	    wdata>>=1;
		TR0=1;
    }
}

uchar read_temp（void）/*读取温度值并转换*/
{
	uchar ab;
	uint tvalue;
	ds1820rst（）;    
	ds1820wr（0xcc）;//*跳过读序列号*/
	ds1820wr（0x44）;//*启动温度转换*/
	ds1820rst（）;    
	ds1820wr（0xcc）;//*跳过读序列号*/ 
	ds1820wr（0xbe）;//*读取温度*/ 
	a=ds1820rd（）;
	b=ds1820rd（）;
	tvalue=b;
	tvalue<<=8;
	tvalue=tvalue|a;
	tvalue=tvalue*5/8;//温度值扩大10倍，精确到1位小数
	return（tvalue）;
}

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----
     目录           0  2012-05-19 13:41  上位机\
     文件       43255  2012-05-19 11:59  上位机\Form1.frm
     文件        5252  2012-05-19 10:57  上位机\Form2.frm
     文件         778  2012-05-19 10:57  上位机\Form2.frx
     文件        9707  2012-05-19 11:47  上位机\Form3.frm
     文件        1014  2012-05-19 11:47  上位机\Form3.frx
     文件         329  2012-05-09 12:19  上位机\Form3.log
     文件        7099  2012-05-13 11:02  上位机\Form4.frm
     文件         190  2012-04-24 10:50  上位机\MSSCCPRJ.SCC
     文件        2304  2012-04-24 11:59  上位机\VB20F5.tmp
     文件        2304  2012-04-22 15:55  上位机\VB29F.tmp
     文件        2304  2012-04-22 16:03  上位机\VB6EA3.tmp
     文件        2304  2012-04-22 19:05  上位机\VB8360.tmp
     文件        2304  2012-04-23 21:43  上位机\VBDED4.tmp
     文件        2304  2012-04-23 22:29  上位机\VBF950.tmp
     文件        2017  2012-05-19 11:59  上位机\工程1.vbp
     文件         205  2012-05-19 12:57  上位机\工程1.vbw
     文件      186368  2012-05-19 13:37  上位机\数据.mdb
     文件       90112  2012-05-14 13:20  上位机\温度监控采集系统.exe
     目录           0  2012-05-19 13:41  下位机程序\
     文件        1414  2012-05-12 16:15  下位机程序\18b20.c
     文件        3692  2012-05-12 21:01  下位机程序\18b20.LST
     文件        4070  2012-05-12 21:01  下位机程序\18b20.OBJ
     文件       12140  2012-05-12 21:01  下位机程序\text
     文件        2712  2012-05-12 20:26  下位机程序\text.c
     文件        3371  2012-05-12 21:01  下位机程序\text.hex
     文件          54  2012-05-12 21:01  下位机程序\text.lnp
     文件        6929  2012-05-12 21:01  下位机程序\text.LST
     文件       16348  2012-05-12 21:01  下位机程序\text.M51
     文件        9732  2012-05-12 21:01  下位机程序\text.OBJ
     文件        1144  2012-05-12 21:18  下位机程序\text.Opt
............此处省略4个文件信息