341
modifications
Modifications
m
-Saut de lignes
<pre>
Const Coeur_de_Terre = 100
Const Nb_sort = 14
reDim Sort(Nb_sort)
Sort(0) = 2
Sort(1) = 2
Sort(2) = 100
Sort(3) = 100
Sort(4) = 2
Sort(5) = 2
Sort(6) = 100
Sort(7) = 100
Sort(8) = 2
Sort(9) = 2
Sort(10) = 2
Sort(11) = 2
Sort(12) = 100
Sort(13) = 160
Fluide = 0
For i = 0 to (Nb_sort - 1)
Fluide = Fluide + Calc(Sort(i))
Next
MsgBox(Coeur_de_Terre + Fluide)
Function Calc(X)
if x > 150 then
x = 150
end if
Base = 10
Add = X\4
Ret = Add mod 5
Var = x/4 mod 5
if Var >= 2 then
Calc = Base + Add - Ret + 5
else
Calc = Base + Add - Ret
end if
End Function
</pre>
[[Catégorie:Autre]]
