铸造车间现场环境温湿度实时监测试验

《铸造车间现场环境温湿度实时监测试验》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、铸造车间现场环境温湿度实时监测试验刘治军(玉柴机器股份有限公司,广西玉林,537005)摘要：对铸造车间现场环境的温湿度实时监测进行了试验，结果表明，通过使用温湿度变送器作为传感器，辅以自编软件能实现对车间现场环境温湿度的实时监测。关键词：铸造；温度；湿度；监测TheTestofRealTimeMonitoringFoundryWorkshopEnvironmentTemperatureandHumidityLiuZhijun(YuchaiMachineryCo.,Ltd.,YulinGuangXiChin

2、a,537006)Abstract:　Realtimemonitoringoftemperatureandhumidityinfoundryworkshopenvironmentweretested,theresultsshowedthat,throughtheuseoftemperatureandhumiditysensors,combinedwiththesoftwarecanrealizethereal-timemonitoringofthetemperatureandhumidityofthewor

3、kshopenvironment.Keywords:　foundry;temperature;Humidity;monitor铸造车间现场环境温度、湿度会对铸件质量产生影响作者简介：刘治军(1973.6-)，男，广西博白人，毕业于江苏理工大学，工程师，主要从事铸造质量管理方面的工作。E-mail：mr_liuzj@163.com，比如南方的梅雨季节湿度较高，铸件气孔等缺陷会上升，铸件表面容易生锈等，气温高低也会对冷芯砂性能产生明显影响从而引相应的质量波动，同时温湿度也会对铸造设备性能产生影响。相信大部分铸造

4、工作者都会有以上定性的认识，但对于定量的影响程度研究不多，如具体什么水平的温度、湿度会产生多大影响，什么水平的温度、湿度应该采取什么样应对措施等研究的不多，也很少有铸造企业把环境温湿度作为工艺因素进行监测，实际上一年四季铸造车间现场温湿度波动是很大的，在铸件质量一致性要求越来越高的今天，如果还继续忽视车间现场温湿度显然是不可取的，而要关注环境温湿度的影响，首先就是要对现场环境温湿度进行实时监测并建立温湿度数据库。因此我们进行铸造车间现场环境温湿度监测试验。1　试验设备试验所用的主要设备是485型温湿度变送器

5、，它集成了温度、湿度传感器和数据传送的相关485接口。它的外形如图1所示，引脚定义如表1所示：图1485型温湿度变送器外形表1485型温湿度变送器引脚定义序号说明1485的A端2485的B端3电源正（9-24VDC）4电源负5NC2　试验过程2.1硬件接线把温湿度变送器安装在车间现场具有代表性的位置，然后通过485电缆把信号引到计算机旁边，最后通过USB转485转接线与计算机连接，接线原理图如图2所示：图2硬件接线图2.2软件编程用delphi6编定桌面程序实现接收温湿度变送器传来的温湿度数据并存入数据库中

6、。2.2.1温湿度变送器通讯协议本文试验所使用的485型号温湿度变送器通讯协议示例以及解释如下：举例：读取设备地址0x01的温湿度值（1）问询帧：地址码功能码起始地址数据长度校验码低位校验码高位010300000002C40B（2）应答帧：（例如读到温度为-10.1℃，湿度为65.8%RH）地址码功能码返回字节数湿度值温度值校验码低位校验码高位01030402928065FB8D（3）温度计算：当温度低于0℃时温度数据的最高位置1,否则为0。-10.1℃表示为1000000001100101温度：00000

7、00001100101=0065H(十六进制)＝6×16+5=101=>温度＝-10.1℃（4）湿度计算：湿度：0000001010010010=0292H(十六进制)=2×256+9×16+2=658=>湿度=65.8%RH2.2.2读取温湿度数据的桌面程序代码读取变送器数据的流程是先通过串口给变送器发申请，即发问询帧，变送器接到申请后在串口通过返回应答帧，然后对应答的数据进行计算，得出温度、湿度数值。发送问询申请的delphi代码如下：procedureTfrmMain.Timer1Timer(Send

8、er:TObject);varsendBuf:array[0..7]ofansichar;beginsendBuf[0]:=#$01;sendBuf[1]:=#$03;sendBuf[2]:=#$00;sendBuf[3]:=#$00;sendBuf[4]:=#$00;sendBuf[5]:=#$02;sendBuf[6]:=#$C4;sendBuf[7]:=#$0B;comm1.WriteCommData(se