Últimos Temas de: SebaSs

Bueno hice un programa muy simple que combina los caracteres o palabras del TextBox1 hacia una Listbox al hacer click en el boton 1 y haci me aparecen todas las combinaciones posibles esten en el diccionario o no...

Código:

Dim i, j, k, l, x As Integer

        Dim Combinacion As String

        Dim Existe As Boolean

        Dim Caracteres(1000) As String

        ListBox1.Items.Add(TextBox1.Text)

        Do

            x = ListBox1.Items.Count

            For l = 0 To ListBox1.Items.Count - 1

                For i = 0 To TextBox1.Text.Length - 1

                    Caracteres(i) = ListBox1.Items(l).ToString.Substring(i, 1)

                Next

                For i = 0 To TextBox1.Text.Length - 1

                    For j = 0 To TextBox1.Text.Length - 1

                        Existe = False

                        Combinacion = ListBox1.Items(l).ToString

                        Combinacion = Combinacion.Remove(i, 1)

                        Combinacion = Combinacion.Insert(i, Caracteres(j))

                        Combinacion = Combinacion.Remove(j, 1)

                        Combinacion = Combinacion.Insert(j, Caracteres(i))

                        For k = 0 To ListBox1.Items.Count - 1

                            If Combinacion = ListBox1.Items(k) Then Existe = True

                        Next

                        If Existe = False Then ListBox1.Items.Add(Combinacion)

                    Next

                Next

            Next

        Loop Until x = ListBox1.Items.Count
        
    End Sub

Mi pregunta es, como podria hacer menor carga al programa ya que al poner mas de 7 caracteres se finaliza porque se ve que encuentra muchas posibilidades...

Se me ocurrio que se podria reducir el codigo para que trabaje menos pero no se de que manera reducirlo mas :S

Ya saque las repeticiones de posibilidades para que aparescan 1 ves nada mas y no se me ocurre nada mas xD

Me podrian ayudar

?

Gracias de antemano