Génération de chiffres ET de lettres aléatoirement

Question

Bonsoir,
je vous contacte pour savoir comment générer des chiffres ET des lettres aux hasards. Je m'explique.

Pour les chiffre, j'ai ça (de 1 à 9) :
Int((9 * Rnd()) + 1)

Et pour les lettres :
Randomize()
z = Int((26 * Rnd()) + 1)

Maintenant existe-t-il un code qui permet de générer par exemple un chiffre, puis une lettre, puis encore un chiffre, aléatoirement ( sans ordre respectif)

Merci,
Sorpia.

NHenry · Answer

Bonjour, 

Pourquoi ne pas faire un tableau et accéder à un élément à chaque fois ?

---------------------------------------------------------------------
[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

Utilisateur anonyme · Answer

Re-Bonjour,
Oula je suis perdu rien quand lisant ta phrase, si tu as du temps et de l'espoir tu pourrai m'expliquer s'il te plaît ? La je dois y allez je reviens dans 1h 30. Au pire si tu as un tutoriel ce serai génial !:D

Merci,
a+.

NHenry · Answer

Bonjour, 

Dim MonTab(0 to 35) as string
MonTab(0)="0"
...
Montab(9)="9"
MonTab(10)="A"
...
MonTab(35)="Z"

Ensuite, tu utilises un Rnd mais pour cibler un élément du tableau.


---------------------------------------------------------------------
[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

ucfoutu · Answer

Bonjour,
Maintenant existe-t-il un code qui permet de générer par exemple un chiffre, puis une lettre, puis encore un chiffre, aléatoirement ( sans ordre respectif) 

le principe est rigoureusement le même (celui que t'a indiqué Nhenry) !
Un tirage alearoire (lettre ou chiffre) suivi, dans la foulée, du tirage aléatoire y correspondant !

____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

cs_ShayW · Answer

Salut

peut etre ainsi

Dim chiffres As String = "123456789"
        Dim lettres As String = "abcdefghijklmnopqrstuvwxz"
 Dim rnd As New Random
 Dim unelettre As Char
 Dim unchiffre As Integer
 unelettre = Convert.ToChar(lettres.Substring(rnd.Next(0, lettres.Length), 1))
 unchiffre = Convert.ToInt32(chiffres.Substring(rnd.Next(0, chiffres.Length), 1))

cs_ShayW · Answer

Excuse trompé 

tu veux en vb6

ucfoutu · Answer

Bonjour, ami ShayW,

en vb6 ? 
En vb6, je pense qu'il aurait intérêt à :
--- ouvrir son aide VB6 sur le mot Ascii 
------- y constater les valeurs ascii de 0 à 9
------- y constater les valeurs ascii de A à Z
--- tirer aléatoirement de 0 à 1 et 
------- si 0 ==== >> tirer aléatoirement parmi les codes chiffres
------- si 1, tirer aléatoirement parmi les codes lettres

Et pour parfaire son étude : ouvrir son aide VB6 sir le mot  Chr .

J'aimerais le voir tenter quelque-chose ainsi, par lui-même, d'abord 
____________________
Réponse exacte ?  => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

ehjoe · Answer

Bonjour Sorpia,

Tiens, testé en vb6


' form 1 : lettres / nombres aléatoires
Option Explicit
Sub Form_Load() ' form1 + 3 objets
  Label1 = ""
  Command1.Caption = "écrit"
  Command2.Caption = "efface"
End Sub

Sub Command1_Click() ' écrit
  Randomize
  Select Case Int((2 - 1 + 1) * Rnd + 1) ' 1 ou 2
    Case 1
      Randomize
      Label1 = Label1 & Chr(Int((57 - 49 + 1) * Rnd + 49)) ' chiffre
    Case 2
      Randomize
      Label1 = Label1 & Chr(Int((122 - 97 + 1) * Rnd + 97))  ' lettre
  End Select
End Sub

Sub Command2_Click(): Label1 = "": End Sub ' efface


Cordialement, Joe.

ucfoutu · Answer

Bonjour, EhJoe,
Geztil mais ===>>> lui as-tu vraiment rendu ainsi service ? (ce n'est qu'une question, avant d'aller faire dodo).

____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

cs_ShayW · Answer

Bonjour Ucfoutu 

J'aimerais le voir tenter quelque-chose ainsi, par lui-même, d'abord 

beaucoup mieux 
c'est en forgeant qu'on devient forgerons

ehjoe · Answer

Ave Jacques,

Oui, je pense que je lui ai rendu service, car il y a moult personnes qui viennent pour avoir un bout de code afin de résoudre un problème ponctuel, mais qui évidemment ne vont pas apprendre réellement à programmer pour si peu, c'est évident ; alors la seule solution est de leur faire ou de les envoyer paître.

Le code présente l'avantage qu'on peut ensuite si on a ce qu'il faut d'esprit, le tester, le triturer afin de comprendre le mécanisme et d'aller de l'avant éventuellement. C'est comme ça qu'on fait à l'école : Cours, exemples, exercices, c'est l'unique façon d'apprendre. Un dictionnaire sans citation n'a aucune utilité puisqu'on ne connais pas la façon d'utiliser le mot (Robert est le meilleur en Français), et bien c'est pareil pour le reste, une explication sans exemple est à mon sens inutile, pour celui qui ne sais pas...

D'autant qu'en sus, si on regarde, y en a pas énormément qui programment, ceux qui arrivent avec des BDD ou du Excel ou du Grid (ils veulent tout mettre en grille à cause du cerveau quadrillé par trop d'Excel, alors qu'en gestion on ne n'utilise jamais les grilles, aucun document comptable officiel n'a de grilles) ou autres bêtes dans leur code, pour moi il viennet tenter de bidouiller un morceau de code de liaison mais ne savent pas faire une programmation indépendante (qu'en code)...

Je ne me prends pas pour un chevalier, ça m'a aussi donné l'occasion de m'amuser un quart d'heure avec le bon vieux vb6.

Cordialement, Joe.

ehjoe · Answer

Bonjour ShayW,

Vois la réponse faite par moi à ucFoutu ci-dessus.

T'en as qui ne vont pas apprendre la programmation pour un bout de code, ce qui est logique, alors, soit tu les envoies paître, soit tu leur fais 

Cordialement, Joe.

Utilisateur anonyme · Answer

Bonjour à tous,
Joe j'ai lu ton code et j'ai compris, je vais l'essayer demain.

NHenry merci aussi de ton aide,j'essayerai aussi tous ça demain.

Bonne nuit.

ucfoutu · Answer

Ouais ...
EhJoe,
Sorpia ne me parait pas être dans le cas que tu exposes (regarde donc ses autres demandes). Il en est à commencer à développer.
C'est d'ailleurs la raison pour laquelle je lui donnais des indications simples (3 tirages, 1 pour savoir si chiffre ou lettre, et les 2 autres en fonction du 1er) !
Ce qu'il veut faire me parait beaucoup plus être la composition d'une clé de validation (soit pour lui-même, soit en exercice). Et je ne vois pas trop quel autre utilité cela pourrait avoir .

Si, toutefois, l'on se place dans l'hypothèse d'un demandeur sporadique (donc pas d'un développeur) ===>> un seul tirage, de 0 à 35, suffit parfaitement. 


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

ucfoutu · Answer

A analyser, donc, en 3 lignes de code
Randomize
toto = Int((35 * Rnd))
If toto > 9 Then toto = toto + 7
toto = toto + 48

Ce n'était que de l'arithmétique 
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

ucfoutu · Answer

ah (mais cela tombe sous le sens) ===>> la dernière ligne est bien sur
 toto = Chr(toto + 48)

____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

Utilisateur anonyme · Answer

Je vous remerci tous pour votre aide mais la je ne peux pas encore essayé. Tu as vu juste je commence à programmer et oui c'est pour générer des clées, mais c'est surtout comme tu l'as dit un exercice.

Sorpia.

NHenry · Answer

Bonjour,

Ucfoutu,
toto = Chr(toto + 48)
Toto est un entier ou une chaine de caractères ?

Bonne pratique à prendre, Sorpia, toujours typer fortement les variables et éviter les conversions implicites, au moins, ça limite le risque d'erreur.

Mon site

ucfoutu · Answer

Bonjour NHenry
Ce n'était que pour l'exemple de calcul arithmétique
Mais mets-le en Entier, si tu veux ===>>
Randomize
toto = Int((35 * Rnd))
If toto > 9 Then toto = toto + 7
msgbox Chr(toto + 48)


ou encore, en alimentant une listbox :
List1.additem Chr(toto + 48)
et la question ne se pose donc plus.
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

ucfoutu · Answer

et puis tiens, faisons aussi la clé, pendant qu'on y est ...
  Dim cle As String, toto As Integer, longueur_cle As Integer, i As Integer
  Randomize
  longueur_cle = 15
  For i = 1 To longueur_cle
    toto = Int((35 * Rnd))
    If toto > 9 Then toto = toto + 7
    cle = cle & Chr(toto + 48)
  Next
  MsgBox cle

et Sorpia aura (heu...) ainsi mérité sa note !

____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

Utilisateur anonyme · Answer

Bonjour,
oui ucfoutu c'est vrai que si je serai noté j'aurai une très mauvaise notes, car on va dire que, euuh..., j'ai rien fait. Et c'est pas bien car comme l'a dit ShayW, "C'est en forgeant qu'on devient forgerons".  

Bon bref voici le codes :
Dim cle As String, cle2 As String, cle3 As String, cle4 As String, toto As Integer, longueur_cle As Integer, i As Integer

        Randomize()
        longueur_cle = 5
        For i = 1 To longueur_cle
            toto = Int((35 * Rnd()))
            If toto > 9 Then toto = toto + 7
            cle = cle & Chr(toto + 48)
        Next

        For i = 1 To longueur_cle
            toto = Int((35 * Rnd()))
            If toto > 9 Then toto = toto + 7
            cle2 = cle2 & Chr(toto + 48)
        Next

        For i = 1 To longueur_cle
            toto = Int((35 * Rnd()))
            If toto > 9 Then toto = toto + 7
            cle3 = cle3 & Chr(toto + 48)
        Next

        For i = 1 To longueur_cle
            toto = Int((35 * Rnd()))
            If toto > 9 Then toto = toto + 7
            cle4 = cle4 & Chr(toto + 48)
        Next



        TextBox1.Text = cle & "-" & cle2 & "-" & cle3 & "-" & cle4

        RichTextBox1.Text = RichTextBox1.Text & cle & "-" & cle2 & "-" & cle3 & "-" & cle4 & vbCrLf

        Label2.Text = Val(Label2.Text + 1)

Encore merci à vous tous,
Sorpia.

PS: Les spoilers devraient être ajoutés ^^( ça prend beaucoup de place les codes)

Utilisateur anonyme · Answer

J'ai tout laissé comme tu me l'as donné car je trouve ça bien expliquer.

NHenry · Answer

Bonjour, 

Évites les copies inutiles, utilises plutôt une fonction que tu appelleras selon les besoins.

---------------------------------------------------------------------
[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

Utilisateur anonyme · Answer

Oui merci j'applique ça de suite.

ucfoutu · Answer

même pas besoin d'une fonction ===>> une variable nb_groupes en integer ===>> une double boucle 
Montre-nous ce que tu sais faire avec, pour voir ...


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

ucfoutu · Answer

Le marché est simple, sorpia. En voici les bases :
- ta note n'est pour l'instant pas fameuse (ce n'est pas ton code)
- tu peux l'améliorer de 2 points avec une double boucle (sans aide). 2 points seulement parce que je t'ai dit l'essentiel de cette double boucle
- et 4 points de plus si tu y parviens en une seule boucle (sans aucune aide).
A toi de voir. 


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

Utilisateur anonyme · Answer

La fonction je l'ai fait, je vais voir pour la double boucle.

Utilisateur anonyme · Answer

Tu as raison je suis un débutant, et comme tout les débutants, je ne sais presque rien faire. Je sais même pas ci c'est juste pour la fonction :

Function code(ByVal numero As Integer)

        Dim cle As String, cle2 As String, cle3 As String, cle4 As String, toto As Integer, longueur_cle As Integer, i As Integer

        longueur_cle = 10
        If numero = 1 Then
            For i = 1 To longueur_cle
                toto = Int((35 * Rnd()))
                If toto > 9 Then toto = toto + 7
                cle = cle & Chr(toto + 48)
                code = cle
            Next
        ElseIf numero = 2 Then
            For i = 1 To longueur_cle
                toto = Int((35 * Rnd()))
                If toto > 9 Then toto = toto + 7
                cle2 = cle2 & Chr(toto + 48)
                code = cle2
            Next
        ElseIf numero = 3 Then
            For i = 1 To longueur_cle
                toto = Int((35 * Rnd()))
                If toto > 9 Then toto = toto + 7
                cle3 = cle3 & Chr(toto + 48)
                code = cle3
            Next
        ElseIf numero = 4 Then
            For i = 1 To longueur_cle
                toto = Int((35 * Rnd()))
                If toto > 9 Then toto = toto + 7
                cle4 = cle4 & Chr(toto + 48)
                code = cle4
            Next
        End If

    End Function

ucfoutu · Answer

Ce que tu as fait là ne joue pas le rôle d'une fonction.
Une fonction reçoit des paramètre et retourne une valeur.
NHenry te suggérait l'utilisation d'une fonction en lieu et place de tes 4 boucles répétées ! 


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

ucfoutu · Answer

Ouvre ton aide VB6 sur le mot Function. Lis. Lis également les exemples.
Cela devrait t'éclairer et serait sain.


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

Utilisateur anonyme · Answer

Oui, à vrai dire ça ne fait pas longtemps que j'ai commencé à programmé don je vais commencé par lire cette aide ^^.

ucfoutu · Answer

je vais commencé par lire cette aide ^^.

 en te précisant que je n'ai (ni n'ai jamais eu) nulle autre bible. C'est la seule voie qui mène aux vrais buts. 
Bonne étude.

____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

Génération de chiffres ET de lettres aléatoirement

32 réponses

Votre réponse

Discussions similaires