Нестационарная теплопроводность / Магистры Термодинамическое подобие / Программы / Solkane / 2012 / Ref_Cal_7 / SOL_VB6 / HilfVBD
.pdf
SOLVAY FLUOR UND DERIVATE GmbH |
|
SOLKANE® Stoffdatenmodul |
Visual Basic6.0 |
Für jede im SOLKANE-Modul implementierte Funktion ist ein entsprechendes Beispiel in Sol_VB6 vorhanden.
Installation1:
1.Inhalt des Ordners ”Sol_VB6” in einen beliebigen Ordner auf der Festplatte Ihres Rechners kopieren.
2.Falls noch nicht erledigt: REF_CALC32.DLL und VAR_LIB32.DLL in das Verzeichnis
”...Windows/System” (empfohlen) oder den Ordner der Projektdateien kopieren.
3.Projekt in VB-Entwicklungsumgebung laden oder Sol_VB6.exe starten. Fertig.
1 Bei der Ausführung des Setup-Programms von der Solkane®-CD-ROM ist die Installation bereits automatisch durchgeführt worden. (siehe Verzeichnis <Programme>\Solkane2\VBA).
-11-
SOLVAY FLUOR UND DERIVATE GmbH |
|
|
|
|
|
|
|
|
|
|
SOLKANE® Stoffdatenmodul |
|
|
|
|
Visual Basic6.0 |
|||||
Anhang: Funktionsdeklarationen für Visual Basic |
|
|
|
|
|
|
|
|||
|
|
|
|
|
|
|
|
|
|
|
Index |
Funktion |
Ph |
|
Deklaration |
Ergebnis |
|
Eingabe |
|
|
|
|
|
|
|
|
|
1. |
2. |
|
3. |
|
|
|
|
|
|
|
|
|
|
|
|
0 |
Versionsbezeichnung |
|
Function S_revision |
(ByRef version As String) As Boolean |
version |
- |
- |
|
- |
|
|
|
|
|
|
|
|
|
|
|
|
1 |
Molare Masse |
|
Function S_molmas |
(ByVal ref As String, ByRef M As Double) |
M [g/mol] |
ref |
- |
|
- |
|
|
|
|
As Boolean |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
2 |
Tripelpunkttemperatur |
|
Function S_freez (ByVal ref As String, ByRef tf As Double) |
tf [K] |
ref |
- |
|
- |
|
|
|
|
|
As Boolean; |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
3 |
Kritische Temperatur |
|
Function S_tc (ByVal ref As String, ByRef Tc As Double) As Boolean |
Tc [K] |
ref |
- |
|
- |
|
|
|
|
|
|
|
|
|
|
|
|
|
4 |
Kritischer Druck |
|
Function S_pc (ByVal ref As String, ByRef pc As Double) As Boolean |
pc [Pa] |
ref |
- |
|
- |
|
|
|
|
|
|
|
|
|
|
|
|
|
5 |
Kritisches Volumen |
|
Function S_vc (ByVal ref As String, ByRef vc As Double) As Boolean |
vc [m³/kg] |
ref |
- |
|
- |
|
|
|
|
|
|
|
|
|
|
|
|
|
6 |
Siedepunktdruck 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 |
Taupunktdruck 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 |
Siedepunkttemperatur 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 |
Taupunkttemperatur 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 |
Spez. Volumen, Flüss. v’(T) |
F |
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 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
-13-
SOLVAY FLUOR UND DERIVATE GmbH |
|
|
|
|
|
|
|
|
SOLKANE® Stoffdatenmodul |
|
|
|
Visual Basic6.0 |
||||
(Fortsetzung) |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Index |
Funktion |
Ph |
Deklaration |
Ergebnis |
|
Eingabe |
||
|
|
|
|
|
1. |
2. |
3. |
|
|
|
|
|
|
|
|
|
|
11 |
Spez. Volumen v(T,p) |
G |
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 |
Druck p(T,v) |
G |
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 |
Temperatur T(p,v) |
G |
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 |
Spez. Enthalpie h’(T) |
F |
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 |
Spez. Enthalpie h(T,p) |
G |
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 |
Spez. Enthalpie h(T,v) |
G |
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 |
Spez. Entropie s’(T) |
F |
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 |
Spez. Entropie s(T,p) |
G |
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 |
Spez. Entropie s(T,v) |
G |
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 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
-14-
SOLVAY FLUOR UND DERIVATE GmbH |
|
|
|
|
|
|
|
|
SOLKANE® Stoffdatenmodul |
|
|
|
Visual Basic6.0 |
||||
(Fortsetzung) |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Index |
Funktion |
Ph |
Deklaration |
Ergebnis |
|
Eingabe |
||
|
|
|
|
|
1. |
2. |
3. |
|
|
|
|
|
|
|
|
|
|
20 |
Temperatur T(p,s) |
G |
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 |
Temperatur T(p,h) |
G |
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 |
Spez. Wärmekapazität cP’(T) |
F |
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 |
Spez. Wärmekapazität cV’(T,p) |
G |
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 |
Spez. Wärmekapazität cV’(T,v) |
G |
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 |
Spez. Wärmekapazität cP’(T,p) |
G |
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 |
Spez. Wärmekapazität cP’(T,v) |
G |
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 |
Oberflächenspannung σ(T) |
F |
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 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
-15-
SOLVAY FLUOR UND DERIVATE GmbH |
|
SOLKANE® Stoffdatenmodul |
Visual Basic6.0 |
Fehler! Verweisquelle konnte nicht gefunden werden. (Fortsetzung)
Index |
|
Funktion |
Ph |
Deklaration |
Ergebnis |
|
Eingabe |
|
|
|
|
|
|
|
1. |
2. |
3. |
|
|
|
|
|
|
|
|
|
28 |
Wärmeleitfähigkeit λ(T) |
F |
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 |
Wärmeleitfähigkeit λ(T,p) |
G |
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 |
Adiabatenexponent κ(T,p) |
G |
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 |
Adiabatenexponent κ(T,v) |
G |
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 |
Schallgeschwindigkeit vs(T,p) |
G |
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 |
Dynamische Viskosität η(T) |
F |
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 |
Dynamische Viskosität η(T,p) |
G |
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] |
|
|
|
|
|
|
|
|
|
|
|
|
Legende: |
Ph: Phase |
|
|
|
|
|
|
|
|
|
B: Siedepunkt |
D: Taupunkt |
|
|
|
|
|
|
|
F: Flüssigkeit |
G: Gasphase |
|
|
|
|
|
-16-
SOLVAY FLUOR UND DERIVATE GmbH |
|
SOLKANE® Stoffdatenmodul |
Visual Basic6.0 |
Anhang: Modul ImportVB6.bas - Importvereinbarungen für Visual Basic
' ---------------------------------------------------------------------- |
|
' Unit: ImportVB6.bas |
Compiler: MS Visual Basic 6.0 |
' Version 1.0 |
|
' Solvay Fluor und Derivate GmbH |
März 1999 |
'Deklarationen für MS Visual Basic 6 zum Import thermophysikalischer
'Stoffdatenfunktionen aus REF_CALC32.DLL.
'Hinweis: Die Bibliothek REF_CALC32.DLL sollte sich entweder im
'gleichen Ordner wie das ausführbare Programm oder im
'Windows-System-Verzeichnis befinden.
' ----------------------------------------------------------------------
Option Explicit
' Beispiel für den öffentlichen Import von Funktionen
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
-17-
SOLVAY FLUOR UND DERIVATE GmbH |
|
SOLKANE® Stoffdatenmodul |
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
-18-
SOLVAY FLUOR UND DERIVATE GmbH |
|
SOLKANE® Stoffdatenmodul |
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
-19-