1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154
| Class SymboleCalcul
Public Function CalculNodeSymbol ( pValues As System.Collections.Hashtable ) As Object
Dim pResult As Object
Dim strBuffer As string
Dim strBuffer1 As string
pResult = 0
strBuffer = System.Convert.ToString (pValues.Item("TYPE"))
strBuffer1 = System.Convert.ToString(pValues.Item("TYPE"))
Select Case strBuffer
'Vanne
Case "VAN"
strBuffer = System.Convert.ToString (pValues.Item("EAU_VAN.TYPE"))
Select Case strBuffer
Case "sous regard", "VANNE SOUS REGARD" '29
pResult = 1011
Case "VANNE" '20
pResult = 1001
Case "VANNE SOUS BAC" '28
pResult = 1002
Case "HYDROSTAB" '28
pResult = 1003
case else
pResult = 1000
End Select
'Pompage
Case "PMP"
strBuffer = System.Convert.ToString (pValues.Item("EAU_PMP.TYPE"))
Select Case strBuffer
Case "Station de pompage", "STATION DE POMPAGE" '50
pResult = 7000
Case "Micro-centrale", "MICRO-CENTRALE" '35
pResult = 7001
Case "Groupe de pompage", "GROUPE DE POMPAGE" '25
pResult = 7002
case else
pResult = 7100
End Select
'Protection
Case "PRO"
strBuffer = System.Convert.ToString (pValues.Item("EAU_PRO.TYPE"))
Select Case strBuffer
Case "VENTOUSE", "Ventouse" '39
pResult = 2001
Case "Ventouse sous regard","VENTOUSE SOUS REGARD" '50
pResult = 2011
Case "Anti belier", "ANTI BELIER" '40
pResult = 2003
Case "Vidange", "VIDANGE" '17
pResult = 2002
Case "Vidange indirecte","VIDANGE INDIRECTE" '40,90
pResult = 2012
Case "RP" '22,90
pResult = 2013
Case "CLAPET ANTI RETOUR","clapet anti retour" '25,90
pResult = 2014
Case "ANODE","anode","Anode" '90,90
pResult = 2015
Case "COL DE CYGNE" '75 y+2,90
pResult = 2016
Case "Dégrilleur", "DEGRILLEUR", "dégrilleur", "Degrilleur" '30
pResult = 2017
Case "prise de potentiel", "PRISE DE POTENTIEL" '50
pResult = 2018
Case Else
pResult = 2000
End Select
'Hydrant
Case "HYD"
strBuffer = System.Convert.ToString (pValues.Item("EAU_HYD.TYPE"))
Select Case strBuffer
Case "POTEAU INCENDIE","poteau incendie", "PI", "pi" '30
pResult = 3001
Case "BOUCHE INCENDIE" '40
pResult = 3002
Case Else
pResult = 3000
End Select
'Branchement
Case "BRA"
strBuffer = System.Convert.ToString (pValues.Item("EAU_BRA.TYPE"))
Select Case strBuffer
Case "TE EN ATTENTE" '30
pResult = 4001
Case "BORNE" '17
pResult = 4002
Case "BP" '17
presult = 4003
Case "CHGT DIAM" '35
presult = 6000
Case "tborne","TBORNE" '25
presult = 4004
Case "cabine","CABINE","Cabine" '60
presult = 4005
Case "DEBITMETRE","bebimetre","débitmètre" '25
pResult = 4006
Case "COMPTEUR","compteur" '25
pResult = 4007
Case "COMPTEUR SOUS REGARD" '30
pResult = 4008
Case "DEBITMETRE SOUS REGARD" '30
pResult = 4009
Case "CHAMBRE DE MESURE","chambre de mesure" '30
pResult = 4010
Case "CREPINE","crépine","crepine" '30
pResult = 4011
Case Else
pResult = 4000
End Select
'Stockage
Case "STO"
strBuffer = System.Convert.ToString (pValues.Item("EAU_STO.TYPE"))
Select Case strBuffer
Case "RESERVOIR" '50
pResult = 5001
Case "BARRAGE","Barrage" '500
pResult = 5002
Case "PRISE","prise" '30
pResult = 5003
Case Else
pResult = 5000
End Select
'Casse
Case "RAC"
pResult = 1234
'Traitement
Case "TRA"
presult = 8000 '45
Case Else
pResult = 0
End Select
CalculNodeSymbol = pResult
End Function
End Class |
Partager