Discussion :

[Miska59]

Bonjour, je voudrais savoir si c'est possible de reprendre un Random dans listbox1.

voici le code générer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub Generateur2(pass As String, Val2 As Integer)
        Dim validchars As String = "0123456789ABCDEF"
        If pass.Length < Val2 Then
            For i = 0 To validchars.Length - 1
                Generateur2(pass & validchars.Substring(i, 1), Val2)
            Next i
        Else
            ListBox1.Invoke(Sub() ListBox1.Items.Add(pass))
            ListBox1.Invoke(Sub() ListBox1.SelectedIndex = ListBox1.Items.Count - 1)
        End If
    End Sub

button1 le code démarrer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
...etc
If (ListBox1.Items.Count > 0) Then
                                                   'For a = 0 To ListBox1.Items.Count - 1
                                                   'Generateur(ListBox1.Items(a).ToString, 12)
                                                   'Next a
                                                   Generateur2("0000000000FF", 12)
                                               Else
                                                   ListBox1.Invoke(Sub() ListBox1.Items.Clear())
                                                   Generateur("", 12)
                                               End If
...etc

je voudrais savoir comment on fait pour reprendre Random dans listbox1.
exemple : 0000000000FF a la suite 000000000100, 000000000101,000000000102 ....etc
merci

[Miska59]

j'ai réussi a reprendre Random dans listbox1 mais j'arrive pas a faire défiler après le Random ou je suis arriver .
pour le demarrage avec le button:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
myhreads = New Threading.Thread(Sub() ListBox1.Invoke(Sub() ListBox1.Items.Add(Generateur4("0000000000FF", 12))))
        myhreads.Start()

le code pour reprendre:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Function Generateur4(pass As String, lg As Integer) As String
        Dim alphabet As String = "0123456789ABCDEF"
        If String.IsNullOrEmpty(pass) Then
            Return String.Empty
        End If
        Dim lastChar As Char = pass((pass.Length - 1))
        Dim fragment As String = pass.Substring(0, pass.Length - 1)
        If (alphabet.IndexOf(lastChar) < alphabet.Count - 1) Then
            lastChar = alphabet((alphabet.IndexOf(lastChar) + 1))
            Return fragment & lastChar
        End If
        Return Generateur4(fragment, lg) & "0"c
    End Function

ça me donne bien après "0000000000FF" à 000000000100" après ça arrêt. pourquoi j'arrive pas à faire défiler random.
Merci de votre aide.

[bidou]

Ca n'est pas très simple de comprendre ce que tu veux faire, mais dans ta fonction récursive tu arrêtes dès que le dernier caractère n'est pas "F", du coup il n'y a plus tellement de raison que la fonction continue ^^

[Thumb down]

bonjour,

Bonjour, je voudrais savoir si c'est possible de reprendre un Random dans listbox1.
je voudrais savoir comment on fait pour reprendre Random dans listbox1.
exemple : 0000000000FF a la suite 000000000100, 000000000101,000000000102 ....etc
merci

dans tes explications tu parles plus d'une incrémentation hexadécimale sur 12 digits qu'un random!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 Dim F As Integer = Integer.Parse("0000000000FF", System.Globalization.NumberStyles.HexNumber)  
      Dim hexValue As String = 0.ToString("X12") + (F + 1).ToString("X2")
        hexValue = hexValue.Substring(hexValue.Length - 12, 12)

[Miska59]

Bonjour Thumb down,

dans tes explications tu parles plus d'une incrémentation hexadécimale sur 12 digits qu'un random!

avec ton code il y est bon mais il accepter jusqu' a FFFFFFE alors je l'ai un peu modifier :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Function NextLetter(hex As String, lg As Integer) As String
        Dim F As Long = Int64.Parse(hex, NumberStyles.HexNumber)
        Dim hexValue As String = (F + 1).ToString("X" & lg)
        hexValue = hexValue.Substring(hexValue.Length - lg, lg)
        Dim value As String = hexValue.ToUpper
        If value.Contains("0") Then
            value = String.Empty
            Return value
        Else
            Return value
        End If
    End Function

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TextBox2.Text = NextLetter(TextBox1.Text, TextBox1.TextLength)

il accepte que les valeurs : "0123456789ABCDEF"

Maintenant avec ce code, je vais chercher un solution générer automatique :

exemple : 0000000000FF a la suite 000000000100, 000000000101,000000000102 ....etc

cordialement,