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.