pile ou face en VBA [Résolu]

[prince19]

Bonjour,
je souhaiterais savoir s'il y a une fonction en VBA qui sort un boolean (pile ou face) avec une probabilité imposée en entrée...du type : flip(probabilité) en Pascal.

Merci !

--
Amir, qui débute à peine en VBA

[durdesfois]

Bonjour,

Je ne connais pas d' équivalent au Flip Pascal en VBA,mais ca peut se faire facilement:

Essaies ça :

Code :

1
2
3
4
5
 
'Tirage fournit 0 ou 1, suivant la probabalité d' avoir 1 (prob1)
Function tirage(prob1) As Byte
tirage = IIf(Rnd > prob1, 0, 1)
End Function

Tu peux voir les résultats avec la petite séquence de test suivante:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Randomize Timer
nombre_essais=500000
essais=nombre_essais
 
Do While  essais<>0
If tirage(0.3) = 0 Then
    s0 = s0 + 1
  Else
    s1 = s1 + 1
  End If
  essais=essais-1
Loop
 
s0 = s0 / nombre_essais
s1 = s1 / nombre_essais
Stop

Ca doit correspondre à ta question.

A+

Daniel

[prince19]

merci beaucoup, c'est exactement ce que je cherchais !