Foro de elhacker.net

Sub Combinacion()
i = 1
For b1 = 1 To 61
    For b2 = b1 + 1 To 62
        For b3 = b2 + 1 To 63
            For b4 = b3 + 1 To 64
            Cells(i, 1) = b1
            Cells(i, 2) = b2
            Cells(i, 3) = b3
            Cells(i, 4) = b4
            Range("E1") = i
            i = i + 1
            Next
        Next
    Next
Next
End Sub

int numeroMaximo = 49;
int[] digitos = { 1, 4, 5, 7, 8, 9 };
List<int> numerosGenerados = new List<int>();
 
int decenaMaxima = numeroMaximo / 10;
int unidadMaxima = numeroMaximo % 10;
 
for(int i = 0; i < digitos.Length && digitos[i] <= decenaMaxima; ++i)
  for(int j = 0; j < digitos.Length && (digitos[i] < decenaMaxima || digitos[j] <= unidadMaxima); ++j)
    numerosGenerados.Add(digitos[i] * 10 + digitos[j]); 

funcion Combinaciones(array de bytes nums())
    byte j, k, max
    string combinacion

    max = (49 - MayorEn(nums))
    bucle para j desde 1 hasta max)
        Si (j= nums(0)) imprimir  "Esta es la combinacion recibida."

        bucle para k desde 0 hasta nums.length -1                    
            combinacion = (combinacion & (nums(k) + j).tostring)
        siguiente

        imprimir j.tostring, combinacion
        combinacion = ""
    siguiente

    imprimir "Con estos valores, pudieron formarse " & j.tostring & " combinaciones distintas.
fin funcion

byte = funcion MayorEn(array de bytes valores())
    entero k
    byte j = valores(0)  

    bucle para k desde 1 hasta valores.length-1
        si (valores(k) > j) 
            j = valores(k)
        fin si
    siguiente
    
    devolver j
fin funcion

Imports System.Text
 
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Nums() As String, txt As String
        Dim Valores() As Byte, k As UInt16
 
        txt = TextBox1.Text.Replace(" ", "")
        Nums = txt.Split(",")
        If (Nums.Length = 6) Then
            ReDim Valores(0 To 5)
            For k = 0 To 5
                Valores(k) = System.Byte.Parse(Nums(k))
            Next
            Call Combinaciones(Valores)
        Else
            MessageBox.Show("No, no no... Debe haber 6 y solo 6 numeros, separados por 1 coma...")
        End If
    End Sub
 
    Private Sub Combinaciones(ByVal Valores As Byte())
        Dim j, k, max As Byte
        Dim combinacion As String = ""
 
        ListBox1.Items.Clear()
        max = (49 - Valores.Max)
        For j = 0 To max
            For k = 0 To 5
                combinacion &= ((Valores(k) + j).ToString) & ", "
            Next
 
            ListBox1.Items.Add(combinacion)
            combinacion = ""
        Next
    End Sub
End Class
 

Imports System.Text
 
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Nums() As String, txt As String
        Dim Valores() As Byte, k As UInt16
 
        txt = TextBox1.Text.Replace(" ", "")
        Nums = txt.Split(",")
        If (Nums.Length = 6) Then
            ReDim Valores(0 To 5)
            For k = 0 To 5
                Valores(k) = System.Byte.Parse(Nums(k))
            Next
            Call Combinaciones(Valores)
        Else
            MessageBox.Show("No, no no... Debe haber 6 y solo 6 numeros, separados por 1 coma...")
        End If
    End Sub
 
    Private Sub Combinaciones(ByVal Valores As Byte())
        Dim j, k, max As Byte
        Dim combinacion As String = ""
 
        ListBox1.Items.Clear()
        max = (49 - Valores.Max)
        For j = 0 To max
            For k = 0 To 5
                combinacion &= ((Valores(k) + j).ToString) & ", "
            Next
 
            ListBox1.Items.Add(combinacion)
            combinacion = ""
        Next
    End Sub
End Class

' Desplazar una serie arbitraria a la serie absoluta e invocar el otro botón.
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim Nums() As String, txt As String
        Dim Valores() As Byte, k As UInt16, j As Uint16 = 255
 
        txt = TextBox2.Text.Replace(" ", "")
        Nums = txt.Split(",")
        If (Nums.Length = 6) Then
            ' Buscar el menor:
            ReDim Valores(0 To 5)
            For k = 0 To 5
                Valores(k) = System.Byte.Parse(Nums(k))
                If (Valores(k) < j) Then j = Valores(k)
            Next
            ' Hacer la resta:
            j -= 1
            txt = ""
            For k = 0 To 5
                Valores(k) -= j
                txt = (txt & Valores(k).tostring & ", ")
            Next
 
            ' ahora el textbox1 contiene la serie absoluta (canónica) y por tanto se puede invocar el botón con opera con dicha serie.
            TextBox1.Text = txt.Substring(0, txt.Length - 2)  ' no queremos pasar la última coma.
 
            ' Llamamos directamente el botón-1
            Call Button1_Click(sender, e)
        Else
            MessageBox.Show("No, no no... Debe haber 6 y solo 6 numeros, separados por 1 coma...")
        End If
    End Sub
 

int numeroMaximo = 49;
int[] digitos = { 1, 4, 5, 7, 8, 9 };
List<int> numerosGenerados = new List<int>();
 
int decenaMaxima = numeroMaximo / 10;
int unidadMaxima = numeroMaximo % 10;
 
for(int i = 0; i < digitos.Length && digitos[i] <= decenaMaxima; ++i)
  for(int j = 0; j < digitos.Length && (digitos[i] < decenaMaxima || digitos[j] <= unidadMaxima); ++j)
    numerosGenerados.Add(digitos[i] * 10 + digitos[j]); 

11 - 14 - 15 - 17 - 18 - 19
41 - 44 - 45 - 47 - 48 - 49

int[] digitos = {2, 3, 5, 7, 8, 9}; 

22 - 23 - 25 - 27 - 28 - 29
32 - 33 - 35 - 37 - 38 - 39 

• El código expuesto está en C# -> Habría que convertirlo a VB.
• Aparece también la combinación de un dígito consigo mismo. Esto se corrige así:

for(int i = 0; i <digitos.Length && digitos[i] <= decenaMaxima; ++i)
  for(int j = 0; j < digitos.Length && (digitos[i] < decenaMaxima || digitos[j] <= unidadMaxima); ++j)
    if(i != j) numerosGenerados.Add(digitos[i] * 10 + digitos[j]); 

Private Sub Combinaciones(ByVal Valores As Byte())
        Dim j, k, max, min As Byte
        Dim combinacion As String = ""
 
        ListBox1.Items.Clear()
 
 
        min = (Valores.Min - 1)                     ' Comienzo
        max = (49 + min - Valores.Max)
        For j = 0 To max
            For k = 0 To 5
                combinacion &= ((Valores(k) + j - min).ToString) & ", "
            Next                                            ' Fin
 
            ListBox1.Items.Add(combinacion)
            combinacion = ""
        Next
    End Sub
 

digitos = { 1, 4, 5, 7, 8, 9 }
numerosGenerados = { 11, 14, 15, 17, 18, 19, 41, 44, 45, 47, 48, 49 } 

List<List<int>> gruposGenerados = new List<List<int>>();
int elementosPorGrupo = 6;
 
for(int i = 0; i < numerosGenerados.Count - elementosPorGrupo + 1; ++i)
	for(int j = i + 1; j < numerosGenerados.Count - elementosPorGrupo + 2; ++j)
		for(int k = j + 1; k < numerosGenerados.Count - elementosPorGrupo + 3; ++k)
			for(int l = k + 1; l < numerosGenerados.Count - elementosPorGrupo + 4; ++l)
				for(int m = l + 1; m < numerosGenerados.Count - elementosPorGrupo + 5; ++m)
					for(int n = m + 1; n < numerosGenerados.Count - elementosPorGrupo + 6; ++n)
						gruposGenerados.Add(new List<int> {numerosGenerados[i], numerosGenerados[j], numerosGenerados[k], numerosGenerados[l], numerosGenerados[m], numerosGenerados[n]}); 

11 14 15 17 18 19
11 14 15 17 18 41
11 14 15 17 18 44
11 14 15 17 18 45
11 14 15 17 18 47
11 14 15 17 18 48
11 14 15 17 18 49
11 14 15 17 19 41
11 14 15 17 19 44
11 14 15 17 19 45
11 14 15 17 19 47
11 14 15 17 19 48
11 14 15 17 19 49
11 14 15 17 41 44
11 14 15 17 41 45
11 14 15 17 41 47
11 14 15 17 41 48
11 14 15 17 41 49
...
18 44 45 47 48 49
19 41 44 45 47 48
19 41 44 45 47 49
19 41 44 45 48 49
19 41 44 47 48 49
19 41 45 47 48 49
19 44 45 47 48 49
41 44 45 47 48 49 

Imports System.Text
 
Public Class Form1
    Private Permuta As New Permutaciones
    Private Decenas(2) As Byte, Unidades(4) As Byte
 
 
    ' El botón de la interfaz...
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Nums() As String, txt As String
        Dim k As UInt16
 
        txt = TextBox1.Text.Replace(" ", "")
        Nums = txt.Split(",")
        If (Nums.Length = 6) Then
            ' crear los parámetros para la funcion de Transformacion:
            Decenas(0) = System.Byte.Parse(Nums(0))
            Decenas(1) = System.Byte.Parse(Nums(1))
            For k = 2 To 5
                Unidades(k - 2) = System.Byte.Parse(Nums(k))
            Next
 
            ListBox1.Items.Clear()
            For j = 0 To Permuta.Cantidad - 1
                ListBox1.Items.Add(Permuta.Transforma(j, Decenas, Unidades))
            Next
            Label3.Text = "Cantidad en lista: " & ListBox1.Items.Count.ToString
        Else
            MessageBox.Show("No, no no... Debe haber 6 y solo 6 numeros, separados por 1 coma...")
        End If
    End Sub
 
 
 
Private Class Permutaciones
        Const MAX_COMBINAS As UInt16 = 210
        Private s_Combinas(MAX_COMBINAS) As UInt32  
 
        Public ReadOnly Property Cantidad As UInt16
            Get
                Return MAX_COMBINAS
            End Get
        End Property
 
        Public Function Transforma(ByVal Indice As UInt16, ByVal Dec() As Byte, ByVal Uni() As Byte) As String
            Dim permuta As UInt32 = s_Combinas(Indice)
            Dim s As String = "", valor As String = ""
            Dim x As Byte = 0, k As Byte
 
            For k = 0 To 5
                x = (permuta Mod 10)
                permuta \= 10
 
                Select Case x
                    ' forma C en que quedan ordenados más aproximado al ejemplo de muestra...
                    Case 0 : x = ((Dec(0) * 10) + Dec(1))                    
                    Case 1 To 4 : x = ((Dec(0) * 10) + Uni(x - 1))
                    Case 5 To 8 : x = ((Dec(1) * 10) + Uni(x - 5))
                    Case 9 : x = ((Dec(1) * 10) + Dec(0))
 
                    ' Otra forma B en que quedan ordenados...
                        'Case 0 : x = ((Dec(0) * 10) + Dec(1))
                        'Case 1 : x = ((Dec(1) * 10) + Dec(0))
                        'Case 2 To 5 : x = ((Dec(0) * 10) + Uni(x - 2))
                        'Case 6 To 9 : x = ((Dec(1) * 10) + Uni(x - 6))
 
                    ' Otra forma A en que quedan ordenados...
                        'Case 0 To 3 : x = ((Dec(0) * 10) + Uni(x))
                        'Case 4 To 7 : x = ((Dec(1) * 10) + Uni(x - 4))
                        'Case 8 : x = ((Dec(0) * 10) + Dec(1))
                        'Case 9 : x = ((Dec(1) * 10) + Dec(0))
                End Select
 
                If (x < 10) Then s = "0" & x.ToString Else s = x.ToString
                valor = (s & ", ") & valor
            Next
 
            Return valor
        End Function
 
 
        ' Genera todas las permutaciones posibles (210) en formato numerico.
        ' Alfabeto = X,Y,   R,S,T,U
        ' solo hay 8 pares de combinaciones: Resultado de combinar cada uno del GrupoDec con cada uno del GrupoUni
        '   XR, XS, XT, XU  (0,1,2,3)
        '   YR, YS, YT, YU  (4,5,6,7)
        '  Más las 2 combinaciones de intercambiar de posicion los valores del 'grupoDec'
        '   XY, YX          (8,9)  
        ' Cada par de esos 10 se enumeran ahora como 0-9 (usando una solo caracter)
        ' Ahora el numero de combinaciones con esos 10 pares tomados de 6 en 6 son: 210
        Public Sub New()
            Dim combina As UInteger = 12345       ' combinacion inicial
            Dim final As UInteger = 456789           '  combinación final
            Dim k As UInt16
            Dim digitos(0 To 5) As Byte, n As Byte  ' control de límite de cada dígito.
 
            For k = 0 To 5
                digitos(k) = k
            Next
 
            k = 0
            Do
                s_Combinas(k) = combina
                If (digitos(5) = 9) Then
                    n = 4
                    Do While digitos(n) = digitos(n + 1) - 1
                        n -= 1
                    Loop
                    digitos(n) += 1
                    For n = n + 1 To 5
                        digitos(n) = digitos(n - 1) + 1
                    Next
                    combina = 0
                    For n = 0 To 5
                        combina += digitos(n) * (10 ^ (5 - n))
                    Next
                Else
                    combina += 1 : digitos(5) += 1
                End If
                k += 1
            Loop While (combina < final)
            s_Combinas(k) = combina
        End Sub
 
        'Public ReadOnly Property Permuta(ByVal X As UInt16)
        '    Get
        '        Return s_Combinas(X)
        '    End Get
        'End Property
    End Class
 
' Mostras la lista de permutaciones en el listbox.... va en conjunto con la propiedad 'Permuta' de la clase permutaciones.
'Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    '    Dim k As UInt16, j As UInt32, s As String = ""
 
    '    ListBox1.Items.Clear()
    '    For k = 0 To Permuta.Cantidad - 1
    '        j = (Permuta.Permuta(k))
    '        If (j < 123456) Then s = "0" & j.ToString Else s = j.ToString
    '        ListBox1.Items.Add(s)
    '    Next
    'End Sub
End Class
 

Imports System.Text
 
 
 
Public Class Form1
    Private Permuta As New Permutaciones
    Private Decenas(2) As Byte, Unidades(4) As Byte
 
 
    ' El botón de la interfaz...
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Nums() As String, txt As String
        Dim k As UInt16
 
        txt = TextBox1.Text.Replace(" ", "") ' <<<<<<<<<<<<<<   ACA CAMBIAN LOS NUMEROS NUNCA SON LOS MISMOS ...Y DEBE TOMAR HASTA EL DIGITO 4  SABEMOS QUE LAS DECENAS SON 0 1 2 3 Y 4
        Nums = txt.Split(",")
        If (Nums.Length = 6) Then
            ' crear los parámetros para la funcion de Transformacion:
            Decenas(0) = System.Byte.Parse(Nums(0))
            Decenas(1) = System.Byte.Parse(Nums(1))
            For k = 2 To 5
                Unidades(k - 2) = System.Byte.Parse(Nums(k))
            Next
 
            ListBox1.Items.Clear()
            For j = 0 To Permuta.Cantidad - 1
                ListBox1.Items.Add(Permuta.Transforma(j, Decenas, Unidades))
            Next
            Label1.Text = "Cantidad en lista: " & ListBox1.Items.Count.ToString
        Else
            MessageBox.Show("No, no no... Debe haber 6 y solo 6 numeros, separados por 1 coma...")
        End If
    End Sub
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
    End Sub
 
    ' FUNCION LIMPIAR LISTBOSX...
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        For Each obj As Control In Me.Controls
            If (TypeOf obj Is TextBox) Then
                obj.Text = ""
            End If
            If (TypeOf obj Is GroupBox) Then
                For Each caja As Control In obj.Controls
                    If (TypeOf caja Is TextBox) Then
                        caja.Text = ""
                    End If
                Next
            End If
            ListBox1.Items.Clear()
 
 
        Next
    End Sub
 
    Private Class Permutaciones
        Const MAX_COMBINAS As UInt16 = 210
        Private s_Combinas(MAX_COMBINAS) As UInt32
 
        Public ReadOnly Property Cantidad As UInt16
            Get
                Return MAX_COMBINAS
            End Get
        End Property
 
        Public Function Transforma(ByVal Indice As UInt16, ByVal Dec() As Byte, ByVal Uni() As Byte) As String
            Dim permuta As UInt32 = s_Combinas(Indice)
            Dim s As String = "", valor As String = ""
            Dim x As Byte = 0, k As Byte
 
            For k = 0 To 5
                x = (permuta Mod 10)
                permuta \= 10
 
                Select Case x
                    ' forma C en que quedan ordenados más aproximado al ejemplo de muestra...
                    Case 0 : x = ((Dec(0) * 10) + Dec(1))
                    Case 1 To 4 : x = ((Dec(0) * 10) + Uni(x - 1))
                    Case 5 To 8 : x = ((Dec(1) * 10) + Uni(x - 5))
                    Case 9 : x = ((Dec(1) * 10) + Dec(0))
 
                        ' Otra forma B en que quedan ordenados...
                        'Case 0 : x = ((Dec(0) * 10) + Dec(1))
                        'Case 1 : x = ((Dec(1) * 10) + Dec(0))
                        'Case 2 To 5 : x = ((Dec(0) * 10) + Uni(x - 2))
                        'Case 6 To 9 : x = ((Dec(1) * 10) + Uni(x - 6))
 
                        ' Otra forma A en que quedan ordenados...
                        'Case 0 To 3 : x = ((Dec(0) * 10) + Uni(x))
                        'Case 4 To 7 : x = ((Dec(1) * 10) + Uni(x - 4))
                        'Case 8 : x = ((Dec(0) * 10) + Dec(1))
                        'Case 9 : x = ((Dec(1) * 10) + Dec(0))
                End Select
 
                If (x < 10) Then s = "0" & x.ToString Else s = x.ToString
                valor = (s & ", ") & valor
            Next
 
            Return valor
        End Function
 
 
        ' Genera todas las permutaciones posibles (210) en formato numerico.
        ' Alfabeto = X,Y,   R,S,T,U
        ' solo hay 8 pares de combinaciones: Resultado de combinar cada uno del GrupoDec con cada uno del GrupoUni
        '   XR, XS, XT, XU  (0,1,2,3)
        '   YR, YS, YT, YU  (4,5,6,7)
        '  Más las 2 combinaciones de intercambiar de posicion los valores del 'grupoDec'
        '   XY, YX          (8,9)  
        ' Cada par de esos 10 se enumeran ahora como 0-9 (usando una solo caracter)
        ' Ahora el numero de combinaciones con esos 10 pares tomados de 6 en 6 son: 210
        Public Sub New()
            Dim combina As UInteger = 12345       ' combinacion inicial -----------NO ENTIENDO ESTO YA QUE LOS NUMEROS DE LAS DECENAS NO PUEDEN PASAR DEL 4
            Dim final As UInteger = 456789           '  combinación final --------------???????????????
            Dim k As UInt16
            Dim digitos(0 To 5) As Byte, n As Byte  ' control de límite de cada dígito.
 
            For k = 0 To 5
                digitos(k) = k
            Next
 
            k = 0
            Do
                s_Combinas(k) = combina
                If (digitos(5) = 9) Then
                    n = 4
                    Do While digitos(n) = digitos(n + 1) - 1
                        n -= 1
                    Loop
                    digitos(n) += 1
                    For n = n + 1 To 5
                        digitos(n) = digitos(n - 1) + 1
                    Next
                    combina = 0
                    For n = 0 To 5
                        combina += digitos(n) * (10 ^ (5 - n))
                    Next
                Else
                    combina += 1 : digitos(5) += 1
                End If
                k += 1
            Loop While (combina < final)
            s_Combinas(k) = combina
        End Sub
 
        'Public ReadOnly Property Permuta(ByVal X As UInt16)
        '    Get
        '        Return s_Combinas(X)
        '    End Get
        'End Property
    End Class
 
    ' Mostras la lista de permutaciones en el listbox.... va en conjunto con la propiedad 'Permuta' de la clase permutaciones.
    'Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    '    Dim k As UInt16, j As UInt32, s As String = ""
 
    '    ListBox1.Items.Clear()
    '    For k = 0 To Permuta.Cantidad - 1
    '        j = (Permuta.Permuta(k))
    '        If (j < 123456) Then s = "0" & j.ToString Else s = j.ToString
    '        ListBox1.Items.Add(s)
    '    Next
    'End Sub
End Class
 

txt = TextBox1.Text.Replace(" ", "") 
Nums = txt.Split(",")
 

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    Textbox1.text = ""
    OtroTextbox.Text =""
    txtboxNumero.text = ""
    txtBoxCantidad.text=""
    ' ...
end sub
 

private ColTxtBox as new collection
 
private sub New(...)
    call InitializeComponent
 
    call AddTextBoxToCollection '<--- OJO: No antes de InitializeComponent
end sub
 
private sub AddTextBoxToCollection
    ColTxtBox.add(Textbox1)
    ColTxtBox.add(OtroTextbox)
    ColTxtBox.add(txtboxNumero)
    ColTxtBox.add(txtBoxCantidad)
    '...
end sub
 
' Cuando deban ser borrados:
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
   dim txtbox as textbox
 
    for each txtbox in ColTxtBox
        txtbox.text = "" 
    next
end sub
 

Module Module1
    Public ResetApp As Boolean
 
    Public Sub Main()
        Dim frm As Form1
 
        Do
            ResetApp = False        ' Si no se indica exprofeso, se cierra la app...
            frm = New Form1         ' crea la nueva ventana
            frm.ShowDialog()        ' la carga y hasta que no se cierre, no se ejecutará la siguiente línea de código.
            frm = Nothing           ' elimina el contenido actual
        Loop While (ResetApp = True)
    End Sub
End Module

Public Class Form1
    Private Permuta As New Permutaciones
    Private Decenas(2) As Byte, Unidades(4) As Byte
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Module1.ResetApp = True
        Me.Close()
    End Sub
 
    ' ...
 

   ...
 
        Public Sub New()
            Dim combina As UInteger = 12345       ' combinacion inicial -----------NO ENTIENDO ESTO YA QUE LOS NUMEROS DE LAS DECENAS NO PUEDEN PASAR DEL 4
            Dim final As UInteger = 456789           '  combinación final --------------???????????????
 

 
       Public ReadOnly Property Permuta(ByVal X As UInt16)
            Get
                Return s_Combinas(X)
            End Get
        End Property
    End Class
 
    ' Mostras la lista de permutaciones en el listbox.... va en conjunto con la propiedad 'Permuta' de la clase permutaciones.
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim k As UInt16, j As UInt32, s As String = ""
 
        ListBox1.Items.Clear()
        For k = 0 To Permuta.Cantidad - 1
            j = (Permuta.Permuta(k))
            If (j < 123456) Then s = "0" & j.ToString Else s = j.ToString
            ListBox1.Items.Add(s)
        Next
    End Sub
End Class
 

dim dia as string 
 
dia = DecodificarDia(3)
messagebox.show(dia)
 
function DecodificarDia(byval D as byte) as string
    Select case D
        case 1: devolver "Lunes"
        case 2: devolver "Martes"
        case 3: devolver "Miércoles"
        case 4: devolver "Jueves"
        case 5: devolver "Viernes"
        case 6: devolver "Sábado"
        case 7: devolver "Domingo"
        case else: devolver "Error, no existe el día: " & d.tostring
    end select
end function 

' FUNCION LIMPIAR LISTBOSX...
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        For Each obj As Control In Me.Controls
            If (TypeOf obj Is TextBox) Then
                obj.Text = ""
            End If
            If (TypeOf obj Is GroupBox) Then
                For Each caja As Control In obj.Controls
                    If (TypeOf caja Is TextBox) Then
                        caja.Text = ""
                    End If
                Next
            End If
            ListBox1.Items.Clear()

Public Interface ICombina
 
    ''' <summary>
    ''' Cantidad de valores enumerados.
    ''' </summary>
    ReadOnly Property Cantidad As UInt32
 
    ''' <summary>
    ''' Recrea el array de las combinaciones al inicio.
    ''' </summary>   
    Sub Enumerar()
 
    ''' <summary>
    ''' Decodifica el valor enumerado en la posicion indicada, a 6 pares de valores numericos.
    ''' </summary>
    ''' <param name="Index">Indice de la enumeracion solicitado</param>
    ''' <param name="Decenas">Array de los digitos que (ademas) pueden actuar como decenas</param>
    ''' <param name="Unidades">Array de los digitos que solo pueden actuar como unidades</param>
    ''' <returns>Devuelve la combinacion con las 6 apuestas separadas por ', '"</returns>
    Function Tranformar(ByVal Index As Int32, ByRef Decenas() As Byte, ByRef Unidades() As Byte) As String
End Interface
 

    <Extension()>
    Public Function EnRango(ByVal Valor As Byte, ByVal Minimo As Byte, ByVal Maximo As Byte) As Boolean
        Return ((Valor >= Minimo) And (Valor <= Maximo))
    End Function
    <Extension()>
    Public Function EnRango(ByVal Valor As Char, ByVal Minimo As Byte, ByVal Maximo As Byte, ByVal Tope As Byte) As Boolean
        Dim asci As Byte = (Strings.Asc(Valor) - Tope)
        Return ((asci >= Minimo) And (asci <= Maximo))
    End Function
 
 
    Public Function EnumeraComb(ByRef Inicio As String, ByRef Final As String, ByVal Cantidad As UInteger) As String()
        Dim k As UInt32 = 0
        Dim Combina As String = Inicio
        Dim Maxchar As Byte = IndexLastChar(Inicio, Final) ' Final.Chars(Final.Length-1)
        Dim Permutas(0 To Cantidad - 1) As String
        Dim digitos(0 To 5) As Byte, n As Byte = 0
 
        For k = 0 To 5
            digitos(k) = k
        Next
 
        k = 0
        Do
            Permutas(k) = Combina
            If (digitos(5) = Maxchar) Then
                n = 4
                Do While Combina.Chars(n) = Combina.Chars(n + 1).Previo   '    digitos(n) = digitos(n + 1) - 1
                    n -= 1
                Loop
 
                digitos(n) += 1
                For n = n + 1 To 5
                    digitos(n) = digitos(n - 1) + 1
                Next
 
                Combina = "" ' 0
                For n = 0 To 5
                    Combina &= CharIndexAZ(digitos(n)) ' * (10 ^ (5 - n))
                Next
            Else
                Combina = Combina.NextComb()
                digitos(5) += 1
            End If
            k += 1
        Loop While (Combina < Final)
        Permutas(k) = Combina
 
        Return Permutas
    End Function
 
#Region "Las siguiente funciones y extensiones son solo de ayuda para la función anterior (enumerar)."
    <Extension()>
    Private Function NextComb(ByRef Combina As String) As String
        Dim Last As Byte = Asc(Combina.Chars(5))  ' ojo Estamos usando siempre longitudes de 6 caracteres.
        Return Strings.Left(Combina, 5) & Strings.Chr(Last + 1)
    End Function
 
    ''' <summary>
    ''' Calcula el caracter previo en la secuencia ASCII.
    ''' </summary>
    ''' <param name="Ch">Caracter en el rango A-Z</param>
    ''' <returns>Devuelve el carácter previo al dado (en la secuencia ASCII).</returns>
    ''' <remarks></remarks>
    <Extension()>
    Private Function Previo(ByRef Ch As Char) As Char
        Dim n As Byte = Strings.Asc(Ch) - 1
        Return Strings.Chr(n)
    End Function
 
    Private Function CharIndexAZ(ByRef Index As Byte) As Char
        Return Strings.Chr(65 + Index)
    End Function
 
    ' Devuelve la distancia entre el primer caracter de inicio y el último de 'final'
    ' Ejemplo: "'A'BCDEF" "EFGHI'J'" = 10;  "'A'BCDEF" "MNOPQ'R'" = 17
    Private Function IndexLastChar(ByRef Inicio As String, ByRef Final As String) As Byte
        Dim F As Byte = Strings.Asc(Final.Chars(Final.Length - 1))
        Dim I As Byte = Strings.Asc(Inicio.Chars(0))
 
        Return (F - I)
    End Function
#End Region
 

call Ordenar(elArray, parametro1, parametro2)

elArray.Odenar(parametro1, parametro2)

Public Class Form1
    Private perm24, perm33, perm42, perm51,perm60 As ICombina
    Private Decenas() As Byte, Unidades() As Byte
 
    Public Sub New()
        InitializeComponent()
        ' Crear las instancias una única vez.
        perm24 = New Permutas2_4
        perm33 = New Permutas3_3
        perm42 = New Permutas4_2
        perm51 = New Permutas5_1
        perm60 = New Permutas6_0
    End Sub
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Nums() As String, txt As String
        Dim k As UInt16, n As Byte
        Dim Permuta As ICombina
 
        txt = TextBox1.Text.Replace(" ", "")
        Nums = txt.Split(",")
        If (Nums.Length = 6) Then
            Array.Sort(Nums)
            Do While (Nums(n).Chars(0).EnRango(0, 4, 48) = True) And (n < 5)
                n += 1
            Loop
 
            If (n.EnRango(1, 5) = True) Then
                ReDim Decenas(0 To n - 1)
                ReDim Unidades(0 To 6 - n - 1)
 
                For k = 0 To n - 1
                    Decenas(k) = System.Byte.Parse(Nums(k))
                Next
                For k = n To 5
                    Unidades(k - n) = System.Byte.Parse(Nums(k))
                Next
 
                Select Case n
                    Case 2 : Permuta = perm24
                    Case 3 : Permuta = perm33
                    Case 4 : Permuta = perm42
                    Case 5 : Permuta = perm51
                    case  6: Permuta = perm60
                End Select
 
                ListBox1.Items.Clear()
                For j = 0 To Permuta.Cantidad - 1
                    ListBox1.Items.Add(Permuta.Tranformar(j, Decenas, Unidades))
                Next
                Label3.Text = "Cantidad en lista: " & Permuta.Cantidad.ToString ' ListBox1.Items.Count.ToString
            Else
                MessageBox.Show("No se puede generar combinaciones si no hay 2-5 dígitos menores de 5.")
            End If
        Else
            MessageBox.Show("No, no no... Debe haber 6 y solo 6 numeros, separados por 1 coma...")
        End If
    End Sub
End Class
 

 
Friend Class Permutas2_4
    Implements ICombina
 
    Const MAX_COMBINAS As UInt16 = 210
    Private s_Combinas() As String     ' UInt32
 
    Public Sub New()
        Call Enumerar()
    End Sub
 
    Public ReadOnly Property Cantidad As UInteger Implements ICombina.Cantidad
        Get
            Return MAX_COMBINAS
        End Get
    End Property
 
    ' Para generar las permutaciones, delega en la función que yace en el módulo.
    Private Sub Enumerar() Implements ICombina.Enumerar
        '             combinacion inicial, final, Total combinaciones
        s_Combinas = EnumeraComb("ABCDEF", "EFGHIJ", MAX_COMBINAS)
    End Sub
 
    ' Alfabeto = X,Y,   R,S,T,U
    '  A   B   C   D   E      F   G   H   I   J 
    '  XY  XR  XS  XT  XU     YR  YS  YT  YU  YX            
    Public Function Tranformar(ByVal Index As Integer, ByRef Decenas() As Byte, ByRef Unidades() As Byte) As String Implements ICombina.Tranformar
        Dim permuta As String = s_Combinas(Index)
        Dim s(0 To 5) As String, valor As String = ""
        Dim x As Byte = 0, k As Byte
 
        For k = 0 To 5
            x = (Strings.Asc((permuta.Chars(k))) - 65)
 
            Select Case x
                Case 0 : x = ((Decenas(0) * 10) + Decenas(1))
                Case 1 To 4 : x = ((Decenas(0) * 10) + Unidades(x - 1))
                Case 5 To 8 : x = ((Decenas(1) * 10) + Unidades(x - 5))
                Case 9 : x = ((Decenas(1) * 10) + Decenas(0))
            End Select
 
            If (x < 10) Then s(k) = "0" & x.ToString Else s(k) = x.ToString
        Next
 
        Array.Sort(s)
        Return Join(s, ", ")
    End Function
End Class
 

Friend Class Permutas3_3
    Implements ICombina
 
    Const MAX_COMBINAS As UInt32 = 5005
    Private s_Combinas() As String
 
    Public Sub New()
        Call Enumerar()
    End Sub
 
    Public ReadOnly Property Cantidad As UInteger Implements ICombina.Cantidad
        Get
            Return MAX_COMBINAS
        End Get
    End Property
 
    Public Sub Enumerar() Implements ICombina.Enumerar
        s_Combinas = EnumeraComb("ABCDEF", "JKLMNO", MAX_COMBINAS) ' 5005 
    End Sub
 
    ' Alfabeto = XYZ   RST
    '  A   B   C   D   E     F   G   H   I   J     K   L   M   N   O
    '  XY  XZ  XR  XS  XT    YX  YZ  YR  YS  YT    ZX  ZY  ZR  ZS  ZT        
    Public Function Tranformar(ByVal Index As Integer, ByRef Decenas() As Byte, ByRef Unidades() As Byte) As String Implements ICombina.Tranformar
        Dim permuta As String = s_Combinas(Index)
        Dim s(0 To 5) As String
        Dim v As Byte, m As Byte, n As Byte, k As Byte
 
        For k = 0 To 5
            v = (Strings.Asc((permuta.Chars(k))) - 65)
            m = (Decenas(v \ 5) * 10)
            n = (v Mod 5)
 
            If (n < 2) Then
                If (v < 5) Then
                    v = (m + Decenas(n + 1))        ' XY, XZ
                ElseIf (v < 10) Then
                    If (n = 0) Then
                        v = (m + Decenas(n))        ' YX
                    Else
                        v = (m + Decenas(n + 1))    ' YZ
                    End If
                Else
                    v = (m + Decenas(n))            ' ZX, ZY
                End If
            Else
                v = (m + Unidades(n - 2))           ' *R,*S,*T
            End If
 
            If (v < 10) Then s(k) = "0" & v.ToString Else s(k) = v.ToString
        Next
 
        Array.Sort(s)
        Return Join(s, ", ")
    End Function
End Class
 
Friend Class Permutas4_2
    Implements ICombina
 
    Const MAX_COMBINAS As UInt32 = 38760  '143080
    Private s_Combinas() As String
 
    Public Sub New()
        Call Enumerar()
    End Sub
 
    Public ReadOnly Property Cantidad As UInteger Implements ICombina.Cantidad
        Get
            Return MAX_COMBINAS
        End Get
    End Property
 
    Public Sub Enumerar() Implements ICombina.Enumerar
        s_Combinas = EnumeraComb("ABCDEF", "OPQRST", MAX_COMBINAS) ' 38760
    End Sub
 
    ' Alfabeto = WXYZ   RS
    ' A   B   C   D   E     F   G   H   I   J     K   L   M   N   O     P   Q   R   S   T
    ' WX  WY  WZ  WR  WS    XW  XY  XZ  XR  XS    YW  YX  YZ  YR  YS    ZW  ZX  ZY  ZR  ZS
    Public Function Tranformar(ByVal Index As Integer, ByRef Decenas() As Byte, ByRef Unidades() As Byte) As String Implements ICombina.Tranformar
        Dim permuta As String = s_Combinas(Index)
        Dim s(0 To 5) As String
        Dim v As Byte, m As Byte, n As Byte, k As Byte
 
        For k = 0 To 5
            v = (Strings.Asc((permuta.Chars(k))) - 65)
            m = (Decenas(v \ 5) * 10)
            n = (v Mod 5)
 
            If (n < 3) Then
                If (v < 5) Then
                    v = (m + Decenas(n + 1))        ' WX, WY, WZ
                ElseIf (v < 10) Then
                    If (n = 0) Then
                        v = (m + Decenas(n))        ' XW
                    Else
                        v = (m + Decenas(n + 1))    ' XY, XZ
                    End If
                ElseIf (v < 15) Then
                    If (n < 2) Then
                        v = (m + Decenas(n))        ' YW, YX
                    Else
                        v = (m + Decenas(n + 1))    ' YZ
                    End If
                Else
                    v = (m + Decenas(n))            ' ZW, ZX, ZY
                End If
            Else
                v = (m + Unidades(n - 3))           ' *R,*S
            End If
 
            If (v < 10) Then s(k) = "0" & v.ToString Else s(k) = v.ToString
        Next
 
        Array.Sort(s)
        Return Join(s, ", ")
    End Function
End Class
 
Friend Class Permutas5_1
    Implements ICombina
 
    Const MAX_COMBINAS As UInt32 = 177100  '402895
    Private s_Combinas() As String
 
    Public Sub New()
        Call Enumerar()
    End Sub
 
    Public ReadOnly Property Cantidad As UInteger Implements ICombina.Cantidad
        Get
            Return MAX_COMBINAS
        End Get
    End Property
 
    Public Sub Enumerar() Implements ICombina.Enumerar
        s_Combinas = EnumeraComb("ABCDEF", "TUVWXY", MAX_COMBINAS) ' 177.100 
    End Sub
 
    ' Alfabeto: VWXYZ   R
    ' 01  02  03  04  0?    10  12  13  14  1?    20  21  23  24  2?    30  31  32  34  3?    40  41  42  43  4?
    ' A   B   C   D   E     F   G   H   I   J     K   L   M   N   O     P   Q   R   S   T     U   V   X   Y   Z
    ' VW  VX  VY  VZ  VR    WV  WX  WY  WZ  WR    XV  XW  XY  XZ  XR    YV  YW  YX  YZ  YR    ZV  ZW  ZX  ZY  ZR
    Public Function Tranformar(ByVal Index As Integer, ByRef Decenas() As Byte, ByRef Unidades() As Byte) As String Implements ICombina.Tranformar
        Dim permuta As String = s_Combinas(Index)
        Dim s(0 To 5) As String
        Dim v As Byte, m As Byte, n As Byte, k As Byte
 
        For k = 0 To 5
            v = (Strings.Asc((permuta.Chars(k))) - 65)
            m = (Decenas(v \ 5) * 10)
            n = (v Mod 5)
 
            If (n < 4) Then
                If (v < 5) Then
                    v = (m + Decenas(n + 1))        ' VW, VX, VY, VZ
                ElseIf (v < 10) Then
                    If (n = 0) Then
                        v = (m + Decenas(n))        ' WV
                    Else
                        v = (m + Decenas(n + 1))    ' WX, WY, WZ
                    End If
                ElseIf (v < 15) Then
                    If (n < 2) Then
                        v = (m + Decenas(n))        ' XV, XW
                    Else
                        v = (m + Decenas(n + 1))    ' XY, XZ
                    End If
                ElseIf (v < 20) Then
                    If (n < 3) Then
                        v = (m + Decenas(n))        ' YV, YW, YX
                    Else
                        v = (m + Decenas(n + 1))    ' YZ
                    End If
                Else
                    v = (m + Decenas(n))            ' ZV, ZW, ZX, ZY
                End If
            Else
                v = (m + Unidades(n - 4))           ' *R
            End If
 
            If (v < 10) Then s(k) = "0" & v.ToString Else s(k) = v.ToString
        Next
 
        Array.Sort(s)
        Return Join(s, ", ")
    End Function
End Class
 
Friend Class Permutas6_0
    Implements ICombina
 
    Const MAX_COMBINAS As UInt32 = 177100 
    Private s_Combinas() As String
 
    Public Sub New()
        Call Enumerar()
    End Sub
 
    Public ReadOnly Property Cantidad As UInteger Implements ICombina.Cantidad
        Get
            Return MAX_COMBINAS
        End Get
    End Property
 
    Public Sub Enumerar() Implements ICombina.Enumerar
        s_Combinas = EnumeraComb("ABCDEF", "TUVWXY", MAX_COMBINAS)   ' 177.100  
    End Sub
 
    ' Alfabeto: VWXYZ?   _
    ' 00  01  02  03  04    10  11  12  13  14    20  21  22  23  24    30  31  32  33  34    40  41  42  43  44
    ' A   B   C   D   E     F   G   H   I   J     K   L   M   N   O     P   Q   R   S   T     U   V   W   X   Y
    ' VV  VW  VX  VY  VZ    WV  WW  WX  WY  WZ    XV  XW  XX  XY  XZ    YV  YW  YX  YY  YZ    ZV  ZW  ZX  ZY  ZZ
    Public Function Tranformar(ByVal Index As Integer, ByRef Decenas() As Byte, ByRef Unidades() As Byte) As String Implements ICombina.Tranformar
        Dim permuta As String = s_Combinas(Index)
        Dim s(0 To 6) As String
        Dim v As Byte, m As Byte, n As Byte, k As Byte
 
        For k = 0 To 5  ' el 0 se reserva (caso especial, para comparar un item con el previo)
            v = (Strings.Asc((permuta.Chars(k))) - 65)
            m = (Decenas(v \ 5) * 10)
            n = (v Mod 5)
 
            If (m = n) Then
                s(0) = " --- Combinacion ilegal --- "  ' aparece '00' 
            End If
            v = (m + n)
            If (v < 10) Then s(k + 1) = "0" & v.ToString Else s(k + 1) = v.ToString
        Next
 
        Array.Sort(s)
        For k = 1 To 5
            If (s(k) = s(k - 1)) Then
                s(0) = " --- Combinacion ilegal --- " ' un mismo numero aparece 2 veces.
            End If
        Next
 
        Return Join(s, ", ")
    End Function
End Class
 

    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        Label4.Text = "Indice: " & ListBox1.SelectedIndex.Tostring
    End Sub
 

Friend Class Permutas5_0
    Implements ICombina
 
    Const MAX_COMBINAS As UInt32 = 15504
    Private s_Combinas() As String
 
    Public Sub New()
        Call Enumerar()
    End Sub
 
    Public ReadOnly Property Cantidad As UInteger Implements ICombina.Cantidad
        Get
            Return MAX_COMBINAS
        End Get
    End Property
 
    Public Sub Enumerar() Implements ICombina.Enumerar
        s_Combinas = EnumeraComb("ABCDE", "PQRST", MAX_COMBINAS)   ' 15504 
    End Sub
 
    ' Alfabeto: VWXYZ
    ' 01  02  03  04    10  12  13  14    20  21  23  24    30  31  32  34    40  41  42  43
    ' A   B   C   D     E   F   G   H     I   J   K   L     M   N   O   P     Q   R   S   T
    ' VW  VX  VY  VZ    WV  WX  WY  WZ    XV  XW  XY  XZ    YV  YW  YX  YZ    ZV  ZW  ZX  ZY
    Public Function Tranformar(ByVal Index As Integer, ByRef Decenas() As Byte, ByRef Unidades() As Byte) As String Implements ICombina.Tranformar
        Dim permuta As String = s_Combinas(Index)
        Dim s(0 To 4) As String
        Dim v As Byte, m As Byte, n As Byte, k As Byte
 
        For k = 0 To 4
            v = (Strings.Asc((permuta.Chars(k))) - 65)
            m = (Decenas(v \ 4) * 10)
            n = (v Mod 4)
 
            If (v < 4) Then
                v = (m + Decenas(n + 1))        ' VW,VX, VY, VZ
            ElseIf (v < 8) Then
                If (n = 0) Then
                    v = (m + Decenas(n))        ' WV
                Else
                    v = (m + Decenas(n + 1))    ' WX, WY, WZ
                End If
            ElseIf (v < 12) Then
                If (n < 2) Then
                    v = (m + Decenas(n))        ' XV, XW
                Else
                    v = (m + Decenas(n + 1))    ' XY, XZ
                End If
            ElseIf (v < 16) Then
                If (n < 3) Then
                    v = (m + Decenas(n))        ' YV, YW, YX
                Else
                    v = (m + Decenas(n + 1))    ' YZ
                End If
            Else
                v = (m + Decenas(n))            ' ZV, ZW, ZX, ZY
            End If
 
            If (v < 10) Then s(k) = "0" & v.ToString Else s(k) = v.ToString
        Next
 
        Array.Sort(s)
        Return Join(s, ", ")
    End Function
End Class