L'application permet dans la plage 0-100 degrés, de calculer quelques caractéristiques physiques de la vapeur d'eau.
A partir des courbes du diagramme de Mollier, ou avec cet outil, on peut ainsi connaitre les principaux indicateurs de l'eau dans le cadre de connaissance techniques pures appliquées, comme la météo, les process de séchage sous atmosphères humides contrôlées, etc...
Source / Exemple :
Private Sub CommandButton1_Click()
'Calcul de l'enthalpie de l'air
CalculAir
End Sub
Private Sub CommandButton2_Click()
Sheets(2).Select
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
End Sub
Function CalculAir()
Dim A As Double, B As Double, C As Double, D As Double
Dim E As Double, F As Double, G As Double
Dim H As Double, I As Double, J As Double, K As Double
Dim L As Double, M As Double, N As Double
Dim Q As Double, R1 As Double, R2 As Double, R3 As Double
Dim R4 As Double
'-----------------------------------------------------
A = 0: B = 0: C = 0: D = 0
E = 0.622
F = 1.005
G = 1.927
H = 2486
I = 17.08085
J = 234.17
K = 6.1078
L = 0.00066
M = 1013.246
N = 0
A = ActiveSheet.Range("thum").Value
B = K * Exp((A * I) / (A + J))
C = B
D = A
A = ActiveSheet.Range("tsech").Value
If D > A Then
MsgBox ("La Température Humide doit être Inférieure à la Température sèche : à revoir !")
ActiveSheet.Range("Thum").Select
ActiveSheet.Range("Thum") = ActiveSheet.Range("Tsech")
Exit Function
End If
B = K * Exp((A * I) / (A + J))
C = (D - A) * (M * L) + C
Q = C / B * 100
R1 = Int(Q * 100) / 100
If R1 < 0 Then R1 = 0
ActiveSheet.Range("Hrel").Value = R1
'-----------------------------------
D = Log(Abs(C / K))
Q = D * J / (I - D)
R2 = Int(Q * 100) / 100
ActiveSheet.Range("Pr").Value = R2
'-----------------------------------
Q = E * C / (M - C) * 1000
R3 = Int(Q * 100) / 100
If R3 < 0 Then R3 = 0
ActiveSheet.Range("Meau").Value = R3
'-----------------------------------
N = Q / 1000
Q = (F * A) + (G * A * N) + (H * N)
R4 = Int(Q * 100) / 100
ActiveSheet.Range("Enthalp").Value = R4
End Function
Conclusion :
Le code n'est compréhensible que si la visu de l'application est sous les yeux, car il faut définir les 2 températures humide et sèche.
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.