资源简介
这是本人在众多网友开发的基础上,进一步对基于单片机的温度采集系统进行了优化与完善,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个文件信息
相关资源
- 一个小插件,用来解决VB6.0无法保存带
- vb6.0的贪吃蛇游戏
- vb6.0上位机源代码-温度控制和采集
- vb6.0 Activex控件制作
- VB6.0编制的万能程序自动更新重启源码
- VB6.0做的编译器源码
- VB操作IIS文档同时也适用VB6.0的工程
- vb6.0编写的Modus/TCP从站程序
- 可记忆计算过程的计算器(VB6.0源代码
- 弹跳的小球(VB6.0源代码编写)包含通
- VB6.0 多线程 实验成功
- 运行时可以用鼠标拖动图片按自己的
- 快速全盘查找文件程序(VB6.0代码编写
- 显示农历属相(VB6.0代码)
- 带数据库的系统登录程序(VB6.0源代码
- 简单的乒乓球小游戏VB6.0源代码很有参
- 计算器程序(VB6.0代码编写)计算器
- 读取Excel内容VB6.0源代码
- VB6.0桌面弹球小游戏
- 用VB做的单片机上位机
- VB6.0 读取NMEA的GGA
- VB6.0道格拉斯取点算法
- vb 与单片机串口通信程序
- VB6.0与S7200编程口(PPI协议)通讯
- VB6.0权限管理
- VB6.0 摄像头源码,不是采用系统API做
- VB串口通信:PC机与51单片机串口通信
- VB6.0文件之 枚举系统正在运行的程序
- vb6.0+access 案例 企业资产管理信息系统
- 基于单片机和VB的多点温度监控系统设
评论
共有 条评论