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...
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
Código [Seleccionar]
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