mirror of
https://github.com/CoolProp/CoolProp.git
synced 2026-01-14 08:28:03 -05:00
18 lines
434 B
VB.net
18 lines
434 B
VB.net
Class MainWindow
|
|
|
|
Private Sub Button_Click(sender As Object, e As RoutedEventArgs)
|
|
Dim resultat As Double
|
|
|
|
resultat = Props1("R134a", "Tcrit")
|
|
MsgBox(resultat)
|
|
|
|
resultat = HAProps("H", "T", 40 + 273.15, "R", 0.4, "P", 101.325)
|
|
MsgBox(resultat)
|
|
|
|
' ne fonctionne pas :
|
|
resultat = Props("P", "T", 273.15 + 2, "Q", 0, "R407C")
|
|
MsgBox(resultat)
|
|
|
|
End Sub
|
|
End Class
|