Pt1000热电阻温度测量.docxVIP

  1. 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
  2. 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  3. 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  4. 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  5. 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  6. 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  7. 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
工作原理 本系统可以分为五大部分:热电阻温度采集、运行状态显示、继电器控制、键盘输入、 风向步进电机控制。 2.1 热电阻温度采集 热电阻传感器以其温度特性稳定、测量精 图1 Pt1000热电阻温度测量电路 度高的特点,在大型中央空调得到了广泛的应用。 采用 Pt1000热电阻作为温度传感器的测量电路原理图如图 1 所示。热电阻 Rt与三个电阻 接成电桥。 当温度变化时, 使得运算放大器的同相输入端的电位发生变化, 经过运算放大器 放大之后输入到 Atmega16 单片机进行 AD 转换。由于单片机采用 5V 电压作为 ADC 的参考电 源,而电桥在温度变化为 0~100° C时,输出电压范围为 0~ 0.7V ,所以确定运算放大电路 的放大倍数为 7,以获得最佳的测量结果。运算放大电路的电阻按以下公式确定: 1+ R5 u0 7 R4 ui R6 R5 // R4 取 R5 6k , R4 1k, R6 860 。输出电压变化范围大致是 0~ 5V 。 由于 ADC 的转换精度为 10,故当输入电压为 5V 时,其采样值为 1023,根据电桥平衡原理, 可得到以下公式: 5V N Rt 1 ) (1) U ( 7 1023 R0 Rt 2 其中, N—— ADC 数据寄存器的值, U——电桥电源电压, R0 —— Pt1000在0° C时的电阻 1000 。 Pt1000 热电阻的阻值按以下公式计算: : 1 Rt R0 (1 A t B t 2 ) ( 2) Rt——温度 t 阻的 阻 , Ω; t——温度,℃; R0 —— Pt1000在 0° C 的 阻 1000 。 A ——分度常数, A =0.0038623139728 B——分度常数, B = -0.00000065314932626 用 Visual Basic.Net 根据以上公式( 1)、( 2)生成用 N 来 找温度 t的程序表格,其代 如 下: Private Sub Pt1000() Me.Cursor = Cursors.WaitCursor txtTab.Clear() Dim U As Integer = 9 电桥电源电压 热电阻 0度时的电阻值 Dim Pt1000_R0 As Integer = 1000 Dim n As Integer Dim sngT As Single Dim sngRt As Single txtTab.AppendText(const float Pt1000Tab[]={ Chr(13) Chr(10)) For n = 0 To 1023 sngRt = (10000 * n + 7161000 * U) / (7161 * U - 10 * n) sngT = (-const_A + Sqrt(const_A ^ 2 - 4 * const_B * (1 - sngRt / Pt1000_R0))) / (2 * const_B) If n 1023 Then txtTab.AppendText(Format(Abs(sngT), 0.0) , /* n */) Else txtTab.AppendText(Format(Abs(sngT), 0.0) /* n */ Chr(13) Chr(10) };) End If If n Mod 5 = 0 Then txtTab.AppendText(Chr(13) Chr(10)) End If Next txtTab.SelectAll() txtTab.Copy() Me.Cursor = Cursors.Default End Sub 生成的程序常数表格( 1024个 )部分如下: const float Pt1000Tab[]={ 0.0, /* 0 */ 0.1, /* 1 */0.2, /* 2 */0.2, ?? 63.4, /* 696 */63.5, /* 697 */ 2 ?? 99.3, /* 1022 */99.4 /* 1023 */ }; 2.2 运行状 示 本系 采用一 16× 4的字符型液晶模 , 种 型的 LCD 用很广泛,其控制 主 芯片 HD44780 及其 展 芯片 HD44100 (或兼容芯片) ,少量阻、容元件, 构件等装 配在 PCB板上而成。 字符型液晶 示模 目前在国 上已 范化, 无 示屏 格如何 化,其 特性和接口形式都是 一的。 因此只要 出一种型号的接口 路, 在指令 置上 稍加改 即可使用各种 格的字符型液晶 示模 。 odeVisionAVR 集成开 境集成 种 型LCD 的函数, 可方便

文档评论(0)

153****3726 + 关注
实名认证
文档贡献者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档