搜索
bottom↓
回复: 24

分享一个生成NTC热敏电阻测温查找表的VBS脚本

  [复制链接]

出0入0汤圆

发表于 2015-2-25 15:33:24 | 显示全部楼层 |阅读模式
本帖最后由 eleqian 于 2015-2-25 15:35 编辑

根据NTC阻值公式计算,在公式有效范围内都能生成,查找表间隔为1摄氏度,如果需要更高分辨率可以插值得到。
Rn = Ro * e^(B * (1/Tn - 1/To))
  1. 'eleqian 2015-2-25
  2. '计算NTC电阻在各温度点对应ADC采样值
  3. '可以用Ctrl+C复制消息框内容再粘贴整理得到查找表

  4. 'NTC电阻参数,t0和r0分别为参考温度点及其阻值,B为器件常数
  5. Const t0 = 25
  6. Const r0 = 10000
  7. Const B = 3435
  8. 'ADC采样参数,ru为接VCC端固定电阻,adcn为ADC位数
  9. Const ru = 10000
  10. Const adcn = 12
  11. '开始和结束温度(摄氏度)
  12. Const ts = -19
  13. Const te = 50
  14. '格式化对齐参数,vw为数据占位宽度,ln为每行数据个数
  15. Const vw = 4
  16. Const ln = 10
  17. '科学常数,一般不需修改
  18. Const tK = 273.15
  19. Const e = 2.71828

  20. Dim t, r, v
  21. Dim m, s

  22. s = ""
  23. m = 2 ^ adcn - 1
  24. For t = ts To te
  25.     r = r0 * (e ^ (B * (1 / (t + tK) - 1 / (t0 + tK))))
  26.     v = Round(m * r / (r + ru))
  27.     s = s & Right(Space(vw) & v, vw) & ", "
  28.     If (t - ts + 1) Mod ln = 0 Then
  29.         s = s & "/*" & t - (ln - 1) & "~" & t & "*/" & Chr(10)
  30.     End If
  31. Next

  32. Msgbox s
复制代码

使用时将上面的代码保存为ntc.vbs,修改好开头的参数,双击运行会弹出消息框。为了简单起见和避免杀软作怪没有调用对象写入文件或者复制到剪切板,必须按Ctrl+C复制。
从一个工程里面拿出来的NTC测温代码,包括查表和插值代码,单片机是STM8L051:


本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x

出0入4汤圆

发表于 2015-2-25 17:03:33 | 显示全部楼层
但是怎么保障精度,我拆的欧姆龙就是一个电阻串NTC,不知道人家是怎么把精度做的特别高,测得还很快

出0入0汤圆

 楼主| 发表于 2015-2-25 17:27:07 | 显示全部楼层
clesun 发表于 2015-2-25 17:03
但是怎么保障精度,我拆的欧姆龙就是一个电阻串NTC,不知道人家是怎么把精度做的特别高,测得还很快 ...

NTC一般误差比较大,同时按照公式算的也有误差,除了用高精度器件外要额外校准,楼主位的只适合简单测测气温这些,减少做查找表的手工劳动。

出0入4汤圆

发表于 2015-4-14 11:07:01 | 显示全部楼层
收藏了,谢谢楼主分享

出0入0汤圆

发表于 2015-4-14 11:36:27 | 显示全部楼层
学习一下!

出0入0汤圆

发表于 2015-4-15 15:30:32 | 显示全部楼层
幸亏我来论坛里看了看,excel表都打开了

出0入0汤圆

发表于 2015-8-27 16:11:57 | 显示全部楼层
这个我曾经做过,但是要将精度做的高还是比较难的,另外NTC离散性太大,一般精度都在5%左右

出0入0汤圆

发表于 2015-12-12 11:22:08 | 显示全部楼层
谢谢楼主分享

出5入10汤圆

发表于 2016-7-27 15:00:30 | 显示全部楼层
楼主参考电压在哪里

出0入0汤圆

发表于 2016-12-31 09:01:41 | 显示全部楼层
NTC查表测温,功耗怎么样?

出0入0汤圆

发表于 2017-6-15 17:08:45 | 显示全部楼层
不错,谢谢分享

出0入0汤圆

发表于 2017-6-15 20:01:56 | 显示全部楼层
使用热欧电阻进行采样时,总是因为电阻精度问题导致温度检测不准确,不管什么方法都需要手动修改,这是硬伤啊

出0入0汤圆

发表于 2017-6-19 17:52:03 | 显示全部楼层
请教楼主 bool NTC_GetT(int8_t *t_z, uint8_t *t_f)这个函数怎么使用?

出0入0汤圆

发表于 2017-8-4 14:48:23 | 显示全部楼层
谢谢楼主分享,先下来看看~~~~~~~~~

出0入0汤圆

发表于 2017-8-4 16:14:22 | 显示全部楼层
manzmh 发表于 2015-8-27 16:11
这个我曾经做过,但是要将精度做的高还是比较难的,另外NTC离散性太大,一般精度都在5%左右 ...

日本Semtiec的NTC应该还可以。

出0入0汤圆

发表于 2017-8-7 23:09:23 | 显示全部楼层
谢谢分享

出0入0汤圆

发表于 2017-8-10 23:13:30 | 显示全部楼层
标记一下,有时会用到。

出0入0汤圆

发表于 2018-7-9 11:17:24 | 显示全部楼层
谢谢分享,收下了

出0入0汤圆

发表于 2018-9-5 20:58:49 | 显示全部楼层
谢谢,学习!!!

出0入0汤圆

发表于 2018-9-6 07:57:37 | 显示全部楼层
谢谢分享

出0入0汤圆

发表于 2018-9-9 11:15:35 来自手机 | 显示全部楼层
谢谢楼主分享!!         

出0入0汤圆

发表于 2018-10-25 07:15:05 来自手机 | 显示全部楼层
谢谢分享

出0入0汤圆

发表于 2019-10-18 15:40:55 | 显示全部楼层
谢谢分享

出0入0汤圆

发表于 2019-10-19 10:45:38 | 显示全部楼层
谢谢分享!!!!!!!!!

出0入0汤圆

发表于 2019-10-19 11:03:57 | 显示全部楼层
B为器件常数,一般取值是多少?不同的NTC,B值在那里可以查询
回帖提示: 反政府言论将被立即封锁ID 在按“提交”前,请自问一下:我这样表达会给举报吗,会给自己惹麻烦吗? 另外:尽量不要使用Mark、顶等没有意义的回复。不得大量使用大字体和彩色字。【本论坛不允许直接上传手机拍摄图片,浪费大家下载带宽和论坛服务器空间,请压缩后(图片小于1兆)才上传。压缩方法可以在微信里面发给自己(不要勾选“原图),然后下载,就能得到压缩后的图片】。另外,手机版只能上传图片,要上传附件需要切换到电脑版(不需要使用电脑,手机上切换到电脑版就行,页面底部)。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

手机版|Archiver|amobbs.com 阿莫电子技术论坛 ( 粤ICP备2022115958号, 版权所有:东莞阿莫电子贸易商行 创办于2004年 (公安交互式论坛备案:44190002001997 ) )

GMT+8, 2024-4-20 00:32

© Since 2004 www.amobbs.com, 原www.ourdev.cn, 原www.ouravr.com

快速回复 返回顶部 返回列表