randomize ? ou condition foireuse

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : randomize ? ou condition foireuse

Toon58

Code :

Imports System.Threading
Module Module1
Sub Main()
Dim nombre, de1, de2, de3, de4, de5, de6, cpt As Integer
Randomize()
Console.WriteLine("Simulation de lancer de 6 dés" )
Console.WriteLine("Combien de fois voulez vous simuler le lancé de 6 dés ?" )
nombre = Console.ReadLine()
While nombre > 0
de1 = 1 + Rnd() * 6
de2 = 1 + Rnd() * 6
de3 = 1 + Rnd() * 6
de4 = 1 + Rnd() * 6
de5 = 1 + Rnd() * 6
de6 = 1 + Rnd() * 6
nombre -= 1
Console.WriteLine("tirage numéro {0} en cours ", nombre)
'Console.Write(" {0} {1} {2} {3} {4}{5}", de1, de2, de3, de4, de5, de6)
If de1 = de2 = de3 = de4 = de5 = de6 Then
cpt = cpt + 1
End If
End While
Console.WriteLine("Les dés ont tous eu la même valeur {0} fois", cpt)
Thread.Sleep(2000)
End Sub
End Module

voici un algorithme tout con que j'avais en C et que j'ai passé en Vb
Problème : Même sur 1000000 tirages, je n'obtiens jamais tous les dés égaux, alors que le même algorithme en C me donne environ 130 fois les dés tous égaux. :aie:

Quelqu'un peut t'il m'aider ? Je débute en Vb (2008) (Comme si cela ne se voyait pas :mouarf: )

Publicité

billgatesanonym

Citation :

If de1 = de2 = de3 = de4 = de5 = de6 Then

Je n'ai jamais utilisé cette syntaxe compacte en VB, donc j'ai un doute. A la place, j'écrirais :

If de1 = de2 and de2 = de3 and de3 = de4 and de4 = de5 and de5 = de6 Then

C'est un chouia plus long, mais pas tant que ça, et et c'est une programation traditionnelle moins risquée.

D'autre part, la variable cpt n'est pas initialisée explicitement. Bon on peut penser que VB le fera tout seul, mais l'intialiser ne demande pas beaucoup d'effort et cela évite de prendre un autre risque.

Toon58

Ok, merci
Mauvaise habitude de C

kao98

...

Pourquoi ne pas utiliser un tableau de dés plutôt que 6 variables différentes !?

---------------
Kao ..98 - Uplay (R6S) : kao98.7.62x39 - Origin (BF4, BF1) : kntkao98

FORUM HardWare.fr

Programmation

VB/VBA/VBS

randomize ? ou condition foireuse

Sujets relatifs
VBS-condition-logique identique-résultat différent	select d'une ligne entière à partir d'une condition
Copie d'une cellule d'un classeur vers un autre sous condition	Copier des cellules sous condition avec boucle
Problème avec condition dans script batch	validation d'un form avec condition 1 et/ou 2
Modification de code PHP pour ajouter une condition	EXCEl : Condition SI ==> Regroupez des pays selon un Code
[SQL]Probleme de condition sur un SELECT
Plus de sujets relatifs à : randomize ? ou condition foireuse

Page générée en 0.066 secondes