Sección de códigos , trucos y ejemplos para visual basic

452 - Generar una Combinatoria de elementos

<Volver> - Anterior - Siguiente

Ejemplo que a partir de una cadena, por ejemplo ABC , genera todas las combinaciones posibles para dicha cadena

El formulario necesita dos textbox.

El textbox txtDatos es la cadena de elementos , es decir los caracteres que se combinarán.

El txtSalida es donde se visualizará el resultado con todas las combinaciones.

El command1 comienza

Controles

txtDato
txtSalida
Command1

Option Explicit Dim aCharacter() As String * 1 Dim nCom As Integer Private Sub Command1_Click() Dim i As Integer txtSalida.Text = "" nCom = Len(txtDato) ReDim aCharacter(Len(txtDato.Text)) As String * 1 For i = 1 To Len(txtDato.Text) aCharacter(i) = Mid(txtDato.Text, i, 1) Next Call generar_Combinacion(vbNullString, nCom, Len(txtDato.Text)) End Sub Private Function generar_Combinacion(ByVal X As String, _ ByVal Y As Byte, _ nLenString As Integer) Dim i As Byte Dim s As String For i = 1 To nLenString s = X & aCharacter(i) txtSalida.Text = txtSalida.Text & s & vbCrLf If Not Len(s) = Y Then Call generar_Combinacion(s, nCom, nLenString) End If Next End Function Private Sub Form_Load() Command1.Caption = "Combinar" End Sub

Buscar en Recursos vb