Bueno otra ves con mis rollos de combinaciones tengo este codigo que me hace estas combinaciones y mi idea es como hacer que solo aparescan combinaciones con dos números de cada subrango .los números a combinar no son fijos y varian de cantidades ( entre 20 y 80 numeros) dependiendo de otra funcion.


los subrangos serian:
01 al 09
10 al 19
20 al 29
30 al 39
40 al 49
50 al 59
60 al 69
70 al 79
80 al 89
90 al 99


Ahora este código me los combina de esta forma

01, 02, 05, 07, 08, 15, 17, 18
01, 02, 05, 07, 08, 15, 17, 45
01, 02, 05, 07, 08, 12, 15, 17
01, 02, 05, 07, 08, 15, 17, 22
01, 02, 05, 07, 08, 15, 17, 23
01, 02, 05, 07, 08, 15, 17, 27
01, 02, 05, 07, 08, 15, 17, 28
01, 02, 05, 07, 08, 15, 17, 33
01, 02, 05, 07, 08, 15, 17, 34


Pero los necesito de esta forma

01 05 10 15 20 25 35 38
07 09 11 16 24 26 70 78
10 19 35 38 45 49 80 88

como verán por cada combinación solo hay dos de cada subrango y haci llenar todas las combinaciones posibles con los números que contiene la variable.

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
 
        Dim combinations As New List(Of List(Of Integer))
        Dim length As Integer = 7
        Dim skipStart As Integer = 0
        Do Until skipStart = (constantValues.Count - length)
 
            Dim values As List(Of Integer) = constantValues.GetRange(skipStart, length)
            Dim count As Integer = 0
 
            Do Until count = (constantValues.Count - length - skipStart)
 
                Dim list As List(Of Integer) = values.Concat(constantValues.Skip(skipStart + length + count).Take(1)).ToList
                list.Sort()
                combinations.Add(list)
 
                '  Debug.WriteLine(String.Join(", ", values.Concat(constantValues.Skip(skipStart + length + count).Take(1)).ToArray))
 
                count += 1
 
            Loop ' count = (constantValues.Count - length)
 
            skipStart += 1
 
 
        Loop ' skipStart = (constantValues.Count - length)
        combinations.RemoveAll(Function(list As List(Of Integer)) list.First = 0)
 
        combinations.ForEach(Sub(combination As List(Of Integer))
                                 ListBox2.Items.Add(String.Join(", ", From value As Integer In combination
                                                                      Select If(value.ToString.Length = 1I,
                                                                                value.ToString.Insert(0I, "0"c),
                                                                                value.ToString)))
 
                                '  Label11.Text = combinations.Count.ToString()
 
                             End Sub)
 
 
       '  Button4.Enabled = False
 
    End Sub  

saludos
Luis

Hola

Tengo esto para cerrar el programa ,pero recién me doy cuenta que algunas variables no se liberan ya que cuando lo vuelvo a ejecutar me suma los anteriores datos.cuando debería ser de cero,

que le faltaria a esto para liberar todo ?  

Private Sub CerrarProgramaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CerrarProgramaToolStripMenuItem.Click
        If MessageBox.Show("Esta seguro que desea Cerrar la aplicacion", "Cerrar ", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
 
            Me.Close()
 
        End If 

Luis

estoy tratando de mostrar esto en un label pero no me sale, donde lo ponga me sale
dentro del formulario (en cualquier lado)  menos en el label ?

  Label1.Text = Result2255.Count.ToString() 

Luis

Pos eso , puedo hacer que un botón este desabilitado hasta que la tabulacion llegue por orden de entrada.pero lo que quiero es que este boton me ejecute una sola ves y quede desabilitado hasta el reinicio del programa

luis

hola tengo esta rutina que me grava un txt y quiero verlo desde otro boton

 Private Sub GuardarCombinacionesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GuardarCombinacionesToolStripMenuItem.Click
        Dim rutaFichero As String
        Dim i As Integer
 
        rutaFichero = Path.Combine(Application.StartupPath, "Combinaciones.txt")
        Dim fichero As New IO.StreamWriter(rutaFichero)
        For i = 0 To ListBox2.Items.Count - 1
            fichero.WriteLine(ListBox2.Items(i))
        Next
        fichero.Close()
    End Sub  

Luis

Hola como puedo eliminar los registros que contengan ceros ?

00, 01, 02, 04, 05, 06
00, 01, 03, 04, 05, 06
00, 01, 04, 05, 06, 08
00, 01, 04, 05, 06, 09
00, 01, 04, 05, 06, 18
00, 01, 04, 05, 06, 10
00, 01, 04, 05, 06, 11
00, 01, 04, 05, 06, 15
10 ,20 ,45 ,88 .87, 90

 Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
 
 
        Dim combinations As New List(Of List(Of Integer))
        Dim length As Integer = 5
        Dim skipStart As Integer = 0
 
 
        Do Until skipStart = (constantValues.Count - length)
 
            Dim values As List(Of Integer) = constantValues.GetRange(skipStart, length)
            Dim count As Integer = 0
 
            Do Until count = (constantValues.Count - length - skipStart)
 
                Dim list As List(Of Integer) = values.Concat(constantValues.Skip(skipStart + length + count).Take(1)).ToList
                list.Sort()
                combinations.Add(list)
 
                '  Debug.WriteLine(String.Join(", ", values.Concat(constantValues.Skip(skipStart + length + count).Take(1)).ToArray))
 
                count += 1
 
            Loop ' count = (constantValues.Count - length)
 
            skipStart += 1
 
 
        Loop ' skipStart = (constantValues.Count - length)
 
 
        combinations.ForEach(Sub(combination As List(Of Integer))
                                 ListBox2.Items.Add(String.Join(", ", From value As Integer In combination
                                                                      Select If(value.ToString.Length = 1I,
                                                                                value.ToString.Insert(0I, "0"c),
                                                                                value.ToString)))
 
 
 
                             End Sub)
 
 
 
 
    End Sub
 

Luis

Hola

Bien he estado buscando como trabajar con variables y array convertir de integer a lo que sea pero no doy con un buen tuto ( solo para brutus ) jejej como convertir pasar de una variable a otra jejej seguro elektro si lo lee ya sabe el porque ,pero como no doy pie con bola con esto de combinar valores de una variable a otra

AAA lo que quiero es saber donde ir

luis

Hola
bien esto de las combinaciones me esta volviendo adicto a lo imposible jejej

tengo 25 números de dos dígitos y como siempre desde el 00 hasta el 99 y quiero hacer o formar grupos de 7 y 8 números donde estén todos los números de entre estos 25 .

ejemplo: 01 09 11 12 14 16 20 24 35 38 40 44 50 58 59 60 68 70 77 80 81 88 90 92 99

alguna idea

Luis

Hoy sabado a programar mm como me gusta jejejej

Descifrar operaciones en resultados correlativos, ( hoy sabado jej a programar)

la idea es saber como se llega de un numero inicial al segundo numero y como desde el segundo numero al tercero
y asi susecivamente con toda la muestra en el txt


estos numeros estan en un txt.el procedimiento que hago es, tomo el primer numero y lo comparo con el segundo  para
saber que operaciones matematicas hay entre numero y numero.a mano se hacerlo pero npi para hacerlo en net





ejemplo :

  01   07   08   20  23  39 <---numero inicial en el txt (pueden ser miles)

+ 18 + 15 + 19 + 9 + 10 + 7 <------- operaciones para llegar al segundo numero

  19   22   27   29   33  46 <---segundo numero


- 18 - 18 - 16 - 12 - 11 -15 <--operaciones para llegar al tercer numero

  01   04   11   17   22  31 <- tercer numero


En otro txt mostrar:

solo las operaciones encontradas

ejemplo

+ 18 + 15 + 19 + 9 + 10 + 7
- 18 - 18 - 16 - 12 - 11 -15


saludos
Luis

Ando buscabdo un codigo de reducidas para cualquier loteria primitiva o bonoloto nesecito saber la estructura de un programa similar ,alguna idea

luis