Soyez le premier à donner votre avis sur cette source.
Vue 16 763 fois - Téléchargée 1 946 fois
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
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.