Discussion :

[herroP]

Bonjour, j'ai fait un code pour générer un nombre aléatoire mais il ne fonctionne pas, je ne comprends pas pourquoi :

Code :

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

1
2
3
4
5
6
7
8
9
Dim random As New Random, result As Integer
            result = random.Next(0, 1)
            If result = 0 Then
                MsgBox("Vous parvenez à esquiver le mouton de justesse!")
            End If
            If result = 1 Then
                MsgBox("Le mouton réussi à vous percuter!")
                retrait_de_vie_perso(10, Defense)
            End If

Quelqu'un aurez une solution?
Merci d'avance.

[Sehnsucht]

Bonjour,

Tu cherches à obtenir un nombre entier dans l'intervalle [0; 1[ (donc de 0 inclus à 1 exclus) ; à ma connaissance un seul nombre satisfait cette condition, donc tu n'obtiens que celui-là (0 en l'occurrence).

Cordialement !

[herroP]

Oui je me suis trompé, mon intervalle est de 0 à 1 inclus.
Mais comment faire cela?

[Sehnsucht]

random.Next(0, 1) choisi dans [0; 1[
Pour avoir dans l'intervalle [0; 2[ que faut-il mettre à ton avis ?

(Note au passage que vu que le premier argument est 0 tu peux, l'omettre et ne passer que le second car il existe une surcharge de Next qui permet cela.

Cordialement !

[herroP]

Donc il faudrait faire

Code :

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

1
2
Dim random As New Random, result As Integer
            result = random.Next(1)

en trouvant un moyen d'inclure 1, c'est ça?
Existe-t-il un caractère pour inclure le 1?

[herroP]

C'est bon j'ai trouvé, il faut mettre

Code :

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

result = random.next(0, 2)

Merci de ton aide.