341
modifications
Modifications
m
-Saut de lignes
Le script visual basic suivant calcul le fluide que vous rapporte vos sorts par scénario (en cL) selon la formule suivante : fluide rapporté par un sort = 10 + X/4 où X est le coût du sort.
Le script fait automatiquement l'arrondi nécessaire pour que la quantité exprimée sont un multiple de 5. Par exemple un sort à 150 cL rapporte 50 cL de fluide par scénario.
==Script==
<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]]