Discussion :

[Qwerty111]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
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.

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

[tomlev]

Je pense que c'est ta condition qui est foireuse : "de1 = de2" renvoie un Boolean, donc toutes les comparaisons suivantes renvoient false.

Fais plutôt comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If de1 = de2 AndAlso de1 = de3 AndAlso de1 = de4 AndAlso de1 = de5 AndAlso de1 = de6 Then
                cpt = cpt + 1
            End If

[Qwerty111]

D'accord, merci beaucoup

Une habitude de C à perdre.