Calcul enthalpique de l'air humide

Soyez le premier à donner votre avis sur cette source.

Vue 40 379 fois - Téléchargée 1 304 fois

Description

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.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
18
Date d'inscription
samedi 1 mars 2003
Statut
Membre
Dernière intervention
14 avril 2008

sniff c'est juste un exe! ici nous sommes un peu plus curieux on veut savoir "comment ca marche!"
Merci qd même de l'info cela peut être utile
Messages postés
1
Date d'inscription
mardi 18 octobre 2005
Statut
Membre
Dernière intervention
31 octobre 2008

j'ai dévellopé un petit programme en VB de calcul du diagramme de Mollier téléchargeable sur climatisation.online.fr
Messages postés
22
Date d'inscription
mardi 4 décembre 2007
Statut
Membre
Dernière intervention
3 décembre 2009

Ok, allons-y pour étayer et améliorer. Je sais que diverses professions s'appuient sur le diagramme de Mollier, mais le calcul est tout aussi pratique.
Donc, Youmeus, bienvenue au club des airs humides.

CFCTable, ok pour ta proposition, il n'y a pas de progrès sans rassemblement des têtes.
---------------------------------------------------
Il faut croire qu'il y a plus de solutions dans plusieurs têtes que dans une seule. c'est pourquoi je ne m'adresse jamais à une seule fourmi !
---------------------------------------------------
Messages postés
2
Date d'inscription
mardi 16 septembre 2003
Statut
Membre
Dernière intervention
6 juin 2008

Je peux essayer de vous aider.
Il y a quelques années j'ai développé des feuilles de calcul xls pour divers problèmes d'air humide.
J'avais utilisé des équations très fines collant parfaitement à Mollier pour de larges plages de températures et pression.

Le tout c'est de retrouver tout ça...
Messages postés
22
Date d'inscription
mardi 4 décembre 2007
Statut
Membre
Dernière intervention
3 décembre 2009

pas de problème, tout ce qui mène au progrès est bon à prendre
Afficher les 8 commentaires

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.