elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Introducción a Git (Primera Parte)


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP) (Moderador: kub0x)
| | | |-+  formar combinaciones de 7 y 8 numeros con 25 numeros
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: 1 2 3 4 [5] 6 Ir Abajo Respuesta Imprimir
Autor Tema: formar combinaciones de 7 y 8 numeros con 25 numeros  (Leído 22,313 veces)
luis456


Desconectado Desconectado

Mensajes: 543



Ver Perfil
Re: formar combinaciones de 7 y 8 numeros con 25 numeros
« Respuesta #40 en: 24 Octubre 2014, 19:20 pm »


1) Por cierto, no quiero ver marranadas, ya me estás separando 'Luislibrary' de la Class 'Form1', crea un archivo de Class individual en el projecto y ahí copias y pegas el namespace 'LuisLibrary' y vas añadiendo tus distintas "utilidades" para usarlas en el futuro.


estoy en pruebas ya me haré mi archivo de rutinas :)

Saludos.


En línea

Que tu sabiduria no sea motivo de Humillacion para los demas
luis456


Desconectado Desconectado

Mensajes: 543



Ver Perfil
Re: formar combinaciones de 7 y 8 numeros con 25 numeros
« Respuesta #41 en: 24 Octubre 2014, 19:45 pm »

jejej de nuevo al ataque

ahora funciona y ya he probado a modificar algunas cosillas como por ejemplo el orden en

Código
  1.  .First = items(0),
  2. .Second = items(2)

lo que no entiendo es como hacer que en ves de dos,me muestre combinaciones de mas de dos números por ejemplo  " 02 09 10 15 " , ahora solo me saca en la ventana " 02 09 " y en otra  " 10 15 " y en otra  "21 28 "  etc. en una sola ventana,


En línea

Que tu sabiduria no sea motivo de Humillacion para los demas
Eleкtro
Ex-Staff
*
Desconectado Desconectado

Mensajes: 9.701



Ver Perfil
Re: formar combinaciones de 7 y 8 numeros con 25 numeros
« Respuesta #42 en: 24 Octubre 2014, 20:30 pm »

lo que no entiendo es como hacer que en ves de dos,me muestre combinaciones de mas de dos números por ejemplo  " 02 09 10 15 " , ahora solo me saca en la ventana " 02 09 " y en otra  " 10 15 "


Tu tienes esto:
Código:
Lista
    · Sub-Lista
       · {2, 9}
    · Sub-Lista
       · {10, 15}

Y lo que quieres conseguir es esto (aparentemente, ya que no está muy claro lo que has dicho) :
Código:
Lista
    · {2, 9, 10, 15}


¿Qué tienes que hacer?, unir las sub-listas en una sola lista.

¿Cómo hacerlo?, puedes hacerlo con el método que te mostré, JoinEnumerables, el cual desarrollé para que realizase esa tarea en específico.


Saludos!
« Última modificación: 24 Octubre 2014, 20:36 pm por Eleкtro » En línea


luis456


Desconectado Desconectado

Mensajes: 543



Ver Perfil
Re: formar combinaciones de 7 y 8 numeros con 25 numeros
« Respuesta #43 en: 28 Octubre 2014, 10:25 am »


Tu tienes esto:
Código:
Lista
    · Sub-Lista
       · {2, 9}
    · Sub-Lista
       · {10, 15}

Y lo que quieres conseguir es esto (aparentemente, ya que no está muy claro lo que has dicho) :
Código:
Lista
    · {2, 9, 10, 15}


¿Qué tienes que hacer?, unir las sub-listas en una sola lista.

¿Cómo hacerlo?, puedes hacerlo con el método que te mostré, JoinEnumerables, el cual desarrollé para que realizase esa tarea en específico.


Saludos!


Hola asta ahora no he podido ver nada ( catarrazooo)  me podrias enseñar algun ejemplo con mayores detalles :)

luis

En línea

Que tu sabiduria no sea motivo de Humillacion para los demas
Eleкtro
Ex-Staff
*
Desconectado Desconectado

Mensajes: 9.701



Ver Perfil
Re: formar combinaciones de 7 y 8 numeros con 25 numeros
« Respuesta #44 en: 28 Octubre 2014, 18:15 pm »

Hola asta ahora no he podido ver nada ( catarrazooo)  me podrias enseñar algun ejemplo con mayores detalles :)

Lo siento Luis pero considero que ya he invertido bastante tiempo en mostrarte decenas de ejemplos, no se que más mostrarte ya, no soy un prefesor, y siento que cada ejemplo que escribo no sirve para nada al final por que o bien no lo usas o no hallas el modo.

Ponte a desarrollar tu aplicación/código y si tienes alguna duda específica, pregunta, con detalles.

Saludos
En línea


luis456


Desconectado Desconectado

Mensajes: 543



Ver Perfil
Re: formar combinaciones de 7 y 8 numeros con 25 numeros
« Respuesta #45 en: 28 Octubre 2014, 18:29 pm »

Buaaaaaaaaaa


luis
En línea

Que tu sabiduria no sea motivo de Humillacion para los demas
luis456


Desconectado Desconectado

Mensajes: 543



Ver Perfil
Re: formar combinaciones de 7 y 8 numeros con 25 numeros
« Respuesta #46 en: 31 Octubre 2014, 14:56 pm »

Otro rollo jeje

este codigo me entrega los numeros ordenados de menor a mayor funciona bien,pero depues de modificarlo me entrega los combinaciones desordenadas,he probado con ordenar la variable y el listbox pero no se que mas ,

Código
  1. codigo original
  2.  
  3. Public Class Form1
  4.    Dim combinations As Integer
  5.    Dim seta As Integer
  6.  
  7.    ReadOnly constantValues As New List(Of Integer) From
  8.        {
  9.            2, 3, 5I, 6I, 7I, 8I, 9I,
  10. 11, 13, 14, 17, 18, 19,
  11. 20, 21, 24, 25, 26, 29,
  12. 30, 31, 33, 44, 48
  13.        }
  14.  
  15.    Private Shadows Sub Load() Handles MyBase.Load
  16.  
  17.        Dim combinations As New List(Of List(Of Integer))
  18.        Dim length As Integer = 9
  19.        Dim skipStart As Integer = 0
  20.  
  21.        Do Until skipStart = (constantValues.Count - length)
  22.  
  23.            Dim values As List(Of Integer) = constantValues.GetRange(skipStart, length)
  24.            Dim count As Integer = 0
  25.  
  26.            Do Until count = (constantValues.Count - length - skipStart)
  27.  
  28.                combinations.Add(values.Concat(constantValues.Skip(skipStart + length + count).Take(1)).ToList)
  29.  
  30.                Debug.WriteLine(String.Join(", ", values.Concat(constantValues.Skip(skipStart + length + count).Take(1)).ToArray))
  31.  
  32.                count += 1
  33.  
  34.            Loop ' count = (constantValues.Count - length)
  35.  
  36.            skipStart += 1
  37.  
  38.        Loop ' skipStart = (constantValues.Count - length)
  39.        combinations.ForEach(Sub(combination As List(Of Integer))
  40.                                 ListBox1.Items.Add(String.Join(", ", From value As Integer In combination
  41.                                                                      Select If(value.ToString.Length = 1I,
  42.                                                                                value.ToString.Insert(0I, "0"c),
  43.                                                                                value.ToString)))
  44.                             End Sub)
  45.  
  46.  
  47.  
  48.    End Sub
  49.  



ahora como he modificado la variable " constantValues "  por constantValues.AddRange(Resultss.ToArray()) para usar
los numeros de " resultss " y estos numeros cambian no son fijos


Código
  1. codigo modificado
  2.  
  3. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
  4.  
  5.  
  6.        Dim combinations As New List(Of List(Of Integer))
  7.        Dim length As Integer = 9
  8.        Dim skipStart As Integer = 0
  9.  
  10.  
  11.        Do Until skipStart = (constantValues.Count - length)
  12.  
  13.            Dim values As List(Of Integer) = constantValues.GetRange(skipStart, length)
  14.            Dim count As Integer = 0
  15.  
  16.            Do Until count = (constantValues.Count - length - skipStart)
  17.  
  18.                combinations.Add(values.Concat(constantValues.Skip(skipStart + length + count).Take(1)).ToList)
  19.  
  20.                '  Debug.WriteLine(String.Join(", ", values.Concat(constantValues.Skip(skipStart + length + count).Take(1)).ToArray))
  21.  
  22.                count += 1
  23.  
  24.            Loop ' count = (constantValues.Count - length)
  25.  
  26.            skipStart += 1
  27.  
  28.  
  29.        Loop ' skipStart = (constantValues.Count - length)
  30.  
  31.  
  32.        combinations.ForEach(Sub(combination As List(Of Integer))
  33.                                 ListBox2.Items.Add(String.Join(", ", From value As Integer In combination
  34.                                                                      Select If(value.ToString.Length = 1I,
  35.                                                                                value.ToString.Insert(0I, "0"c),
  36.                                                                                value.ToString)))
  37.  
  38.  
  39.  
  40.                             End Sub)
  41.  
  42.  
  43. y me entrega las combinaciones desordenadas de esta forma
  44.  
  45.  
  46. 03, 05, 12, 13, 30, 08, 27, 28, 14, 26
  47. 03, 05, 12, 13, 30, 08, 27, 28, 14, 31
  48. 03, 05, 12, 13, 30, 08, 27, 28, 14, 32
  49. 03, 05, 12, 13, 30, 08, 27, 28, 14, 11
  50. 03, 05, 12, 13, 30, 08, 27, 28, 14, 17
  51. 03, 05, 12, 13, 30, 08, 27, 28, 14, 33
  52. 03, 05, 12, 13, 30, 08, 27, 28, 14, 37
  53. 03, 05, 12, 13, 30, 08, 27, 28, 14, 38
  54.  
  55.  
  56.  
  57.  


Luis




En línea

Que tu sabiduria no sea motivo de Humillacion para los demas
Eleкtro
Ex-Staff
*
Desconectado Desconectado

Mensajes: 9.701



Ver Perfil
Re: formar combinaciones de 7 y 8 numeros con 25 numeros
« Respuesta #47 en: 31 Octubre 2014, 15:32 pm »


Código
  1.        Do Until skipStart = (constantValues.Count - length)
  2.            ...
  3.            combinations.Add(values.Concat(constantValues.Skip(skipStart + length + count).Take(1)).ToList)
  4.            ...
  5.        Loop
  6.  


List(Of T).Sort Method - MSDN

Nota: Es un método, no una función, por lo tanto debes asignar la lista a una variable, la ordenas utilizando el método indicado, y ya puedes agregar la lista ordenada a la colección de listas.

Saludos
« Última modificación: 31 Octubre 2014, 15:34 pm por Eleкtro » En línea


luis456


Desconectado Desconectado

Mensajes: 543



Ver Perfil
Re: formar combinaciones de 7 y 8 numeros con 25 numeros
« Respuesta #48 en: 31 Octubre 2014, 15:58 pm »


List(Of T).Sort Method - MSDN

Nota: Es un método, no una función, por lo tanto debes asignar la lista a una variable, la ordenas utilizando el método indicado, y ya puedes agregar la lista ordenada a la colección de listas.

Saludos


Probando me da este error no se si te entendi bien pero te muestro el codigo

Excepción del tipo 'System.OutOfMemoryException' en System.Core.dll





Código
  1.  
  2.          ' Do Until count = (constantValues.Count - length - skipStart)
  3.            Do Until skipStart = (constantValues.Count - length)
  4.  
  5.                combinations.Add(values.Concat(constantValues.Skip(skipStart + length + count).Take(1)).ToList)
  6.  
  7.                '  Debug.WriteLine(String.Join(", ", values.Concat(constantValues.Skip(skipStart + length + count).Take(1)).ToArray))
  8.  
  9.                count += 1
  10.  
  11.            Loop ' count = (constantValues.Count - length)
  12.  
  13.            skipStart += 1
  14.  
  15.  
  16.        Loop ' skipStart = (constantValues.Count - length)
  17.  
  18.  
  19.        combinations.ForEach(Sub(combination As List(Of Integer))
  20.                                 ListBox2.Items.Add(String.Join(", ", From value As Integer In combination
  21.                                                                      Select If(value.ToString.Length = 1I,
  22.                                                                                value.ToString.Insert(0I, "0"c),
  23.                                                                                value.ToString)))
  24.  
  25.  
  26.  
  27.                             End Sub)



Luis
En línea

Que tu sabiduria no sea motivo de Humillacion para los demas
Eleкtro
Ex-Staff
*
Desconectado Desconectado

Mensajes: 9.701



Ver Perfil
Re: formar combinaciones de 7 y 8 numeros con 25 numeros
« Respuesta #49 en: 31 Octubre 2014, 16:57 pm »

No veo que hayas hecho nada de lo que te dije en ese código.

Aparte, ¿me vas a decir en que intrucción te da el error?.

En el código que puse arriba, resalté solo 1 linea y es en la que te tienes que fijar (es la misma que está en tu código, tienes que sacarla de ahi meterla en una variable, ordenarla y luego procedes como ya expliqué), por si acaso te digo que no vayas a cambiar de posición estas lineas:
Citar
Código
  1.          ' Do Until count = (constantValues.Count - length - skipStart)
  2.           Do Until skipStart = (constantValues.Count - length)

En resumen, deja el código como lo tenias... solo tienes que asignar la lista a una variable y usar el método List.Sort... la lista la tienes en la linea que resalté en el código de mi ultimo comentario...

saludos
« Última modificación: 31 Octubre 2014, 16:59 pm por Eleкtro » En línea


Páginas: 1 2 3 4 [5] 6 Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
[Problema] Programa para averiguar números pares entre 2 números
Programación Visual Basic
Dreamaker 3 4,693 Último mensaje 21 Mayo 2010, 23:45 pm
por Shell Root
Combinaciones con 54 numeros
.NET (C#, VB.NET, ASP)
mr_marley 3 7,074 Último mensaje 27 Noviembre 2011, 01:56 am
por mr_marley
Como saber todas las combinaciones posibles de letras y numeros?
Programación C/C++
peterfly 8 25,653 Último mensaje 15 Julio 2012, 18:26 pm
por DickGumshoe
Combinaciones letras o numeros « 1 2 »
.NET (C#, VB.NET, ASP)
luis456 11 5,892 Último mensaje 8 Febrero 2014, 11:43 am
por luis456
Combinaciones numericas por posicion con numeros guias « 1 2 3 »
.NET (C#, VB.NET, ASP)
luis456 26 14,395 Último mensaje 28 Septiembre 2014, 16:13 pm
por luis456
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines