我已经在MSChart1画了一个循环图了,那可不可以再在此图中加入制冷剂CO2的饱和线,代码具体如下
Private Sub Command2_Click()
Dim TGCin As Double
Dim TGCout As Double
Dim Tamb As Double
Dim T_evp As Double ' 蒸发温度
Dim TCO2out As Double '气体冷却器制冷剂出口温度
Dim P1, P2L, P2, P3, P4 As Double
Dim H1, H2L, H2, H3, H4 As Double
Dim S1, S2L, S2, S3, S4 As Double
Dim D1, D2L, D2, D3, D4 As Double
Dim T1, T2L, T2, T3, T4 As Double
Dim eta, Eis, Ev As Double ' 压缩比,双效率
Dim P_discharge As Double ' 排气压力
Dim ierr As Long ' 错误代码
Dim herr As String * 255 ' 错误信息
Dim mv, mg As Double ' 容积流量与质量流量
Dim QGC As Double '气体冷却器制热量
Dim QIHX, QEVAP As Double '回热器和蒸发器制热量
Dim QALL, WC, COP As Double '总制热量和总功耗、COP
Dim q As Double, kq As Long, dl As Double, dv As Double
Dim xliq As Double, xvap As Double, e As Double
Dim cv As Double, cp As Double, w As Double
' 输入温度 (K)
' 输入压力 (kPa)
' 输出焓值 (J/mol)
' 初始化 REFPROP (设置 CO2 的物性文件路径)
Dim hfld As String, hfm As String, hrf As String
hfld = "C:\Program Files (x86)\REFPROP\fluids\CO2.FLD" ' 流体文件
hfm = "HMX.BNC" ' 混合参数文件(纯流体可忽略)
hrf = "DEF" ' 参考状态
' 调用 SETUPdll 初始化
Call SETUPdll(1, hfld, hfm, hrf, ierr, herr, Len(hfld), Len(hfm), Len(hrf), Len(herr))
If ierr <> 0 Then
MsgBox "初始化失败: " & Left(herr, InStr(herr, Chr(0)) - 1)
Exit Sub
End If
' 从用户输入获取温度和压力(示例中直接赋值)
TGCin = Val(Text1.Text) + 273.15 ' 气体冷却器进水温度为 Text1.Text
TGCout = Val(Text3.Text) + 273.15 ' 气体冷却器出水温度为 Text3.Text
Tamb = Val(Text4.Text) + 273.15 ' 蒸发器进水温度为 Text4.Text
mv = 25
T_evp = Tamb - 5
TCO2out = TGCin + 3
T1 = T_evp
T3 = TCO2out
' 调用 TPFLSHdll 计算蒸发器出口6点状态焓值
q = 1
kq = 1
Call TQFLSHdll(T1, q, 1#, kq, P1, D1, dl, dv, xliq, xvap, e, H1, S1, cv, cp, w, ierr, herr, Len(herr))
' 检查错误
If ierr <> 0 Then
MsgBox "计算失
最新发布