压缩机性能试验软件系统设计+文献综述(7)
图3.5 添加自定义成员
图3.6 接口向导总结
（5）双击工程资源管理器中的usercontrol1，打开控件界面设计窗口。插入一个图像框，调整大小，以便用于建立ph图的坐标系统。
图3.7 ph图坐标界面
图片框中的坐标建立采用 以下代码，其中pc表示选择的制冷工质的临界温度：
Picture1.Scale (60, Log(1.2 * pc) / Log(10))-(600, Log(50) / Log(10))
横坐标从60到600，纵坐标为压力的对数值，从log(10)到log（1.2*pc）。
（6）临界曲线的绘画，首先通过INFODLL函数求出工质的临界温度，设为温度上限，由于常用工质制冷范围不低于180K，在该温度下也没有达到这些工质的凝固点，所以设180K为临界曲线的下限。
由于临界曲线上定下温度与压力，ph图上会有两个点与之对应，所以必须分别求出两点的具体焓值。利用如下语句进行临界曲线的绘画：
For t = 180 To tc Step 1 '临界曲线1
j = j + 1
Call SATTdll(t, x(1), 1&, p, Dl, Dv, xliq(1), xvap(1), ierr, herr, 255&)
quxian2(j) = p
t = t + 0.000001 '该点温度加上一个微增量表示临界曲线右半边点，减去一个微增量则表示临界曲线左半边的点
Call TPFLSHdll(t, p, x(1), d, Dl, Dv, xliq(1), xvap(1), q, e, h, s, cv, cp, w, ierr, herr, 255&)
quxian1(j) = h / wmm
pp1 = Log(quxian2(j)) / Log(10)
pp0 = Log(quxian2(j - 1)) / Log(10)
Picture1.Line (quxian1(j - 1), pp0)-(quxian1(j), pp1)
Next
设置温度从180K到tc，利用SATTDLL函数求出温度对应点上的压力值，再通过求出的压力和温度，调用TPFLSHDLL函数求出该点的焓值，这样就得到了临界曲线上该温度的压力和焓值，在ph图上绘出点来，与之后的点进行连线，循环以上步骤，绘出临界曲线来。
（7）制冷系统的工作过程ph图的绘画，利用输入的设定温度先确定压缩机入口的压力值，设定温度加上过热度可以算出压缩机入口温度压力，这里假定压缩过程为等熵过程，先利用函数TPFLSHDLL，输入压力，温度，确定等熵过程的熵值
再调用函数PSFLSHDLL函数可求出随着压力变化而变化的焓值，这样就能在ph图上表示出等熵过程曲线，同样利用冷凝压力与过冷度求出冷凝器出口焓值，通过连线就能画出完整的ph图来。
（8）ActiveX控件的封装，在文件菜单中选择生成ocx，至此ActiveX控件制作完成。
图3.8 生成ocx
（6）再需要使用该控件时，需要在计算机上注册该控件，具体方法：
打开开始菜单，选择运行，在运行窗口中的打开文本框中输入regsvr32和具体路径，如regsvr32 C:\Users\Administrator\Desktop\物性查询ocx\ocx\工程1.ocx，点确定。
图3.9 加载ocx控件
（7） 弹出下图中的对话框，说明注册成功，可以在其他程序中调用该ActiveX控件了，实现物性查询和计算功能。
图3.10 注册成功
3.5.4 力控的axtivex控件的插入方法
（1） 打开力控软件新建一个工程进入开发环境
（2） 选择菜单查看点击工具箱，打开工具栏。
图3.11打开工具箱
（3） 在工具栏中的ActiveX控件栏中在选择对象处右键选添加，弹出的OLE控件管理器选右边的添加按钮，在插入ActiveX控件对话框中找到之前制作的ocx控件，选确定。
图3.12 activex控件的添加
图3.13 OLE控件管理器
下一篇：辊式尖头机传动设计+CAD图纸