TyroneGit/CapMachine
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

过热度和过冷度物性的计算

Browse Source
This commit is contained in:
Tyrone CT
2025-01-06 12:12:28 +08:00
parent e5ebd9113a
commit ff07461818
6 changed files with 28 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
CapMachine.Wpf/Services/ConfigService.cs
View File

@@ -13,6 +13,7 @@ namespace CapMachine.Wpf.Services
public ConfigService()
{
CurUserDto = new UserDto();
}
/// <summary>
@@ -57,6 +58,7 @@ namespace CapMachine.Wpf.Services
/// </summary>
public int ChartRtDataCacheTimeSec { get; set; } = 3600_8;
private HistoryExp _CurExpInfo;
/// <summary>
/// 当前的试验信息

25
CapMachine.Wpf/Services/PPCService.cs
View File

@@ -1,4 +1,5 @@
using CapMachine.Shared.Controls;
using CapMachine.Core;
using CapMachine.Shared.Controls;
using CapMachine.Wpf.Models.Tag;
using CapMachine.Wpf.PPCalculation;
using Prism.Events;
@@ -65,9 +66,21 @@ namespace CapMachine.Wpf.Services
//Cond1TempTag = TagManager.DicTags.GetValueOrDefault("冷凝器出口水温[℃]");
//CondInTempTag = TagManager.DicTags.GetValueOrDefault("冷凝器进口温度[℃]");
//RtScanDeviceStart();
FluidsPath = ConfigHelper.GetValue("FluidsPath");
RtScanDeviceStart();
}
/// <summary>
/// 过热度和过冷度计算FLUID路径
/// REFPROP
/// REFPRP64.DLL
///
/// ****FluidsPath 路径不能太长，否则会导致错误***********
/// </summary>
public string FluidsPath { get; set; } = "C:\\Program Files (x86)\\REFPROP\\fluids";
/// <summary>
/// 吸气压力
/// </summary>
@@ -123,7 +136,7 @@ namespace CapMachine.Wpf.Services
/// <summary>
/// 启用计算
/// </summary>
private bool RtCalcEnable { get; set; }=true;
private bool RtCalcEnable { get; set; } = true;
/// <summary>
@@ -151,7 +164,7 @@ namespace CapMachine.Wpf.Services
//textBox5.Text = "";
string hpath = @".\PPCalculation\REFPROP\FLUIDS";
string hpath = FluidsPath;
long size = hpath.Length;
hpath += new String(' ', 255 - (int)size);
@@ -199,7 +212,7 @@ namespace CapMachine.Wpf.Services
kph = 1;
p1 = (TxvFrPressTag.EngPvValue) * 1000.0;//textBox3 Evap.膨胀阀前压力（Mpa）
//p1 = Convert.ToDouble(textBox3.Text) * 1000.0;//textBox3 Evap.膨胀阀前压力（Mpa）
//p1 = Convert.ToDouble(textBox3.Text) * 1000.0;//textBox3 Evap.膨胀阀前压力（Mpa）
IRefProp64.SATPdll(ref p, x, ref kph, ref te, ref Dl, ref Dv, xliq, xvap, ref iErr, ref herr, ref herrLen);
if (iErr == 0)
@@ -299,7 +312,7 @@ namespace CapMachine.Wpf.Services
//p1 = (ListKRLogCellValue.Find(a => a.Name == "膨胀阀前压力").Value) * 1000.0;//textBox3 Evap.膨胀阀前压力（Mpa）
p1 = (TxvFrPressTag.EngPvValue) * 1000.0;//textBox3 Evap.膨胀阀前压力（Mpa）
//p1 = Convert.ToDouble(textBox3.Text) * 1000.0;//textBox3 Evap.膨胀阀前压力（Mpa）
//p1 = Convert.ToDouble(textBox3.Text) * 1000.0;//textBox3 Evap.膨胀阀前压力（Mpa）
IRefProp64.SATPdll(ref p, x, ref kph, ref te, ref Dl, ref Dv, xliq, xvap, ref iErr, ref herr, ref herrLen);