Système aléatoire VB.net Résolu/Fermé

Question

Bonjour, 

J'aimerais bien savoir comment faire un bout de code pour créer un système de sélection aléatoire; j'ai essayer ce code mais il ne fonctionne pas :

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Label1.Text = Int(Rnd() * 4)
        Select Case Label1.Text
            Case 0
                Label1.Text= "1"
            Case 1
                Label1.Text= "2"
            Case 1
                Label1.Text= "3"
            Case 2
                Label1.Text= "4"
	    Case 2
                Label1.Text= "5"
        End Select
    End Sub 

Si vous avez quelques choses à proposer, je suis preneur ;)

Merci
Cordialement VANAUR

Configuration: Visual Basic express 2010

perreet · Answer

Salut,

Rnd() renvoie un nombre aléatoire entre 0 et 1.

Si tu veux générer 0,1,2,3, ou 4 : Label1.Text = Int(Rnd() * 5)

Si tu veux générer 1,2,3,4, ou 5 : Label1.Text = Int(Rnd() * 4 + 1)

Système aléatoire VB.net

1 réponse

Discussions similaires