IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VB.NET Discussion :

Reprendre random apres 12 chiffres


Sujet :

VB.NET

  1. #1
    Membre régulier
    Homme Profil pro
    Étudiant
    Inscrit en
    janvier 2018
    Messages
    117
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : janvier 2018
    Messages : 117
    Points : 119
    Points
    119
    Par défaut Reprendre random apres 12 chiffres
    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

  2. #2
    Membre régulier
    Homme Profil pro
    Étudiant
    Inscrit en
    janvier 2018
    Messages
    117
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : janvier 2018
    Messages : 117
    Points : 119
    Points
    119
    Par défaut
    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.

  3. #3
    Expert éminent
    Avatar de bidou
    Profil pro
    Inscrit en
    mai 2002
    Messages
    3 054
    Détails du profil
    Informations personnelles :
    Âge : 54
    Localisation : France, Rhône (Rhône Alpes)

    Informations forums :
    Inscription : mai 2002
    Messages : 3 054
    Points : 7 416
    Points
    7 416
    Par défaut
    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 ^^

  4. #4
    Membre éprouvé
    Homme Profil pro
    Retraité
    Inscrit en
    juin 2019
    Messages
    728
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Retraité

    Informations forums :
    Inscription : juin 2019
    Messages : 728
    Points : 1 119
    Points
    1 119
    Par défaut
    bonjour,
    Citation Envoyé par Miska59 Voir le message
    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)

  5. #5
    Membre régulier
    Homme Profil pro
    Étudiant
    Inscrit en
    janvier 2018
    Messages
    117
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : janvier 2018
    Messages : 117
    Points : 119
    Points
    119
    Par défaut
    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,

Discussions similaires

  1. Thread, reprendre la main après un sleep
    Par Invité1 dans le forum Concurrence et multi-thread
    Réponses: 5
    Dernier message: 07/04/2008, 22h55
  2. Reprendre le code après une instruction stop
    Par sash6 dans le forum Macros et VBA Excel
    Réponses: 7
    Dernier message: 15/11/2007, 17h07
  3. [DOS] Reprendre la main après le lancement d'un programme
    Par kimz dans le forum Scripts/Batch
    Réponses: 9
    Dernier message: 29/05/2007, 00h58
  4. Réponses: 3
    Dernier message: 28/11/2006, 13h38
  5. Réponses: 15
    Dernier message: 22/04/2006, 15h59

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo