Diossssssss son las 4 y bastante de la madrugada  vengo de fiesta y estas aca jo descanza chico mañana te cuento

luis

Bien te esplico mi proyecto jejej a ver si me hago entender, como siempre pasa uno sabe lo que quiere pero nunca logro hacerlo entender o explicar

input como tu dices

la variable result contiene x numeros que van desde 01 hasta el 99 pero según los resultados pueden ser menos.

supongamos que que la variable contenga estos números; ( pongo solo hasta el 30 para hacerlo corto )


input
01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30


con estos números hay que formar grupos o combinaciones de 10 números saltando de dos en dos:

salida...

01 04 07 10 13 16 19 22 25 28

02 05 08 11 14 17 20 23 26 29

03 06 09 12 15 18 21 24 27 30

04 07 10 13 16 19 22 24 28  ?  <- aca rellenar con un numero dentro del rango 01 al 99 y por supuesto no se repita en la conbinacion esto es cuando se agoten los números de que tenga la variable

05 08 11 14 17 20 23 26 29  ? < igual poner numero dentro del rango y que no repita y esto hasta que acabe con el ultimo numero que seria el numero 30


30 ? ? ? ? ? ? ? ? ? ?

Motrar de menor a mayor en un lisxbot



saludos


Luis

Hola y gracias

pero ya lo resolví cree un icono en el escritorio con la ruta y listo ahora cada ves que lo quiero modificar lo llamo desde ese icono lo modifico y listo

tema cerrado

Luis

Tengo un pequeño problema cada ves que quiero modificar este archivo y es que tengo que ir a windos sisten eceteraaaaaa... abrir el archivo con el blog de notas escribir cerrar y guardar,

el archivo host sirve para bloquear las paginas que quieras pero trate de hacerlo con los métodos tradicionales pero no me sale la idea es hacer un form un texbox donde escribo la pagina a bloquear

Ojo no quiero me lo hagan solo una orientación de que método puedo usar o por donde irían los tiros

luis

En la parte de las combinaciones me dice que se esperaba una declaración  ???

resul no esta declarado
palabra no declarado

de paso he visto un error que tenia y era que tenia que hacer un boton para introduce la funcion jejej

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        ' funcion combinar la variable " resul " que contiene la cantidad de numeros a combinar (no funciona)
        ' esto es de basic pero es para cojer la idea :) no se como hacerlo en net
 
        For recorrer = 1 To Len(resul)
            auxiliar = Mid(palabra, recorrer, 1)
            For recorrer1 = 1 To Len(resul)
                auxiliar1 = Mid(palabra, recorrer1, 1)
                For recorrer2 = 1 To Len(resul)
                    auxiliar2 = Mid(palabra, recorrer2, 1)
                    For recorrer3 = 1 To Len(resul)
                        auxiliar3 = Mid(resul, recorrer3, 1)
                        If anterior <> auxiliar3 Then
 
                            Print(auxiliar & auxiliar1 & auxiliar2 & auxiliar3)
                        End If
                        anterior = auxiliar3
                    Next
                Next
            Next
        Next
    End Sub 

Al ataque de nuevo jeje bueno ya ustedes saben como se frustra uno cuando no se logra hacer funcionar algo, vueltas y vueltas y nada tengo el siguiente programa que funciona bien hasta llegar a la función de combinar los numeros pero es un código de basic que quiero implementar pero no soy capaz ( como siempre)

Public Class Form1
    Dim maximum As Short = 99
    Dim x As Integer = 0
    Dim Número As Double
    Private TextBoxes As TextBox() = {Nothing}
    Private Result1 As Int32(), Result2 As Int32(), Result3 As Int32()
    Private _textBox As Object
    Private Property ListBox1Count As Integer
    ReadOnly MAX As Integer = 99
 
    Dim auxiliar As Integer
    Dim auxiliar1 As Integer
 
    Dim auxiliar2 As String
    Dim auxiliar3 As String
    Dim anterior As String
 
    Dim recorrer As Integer
    Dim recorrer1 As Integer
    Dim recorrer2 As Integer
    Dim recorrer3 As Integer
 
    Private Property Calcular As Object
 
    Private Property TextBox(ByVal TextBoxCount As Short) As Object
        Get
            Return _textBox
        End Get
        Set(ByVal value As Object)
            _textBox = value
        End Set
    End Property
 
    Public Sub solonumeros(ByRef e As System.Windows.Forms.KeyPressEventArgs)
        ' evitar letras
        If Char.IsDigit(e.KeyChar) Then
            e.Handled = False
        ElseIf Char.IsControl(e.KeyChar) Then
            e.Handled = False
        ElseIf Char.IsSeparator(e.KeyChar) Then
            e.Handled = False
        Else
            e.Handled = True
        End If
 
    End Sub
 
 
    ReadOnly Property Num1 As Int32
        Get
            Return CInt(TextBox1.Text)
        End Get
    End Property
 
    ReadOnly Property Num2 As Int32
        Get
            Return CInt(TextBox2.Text)
        End Get
    End Property
    ReadOnly Property Num3 As Int32
        Get
            Return CInt(TextBox3.Text)
        End Get
    End Property
 
 
    Private Sub Sumar(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
 
 
        Result1 = {Num1 + 1, Num1 + 2, Num1 + 4, Num1 + 6, Num1 - 4, Num1 - 1} _
                  .Distinct().ToArray ' Elimino duplicados
 
        Result2 = {Num2 + 1, Num2 + 2, Num2 + 3, Num2 - 1, Num2 - 2, Num1 - 3} _
                  .Distinct().ToArray ' Elimino duplicados
 
        Result3 = {Num3 - 1, Num3 - 2, Num3 - 3, Num3 + 2, Num3 + 3, Num3 + 5} _
                  .Distinct().ToArray ' Elimino duplicados
 
 
        Dim Rand As New Random
        ' Concateno, y...
        ' Elimino duplicados, y...
        ' Selecciono los números inferiores a MAX, y...
        ' Convierto los números mayores a MAX a números aleatorios entre 0 y MAX.
        Dim Result As IEnumerable(Of Integer) =
            (Result1.Concat(Result2).Concat(Result3)).
            Distinct.
            Select(Function(Value As Integer)
                       Return If(Value < MAX, Value, Rand.Next(0, MAX))
                   End Function)
 
 
        ListBox1.Items.AddRange(Result.Cast(Of Object).ToArray)
 
        ' Result2---------------------------------------------------------
        Dim Rand2 As New Random
        ' Concateno, y...
        ' Elimino duplicados, y...
        ' Selecciono los números inferiores a MAX, y...
        ' Convierto los números mayores a MAX a números aleatorios entre 0 y MAX.
        Dim Result22 As IEnumerable(Of Integer) =
            (Result1).
            Distinct.
            Select(Function(Value As Integer)
                       Return If(Value < MAX, Value, Rand.Next(0, MAX))
                   End Function)
 
 
 
        ListBox2.Items.AddRange(Result22.Cast(Of Object).ToArray)
 
 
 
        Dim Rand22 As New Random
        ' Concateno, y...
        ' Elimino duplicados, y...
        ' Selecciono los números inferiores a MAX, y...
        ' Convierto los números mayores a MAX a números aleatorios entre 0 y MAX.
        Dim Result222 As IEnumerable(Of Integer) =
            (Result2).
            Distinct.
            Select(Function(Value As Integer)
                       Return If(Value < MAX, Value, Rand.Next(0, MAX))
                   End Function)
 
        ListBox3.Items.AddRange(Result222.Cast(Of Object).ToArray)
 
 
 
 
    End Sub
    ' funcion combinar la variable " resul " que contiene la cantidad de numeros a combinar (no funciona)
    ' esto es de basic pero es para cojer la idea :) no se como hacerlo en net
 
     For recorrer = 1 To Len(resul) 
            auxiliar = Mid(palabra, recorrer, 1)
            For recorrer1 = 1 To Len(resul)
                auxiliar1 = Mid(palabra, recorrer1, 1)
                For recorrer2 = 1 To Len(resul)
                    auxiliar2 = Mid(palabra, recorrer2, 1)
                    For recorrer3 = 1 To Len(resul)
                        auxiliar3 = Mid(resul, recorrer3, 1)
                        If anterior <> auxiliar3 Then
 
                            Print(auxiliar & auxiliar1 & auxiliar2 & auxiliar3) <------------mostrar esto en un lixbox
 
                        End If
                        anterior = auxiliar3
                    Next
                Next
            Next
        Next
    End Sub
 
 
 
    '--------------------------- limpiar texboxes
    Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.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()
            ListBox2.Items.Clear()
            ListBox3.Items.Clear()
 
 
        Next
    End Sub
 
 
End Class
 

Bueno ya me enrede de nuevo   de verdad que lo de estas combinaciones me esta poniendo tarambana jejejje

Ahora trasteando he conseguido esto que según lo que veo me podría servir mucho ya que puedo jugar con las posiciones ahora creo que esto es para texto y no se si me sirve numerico y como evitaria los repetidos

   deshaceCombina(0)=mid(cadena,1,1)
   deshaceCombina(1)=mid(cadena,2,1)
   deshaceCombina(2)=mid(cadena,3,1)
   deshaceCombina(3)=mid(cadena,4,1)

Bueno unos días después de estar fuera vuelvo al ataque jejej con el tema de las combinaciones e echo a pie este código, pero ya me perdí de tanto escribir pero es la idea de lo de las combinaciones mas  o menos lo que me gustaria es poder simplificarlo.

Public Class Form1
 
 
    Dim maximum As Short = 99
    Dim Número As Double
    Private TextBoxes As TextBox() = {Nothing}
 
 
    Private r1 = 5
    Private r2 = 15
    Private r3 = 25
    Private r4 = 35
    Private r5 = 40
    Private r6 = 45
 
    Private ar1 = 6
    Private br2 = 10
    Private cr3 = 20
    Private dr4 = 30
    Private er5 = 40
    Private sr6 = 4
 
 
 
    Private _textBox As Object
    Private Property ListBox1Count As Integer
    ReadOnly MAX As Integer = 8
    Dim Result22 As Integer
    Dim Counter, Counter2 As Integer
    Dim myLabelArray(6) As Label
    Private Sub Limpiar_Cajas(ByVal f As Form)
        ' recorrer todos los controles del formulario indicado  
        For Each c As Control In f.Controls
            If TypeOf c Is TextBox Then
                c.Text = "" ' eliminar el texto  
            End If
        Next
    End Sub
 
    Private Sub Button4_Click( _
        ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles Button4.Click
        ' pasar el formulario  
        Call Limpiar_Cajas(Me)
 
 
    End Sub
 
 
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
        'funcion para introducir manualmente r1 = Val(TextBox1.Text)
    End Sub
 
 
 
    'funcion unir o formar combinaciones
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        ListBox1.Items.Add(TextBox1.Text)
        ListBox1.Items.Add(TextBox6.Text)
        ListBox1.Items.Add(TextBox7.Text)
        ListBox1.Items.Add(TextBox8.Text)
        ListBox1.Items.Add(TextBox10.Text)
        ListBox1.Items.Add(TextBox12.Text)
        'funcion unir o formar combinaciones segundo lisb
        ListBox2.Items.Add(TextBox1.Text)
        ListBox2.Items.Add(TextBox2.Text)
        ListBox2.Items.Add(TextBox4.Text)
        ListBox2.Items.Add(TextBox31.Text)
        ListBox2.Items.Add(TextBox33.Text)
        ListBox2.Items.Add(TextBox36.Text)
        'funcion unir o formar combinaciones terce lisb
        ListBox3.Items.Add(TextBox1.Text)
        ListBox3.Items.Add(TextBox2.Text)
        ListBox3.Items.Add(TextBox4.Text)
        ListBox3.Items.Add(TextBox6.Text)
        ListBox3.Items.Add(TextBox7.Text)
        ListBox3.Items.Add(TextBox8.Text)
        'funcion unir o formar combinaciones cuarto lisb
        ListBox4.Items.Add(TextBox1.Text)
        ListBox4.Items.Add(TextBox2.Text)
        ListBox4.Items.Add(TextBox4.Text)
        ListBox4.Items.Add(TextBox13.Text)
        ListBox4.Items.Add(TextBox14.Text)
        ListBox4.Items.Add(TextBox15.Text)
        'funcion unir o formar combinaciones quinto lisb
        ListBox5.Items.Add(TextBox1.Text)
        ListBox5.Items.Add(TextBox5.Text)
        ListBox5.Items.Add(TextBox14.Text)
        ListBox5.Items.Add(TextBox15.Text)
        ListBox5.Items.Add(TextBox34.Text)
        ListBox5.Items.Add(TextBox35.Text)
        'funcion unir o formar combinaciones sesta lisb
        ListBox6.Items.Add(TextBox2.Text)
        ListBox6.Items.Add(TextBox5.Text)
        ListBox6.Items.Add(TextBox13.Text)
        ListBox6.Items.Add(TextBox14.Text)
        ListBox6.Items.Add(TextBox15.Text)
        ListBox6.Items.Add(TextBox33.Text)
        'funcion unir o formar combinaciones 7o lisb
        ListBox7.Items.Add(TextBox6.Text)
        ListBox7.Items.Add(TextBox5.Text)
        ListBox7.Items.Add(TextBox2.Text)
        ListBox7.Items.Add(TextBox10.Text)
        ListBox7.Items.Add(TextBox11.Text)
        ListBox7.Items.Add(TextBox18.Text)
        'funcion unir o formar combinaciones 8o lisb
        ListBox8.Items.Add(TextBox1.Text)
        ListBox8.Items.Add(TextBox3.Text)
        ListBox8.Items.Add(TextBox5.Text)
        ListBox8.Items.Add(TextBox19.Text)
        ListBox8.Items.Add(TextBox27.Text)
        ListBox8.Items.Add(TextBox29.Text)
        'funcion unir o formar combinaciones 9o lisb
        ListBox9.Items.Add(TextBox22.Text)
        ListBox9.Items.Add(TextBox25.Text)
        ListBox9.Items.Add(TextBox27.Text)
        ListBox9.Items.Add(TextBox30.Text)
        ListBox9.Items.Add(TextBox31.Text)
        ListBox9.Items.Add(TextBox32.Text)
        'funcion unir o formar combinaciones 10o lisb
        ListBox10.Items.Add(TextBox24.Text)
        ListBox10.Items.Add(TextBox26.Text)
        ListBox10.Items.Add(TextBox28.Text)
        ListBox10.Items.Add(TextBox33.Text)
        ListBox10.Items.Add(TextBox34.Text)
        ListBox10.Items.Add(TextBox35.Text)
        'funcion unir o formar combinaciones 11o lisb
        ListBox11.Items.Add(TextBox2.Text)
        ListBox11.Items.Add(TextBox4.Text)
        ListBox11.Items.Add(TextBox23.Text)
        ListBox11.Items.Add(TextBox31.Text)
        ListBox11.Items.Add(TextBox32.Text)
        ListBox11.Items.Add(TextBox34.Text)
        'funcion unir o formar combinaciones 12o lisb
        ListBox12.Items.Add(TextBox1.Text)
        ListBox12.Items.Add(TextBox2.Text)
        ListBox12.Items.Add(TextBox4.Text)
        ListBox12.Items.Add(TextBox32.Text)
        ListBox12.Items.Add(TextBox33.Text)
        ListBox12.Items.Add(TextBox35.Text)
        'funcion unir o formar combinaciones 13o lisb
        ListBox13.Items.Add(TextBox6.Text)
        ListBox13.Items.Add(TextBox13.Text)
        ListBox13.Items.Add(TextBox31.Text)
        ListBox13.Items.Add(TextBox33.Text)
        ListBox13.Items.Add(TextBox35.Text)
        ListBox13.Items.Add(TextBox36.Text)
 
        'funcion unir o formar combinaciones 14o lisb
        ListBox14.Items.Add(TextBox13.Text)
        ListBox14.Items.Add(TextBox14.Text)
        ListBox14.Items.Add(TextBox30.Text)
        ListBox14.Items.Add(TextBox31.Text)
        ListBox14.Items.Add(TextBox33.Text)
        ListBox14.Items.Add(TextBox35.Text)
        'funcion unir o formar combinaciones 15o lisb
        ListBox15.Items.Add(TextBox6.Text)
        ListBox15.Items.Add(TextBox7.Text)
        ListBox15.Items.Add(TextBox8.Text)
        ListBox15.Items.Add(TextBox12.Text)
        ListBox15.Items.Add(TextBox14.Text)
        ListBox15.Items.Add(TextBox15.Text)
        ListBox15.Items.Add(TextBox30.Text)
        'funcion unir o formar combinaciones 16o lisb
        'funcion unir o formar combinaciones 17o lisb
        'funcion unir o formar combinaciones 18o lisb
        'funcion unir o formar combinaciones 19o lisb
        'funcion unir o formar combinaciones 20o lisb
 
 
 
    End Sub
 
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Close()
    End Sub
 
    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        TextBox1.Text = r1 + 1
        TextBox2.Text = r1 + 2
        TextBox3.Text = r1 + 3
        TextBox4.Text = r1 - 1
        TextBox5.Text = r1 - 2
        TextBox6.Text = r1 - 3
 
        TextBox7.Text = r2 + 1
        TextBox8.Text = r2 + 2
        TextBox9.Text = r2 + 3
        TextBox10.Text = r2 - 1
        TextBox11.Text = r2 - 2
        TextBox12.Text = r2 - 3
 
        TextBox13.Text = r3 + 1
        TextBox14.Text = r3 + 2
        TextBox15.Text = r3 + 3
        TextBox16.Text = r3 - 1
        TextBox17.Text = r3 - 2
        TextBox18.Text = r3 - 3
 
 
        TextBox19.Text = r4 + 1
        TextBox20.Text = r4 + 2
        TextBox21.Text = r4 + 3
        TextBox22.Text = r4 - 1
        TextBox23.Text = r4 - 2
        TextBox24.Text = r4 - 3
 
        TextBox25.Text = r5 + 1
        TextBox26.Text = r5 + 2
        TextBox27.Text = r5 + 3
        TextBox28.Text = r5 - 1
        TextBox29.Text = r5 - 2
        TextBox30.Text = r5 - 3
 
 
        TextBox31.Text = r6 + 1
        TextBox32.Text = r6 + 2
        TextBox33.Text = r6 + 3
        TextBox34.Text = r6 - 1
        TextBox35.Text = r6 - 2
        TextBox36.Text = r6 - 3
 
 
    End Sub
 
    Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
        TextBox1.Text = ar1 + 1
        TextBox2.Text = ar1 + 2
        TextBox3.Text = ar1 + 3
        TextBox4.Text = ar1 - 1
        TextBox5.Text = ar1 - 2
        TextBox6.Text = ar1 - 3
 
        TextBox7.Text = br2 + 1
        TextBox8.Text = br2 + 2
        TextBox9.Text = br2 + 3
        TextBox10.Text = br2 - 1
        TextBox11.Text = br2 - 2
        TextBox12.Text = br2 - 3
 
        TextBox13.Text = cr3 + 1
        TextBox14.Text = cr3 + 2
        TextBox15.Text = cr3 + 3
        TextBox16.Text = cr3 - 1
        TextBox17.Text = cr3 - 2
        TextBox18.Text = cr3 - 3
 
 
        TextBox19.Text = dr4 + 1
        TextBox20.Text = dr4 + 2
        TextBox21.Text = dr4 + 3
        TextBox22.Text = dr4 - 1
        TextBox23.Text = dr4 - 2
        TextBox24.Text = dr4 - 3
 
        TextBox25.Text = er5 + 1
        TextBox26.Text = er5 + 2
        TextBox27.Text = er5 + 3
        TextBox28.Text = er5 - 1
        TextBox29.Text = er5 - 2
        TextBox30.Text = er5 - 3
 
 
        TextBox31.Text = sr6 + 1
        TextBox32.Text = sr6 + 2
        TextBox33.Text = sr6 + 3
        TextBox34.Text = sr6 - 1
        TextBox35.Text = sr6 - 2
        TextBox36.Text = sr6 - 3
    End Sub
 
    Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged
 
    End Sub
 
    Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox4.CheckedChanged
 
    End Sub
 
    Private Sub CheckBox5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox5.CheckedChanged
 
    End Sub
 
    Private Sub CheckBox6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox6.CheckedChanged
 
    End Sub
 
 
 
 
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
 
        Dim Num As Double
        Randomize()
        Num = Rnd()
        MsgBox(Num)
    End Sub
 
 
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
 
        ListBox1.Items.Clear()
        ListBox2.Items.Clear()
        ListBox3.Items.Clear()
        ListBox4.Items.Clear()
        ListBox5.Items.Clear()
        ListBox6.Items.Clear()
        ListBox7.Items.Clear()
        ListBox8.Items.Clear()
        ListBox9.Items.Clear()
        ListBox10.Items.Clear()
        ListBox11.Items.Clear()
        ListBox12.Items.Clear()
        ListBox13.Items.Clear()
        ListBox14.Items.Clear()
        ListBox15.Items.Clear()
        ListBox16.Items.Clear()
        ListBox17.Items.Clear()
        ListBox18.Items.Clear()
        ListBox19.Items.Clear()
        ListBox20.Items.Clear()
 
    End Sub
End Class
 
 
 
 

aca

http://es.scribd.com/doc/233624407/Secretos-Internos-de-Las-Ruedas-1

Hola elektro
yo he buscado y no encuentro alguna información sobre ruedas infantiles salvo sea juegos educacionales jeje. no prestes atención a el nombre que creo es lo que nos confunde

Yo veo el problema de esta forma:

los numeros guías son en principio los que se combinan pero el secreto esta en como se forman las combinaciones en posición de menor a mayor si te fijas en la chorrada que puse de código veras que trato de combinar de esta forma , introduzco los numeros en orden menor a mayor en los texboxes del 1 al 14 y después posiciono estos numeros en los texboxes  del 15 en adelante en combinaciones de 6 numeros según las combinaciones de la rueda fijándome en posición de los numeros guías lo hace

Números guías:   01-02-03-04-05-06-07-08-09-10-11-12-13-14
mis numeros:      10 13 18 25 26 28 30 32 35 37 40 42 45 47

Combinaciones de la rueda
01)...01-02-03-04-05-06.
02)...01-02-03-07-08-09. .


mis numeros: 10 13 18 25 26 28 30 32 35 37 40 42 45 47
combinaciones con mis numeros

1) 10 13 18 25 26 28
2) 10 13 18 30 32 35

fíjate que cada uno mis numeros toman la misma posición de las combinaciones de la rueda ya que sustituyo según posiciones que tiene los de la rueda .



01)...01-02-03-04-05-06. <---rueda
1)     10 13 18 25 26 28  <--mis numeros


02)...01-02-03-07-08-09. .Rueda <-a los numeros de la rueda <--lo sustituyo en el mismo orden por mis numeros en las combinaciones
2)     10 13 18 30 32 35  . mis numeros   


Pondria el documento que tengo pero es un pdf y no se como hacerlo


Luis