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

Messages postés
45
Date d'inscription
lundi 28 novembre 2011
Statut
Membre
Dernière intervention
26 décembre 2013
- - Dernière réponse : Secondary117
Messages postés
45
Date d'inscription
lundi 28 novembre 2011
Statut
Membre
Dernière intervention
26 décembre 2013
- 29 nov. 2011 à 19:00
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
Afficher la suite 

9 réponses

Meilleure réponse
Messages postés
14600
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
12 décembre 2019
137
3
Merci
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

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 191 internautes nous ont dit merci ce mois-ci

Commenter la réponse de NHenry
3
Merci
Pardon... Dans ce lien


CF2i - Guadeloupe
Ingénierie Informatique

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 191 internautes nous ont dit merci ce mois-ci

Commenter la réponse de Utilisateur anonyme
Messages postés
728
Date d'inscription
samedi 4 avril 2009
Statut
Membre
Dernière intervention
30 mars 2014
3
3
Merci
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.

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 191 internautes nous ont dit merci ce mois-ci

Commenter la réponse de ehjoe
Messages postés
45
Date d'inscription
lundi 28 novembre 2011
Statut
Membre
Dernière intervention
26 décembre 2013
1
0
Merci
Oups, j'ai écrit six caractères à l'exemple désolé


Cordialement,
Secondary
Commenter la réponse de Secondary117
0
Merci
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
Commenter la réponse de Utilisateur anonyme
Messages postés
45
Date d'inscription
lundi 28 novembre 2011
Statut
Membre
Dernière intervention
26 décembre 2013
1
0
Merci
Merci acive mais je n'ai jamais utilisé les tables ascii, il me semble, ne faut-il pas une boucle for ?


Cordialement,
Secondary
Commenter la réponse de Secondary117
0
Merci
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
Commenter la réponse de Utilisateur anonyme
0
Merci
Exact, encore une autre possibilité...
Sinon t'as la table ascii http://www.jr.loucan.fr/... target='_blank'>Dans ce lien




CF2i - Guadeloupe
Ingénierie Informatique
Commenter la réponse de Utilisateur anonyme
Messages postés
45
Date d'inscription
lundi 28 novembre 2011
Statut
Membre
Dernière intervention
26 décembre 2013
1
0
Merci
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
Commenter la réponse de Secondary117