Méthode de calcul pour le réglage de votre adoucisseur
Soyez le premier à donner votre avis sur cette source.
Vue 16 763 fois - Téléchargée 1 946 fois
Description
Cette macro permet de calculer les valeurs de réglage sur un adoucisseur d'eau,La méthode est simple.
le fichier PDF est disponible sur ce site : http://www.siadebp.fr/Images/adoucisseur.pdf
le fichier PDF est disponible sur ce site : http://www.siadebp.fr/Images/adoucisseur.pdf
Source / Exemple :
Sub adoucisseurs()
MsgBox "Cette Application est valable que pour une vanne volumétrique ==> Vous réglez le volume d'eau utilisé et non pas le temps." & _
"" & Chr(10) & _
"---------------------------------------------------------------------------------------------------------------------------" & Chr(10) & _
"Vanne chronométrique==> Vous réglez uniquement l'intervalle de temps entre 2 régénérations par rapport à votre consommation moyenne d'eau . " & _
"" & Chr(10) & _
"" & Chr(10) & _
"", vbInformation, "Info : Méthode de calcul pour réglage de votre adoucisseur "
Dim TH_Entrée, TH_résiduel, CjT, N__résine, CEU, Coût_en_eau, Coût_en_sel, CE, Delta_TH, Vead, NRég_an, Cjea, Prix_du_sel, Prix_de_l’eau, Qeau_rég, Frequence As Double
TH_Entrée = InputBox("Dureté totale mesurée En °F", "Mesure du Titre Hydrotimétrique(TH) desservi par Votre réseau : ", "(Ce TH actuellement à 30°F )")
TH_résiduel = InputBox("Dureté résiduelle souhaitée en sortie de l’adoucisseur En °F", "Définir votre TH résiduel en fonction de vos exigences.. ", "(En général, Entre 5°F et 10°F).")
CjT = InputBox("Consommation journalière Totale En m³ :", "Consommation journalière Totale Relevée chaque semaine /7 (jours) ", "Consommation journalière Totale En m³ ")
N__résine = InputBox("Capacité total Bouteille à pression En Litre : Entre: 7,9,20,11,21,25,32,38,48,63,100,150,178,286,350, 500,710 litres", "Nombre de litre de résine d’échange de l’appareil :", " Indique la capacité de la bouteille ")
'CARACTERISTIQUES TECHNIQUES
' Controle des bouteilles
'Matériel en poyéthylène renforcé de fibre de verre à usage alimentaire - Pression de service : 10 bars maximum - Pression d'épreuve : 30 bars Température d 'tilisation : 55° C maximum "
If N__résine = 7 Then
MsgBox " Bouteille à pression : " & N__résine & " Model :7x13" & " Dimension : A = 178 B = 330 C = 336 " & _
"" & Chr(10) & _
"---------------------------------------------------------------------------------------------------------------------------" & Chr(10) & _
" Matériel en poyéthylène renforcé de fibre de verre à usage alimentaire - Pression de service : 10 bars maximum - Pression d'épreuve : 30 bars Température d 'tilisation : 55° C maximum", vbInformation, "CARACTERISTIQUES TECHNIQUES : "
End If
If N__résine = 9 Then
MsgBox " Bouteille à pression : " & N__résine & " Model :7x17 " & " Dimension : A = 178 B = 432 C = 437 " & _
"" & Chr(10) & _
"---------------------------------------------------------------------------------------------------------------------------" & Chr(10) & _
" Matériel en poyéthylène renforcé de fibre de verre à usage alimentaire - Pression de service : 10 bars maximum - Pression d'épreuve : 30 bars Température d 'tilisation : 55° C maximum", vbInformation, "CARACTERISTIQUES TECHNIQUES : "
End If
If N__résine = 20 Then
MsgBox " Bouteille à pression : " & N__résine & " Model :7x35" & " Dimension : A = 178 B = 889 C = 895 " & Chr(10) & _
"" & Chr(10) & _
"---------------------------------------------------------------------------------------------------------------------------" & Chr(10) & _
" Matériel en poyéthylène renforcé de fibre de verre à usage alimentaire - Pression de service : 10 bars maximum - Pression d'épreuve : 30 bars Température d 'tilisation : 55° C maximum", vbInformation, "CARACTERISTIQUES TECHNIQUES : "
End If
If N__résine = 11 Then
MsgBox " Bouteille à pression : " & N__résine & " Model :8x17" & " Dimension : A = 203 B = 432 C = 437 " & Chr(10) & _
"" & Chr(10) & _
"---------------------------------------------------------------------------------------------------------------------------" & Chr(10) & _
" Matériel en poyéthylène renforcé de fibre de verre à usage alimentaire - Pression de service : 10 bars maximum - Pression d'épreuve : 30 bars Température d 'tilisation : 55° C maximum", vbInformation, "CARACTERISTIQUES TECHNIQUES : "
End If
If N__résine = 21 Then
MsgBox " Bouteille à pression : " & N__résine & " Model :8x30" & " Dimension : A = 203 B = 762 C = 767 " & Chr(10) & _
"" & Chr(10) & _
"---------------------------------------------------------------------------------------------------------------------------" & Chr(10) & _
" Matériel en poyéthylène renforcé de fibre de verre à usage alimentaire - Pression de service : 10 bars maximum - Pression d'épreuve : 30 bars Température d 'tilisation : 55° C maximum", vbInformation, "CARACTERISTIQUES TECHNIQUES : "
End If
If N__résine = 25 Then
MsgBox " Bouteille à pression : " & N__résine & " Model :8x35" & " Dimension : A = 203 B = 889 C = 895 " & Chr(10) & _
"" & Chr(10) & _
"---------------------------------------------------------------------------------------------------------------------------" & Chr(10) & _
" Matériel en poyéthylène renforcé de fibre de verre à usage alimentaire - Pression de service : 10 bars maximum - Pression d'épreuve : 30 bars Température d 'tilisation : 55° C maximum", vbInformation, "CARACTERISTIQUES TECHNIQUES : "
End If
If N__résine = 32 Then
MsgBox " Bouteille à pression : " & N__résine & " Model :8x44" & " Dimension : A = 203 B = 1117 C = 1123 " & Chr(10) & _
"" & Chr(10) & _
"---------------------------------------------------------------------------------------------------------------------------" & Chr(10) & _
" Matériel en poyéthylène renforcé de fibre de verre à usage alimentaire - Pression de service : 10 bars maximum - Pression d'épreuve : 30 bars Température d 'tilisation : 55° C maximum", vbInformation, "CARACTERISTIQUES TECHNIQUES : "
End If
If N__résine = 38 Then
MsgBox " Bouteille à pression : " & N__résine & " Model :10x35" & " Dimension : A = 254 B = 889 C = 895 " & Chr(10) & _
"" & Chr(10) & _
"---------------------------------------------------------------------------------------------------------------------------" & Chr(10) & _
" Matériel en poyéthylène renforcé de fibre de verre à usage alimentaire - Pression de service : 10 bars maximum - Pression d'épreuve : 30 bars Température d 'tilisation : 55° C maximum", vbInformation, "CARACTERISTIQUES TECHNIQUES : "
End If
If N__résine = 48 Then
MsgBox " Bouteille à pression : " & N__résine & " Model :10x44" & " Dimension : A = 254 B = 1117 C = 1122 " & Chr(10) & _
"" & Chr(10) & _
"---------------------------------------------------------------------------------------------------------------------------" & Chr(10) & _
" Matériel en poyéthylène renforcé de fibre de verre à usage alimentaire - Pression de service : 10 bars maximum - Pression d'épreuve : 30 bars Température d 'tilisation : 55° C maximum", vbInformation, "CARACTERISTIQUES TECHNIQUES : "
End If
If N__résine = 63 Then
MsgBox " Bouteille à pression : " & N__résine & " Model :10x54" & " Dimension : A = 254 B = 1371 C = 1376 " & Chr(10) & _
"" & Chr(10) & _
"---------------------------------------------------------------------------------------------------------------------------" & Chr(10) & _
" Matériel en poyéthylène renforcé de fibre de verre à usage alimentaire - Pression de service : 10 bars maximum - Pression d'épreuve : 30 bars Température d 'tilisation : 55° C maximum", vbInformation, "CARACTERISTIQUES TECHNIQUES : "
End If
If N__résine = 100 Then
MsgBox " Bouteille à pression : " & N__résine & " Model :13x54" & " Dimension : A = 330 B = 1371 C = 1376 " & Chr(10) & _
"" & Chr(10) & _
"---------------------------------------------------------------------------------------------------------------------------" & Chr(10) & _
" Matériel en poyéthylène renforcé de fibre de verre à usage alimentaire - Pression de service : 10 bars maximum - Pression d'épreuve : 30 bars Température d 'tilisation : 55° C maximum", vbInformation, "CARACTERISTIQUES TECHNIQUES : "
End If
If N__résine = 150 Then
MsgBox " Bouteille à pression : " & N__résine & " Model :16x65" & " Dimension : A = 406 B = 1651 C = 1656 " & Chr(10) & _
"" & Chr(10) & _
"---------------------------------------------------------------------------------------------------------------------------" & Chr(10) & _
" Matériel en poyéthylène renforcé de fibre de verre à usage alimentaire - Pression de service : 10 bars maximum - Pression d'épreuve : 30 bars Température d 'tilisation : 55° C maximum", vbInformation, "CARACTERISTIQUES TECHNIQUES : "
End If
If N__résine = 286 Then
MsgBox " Bouteille à pression : " & N__résine & " Model :20x62" & " Dimension : A = 508 B = 1651 C = 1656 " & Chr(10) & _
"" & Chr(10) & _
"---------------------------------------------------------------------------------------------------------------------------" & Chr(10) & _
" Matériel en poyéthylène renforcé de fibre de verre à usage alimentaire - Pression de service : 10 bars maximum - Pression d'épreuve : 30 bars Température d 'tilisation : 55° C maximum", vbInformation, "CARACTERISTIQUES TECHNIQUES : "
End If
If N__résine = 350 Then
MsgBox " Bouteille à pression : " & N__résine & " Model :21x60 " & " Dimension : A = 533 B = 1524 C = 1529 " & Chr(10) & _
"" & Chr(10) & _
"---------------------------------------------------------------------------------------------------------------------------" & Chr(10) & _
" Matériel en poyéthylène renforcé de fibre de verre à usage alimentaire - Pression de service : 10 bars maximum - Pression d'épreuve : 30 bars Température d 'tilisation : 55° C maximum", vbInformation, "CARACTERISTIQUES TECHNIQUES : "
End If
If N__résine = 500 Then
MsgBox " Bouteille à pression : " & N__résine & " Model :24x69 " & " Dimension : A = 601 B = 1752 C = 1757 " & Chr(10) & _
"" & Chr(10) & _
"---------------------------------------------------------------------------------------------------------------------------" & Chr(10) & _
" Matériel en poyéthylène renforcé de fibre de verre à usage alimentaire - Pression de service : 10 bars maximum - Pression d'épreuve : 30 bars Température d 'tilisation : 55° C maximum", vbInformation, "CARACTERISTIQUES TECHNIQUES : "
End If
If N__résine = 710 Then
MsgBox " Bouteille à pression : " & N__résine & " Model :30x71 " & " Dimension : A = 762 B = 1828 C = 1833 " & Chr(10) & _
"" & Chr(10) & _
"---------------------------------------------------------------------------------------------------------------------------" & Chr(10) & _
" Matériel en poyéthylène renforcé de fibre de verre à usage alimentaire - Pression de service : 10 bars maximum - Pression d'épreuve : 30 bars Température d 'tilisation : 55° C maximum", vbInformation, "CARACTERISTIQUES TECHNIQUES : "
End If
' Fin de controle
If Not IsNumeric(TH_Entrée) Then
MsgBox " Entrer une valeur numérique via une inputbox : " & TH_Entrée, vbExclamation
Exit Sub
End If
If Not IsNumeric(TH_résiduel) Then
MsgBox " Entrer une valeur numérique via l'inputbox : ", vbExclamation
Exit Sub
End If
If Not IsNumeric(N__résine) Then
MsgBox " Entrer une valeur numérique via l'inputbox (Voir fiche produit ( model) : ", vbExclamation
Exit Sub
End If
If Not IsNumeric(CjT) Then
MsgBox " Entrer une valeur numérique via l'inputbox : ", vbExclamation
Exit Sub
End If
If TH_Entrée = "" Then
MsgBox "Vous avez choisi de Quitter cette application !", vbQuestion
Exit Sub
End If
If TH_résiduel = "" Then
MsgBox "Vous avez choisi de Quitter cette application !", vbQuestion
Exit Sub
End If
If CjT = "" Then
MsgBox "Vous avez choisi de Quitter cette application !", vbQuestion
Exit Sub
End If
If N__résine = "" Then
MsgBox "Vous avez choisi de Quitter cette application !"
Exit Sub
End If
'Calcul du Delta TH(delta TH): delta TH = TH eau desservie - TH résiduel
Delta_TH = TH_Entrée - TH_résiduel
'Calcul de la Consommation journalière en eau adoucie.
Cjea = (Math.Round(((CjT * Delta_TH) / TH_Entrée) * 100)) / 100
'Détermination de la Capacité d’Echange Unitaire(CEU) de la résine.3 valeurs sont généralement retenues :
'4°F.m3 correspond à 120g de sel
'5°F.m3 correspond à 150g de sel (valeur moyenne recommandée)
'6°F.m3 correspond à 180g de sel
'Une quantité trop faible de sel ne donnera pas de résultats satisfaisant alors qu’une quantité de sel trop importante ne sera pas utilisée au mieux de ses capacités.
CEU = 5 '5°F.m3 correspond à 150g de sel
'Calcul de la Capacité totale d’Echange(CE).
CE = (Math.Round((CEU * N__résine) * 100)) / 100
'Calcul du Volume d’eau adoucie disponible.
Vead = (Math.Round((CE / TH_Entrée) * 100)) / 100
' Frequnce des régénérations approximativement
Frequence = (Math.Round((Vead / CjT) * 100)) / 100
'Calcul du Volume de réserve.
VR = (Math.Round((Cjea * 0.8) * 100)) / 100 'Ce volume de réserve est égal au volume disponible entre le signal
'de régénération de l’adoucisseur et le moment où va se déclencher la régénération
'(de préférence la nuit, lorsqu’il n’y a pas de demande d’eau).
' Calcul du Volume d’eau entre deux régénérations
V2Rég = (Math.Round((Vead - VR) * 100)) / 100 'Ce volume de référence est le volume à intégrer à votre appareil.
'Calcul de l’Intervalle entre deux régénérations.
I2Rég = (Math.Round((V2Rég / Cjea) * 100)) / 100
' Les étapes suivantes permettent d’évaluer le bilan économique du fonctionnement de l’adoucisseur en fonction du réglage :
' -------------------------------------------------------------------------------------------------------------------------
'Calcul du Nombre de régénérations par an.
NRég_an = (Math.Round((335 / I2Rég) * 100)) / 100
'Calcul de la Quantité de sel consommée par régénération.
Qsel = (Math.Round((150 * N__résine / 1000) * 100)) / 100
' Bilan économique.
Prix_du_sel = 0.369 ' TTC le kg de sel " prix IDEX "
Prix_de_l’eau = 2.93 ' TTC le mètre cube
Qeau_rég = (Vead * 10 / 100) ' m3
Coût_en_sel = (Math.Round((Qsel * NRég_an * Prix_du_sel) * 100)) / 100
Coût_en_eau = (Math.Round((Qeau_rég * NRég_an * Prix_de_l’eau) * 100)) / 100
'Pour évaluer la quantité d’eau utilisée par régénération,
'vous devez vous référer aux données techniques de votre adoucisseur,
'aux réglages effectués ou aux débits mesurés sur l’appareil.
MsgBox "Bonjour : " & Environ("username ") & Chr(10) & _
"--------------------------------------------------------------------------------------------------------------------------------------" & Chr(10) & _
"Titre Hydrotimétrique(TH) desservi par votre réseau : " & TH_Entrée & " °F " & vbCrLf & "TH_résiduel : " _
& TH_résiduel & " °F " & vbCrLf & "Consommation journalière Totale : " & CjT & " m³ " & vbCrLf & "Volume de résine de votre adoucisseur : " & N__résine & " L " & vbCrLf _
& "La dureté nette à éliminer par la résine : " & Delta_TH & " °F " & vbCrLf & "La Consommation journalière en eau adoucie : " & Cjea & " m³ " & vbCrLf _
& "Capacité d’Echange Unitaire(CEU) de la résine : " & CEU & " °F.m³ " & vbCrLf & "Capacité totale d’Echange(CE) : " & CE & " °TH " & vbCrLf _
& "Volume d’eau adoucie disponible : " & Vead & " m³ " & vbCrLf & "Volume de réserve : " & VR & " m³ " & vbCrLf _
& "Volume d’eau entre deux régénérations : " & V2Rég & " m³ " & vbCrLf & "Intervalle entre deux régénérations : " & I2Rég & " m³ " & vbCrLf _
& "Nombre de régénérations par an : " & NRég_an & " N.Rég/an " & vbCrLf & "Quantité de sel consommée par régénération : " & Qsel & " Kg " & vbCrLf & "Approximativement la fréquence des régénérations est d'environ : " & Frequence & " jours " & vbCrLf _
& "Coût de sel : " & Coût_en_sel & " " & vbCrLf & "Coût_en_eau : " & Coût_en_eau & " " & " ==> Vous devez vous référer aux données techniques <== ", vbInformation, "résultats de calcul :"
End Sub
Codes Sources
A voir également
- Dimensionnement adoucisseur
- Calcul adoucisseur xls - Meilleures réponses
- Calcul régénération adoucisseur - Meilleures réponses
- Dimensionner un contrôle-image vb avec des poignées - Codes sources - Visual Basic / VB.NET (VBA)
- Visual Basic / VB.NET : Dimensionner l'affichage - CodeS SourceS - Guide
- Dimensionner des fenêtres indépendamment de la résolution d'écran utilisée - Codes sources - ASM (Api Windows)
- Visual Basic / VB.NET : Rendre une flexgrid dimensionnable sizable - CodeS SourceS - Guide
- PHP : Eurocode, dimensionnement de poteaux métaliques, xml, css3 & ajax - CodeS SourceS - Guide
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.