Générateur de chiffres et des lettres Résolu

Question

Bonjour, j'aimerais créer un petit générateur de chiffres et de lettres aléatoirement.
Restrictions:
*Nombres de caractères définis(explication):
j'ai ce code :
Dim rndnumber1 As Random
    Dim number1 As Integer
rndnumber1 = New Random
        number1 = rndnumber1.Next(1, 1000)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox0.Text = number1.ToString
End Sub

, je veux créer , à partir de ce code, un générateur de lettres également mais pas en générer à l'infini.
exemple: je veux que le générateur génère 5 caractères: O9FE34
et pas plus que cinq.
Est-ce possible, si oui, Merci de vos réponses

_________________________________
Secondary

NHenry · Accepted Answer

Bonjour, 

Ou encore : 
Dim MonTab="0123456789abcdef...yzAB...YZ".ToCharArray()

Puis, un sélectionne un élément dans le tableau et tu le concatènes à ta chaine.

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS, ce lien ou encore celui-ci[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : )
[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés./list
---
Mon site

Secondary117 · Answer

Oups, j'ai écrit six caractères à l'exemple désolé 


Cordialement,
Secondary

acive · Answer

Salut,

Pourquoi tu n'utilises pas les caractères de la table ascii?
Ca va de 0 à 255 et chaque valeur correspond à un caractère différent, il suffit de faire un random sur ces valeurs.

Tu peux aussi filtrer le résultat pour obtenir uniquement les caractères de a à z ou A à Z ou encore de 0 à 9.
 




CF2i - Guadeloupe
Ingénierie Informatique

Secondary117 · Answer

Merci acive mais je n'ai jamais utilisé les tables ascii, il me semble, ne faut-il pas une boucle for ?


Cordialement,
Secondary

acive · Answer

Un truc du genre:

        Dim NombreDeCaracteres As Integer = 6
        Dim rand As New Random()
        Me.Text = ""
        For Rt As Integer = 1 To NombreDeCaracteres
            Me.Text &= Chr(rand.Next(122))
        Next


CF2i - Guadeloupe
Ingénierie Informatique

acive · Answer

Exact, encore une autre possibilité...
Sinon t'as la table ascii

acive · Answer

Pardon... Dans ce lien


CF2i - Guadeloupe
Ingénierie Informatique

ehjoe · Answer

Bonjour Secondary n°117, Tu aurais pu indiquer si les doublons étaient autorisés... Voici un code testé : Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim hasard As Integer TextBox1.Text = "" Do While Len(TextBox1.Text) <> 5 Randomize() hasard = Int((90 - 48 + 1) * Rnd() + 48) If hasard < 58 Or hasard > 64 Then TextBox1.Text = TextBox1.Text & Chr(hasard) Loop End Sub Cordialement, Joe.

Secondary117 · Answer

Merci beacoup à vous 3,
Merci a acive pour la table ascii, à EhJoe pour le code n j'ai reardé avec la table ascii et je l'ai compris
Merci à NHenry, je vais me renseigner pour les tableaux, je ne me suis jamais intéréssé dans ce domaine, comme on dit, mieux vaut tard que jamais 



Cordialement,
Secondary

Générateur de chiffres et des lettres

9 réponses

Votre réponse

Discussions similaires