[Débutant] Besoin d'aide pour NumericUpDown

c = NumericUpDown1.Value TextBox1.Text = "Mot de passe: " g = NumericUpDown2.Value NumericUpDown2.Maximum = 1000 While c > 0 ran = random.Next(1, 62) a = ("AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz1234567890") b = Mid(a, ran, 1) TextBox1.AppendText(b) c = c - 1 End While

Voici un exemple pour généré des mots de passes :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Imports System.Text
 
Public Class Form1
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = "Mot de passe: " & GetPassword(NumericUpDown1.Value)
    End Sub
 
    Private Function GetPassword(value As Integer) As String
        Dim s As String = "AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz1234567890"
        Dim r As New Random
        Dim sb As New StringBuilder
        For i As Integer = 1 To value
            Dim idx As Integer = r.Next(1, 62)
            sb.Append(s.Substring(idx, 1))
        Next
        Return sb.ToString()
    End Function
 
End Class

Cordialement,