Résolu [AIDE] Générer des séries de chiffres et de lettres
- Auteur de la discussion CrasherPC
- Créé le
C'est simple comme Bonjour
Dans le Form1_Load
dans le bouton
n'oublie pas de mettre une numericupdown pour le nombre de charactere que tu veut génerer
Code:
Imports System.IO
Code:
Dim i As Short
Dim pass As String
Dim charactere(42) As String
Dim NbMot As Integer
Code:
charactere(0) = "a"
charactere(1) = "b"
charactere(2) = "c"
charactere(3) = "d"
charactere(4) = "e"
charactere(5) = "f"
charactere(6) = "g"
charactere(7) = "h"
charactere(8) = "i"
charactere(9) = "j"
charactere(10) = "k"
charactere(11) = "l"
charactere(12) = "m"
charactere(13) = "n"
charactere(14) = "o"
charactere(15) = "p"
charactere(16) = "q"
charactere(17) = "r"
charactere(18) = "s"
charactere(19) = "t"
charactere(20) = "u"
charactere(21) = "v"
charactere(22) = "w"
charactere(23) = "x"
charactere(24) = "y"
charactere(25) = "z"
charactere(26) = "0"
charactere(27) = "1"
charactere(28) = "2"
charactere(29) = "3"
charactere(30) = "4"
charactere(31) = "5"
charactere(32) = "6"
charactere(33) = "7"
charactere(34) = "8"
charactere(35) = "9"
charactere(36) = "10"
charactere(37) = "A"
charactere(38) = "B"
charactere(39) = "C"
charactere(40) = "D"
charactere(41) = "E"
charactere(42) = "M"
Code:
NbMot = NumericUpDown1.Value
Randomize()
pass = ""
i = 0
While (i <= NbMot - 1)
pass = pass & charactere((CShort(Rnd() * 42)))
i = i + 1
End While
TextBox1.Text = passMerci
Désolé mais il y a des erreurs, ça marche pas !
ça marche je l'utile c'est quoi ton erreur !!!
You must be registered for see images attach
Ta pas dim
Dim i As Short
Dim pass As String
Dim charactere(42) As String
Dim NbMot As Integer
Si mais ça me met des erreurs comme mêmeTa pas dim
Dim i As Short
Dim pass As String
Dim charactere(42) As String
Dim NbMot As Integer
impossible
You must be registered for see images attach
You must be registered for see images attach
-- serieux les Dim faut pas les mettre dans le Form1 Load
mais en hautMaintenant, le code "charactere" est souligné en bleu avec des erreurs où ils me disent "déclaration attendue".
Quand je test, il me dit aussi qu'il a des erreurs de build !
Quand je test, il me dit aussi qu'il a des erreurs de build !
... Screen tous le code de ton projet
You must be registered for see images attach
D
deleted293454
Rajoute "Imports System.Text"
Ensuite ton code Maxlinis ton code est très mal conçu, il est inutile de faire un code aussi long.
Si en rajoutant "Imports System.Text" le problème persiste essaie avec ce code :
Je te laisse te débrouiller pour le placer.
Cordialement,
Ensuite ton code Maxlinis ton code est très mal conçu, il est inutile de faire un code aussi long.
Si en rajoutant "Imports System.Text" le problème persiste essaie avec ce code :
Code:
Dim alea As New Random
Dim lettre As String = ""
For i = 0 To 10
lettre = lettre & ChrW(alea.Next(Asc("a"), Asc("z")))
NextJe te laisse te débrouiller pour le placer.
Cordialement,
Ca marche pas
D
deleted293454
Va apprendre les bases sur ce site : fr.openclassroom.com
On t'a tout donné, c'est à toi de faire un effort maintenant.
On t'a tout donné, c'est à toi de faire un effort maintenant.
A vos ordres !
Merci comme même !
- Statut