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

Signaler
Messages postés
156
Date d'inscription
samedi 31 octobre 2015
Statut
Membre
Dernière intervention
3 juillet 2018
-
Messages postés
156
Date d'inscription
samedi 31 octobre 2015
Statut
Membre
Dernière intervention
3 juillet 2018
-
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


1 réponse

Messages postés
229
Date d'inscription
vendredi 30 janvier 2009
Statut
Membre
Dernière intervention
3 mai 2018
20
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)
Messages postés
229
Date d'inscription
vendredi 30 janvier 2009
Statut
Membre
Dernière intervention
3 mai 2018
20
J'avais pas vu ça :
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Messages postés
156
Date d'inscription
samedi 31 octobre 2015
Statut
Membre
Dernière intervention
3 juillet 2018
6
Merci pour ces conseils, je vais m'informer un peu plus sur cette nouvelle structure