我也贴个我第一次做的DS18B20温度计,含DELPHI上位机曲线图和PCB

SkyGz · 发表于 2010-2-7 19:16:18

闲着无事就搞来玩玩, 上位机用DELPHI编写,其中用到的三方控件有ComPort4.0,Raize5.2控件包中的LED控件和TeeChart7.0.0.6,可显示实际温度值和ROM序列号
PCB用DXP2004画了个图,热转印来用,当练习用...

下位机用共阳4位数码管+89C2051显示,采用9V电池供电... 不知数码管耗电大不大的...

发现个不知算不算问题的问题.感觉出来的温度值不对,例如自已弄的显示26度,而看水银温度计才22度,又特别跑到某酒店前台看了看那个大屏幕的LED温度显示,都是相差3至4度的.

(原文件名:IMG_0120.jpg)

(原文件名:IMG_0121.jpg)

点击此处下载 ourdev_532957.rar(文件大小:376K) (原文件名:DS18B20+89C2051+共阳四位数码管.rar)

yunqian09 · 发表于 2010-2-7 19:47:56

打算做上位机。学习下、、、、、、、、、、、、、、

21006091 · 发表于 2010-2-7 19:49:02

顶楼主,随便标记!

1181zjf · 发表于 2010-2-7 20:35:40

不错

zheshiwo · 发表于 2010-2-7 21:30:41

DS18B20离单片机远点的话，是不是温度就要准确些？

jiezhang · 发表于 2010-2-7 21:47:35

有个问题：
在程序中有中断的话，对DS18B20的读写时序有影响，咋处理？

acer · 发表于 2010-2-7 21:55:48

不错

SkyGz · 发表于 2010-2-8 20:28:40

回复【4楼】zheshiwo
DS18B20离单片机远点的话，是不是温度就要准确些？
-----------------------------------------------------------------------

果然是的,我拆下来用线接出来用,温度降了不少...

lou0908 · 发表于 2010-2-10 20:41:13

不错

lyzjc · 发表于 2010-2-10 21:52:32

最好做个探头出来包括离7805大概3公分的距离都造成了1度的温度上升。（7805电流80mA）

LZ也用delphi啊终于找到同类了

lysoft · 发表于 2010-2-10 22:04:24

看来用Delphi的还有不少人嘛~偶用它十几年了~呵呵
玩过ds 18B20,不过不如SHT75,只是后者要200多一片,呵呵

ggyyll8683 · 发表于 2010-2-10 22:41:36

上位机，关注

yunqian09 · 发表于 2010-2-12 20:15:00

LZ能否把用到的控件也转上来呢？谢谢了

skydog · 发表于 2010-2-12 21:36:17

学习一下，呵呵

SkyGz · 发表于 2010-2-13 16:52:30

回复【12楼】yunqian09
LZ能否把用到的控件也转上来呢？谢谢了
-----------------------------------------------------------------------

Comport4
http://www.2ccc.com/article.asp?articleid=5469
http://www.ourdev.cn/bbs/bbs_content.jsp?bbs_sn=3411130&bbs_page_no=1&search_mode=3&search_text=SkyGz&bbs_id=9999

Raize5.2
http://www.2ccc.com/article.asp?articleid=5389
Raize5.3
http://www.51delphi.com/delphi/download?num=2

TeeChart8.0.0.6
http://www.51delphi.com/delphi/download?num=34

yunqian09 · 发表于 2010-2-14 00:37:42

回复【14楼】SkyGz
-----------------------------------------------------------------------

thank you @@@@@@@

====================================
Procedure TMainForm.TimerTimer(Sender: TObject);
Begin
  Chart1.Series[0].AddXY(I, TemperData, TimeToStr(Time));
  If I < 60 Then
XStr[I] := TimeToStr(Time)
  Else
  Begin
XStr[I Mod 60] := TimeToStr(Time);
Inc(Y);
Chart1.BottomAxis.SetMinMax(Y, Y + 59);
  End;
  Inc(I);
End;

最近正在学习 tchart  SkyGz 能不能讲一下上面代码什么意思啊？谢谢啊@@@@ 新年快乐

beer · 发表于 2010-2-14 00:40:15

mark.

lanmao8701 · 发表于 2010-3-1 22:04:35

ding

gaoshou_11 · 发表于 2010-4-1 22:23:30

请问楼主：
我用你的程序烧写到s52单片机后运行你的T.exe程序怎么不显示温度呢？红线老是在0度移动？
我不会Delphi 不要笑我哈
楼主能加你的QQ吗？我的272563184 向你学习下

gaoshou_11 · 发表于 2010-4-1 22:24:33

用超级终端也没数据这是怎么回事？

SkyGz · 发表于 2010-4-2 14:01:57

回复【19楼】gaoshou_11
用超级终端也没数据这是怎么回事？
-----------------------------------------------------------------------

要发送 0x0B给单片机后,单片机才会开始传数据给PC

gaoshou_11 · 发表于 2010-4-2 18:40:37

回复【20楼】SkyGz
-----------------------------------------------------------------------
0x0b是说11位数据发送完吧，就是1位启动位 8个数据位 1个TB8 一个停止位但是超级终端是一直没数据不知道怎么回事

wmz61755100 · 发表于 2010-5-22 13:54:04

学习！

430504 · 发表于 2011-3-1 07:59:36

学习一下吧站在巨人的肩膀上看的更高

liangyanzhuo11 · 发表于 2011-11-23 11:10:24

我也想学

jinniuxing88 · 发表于 2012-8-14 14:58:00

我也想学，

我也贴个我第一次做的DS18B20温度计,含DELPHI上位机曲线图和PCB

阿莫论坛20周年了！感谢大家的支持与爱护！！