Магистры Термодинамическое подобие / Программы / Solkane / 2012 / Installation Refcalc 7.1 / SOL_VB6 / HelpVBE
.pdf
SOLVAY FLUOR UND DERIVATE GmbH |
|
|
|
|
|
|
|
|
|
|
SOLKANE® PROPERTIES MODULE |
|
|
|
Visual Basic6.0 |
|
|||||
Appendix: Function declarations for VBA |
|
|
|
|
|
|
|
|||
|
|
|
|
|
|
|
|
|
|
|
Index |
Function |
Ph |
|
Declaration |
Result |
|
Input |
|
||
|
|
|
|
|
|
1. |
2. |
|
|
3. |
|
|
|
|
|
|
|
|
|
|
|
0 |
Version |
|
Function S_revision |
(ByRef version As String) As Boolean |
version |
- |
- |
|
|
- |
|
|
|
|
|
|
|
|
|
|
|
1 |
Molar mass |
|
Function S_molmas |
(ByVal ref As String, ByRef M As Double) |
M [g/mol] |
ref |
- |
|
|
- |
|
|
|
As Boolean |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
2 |
Triple point temperature |
|
Function S_freez (ByVal ref As String, ByRef tf As Double) |
tf [K] |
ref |
- |
|
|
- |
|
|
|
|
As Boolean; |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
3 |
Critical temperature |
|
Function S_tc (ByVal ref As String, ByRef Tc As Double) As Boolean |
Tc [K] |
ref |
- |
|
|
- |
|
|
|
|
|
|
|
|
|
|
|
|
4 |
Critical pressure |
|
Function S_pc (ByVal ref As String, ByRef pc As Double) As Boolean |
pc [Pa] |
ref |
- |
|
|
- |
|
|
|
|
|
|
|
|
|
|
|
|
5 |
Critical volume |
|
Function S_vc (ByVal ref As String, ByRef vc As Double) As Boolean |
vc [m³/kg] |
ref |
- |
|
|
- |
|
|
|
|
|
|
|
|
|
|
||
6 |
Bubble pressure p’(T) |
B |
Function S_p_b (ByVal ref As String, ByVal T As Double, |
p_b [Pa] |
ref |
T [K] |
|
- |
||
|
|
|
ByRef p_b As Double) As Boolean |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
||
7 |
Dew pressure p”(T) |
D |
Function S_p_d (ByVal ref As String, ByVal T As Double, |
p_d [Pa] |
ref |
T [K] |
|
- |
||
|
|
|
ByRef p_d As Double) As Boolean |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
||
8 |
Bubble temperature t’(p) |
B |
Function S_t_b (ByVal ref As String, ByVal p As Double, |
T_b [K] |
ref |
p [Pa] |
|
- |
||
|
|
|
ByRef T_b As Double) As Boolean |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
||
9 |
Dew temperature t’(p) |
D |
Function S_t_d (ByVal ref As String, ByVal p As Double, |
T_d [K] |
ref |
p [Pa] |
|
- |
||
|
|
|
ByRef T_d As Double) As Boolean |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
||
10 |
Spec. volume v’(T) |
L |
Function S_v_l (ByVal ref As String, ByVal T As Double, |
v_l [m³/kg] |
ref |
T [K] |
|
- |
||
|
|
|
ByRef v_l As Double) As Boolean |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
-11-
SOLVAY FLUOR UND DERIVATE GmbH |
|
|
|
|
|
|
|
|
SOLKANE® PROPERTIES MODULE |
|
|
Visual Basic6.0 |
|
||||
(Continued) |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Index |
Function |
Ph |
Declaration |
Result |
|
Input |
||
|
|
|
|
|
1. |
2. |
|
3. |
|
|
|
|
|
|
|
|
|
11 |
Spec. volume v(T,p) |
V |
Function S_v_v (ByVal ref As String, ByVal T As Double, |
v_v [m³/kg] |
ref |
T [K] |
p [Pa] |
|
|
|
|
ByVal p As Double, ByRef v_v As Double) As Boolean |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
12 |
Pressure, vapour p(T,v) |
V |
Function S_p_v_v (ByVal ref As String, ByVal T As Double, |
p_v [Pa] |
ref |
T [K] |
v [m³/kg] |
|
|
|
|
ByVal v As Double, ByRef p_v As Double) As Boolean |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
13 |
Temperature T(p,v) |
V |
Function S_t_v_v (ByVal ref As String, ByVal p As Double, |
T_v [K] |
ref |
p [Pa] |
v [m³/kg] |
|
|
|
|
ByVal v As Double, ByRef T_v As Double) As Boolean |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
14 |
Spec. enthalpy h’(T) |
L |
Function S_h_l (ByVal ref As String, ByVal T As Double, |
h_l [J/kg] |
ref |
T [K] |
- |
|
|
|
|
ByRef h_l As Double) As Boolean |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
15 |
Spec. enthalpy h(T,p) |
V |
Function S_h_v (ByVal ref As String, ByVal T As Double, |
h_v [J/kg] |
ref |
T [K] |
p [Pa] |
|
|
|
|
ByVal p As Double, ByRef h_v As Double) As Boolean |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
16 |
Spec. enthalpy h(T,v) |
V |
Function S_h_v_v (ByVal ref As String, ByVal T As Double, |
h_v [J/kg] |
ref |
T [K] |
v [m³/kg] |
|
|
|
|
ByVal v As Double, ByRef h_v As Double) As Boolean |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
17 |
Spec. entropy s’(T) |
L |
Function S_s_l (ByVal ref As String, ByVal T As Double, |
s_l [J/kgK] |
ref |
T [K] |
- |
|
|
|
|
ByRef s_l As Double) As Boolean |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
18 |
Spec. entropy s(T,p) |
V |
Function S_s_v (ByVal ref As String, ByVal T As Double, |
s_v [J/kgK] |
ref |
T [K] |
p [Pa] |
|
|
|
|
ByVal p As Double, ByRef s_v As Double) As Boolean |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
19 |
Spec. entropy s(T,v) |
V |
Function S_s_v_v (ByVal ref As String, ByVal T As Double, |
s_v [J/kgK] |
ref |
T [K] |
v [m³/kg] |
|
|
|
|
ByVal v As Double, ByRef s_v As Double) As Boolean |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
-12-
SOLVAY FLUOR UND DERIVATE GmbH |
|
|
|
|
|
|
|
|
SOLKANE® PROPERTIES MODULE |
|
|
Visual Basic6.0 |
|
||||
(Continued) |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Index |
Function |
Ph |
Declaration |
Result |
|
Input |
||
|
|
|
|
|
1. |
2. |
|
3. |
|
|
|
|
|
|
|
|
|
20 |
Temperature T(p,s) |
V |
Function S_f_entro (ByVal ref As String, ByVal p As Double, |
f_entro [K] |
ref |
p [Pa] |
s [J/kgK] |
|
|
|
|
ByVal s As Double, ByRef f_entro As Double) As Boolean |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
21 |
Temperature T(p,h) |
V |
Function S_f_entha (ByVal ref As String, ByVal p As Double, |
f_entha [K] |
ref |
p [Pa] |
h [J/kg] |
|
|
|
|
ByVal h As Double, ByRef f_entha As Double) As Boolean |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
22 |
Spec. heat capacity cP’(T) |
L |
Function S_cp_l (ByVal ref As String, ByVal T As Double, |
cp [J/kgK] |
ref |
T [K] |
- |
|
|
|
|
ByRef cp As Double) As Boolean |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
23 |
Spec. heat capacity cV’(T,p) |
V |
Function S_cv (ByVal ref As String, ByVal T As Double, |
cv [J/kgK] |
ref |
T [K] |
p [Pa] |
|
|
|
|
ByVal p As Double, ByRef cv As Double) As Boolean |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
24 |
Spec. heat capacity cV’(T,v) |
V |
Function S_cv_v (ByVal ref As String, ByVal T As Double, |
cv [J/kgK] |
ref |
T [K] |
v [m³/kg] |
|
|
|
|
ByVal v As Double, ByRef cv_v As Double) As Boolean |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
25 |
Spec. heat capacity cP’(T,p) |
V |
Function S_cp (ByVal ref As String, ByVal T As Double, |
cp [J/kgK] |
ref |
T [K] |
p [Pa] |
|
|
|
|
ByVal p As Double, ByRef cp As Double) As Boolean |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
26 |
Spec. heat capacity cP’(T,v) |
V |
Function S_cp_v (ByVal ref As String, ByVal T As Double, |
cp [J/kgK] |
ref |
T [K] |
v [m³/kg] |
|
|
|
|
ByVal v As Double, ByRef cp As Double) As Boolean |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
27 |
Surface tension σ(T) |
L |
Function S_sigma_l (ByVal ref As String, ByVal T As Double, |
sig_l [N/m] |
ref |
T [K] |
- |
|
|
|
|
ByRef sig_l As Double) As Boolean |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
-13-
SOLVAY FLUOR UND DERIVATE GmbH |
|
|
|
|
|
|
|
||
SOLKANE® PROPERTIES MODULE |
|
|
Visual Basic6.0 |
|
|||||
(Continued) |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Index |
|
Function |
Ph |
Declaration |
Result |
|
Input |
||
|
|
|
|
|
|
1. |
2. |
|
3. |
|
|
|
|
|
|
|
|
||
28 |
Thermal conductivity λ(T) |
L |
Function S_lambda_l (ByVal ref As String, ByVal T As Double, |
lam_l |
ref |
T [K] |
- |
||
|
|
|
|
ByRef lam_l As Double) As Boolean |
[W/(m K)] |
|
|
|
|
|
|
|
|
|
|
|
|
||
29 |
Thermal conductivity λ(T,p) |
V |
Function S_lambda_v (ByVal ref As String, ByVal T As Double, |
lam_v |
ref |
T [K] |
p [Pa] |
||
|
|
|
|
ByVal v As Double, ByRef lam_v As Double) As Boolean |
[W/m K] |
|
|
|
|
|
|
|
|
|
|
|
|
||
30 |
Adiabatic exponent κ(T,p) |
V |
Function S_kappa (ByVal ref As String, ByVal T As Double, |
kap_v [-] |
ref |
T [K] |
p [Pa] |
||
|
|
|
|
ByVal p As Double, ByRef kap_v As Double) As Boolean |
|
|
|
|
|
|
|
|
|
|
|
|
|
||
31 |
Adiabatic exponent κ(T,v) |
V |
Function S_kappa_v (ByVal ref As String, ByVal T As Double, |
kap_v [-] |
ref |
T [K] |
v [m³/kg] |
||
|
|
|
|
ByVal v As Double, ByRef kap_v As Double) As Boolean |
|
|
|
|
|
|
|
|
|
|
|
|
|
||
32 |
velocity of sound vs(T,p) |
V |
Function S_vs (ByVal ref As String, ByVal T As Double, |
vs_v [m/s] |
ref |
T [K] |
p [Pa] |
||
|
|
|
|
ByVal p As Double, ByRef vs_v As Double) As Boolean |
|
|
|
|
|
|
|
|
|
|
|
|
|
||
33 |
Dynamic viscosity η(T) |
L |
Function S_visc_l (ByVal ref As String, ByVal T As Double, |
visc_l [Pa s] |
ref |
T [K] |
- |
||
|
|
|
|
ByRef visc_l As Double) As Boolean |
|
|
|
|
|
|
|
|
|
|
|
|
|
||
34 |
Dynamic viscosity η(T,p) |
V |
Function S_visc_v (ByVal ref As String, ByVal T As Double, |
visc_v |
ref |
T [K] |
p [Pa] |
||
|
|
|
|
ByVal p As Double, ByRef visc_v As Double) As Boolean |
[Pa s] |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Legend: |
Ph: Phase |
|
|
|
|
|
|
|
|
|
|
B: Bubble point |
D: Dew point |
|
|
|
|
|
|
|
|
L: Liquid |
V: Vapour phase |
|
|
|
|
|
|
-14-
SOLVAY FLUOR UND DERIVATE GmbH |
|
SOLKANE® PROPERTIES MODULE |
Visual Basic6.0 |
Appendix: Module ImportVB6.bas – Import declarations for Visual Basic
' ---------------------------------------------------------------------- |
|
' Unit: ImportVB6.bas |
Compiler: MS Visual Basic 6.0 |
' Version 1.0 |
|
' Solvay Fluor und Derivate GmbH |
March 1999 |
'Declarations for MS Visual Basic 6 to import thermophysical functions
'from REF_CALC32.DLL.
'Note: the libraries REF_CALC32.DLL and VAR_LIB32.DLL should be either
'programme (project) folder or in the Windows system folder
'----------------------------------------------------------------------
Option Explicit
' Sample for the public import of functions
Declare Function S_revision Lib "REF_CALC32.DLL" _ (ByRef version As String) As Boolean
Declare Function S_molmas Lib "REF_CALC32.DLL" _ (ByVal ref As String, ByRef mm As Double) As Boolean
Declare Function S_freez Lib "REF_CALC32.DLL" _ (ByVal ref As String, ByRef tf As Double) As Boolean
Declare Function S_tc Lib "REF_CALC32.DLL" _
(ByVal ref As String, ByRef Tc As Double) As Boolean
Declare Function S_pc Lib "REF_CALC32.DLL" _
(ByVal ref As String, ByRef pc As Double) As Boolean
Declare Function S_vc Lib "REF_CALC32.DLL" _
(ByVal ref As String, ByRef vc As Double) As Boolean
Declare Function S_p_b Lib "REF_CALC32.DLL" _
(ByVal ref As String, ByVal T As Double, ByRef p_b As Double) As Boolean
Declare Function S_t_b Lib "REF_CALC32.DLL" _
(ByVal ref As String, ByVal p As Double, ByRef T_b As Double) As Boolean
Declare Function S_p_d Lib "REF_CALC32.DLL" _
(ByVal ref As String, ByVal T As Double, ByRef p_d As Double) As Boolean
Declare Function S_t_d Lib "REF_CALC32.DLL" _
(ByVal ref As String, ByVal p As Double, ByRef T_d As Double) As Boolean
Declare Function S_v_l Lib "REF_CALC32.DLL" _
(ByVal ref As String, ByVal T As Double, ByRef v_l As Double) As Boolean
Declare Function S_v_v Lib "REF_CALC32.DLL" (ByVal ref As String, _ ByVal T As Double, ByVal p As Double, ByRef v_v As Double) As Boolean
-15-
SOLVAY FLUOR UND DERIVATE GmbH |
|
SOLKANE® PROPERTIES MODULE |
Visual Basic6.0 |
Declare Function S_p_v_v Lib "REF_CALC32.DLL" (ByVal ref As String, _ ByVal T As Double, ByVal v As Double, ByRef p_v As Double) As Boolean
Declare Function S_t_v_v Lib "REF_CALC32.DLL" (ByVal ref As String, _ ByVal p As Double, ByVal v As Double, ByRef T_v As Double) As Boolean
Declare Function S_h_l Lib "REF_CALC32.DLL" (ByVal ref As String, _ ByVal T As Double, ByRef h_l As Double) As Boolean
Declare Function S_h_v Lib "REF_CALC32.DLL" (ByVal ref As String, _ ByVal T As Double, ByVal p As Double, ByRef h_v As Double) As Boolean
Declare Function S_h_v_v Lib "REF_CALC32.DLL" (ByVal ref As String, _ ByVal T As Double, ByVal v As Double, ByRef h_v_v As Double) As Boolean
Declare Function S_s_l Lib "REF_CALC32.DLL" (ByVal ref As String, _ ByVal T As Double, ByRef s_l As Double) As Boolean
Declare Function S_s_v Lib "REF_CALC32.DLL" (ByVal ref As String, _ ByVal T As Double, ByVal p As Double, ByRef s_v As Double) As Boolean
Declare Function S_s_v_v Lib "REF_CALC32.DLL" (ByVal ref As String, _ ByVal T As Double, ByVal v As Double, ByRef s_v_v As Double) As Boolean
Declare Function S_f_entro Lib "REF_CALC32.DLL" _
(ByVal ref As String, ByVal p As Double, ByVal s As Double, _ ByRef f_entro As Double) As Boolean
Declare Function S_f_entha Lib "REF_CALC32.DLL" _
(ByVal ref As String, ByVal p As Double, ByVal h As Double, _ ByRef f_entha As Double) As Boolean
Declare Function S_cp_l Lib "REF_CALC32.DLL" _
(ByVal ref As String, ByVal T As Double, ByRef cp As Double) As Boolean
Declare Function S_cv Lib "REF_CALC32.DLL" (ByVal ref As String, _ ByVal T As Double, ByVal p As Double, ByRef cv As Double) As Boolean
Declare Function S_cv_v Lib "REF_CALC32.DLL" (ByVal ref As String, _ ByVal T As Double, ByVal v As Double, ByRef cv_v As Double) As Boolean
Declare Function S_cp Lib "REF_CALC32.DLL" (ByVal ref As String, _ ByVal T As Double, ByVal p As Double, ByRef cp As Double) As Boolean
Declare Function S_cp_v Lib "REF_CALC32.DLL" (ByVal ref As String, _ ByVal T As Double, ByVal v As Double, ByRef cp As Double) As Boolean
Declare Function S_sigma_l Lib "REF_CALC32.DLL" (ByVal ref As String, _ ByVal T As Double, ByRef sig_l As Double) As Boolean
Declare Function S_lambda_l Lib "REF_CALC32.DLL" (ByVal ref As String, _ ByVal T As Double, ByRef lam_l As Double) As Boolean
Declare Function S_lambda_v Lib "REF_CALC32.DLL" (ByVal ref As String, _ ByVal T As Double, ByVal v As Double, ByRef lam_v As Double) As Boolean
Declare Function S_kappa Lib "REF_CALC32.DLL" (ByVal ref As String, _ ByVal T As Double, ByVal p As Double, ByRef kap_v As Double) As Boolean
Declare Function S_kappa_v Lib "REF_CALC32.DLL" (ByVal ref As String, _ ByVal T As Double, ByVal v As Double, ByRef kap_v As Double) As Boolean
-16-
SOLVAY FLUOR UND DERIVATE GmbH |
|
SOLKANE® PROPERTIES MODULE |
Visual Basic6.0 |
Declare Function S_vs Lib "REF_CALC32.DLL" (ByVal ref As String, _ ByVal T As Double, ByVal p As Double, ByRef vs As Double) As Boolean
Declare Function S_visc_l Lib "REF_CALC32.DLL" (ByVal ref As String, _ ByVal T As Double, ByRef visc_l As Double) As Boolean
Declare Function S_visc_v Lib "REF_CALC32.DLL" (ByVal ref As String, _ ByVal T As Double, ByVal p As Double, ByRef visc_v As Double) As Boolean
-17-