nightwish 发表于 2016-12-16 16:08:15

关于HYSYS自动化接口的问题求助高手！

用VB语言编写一个油品表征的小程序，用代码添加2个化验数据assay-1，assay-2.然后在添加一个blend-1
，需要2个化验数据在油品表征环境下混合。这就要求输入图1红框中的数据。想问下。用程序代码怎么选择flow units项跟怎么输入flow rate 。部门代码如下：
Dim hyBasis As BasisManager
Set hyBasis = hyCase.BasisManager
hyCase.BasisManager.StartBasisChange
hyCase.BasisManager.StartOilChange
Set hyOil = hyCase.BasisManager.OilManager
Dim hyAssay As AssayD86
Set hyAssay = hyBasis.OilManager.Assays.Add("Assay-1", "D86")
With hyAssay
'.Basis = ab_LiquidVolumeFraction
'.BulkMolecularWeight = 300
.BulkWatson_uopk = 10.52
.BulkMassDensity.SetValue 880, "kg/m3"
.LightEndsCalculationType = alect_IgnoreLightEnds
.ViscosityType = av_Dynamic
.Viscosity1Temperature = 37.78
.Viscosity2Temperature = 98.89
Dim hyValue As Variant
Dim hyPercent As Variant
hyPercent = Array(1, 10, 20, 30, 40, 50, 60, 70, 80, 90, 95, 98)
'hyValue = Array(26.67, 123.89, 176.11, 221.11, 275, 335, 399, 490.56, 590.56, 691.67, 795.56)
.Calculate
Dim hyBlend As Blend
Dim hyblends As Blends

Set hyblends = hyCase.BasisManager.OilManager.Blends
Set hyBlend = hyBasis.OilManager.Blends.Add("BlendName")
hyBlend.AddAssay "Assay-1"
hyBlend.AddAssay "Assay-2"   ‘在这里添加完2个化验数据后怎么用代码设置flowunits跟flowrate 这2项。希望高手赐教

天山 发表于 2016-12-16 16:08:15

完全不会。

zxz2004 发表于 2016-12-16 16:08:15

学习学习，谢谢楼主分享

zhanglin 发表于 2016-12-16 16:08:15

本帖最后由 zhanglin 于 2016-12-27 15:58 编辑

试试这个看看
Dim flowunits as variant
flowunits = array(bfb_LiquidVolume,bfb_mass)
hyBlend.flowbasis.setvalue flowunits
===编辑===
搞错了，flowbasis是只读属性，试试这个
hyblend.flowbasisvalue = flowunits

nightwish 发表于 2016-12-16 16:08:15

本帖最后由 nightwish 于 2016-12-28 08:49 编辑

zhanglin 发表于 2016-12-27 15:52
试试这个看看
Dim flowunits as variant
flowunits = array(bfb_LiquidVolume,bfb_mass)

先谢谢你。我试了试。提示拒绝的权限，应该这个也是只读的！附件是代码。能麻烦你能给调试下吗？

zhanglin 发表于 2016-12-16 16:08:15

nightwish 发表于 2016-12-28 08:48
先谢谢你。我试了试。提示拒绝的权限，应该这个也是只读的！附件是代码。能麻烦你能给调试下吗？

我没VB，所以在hysys的宏里面调试了下，下面这段代码是可以实现的：
    HyBlend.AddAssay "cuichai222"
    HyBlend.AddAssay "jiaochai222"
    HyBlend.AddAssay "yuan5"
    HyBlend.FlowBasisValue = Array(bfb_Mass,bfb_Molar,bfb_LiquidVolume)

nightwish 发表于 2016-12-16 16:08:15

zhanglin 发表于 2017-1-3 11:35
我没VB，所以在hysys的宏里面调试了下，下面这段代码是可以实现的：
    HyBlend.AddAssay "cuichai222" ...

能留个联系方式吗？在有问题可以请教你

zhanglin 发表于 2016-12-16 16:08:15

nightwish 发表于 2017-1-6 16:36
能留个联系方式吗？在有问题可以请教你

加我qq吧～55126449
页: [1]
查看完整版本: 关于HYSYS自动化接口的问题求助高手！