randomize ? ou condition foireuse

randomize ? ou condition foireuse - VB/VBA/VBS - Programmation

Marsh Posté le 08-03-2009 à 17:23:09    

Code :
  1. Imports System.Threading
  3. Module Module1
  5.     Sub Main()
  7.         Dim nombre, de1, de2, de3, de4, de5, de6, cpt As Integer
  9.         Randomize()
  11.         Console.WriteLine("Simulation de lancer de 6 dés" )
  12.         Console.WriteLine("Combien de fois voulez vous simuler le lancé de 6 dés ?" )
  13.         nombre = Console.ReadLine()
  15.         While nombre > 0
  16.             de1 = 1 + Rnd() * 6
  17.             de2 = 1 + Rnd() * 6
  18.             de3 = 1 + Rnd() * 6
  19.             de4 = 1 + Rnd() * 6
  20.             de5 = 1 + Rnd() * 6
  21.             de6 = 1 + Rnd() * 6
  22.             nombre -= 1
  23.             Console.WriteLine("tirage numéro {0} en cours ", nombre)
  24.             'Console.Write(" {0} {1} {2} {3} {4}{5}", de1, de2, de3, de4, de5, de6)
  25.             If de1 = de2 = de3 = de4 = de5 = de6 Then
  26.                 cpt = cpt + 1
  27.             End If
  28.         End While
  29.         Console.WriteLine("Les dés ont tous eu la même valeur {0} fois", cpt)
  30.         Thread.Sleep(2000)
  31.     End Sub
  33. 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: )

Reply

Marsh Posté le 08-03-2009 à 17:23:09   

Reply

Marsh Posté le 08-03-2009 à 22:12:11    

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.

Reply

Marsh Posté le 08-03-2009 à 22:21:54    

Ok, merci
Mauvaise habitude de C :/

Reply

Marsh Posté le 09-03-2009 à 14:23:21    

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
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed