Discussion :

[mael21]

Bonjour,

Je voudrais un code qui permet de générer des lettres majuscules et des chiffres (exemple: 3 ou 9) au hasard lorsque je clique sur un bouton. Je voudrais ce ça génère 8 caractères maximum dans un TextBox. J'ai déjà utilisé des codes mais sois il y a des erreurs ou sois sa ne marche pas !

Pouvez-vous m'aider, en fournissant un code ?

Merci,
Mael

[Pol63]

ceci est juste un problème d'algorithmie de base

pour faire une chaine de 8 caractères aléatoire, il faut faire 8 fois un choix d'un caractère parmis une liste aléatoirement (tableau ou collection contenant tout ce qu'on a le droit d'utiliser)

Code :

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

dim carsPossibles = "ABCDEFGHIJKMNOPQRSTUVWXYZ0123456789"

et il y a la classe random qui permet d'avoir un numéro alétoire
avec concaténation et boucle for

[wallace1]

Bonjour mael21,

Tu peux utiliser cette technique très simple :

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
 
   'Déclaration et initilisation de la variable rdn qui permettra de retourner grâce à la méthode ".Next" (de la classe Random) un nombre aléatoire.
   Private rdn As Random = New Random()
   'Déclaration et affectation de la variable str qui contient les caractères alphanumériques.
   Private str$ = "AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz0123456789"
   Private Function randomString(length%) As String
        'On déclare un tableau pouvant contenir 8 élément de type "Char"
        Dim buffer As Char() = New Char(length - 1) {}
        'On boucle 8 fois afin d'affecter à l'élément du tableau la valeur d'un caractère contenu dans la variable str
        For i As Integer = 0 To length - 1
            buffer(i) = str(rnd.Next(str.Length))
        Next
        'On retourne le résultat obtenu sous forme de chaine
        Return New String(buffer)
    End Function

Ou bien celle-ci un peu plus avancé :

Code :

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

1
2
3
4
5
 
    Private rdn As Random = New Random()
    Private Function randomString(length%) As String
        Return New String(Enumerable.Repeat("AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz0123456789", length).Select(Function(s) s(rdn.Next(s.Length))).ToArray())
    End Function

Comment utiliser l'une ou l'autre des fonctions citées supra :

Code :

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

1
2
 
  MsgBox(randomString(8))

A+

[Pol63]

il est étudiant, si on lui donne du code tout fait je ne pense pas qu'il va apprendre grand chose, surtout du code de ce niveau sans explication !

[wallace1]

il est étudiant, si on lui donne du code tout fait je ne pense pas qu'il va apprendre grand chose, surtout du code de ce niveau sans explication !

Oui je te l'accorde. On va remédier à tout ça...

[Pol63]

après sur un truc qui s'invente pas je veux bien croire que donner le code est le plus simple
mais là c'est des bases d'algo et sans ca il n'arrivera jamais à rien, linq et les fonctions anonymes ca vient après ^^