Méthode de calcul pour le réglage de votre adoucisseur

Soyez le premier à donner votre avis sur cette source.

Vue 13 345 fois - Téléchargée 1 618 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

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

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.