调整了RtScanDeviceStart
This commit is contained in:
@@ -223,49 +223,57 @@ namespace CapMachine.Wpf.Services
|
||||
|
||||
//textBox5.Text = "";
|
||||
|
||||
string hpath = SuperHeatCoolConfig.FluidsPath;
|
||||
long size = hpath.Length;
|
||||
|
||||
hpath += new String(' ', 255 - (int)size);
|
||||
IRefProp64.SETPATHdll(hpath, ref size);
|
||||
|
||||
long numComps = 1;//冷媒个数
|
||||
//string hfld = "R1234YF.FLD"; R1234YF
|
||||
string hfld = "";
|
||||
if (SuperHeatCoolConfig.Cryogen == "R134a")
|
||||
// 统一初始化（仅必要时），避免循环内重复 SETUP/SETPATH
|
||||
if (!EnsureRefpropInitialized(out string initErrLoop))
|
||||
{
|
||||
hfld = "R134A.FLD";
|
||||
// 初始化失败：保护性置零并进入下一轮
|
||||
Superheat.PVModel.EngValue = 0;
|
||||
Subcool.PVModel.EngValue = 0;
|
||||
// 可选：记录 initErrLoop
|
||||
}
|
||||
else
|
||||
{
|
||||
// 与其它实现保持一致：非 R134a 时使用 R1234YF
|
||||
hfld = "R1234YF.FLD";
|
||||
// 在统一的锁内进行 REFPROP 计算，保证并发安全与状态一致性
|
||||
lock (_refpropLock)
|
||||
{
|
||||
// 建立纯工质组分（摩尔分数）
|
||||
double[] xLoc = new double[20]; xLoc[0] = 1.0;
|
||||
double[] xliqLoc = new double[20];
|
||||
double[] xvapLoc = new double[20];
|
||||
double DlLoc = 0, DvLoc = 0;
|
||||
string herr2 = new string(' ', 255);
|
||||
long herrLen2 = 255;
|
||||
|
||||
// 计算过热度：吸气压力的饱和温度
|
||||
double pForSat = (InhPressTag.PVModel.EngValue) * 1000.0; // MPa->kPa
|
||||
double teSat = 0;
|
||||
IRefProp64.SATPdll(ref pForSat, xLoc, ref kph, ref teSat, ref DlLoc, ref DvLoc, xliqLoc, xvapLoc, ref iErr, ref herr2, ref herrLen2);
|
||||
if (iErr == 0)
|
||||
Superheat.PVModel.EngValue = InhTempTag.PVModel.EngValue - (teSat - 273.15);
|
||||
else
|
||||
Superheat.PVModel.EngValue = 0;
|
||||
|
||||
// 计算过冷度：膨胀阀前压力的饱和温度
|
||||
double p1ForSat = (TxvFrPressTag.PVModel.EngValue) * 1000.0; // MPa->kPa
|
||||
double te1Sat = 0; iErr = 0; herr2 = new string(' ', 255); herrLen2 = 255; DlLoc = 0; DvLoc = 0;
|
||||
IRefProp64.SATPdll(ref p1ForSat, xLoc, ref kph, ref te1Sat, ref DlLoc, ref DvLoc, xliqLoc, xvapLoc, ref iErr, ref herr2, ref herrLen2);
|
||||
if (iErr == 0)
|
||||
Subcool.PVModel.EngValue = TxvFrTempTag.PVModel.EngValue - (te1Sat - 273.15);
|
||||
else
|
||||
Subcool.PVModel.EngValue = 0;
|
||||
|
||||
// 干度计算（可重入锁，Monitor 为可重入锁，不会死锁）
|
||||
try
|
||||
{
|
||||
double dryness = GetDrynessByTP(InhPressTag.PVModel.EngValue, InhTempTag.PVModel.EngValue, true);
|
||||
if (DrynessTag != null)
|
||||
{
|
||||
DrynessTag.PVModel.EngValue = double.IsNaN(dryness) ? 0.0 : dryness;
|
||||
}
|
||||
}
|
||||
catch { /* 不中断主循环 */ }
|
||||
}
|
||||
}
|
||||
//string hfld = "R134A.FLD";
|
||||
//string hfld = Convert.ToString(comboBox1.Text);//从控件获取数据
|
||||
size = hfld.Length;
|
||||
|
||||
hfld += new String(' ', 10000 - (int)size);
|
||||
|
||||
//string hfmix = "hmx.bnc" + new String(' ', 255);//原来的
|
||||
string hfmix = "hmx.bnc" + new String(' ', 255);//248
|
||||
string hrf = "DEF";
|
||||
string herr = new String(' ', 255);
|
||||
|
||||
iErr = 0;
|
||||
long hfldLen = hfld.Length, hfmixLen = hfmix.Length, hrfLen = hrf.Length, herrLen = herr.Length;
|
||||
|
||||
//numComps = -1;
|
||||
IRefProp64.SETUPdll(ref numComps, ref hfld, ref hfmix, ref hrf, ref iErr, ref herr, ref hfldLen, ref hfmixLen, ref hrfLen, ref herrLen);
|
||||
|
||||
double version = iErr / 10000.0;//错误信息
|
||||
if (iErr != 0)
|
||||
{
|
||||
//MessageBox.Show(herr, "RefProp SETUPdll() Error ", MessageBoxButtons.OK, MessageBoxIcon.Error);
|
||||
return;
|
||||
}
|
||||
|
||||
IRefProp64.WMOLdll(x, ref wm);
|
||||
|
||||
//p = Convert.ToDouble(textBox2.Text) * 1000.0;//textBox2 Comp.吸气压力（Mpa）
|
||||
p = (InhPressTag.PVModel.EngValue) * 1000.0;//textBox2 Comp.吸气压力（Mpa）
|
||||
@@ -273,35 +281,7 @@ namespace CapMachine.Wpf.Services
|
||||
|
||||
p1 = (TxvFrPressTag.PVModel.EngValue) * 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)
|
||||
Superheat.PVModel.EngValue = InhTempTag.PVModel.EngValue - (te - 273.15);
|
||||
//textBox5.Text = String.Format("{0:n4}", Convert.ToDouble(textBox1.Text) - (te - 273.15));//textBox1 Comp.吸气温度（℃）
|
||||
else
|
||||
Superheat.PVModel.EngValue = 0;
|
||||
IRefProp64.SATPdll(ref p1, x, ref kph, ref te1, ref Dl, ref Dv, xliq, xvap, ref iErr, ref herr, ref herrLen);
|
||||
if (iErr == 0)
|
||||
Subcool.PVModel.EngValue = TxvFrTempTag.PVModel.EngValue - (te1 - 273.15);//textBox4 Evap.膨胀阀前温度（℃）
|
||||
//GuoLengDu = (te1 - 273.15) - ListKRLogCellValue.Find(a => a.Name == "膨胀阀前温度").Value;//textBox4 Evap.膨胀阀前温度（℃）
|
||||
//textBox6.Text = String.Format("{0:n4}", Convert.ToDouble(textBox4.Text) - (te1 - 273.15));//textBox4 Evap.膨胀阀前温度（℃）
|
||||
else
|
||||
Subcool.PVModel.EngValue = 0;
|
||||
|
||||
// 干度计算与写入：保持与当前标签单位一致（MPa/℃ 转换在内部完成）
|
||||
// 优先返回质量基干度，其次摩尔基；若均无效则置 0，避免出现 NaN 传入 UI
|
||||
try
|
||||
{
|
||||
double dryness = GetDrynessByTP(InhPressTag.PVModel.EngValue, InhTempTag.PVModel.EngValue, true);
|
||||
if (DrynessTag != null)
|
||||
{
|
||||
DrynessTag.PVModel.EngValue = double.IsNaN(dryness) ? 0.0 : dryness;
|
||||
}
|
||||
}
|
||||
catch (Exception)
|
||||
{
|
||||
// 干度计算异常时不影响主循环，必要时可接入日志系统
|
||||
}
|
||||
// 重复的 SATP 与干度计算已在上方 lock(_refpropLock) 中统一完成，此处移除重复调用
|
||||
}
|
||||
catch (Exception ex)
|
||||
{
|
||||
@@ -334,51 +314,11 @@ namespace CapMachine.Wpf.Services
|
||||
//textBox5.Text = "";
|
||||
|
||||
|
||||
string hpath = @".\PPCalculation\REFPROP\FLUIDS";
|
||||
long size = hpath.Length;
|
||||
|
||||
hpath += new String(' ', 255 - (int)size);
|
||||
IRefProp64.SETPATHdll(hpath, ref size);
|
||||
|
||||
long numComps = 1;//冷媒个数
|
||||
//string hfld = "R1234YF.FLD";
|
||||
//string hfld = "R134A.FLD";
|
||||
string hfld = "";
|
||||
if (SuperHeatCoolConfig.Cryogen == "R134a")
|
||||
// 统一初始化（必要时）
|
||||
if (!EnsureRefpropInitialized(out string initErr))
|
||||
{
|
||||
hfld = "R134A.FLD";
|
||||
return; // 初始化失败直接返回，避免无意义计算
|
||||
}
|
||||
else
|
||||
{
|
||||
hfld = "R1234YF.FLD";
|
||||
|
||||
}
|
||||
|
||||
//string hfld = Convert.ToString(comboBox1.Text);//从控件获取数据
|
||||
size = hfld.Length;
|
||||
|
||||
hfld += new String(' ', 10000 - (int)size);
|
||||
|
||||
//string hfmix = "hmx.bnc" + new String(' ', 255);//原来的
|
||||
string hfmix = "hmx.bnc" + new String(' ', 248);
|
||||
string hrf = "DEF";
|
||||
string herr = new String(' ', 255);
|
||||
|
||||
iErr = 0;
|
||||
long hfldLen = hfld.Length, hfmixLen = hfmix.Length, hrfLen = hrf.Length, herrLen = herr.Length;
|
||||
|
||||
//numComps = -1;
|
||||
IRefProp64.SETUPdll(ref numComps, ref hfld, ref hfmix, ref hrf, ref iErr, ref herr, ref hfldLen, ref hfmixLen, ref hrfLen, ref herrLen);
|
||||
|
||||
|
||||
double version = iErr / 10000.0;//错误信息
|
||||
if (iErr != 0)
|
||||
{
|
||||
//MessageBox.Show(herr, "RefProp SETUPdll() Error ", MessageBoxButtons.OK, MessageBoxIcon.Error);
|
||||
return;
|
||||
}
|
||||
|
||||
IRefProp64.WMOLdll(x, ref wm);
|
||||
|
||||
//p = Convert.ToDouble(textBox2.Text) * 1000.0;//textBox2 Comp.吸气压力（Mpa）
|
||||
//p = (ListRtKPMeter.Find(a => a.MeterName == "吸入压力").RtPV) * 1000.0;//textBox2 Comp.吸气压力（Mpa）
|
||||
@@ -390,25 +330,25 @@ namespace CapMachine.Wpf.Services
|
||||
//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);
|
||||
// 在同一把锁中执行 REFPROP 计算，保证并发安全
|
||||
lock (_refpropLock)
|
||||
{
|
||||
string herr = new string(' ', 255); long herrLen = 255;
|
||||
IRefProp64.SATPdll(ref p, x, ref kph, ref te, ref Dl, ref Dv, xliq, xvap, ref iErr, ref herr, ref herrLen);
|
||||
|
||||
if (iErr == 0)
|
||||
if (iErr == 0)
|
||||
Superheat.PVModel.EngValue = InhTempTag.PVModel.EngValue - (te - 273.15);
|
||||
else
|
||||
Superheat.PVModel.EngValue = 0;
|
||||
|
||||
//GuoReDu = ListRtKPMeter.Find(a => a.MeterName == "吸入温度").RtPV - (te - 273.15);
|
||||
Superheat.PVModel.EngValue = InhTempTag.PVModel.EngValue - (te - 273.15);
|
||||
//textBox5.Text = String.Format("{0:n4}", Convert.ToDouble(textBox1.Text) - (te - 273.15));//textBox1 Comp.吸气温度（℃）
|
||||
else
|
||||
Superheat.PVModel.EngValue = 0;
|
||||
herr = new string(' ', 255); herrLen = 255; iErr = 0;
|
||||
IRefProp64.SATPdll(ref p1, x, ref kph, ref te1, ref Dl, ref Dv, xliq, xvap, ref iErr, ref herr, ref herrLen);
|
||||
if (iErr == 0)
|
||||
Subcool.PVModel.EngValue = TxvFrTempTag.PVModel.EngValue - (te1 - 273.15);
|
||||
|
||||
IRefProp64.SATPdll(ref p1, x, ref kph, ref te1, ref Dl, ref Dv, xliq, xvap, ref iErr, ref herr, ref herrLen);
|
||||
if (iErr == 0)
|
||||
//GuoLengDu = ListKRLogCellValue.Find(a => a.Name == "膨胀阀前温度").Value - (te1 - 273.15);//textBox4 Evap.膨胀阀前温度（℃）
|
||||
Subcool.PVModel.EngValue = TxvFrTempTag.PVModel.EngValue - (te1 - 273.15);//textBox4 Evap.膨胀阀前温度（℃）
|
||||
|
||||
//textBox6.Text = String.Format("{0:n4}", Convert.ToDouble(textBox4.Text) - (te1 - 273.15));//textBox4 Evap.膨胀阀前温度（℃）
|
||||
|
||||
else
|
||||
Subcool.PVModel.EngValue = 0;
|
||||
else
|
||||
Subcool.PVModel.EngValue = 0;
|
||||
}
|
||||
|
||||
}
|
||||
catch (Exception ex)
|
||||
|
||||
Reference in New Issue
Block a user