• 大小: 94KB
    文件类型: .zip
    金币: 1
    下载: 0 次
    发布日期: 2021-06-16
  • 语言: VB
  • 标签: 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个文件信息

评论

共有 条评论