Codigo Fuente en Visual Basic 6.0 para generar anagramas.
Un anagrama (del griego ana: de nuevo, y grámma: letra) es una palabra o frase que resulta de la transposición de letras de otra palabra o frase. Por ejemplo:
ROMA - AMOR - OMAR - MORA
ROLDÁN - LADRÓN
MONJA - JAMÓN
LÁMINA - ANIMAL
Como vemos, las palabras de cada pareja poseen las mismas letras, con la misma cantidad de apariciones, pero en un orden diferente. En la lengua española los anagramas no poseen relación gramática alguna, salvando, quizá, alguna coincidencia. Es un procedimiento que se emplea con frecuencia en acertijos, juegos de palabras y formación de seudónimos.
Solo agrega un listbox.
Codigo:
Private Sub Combinaciones(Palabra As String, Optional strFixed As String)
Dim Recorrer As Integer
If Len(Palabra) <> 1 Then
For Recorrer = 1 To Len(Palabra)
Combinaciones Left$(Palabra, Recorrer - 1) & Mid$(Palabra, Recorrer + 1), strFixed & Mid$(Palabra, Recorrer, 1)
Next Recorrer
Else
List1.AddItem strFixed & Palabra
End If
End Sub
Private Sub Form_Load()
Call Combinaciones("Hola"
End Sub
Si tienes alguna sugerencia de como mejorar este codigo o como optimizarlo para que al dar click a un boton se generen los anagramas de una combinación escrita en un cuadro de texto, dejala en los comentarios.
Generador de Anagramas Online
Un anagrama (del griego ana: de nuevo, y grámma: letra) es una palabra o frase que resulta de la transposición de letras de otra palabra o frase. Por ejemplo:
ROMA - AMOR - OMAR - MORA
ROLDÁN - LADRÓN
MONJA - JAMÓN
LÁMINA - ANIMAL
Como vemos, las palabras de cada pareja poseen las mismas letras, con la misma cantidad de apariciones, pero en un orden diferente. En la lengua española los anagramas no poseen relación gramática alguna, salvando, quizá, alguna coincidencia. Es un procedimiento que se emplea con frecuencia en acertijos, juegos de palabras y formación de seudónimos.
Solo agrega un listbox.
Codigo:
Private Sub Combinaciones(Palabra As String, Optional strFixed As String)
Dim Recorrer As Integer
If Len(Palabra) <> 1 Then
For Recorrer = 1 To Len(Palabra)
Combinaciones Left$(Palabra, Recorrer - 1) & Mid$(Palabra, Recorrer + 1), strFixed & Mid$(Palabra, Recorrer, 1)
Next Recorrer
Else
List1.AddItem strFixed & Palabra
End If
End Sub
Private Sub Form_Load()
Call Combinaciones("Hola"
End Sub
Si tienes alguna sugerencia de como mejorar este codigo o como optimizarlo para que al dar click a un boton se generen los anagramas de una combinación escrita en un cuadro de texto, dejala en los comentarios.
Generador de Anagramas Online