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

 

 


Tema destacado: Sigue las noticias más importantes de seguridad informática en el Twitter! de elhacker.NET


+  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 29,864 veces)
luis456


Desconectado Desconectado

Mensajes: 548



Ver Perfil
formar combinaciones de 7 y 8 numeros con 25 numeros
« en: 11 Octubre 2014, 11:54 am »
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 :)
« Última modificación: 24 Noviembre 2014, 15:18 pm por luis456 » En línea
Que tu sabiduria no sea motivo de Humillacion para los demas
Eleкtro
Ex-Staff
*
Desconectado Desconectado

Mensajes: 9.810



Ver Perfil
Re: formar combinaciones de 7 y 8 numeros con 25 numeros
« Respuesta #1 en: 11 Octubre 2014, 16:34 pm »
Cita de: luis456 en 11 Octubre 2014, 11:54 am
hacer grupos de 7 y 8 números donde estén todos los números de entre estos 25 .

¿puedes mostrar como sería el resultado.

Saludos
En línea
XresH


Desconectado Desconectado

Mensajes: 384



Ver Perfil WWW
Re: formar combinaciones de 7 y 8 numeros con 25 numeros
« Respuesta #2 en: 11 Octubre 2014, 17:49 pm »
Con simple logica basica lo logras, forma arrays redimensionandolos cada vez que le asignas un numero(redim preserve), despues verificas (por si no queres repetidos) y obtenes valores aleatorios de la manera tradicional.

Podes agregarlos a un control cualquiera que maneje listas para luego regir su busqueda y comparacion a traves del index.

Hay varias formas.


Cita de: Eleкtro en 11 Octubre 2014, 16:34 pm
¿puedes mostrar como sería el resultado.

Saludos

Aca esta un supuesto resultado:
Cita de: luis456
"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"

Saludos.
« Última modificación: 11 Octubre 2014, 17:54 pm por XresH » En línea
[ - Si eres programador y quieres que tus proyectos esten en mi blog(con o sin source), consúltame! - ]
Entra A Mi Blog De Programación | | Dudas en este post :| | >>Clic para ir al Post<<
luis456


Desconectado Desconectado

Mensajes: 548



Ver Perfil
Re: formar combinaciones de 7 y 8 numeros con 25 numeros
« Respuesta #3 en: 11 Octubre 2014, 19:44 pm »
Cita de: Eleкtro en 11 Octubre 2014, 16:34 pm
¿puedes mostrar como sería el resultado.

Saludos

muestra de numeros a combinar
 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
 

 01 09 11 12 14 16 20 24
 01 09 11 12 14 16 20 35
 01 09 11 12 14 16 20 38
 01 09 11 12 14 16 20 40
 01 09 11 12 14 16 20 44
 01 09 11 12 14 16 20 50
 01 09 11 12 14 16 20 58
 01 09 11 12 14 16 20 59
 01 09 11 12 14 16 20 60
 01 09 11 12 14 16 20 68
 01 09 11 12 14 16 20 70 hasta el 99

y después sigue con el segundo numero

09 11 12 14 16 20 24 35
09 11 12 14 16 20 24 38

y haci hasta acabar con todos


Luis
En línea
Que tu sabiduria no sea motivo de Humillacion para los demas
Eleкtro
Ex-Staff
*
Desconectado Desconectado

Mensajes: 9.810



Ver Perfil
Re: formar combinaciones de 7 y 8 numeros con 25 numeros
« Respuesta #4 en: 12 Octubre 2014, 07:25 am »
Código
  1. Public Class Form1
  2.  
  3.     ReadOnly constantValues As New List(Of Integer) From
  4.         {
  5.             1I, 9I, 11, 12, 14, 16, 20, 24, 35, 38,
  6.             40, 44, 50, 58, 59, 60, 68, 70, 77, 80,
  7.             81, 88, 90, 92, 99
  8.         }
  9.  
  10.     Private Shadows Sub Load() Handles MyBase.Load
  11.  
  12.         Dim combinations As New List(Of Integer())
  13.  
  14.         Dim length As Integer = 7
  15.         Dim skipStart As Integer = 0
  16.  
  17.         Do Until skipStart = (constantValues.Count - length)
  18.  
  19.             Dim values As List(Of Integer) = constantValues.GetRange(skipStart, length)
  20.             Dim count As Integer = 0
  21.  
  22.             Do Until count = (constantValues.Count - length - skipStart)
  23.  
  24.                 combinations.Add(values.Concat(constantValues.Skip(skipStart + length + count).Take(1)).ToArray)
  25.                 Debug.WriteLine(String.Join(", ", values.Concat(constantValues.Skip(skipStart + length + count).Take(1)).ToArray))
  26.  
  27.                 count += 1
  28.  
  29.             Loop ' count = (constantValues.Count - length)
  30.  
  31.             skipStart += 1
  32.  
  33.         Loop ' skipStart = (constantValues.Count - length)
  34.  
  35.     End Sub
  36.  
  37. End Class


Output:
Citar
1, 9, 11, 12, 14, 16, 20, 24
1, 9, 11, 12, 14, 16, 20, 35
1, 9, 11, 12, 14, 16, 20, 38
1, 9, 11, 12, 14, 16, 20, 40
1, 9, 11, 12, 14, 16, 20, 44
1, 9, 11, 12, 14, 16, 20, 50
1, 9, 11, 12, 14, 16, 20, 58
1, 9, 11, 12, 14, 16, 20, 59
1, 9, 11, 12, 14, 16, 20, 60
1, 9, 11, 12, 14, 16, 20, 68
1, 9, 11, 12, 14, 16, 20, 70
1, 9, 11, 12, 14, 16, 20, 77
1, 9, 11, 12, 14, 16, 20, 80
1, 9, 11, 12, 14, 16, 20, 81
1, 9, 11, 12, 14, 16, 20, 88
1, 9, 11, 12, 14, 16, 20, 90
1, 9, 11, 12, 14, 16, 20, 92
1, 9, 11, 12, 14, 16, 20, 99

9, 11, 12, 14, 16, 20, 24, 35
9, 11, 12, 14, 16, 20, 24, 38
9, 11, 12, 14, 16, 20, 24, 40
9, 11, 12, 14, 16, 20, 24, 44
9, 11, 12, 14, 16, 20, 24, 50
9, 11, 12, 14, 16, 20, 24, 58
9, 11, 12, 14, 16, 20, 24, 59
9, 11, 12, 14, 16, 20, 24, 60
9, 11, 12, 14, 16, 20, 24, 68
9, 11, 12, 14, 16, 20, 24, 70
9, 11, 12, 14, 16, 20, 24, 77
9, 11, 12, 14, 16, 20, 24, 80
9, 11, 12, 14, 16, 20, 24, 81
9, 11, 12, 14, 16, 20, 24, 88
9, 11, 12, 14, 16, 20, 24, 90
9, 11, 12, 14, 16, 20, 24, 92
9, 11, 12, 14, 16, 20, 24, 99

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

12, 14, 16, 20, 24, 35, 38, 40
12, 14, 16, 20, 24, 35, 38, 44
12, 14, 16, 20, 24, 35, 38, 50
12, 14, 16, 20, 24, 35, 38, 58
12, 14, 16, 20, 24, 35, 38, 59
12, 14, 16, 20, 24, 35, 38, 60
12, 14, 16, 20, 24, 35, 38, 68
12, 14, 16, 20, 24, 35, 38, 70
12, 14, 16, 20, 24, 35, 38, 77
12, 14, 16, 20, 24, 35, 38, 80
12, 14, 16, 20, 24, 35, 38, 81
12, 14, 16, 20, 24, 35, 38, 88
12, 14, 16, 20, 24, 35, 38, 90
12, 14, 16, 20, 24, 35, 38, 92
12, 14, 16, 20, 24, 35, 38, 99

14, 16, 20, 24, 35, 38, 40, 44
14, 16, 20, 24, 35, 38, 40, 50
14, 16, 20, 24, 35, 38, 40, 58
14, 16, 20, 24, 35, 38, 40, 59
14, 16, 20, 24, 35, 38, 40, 60
14, 16, 20, 24, 35, 38, 40, 68
14, 16, 20, 24, 35, 38, 40, 70
14, 16, 20, 24, 35, 38, 40, 77
14, 16, 20, 24, 35, 38, 40, 80
14, 16, 20, 24, 35, 38, 40, 81
14, 16, 20, 24, 35, 38, 40, 88
14, 16, 20, 24, 35, 38, 40, 90
14, 16, 20, 24, 35, 38, 40, 92
14, 16, 20, 24, 35, 38, 40, 99

16, 20, 24, 35, 38, 40, 44, 50
16, 20, 24, 35, 38, 40, 44, 58
16, 20, 24, 35, 38, 40, 44, 59
16, 20, 24, 35, 38, 40, 44, 60
16, 20, 24, 35, 38, 40, 44, 68
16, 20, 24, 35, 38, 40, 44, 70
16, 20, 24, 35, 38, 40, 44, 77
16, 20, 24, 35, 38, 40, 44, 80
16, 20, 24, 35, 38, 40, 44, 81
16, 20, 24, 35, 38, 40, 44, 88
16, 20, 24, 35, 38, 40, 44, 90
16, 20, 24, 35, 38, 40, 44, 92
16, 20, 24, 35, 38, 40, 44, 99

20, 24, 35, 38, 40, 44, 50, 58
20, 24, 35, 38, 40, 44, 50, 59
20, 24, 35, 38, 40, 44, 50, 60
20, 24, 35, 38, 40, 44, 50, 68
20, 24, 35, 38, 40, 44, 50, 70
20, 24, 35, 38, 40, 44, 50, 77
20, 24, 35, 38, 40, 44, 50, 80
20, 24, 35, 38, 40, 44, 50, 81
20, 24, 35, 38, 40, 44, 50, 88
20, 24, 35, 38, 40, 44, 50, 90
20, 24, 35, 38, 40, 44, 50, 92
20, 24, 35, 38, 40, 44, 50, 99

24, 35, 38, 40, 44, 50, 58, 59
24, 35, 38, 40, 44, 50, 58, 60
24, 35, 38, 40, 44, 50, 58, 68
24, 35, 38, 40, 44, 50, 58, 70
24, 35, 38, 40, 44, 50, 58, 77
24, 35, 38, 40, 44, 50, 58, 80
24, 35, 38, 40, 44, 50, 58, 81
24, 35, 38, 40, 44, 50, 58, 88
24, 35, 38, 40, 44, 50, 58, 90
24, 35, 38, 40, 44, 50, 58, 92
24, 35, 38, 40, 44, 50, 58, 99

35, 38, 40, 44, 50, 58, 59, 60
35, 38, 40, 44, 50, 58, 59, 68
35, 38, 40, 44, 50, 58, 59, 70
35, 38, 40, 44, 50, 58, 59, 77
35, 38, 40, 44, 50, 58, 59, 80
35, 38, 40, 44, 50, 58, 59, 81
35, 38, 40, 44, 50, 58, 59, 88
35, 38, 40, 44, 50, 58, 59, 90
35, 38, 40, 44, 50, 58, 59, 92
35, 38, 40, 44, 50, 58, 59, 99

38, 40, 44, 50, 58, 59, 60, 68
38, 40, 44, 50, 58, 59, 60, 70
38, 40, 44, 50, 58, 59, 60, 77
38, 40, 44, 50, 58, 59, 60, 80
38, 40, 44, 50, 58, 59, 60, 81
38, 40, 44, 50, 58, 59, 60, 88
38, 40, 44, 50, 58, 59, 60, 90
38, 40, 44, 50, 58, 59, 60, 92
38, 40, 44, 50, 58, 59, 60, 99

40, 44, 50, 58, 59, 60, 68, 70
40, 44, 50, 58, 59, 60, 68, 77
40, 44, 50, 58, 59, 60, 68, 80
40, 44, 50, 58, 59, 60, 68, 81
40, 44, 50, 58, 59, 60, 68, 88
40, 44, 50, 58, 59, 60, 68, 90
40, 44, 50, 58, 59, 60, 68, 92
40, 44, 50, 58, 59, 60, 68, 99

44, 50, 58, 59, 60, 68, 70, 77
44, 50, 58, 59, 60, 68, 70, 80
44, 50, 58, 59, 60, 68, 70, 81
44, 50, 58, 59, 60, 68, 70, 88
44, 50, 58, 59, 60, 68, 70, 90
44, 50, 58, 59, 60, 68, 70, 92
44, 50, 58, 59, 60, 68, 70, 99

50, 58, 59, 60, 68, 70, 77, 80
50, 58, 59, 60, 68, 70, 77, 81
50, 58, 59, 60, 68, 70, 77, 88
50, 58, 59, 60, 68, 70, 77, 90
50, 58, 59, 60, 68, 70, 77, 92
50, 58, 59, 60, 68, 70, 77, 99

58, 59, 60, 68, 70, 77, 80, 81
58, 59, 60, 68, 70, 77, 80, 88
58, 59, 60, 68, 70, 77, 80, 90
58, 59, 60, 68, 70, 77, 80, 92
58, 59, 60, 68, 70, 77, 80, 99

59, 60, 68, 70, 77, 80, 81, 88
59, 60, 68, 70, 77, 80, 81, 90
59, 60, 68, 70, 77, 80, 81, 92
59, 60, 68, 70, 77, 80, 81, 99

60, 68, 70, 77, 80, 81, 88, 90
60, 68, 70, 77, 80, 81, 88, 92
60, 68, 70, 77, 80, 81, 88, 99

68, 70, 77, 80, 81, 88, 90, 92
68, 70, 77, 80, 81, 88, 90, 99

70, 77, 80, 81, 88, 90, 92, 99

Saludos.
« Última modificación: 12 Octubre 2014, 07:27 am por Eleкtro » En línea
luis456


Desconectado Desconectado

Mensajes: 548



Ver Perfil
Re: formar combinaciones de 7 y 8 numeros con 25 numeros
« Respuesta #5 en: 12 Octubre 2014, 10:09 am »
Gracias elektro

si funciona como queria esta genial :) ahora estoy tratando de mostrarlo en un listbox pero no me sale, ademas de que tengo que cambiar o introducir  los valores de  " constantValues" los números a mano a través de texbox pero eso creo resolverlo jejej


Código
  1. Public Class Form1
  2.  
  3.     ReadOnly constantValues As New List(Of Integer) From
  4.         {
  5.             1I, 9I, 11, 12, 14, 16, 20, 24, 35, 38,
  6.             40, 44, 50, 58, 59, 60, 68, 70, 77, 80,
  7.             81, 88, 90, 92, 99
  8.         }
  9.  
  10.     Private Shadows Sub Load() Handles MyBase.Load
  11.  
  12.         Dim combinations As New List(Of Integer())
  13.  
  14.         Dim length As Integer = 7
  15.         Dim skipStart As Integer = 0
  16.  
  17.         Do Until skipStart = (constantValues.Count - length)
  18.  
  19.             Dim values As List(Of Integer) = constantValues.GetRange(skipStart, length)
  20.             Dim count As Integer = 0
  21.  
  22.             Do Until count = (constantValues.Count - length - skipStart)
  23.  
  24.                 combinations.Add(values.Concat(constantValues.Skip(skipStart + length + count).Take(1)).ToArray)
  25.                 Debug.WriteLine(String.Join(", ", values.Concat(constantValues.Skip(skipStart + length + count).Take(1)).ToArray))
  26.  
  27.                 count += 1
  28.  
  29.             Loop ' count = (constantValues.Count - length)
  30.  
  31.             skipStart += 1
  32.  
  33.         Loop ' skipStart = (constantValues.Count - length)
  34.  
  35.         ListBox1.Items.AddRange(????????.Cast(Of Object).ToArray) <-----no y no
  36.  
  37.     End Sub
  38.  
  39. End Class
  40.  


saludos
Luis
En línea
Que tu sabiduria no sea motivo de Humillacion para los demas
luis456


Desconectado Desconectado

Mensajes: 548



Ver Perfil
Re: formar combinaciones de 7 y 8 numeros con 25 numeros
« Respuesta #6 en: 12 Octubre 2014, 16:28 pm »
AAAA GGGG no puedo pasarlo a un listbox ? he probado con todas las variables y nada

luis
En línea
Que tu sabiduria no sea motivo de Humillacion para los demas
Eleкtro
Ex-Staff
*
Desconectado Desconectado

Mensajes: 9.810



Ver Perfil
Re: formar combinaciones de 7 y 8 numeros con 25 numeros
« Respuesta #7 en: 12 Octubre 2014, 20:08 pm »
Cita de: luis456 en 12 Octubre 2014, 16:28 pm
AAAA GGGG no puedo pasarlo a un listbox ? he probado con todas las variables y nada

Hace poco tuviste el mismo problema, como añadir una lista a un listbox... y te mostré la solución, de hecho se supone que ese código lo utilizaste para tu aplicación de los números así que no entiendo como puedes tener el mismo problema por segunda vez,
yo no estoy dispuesto a hacerle el trabajo a alguien para que ni me escuche ni aprenda, puedes buscar entre tus publicaciones en el foro y/o en tus códigos del pasado y hallarás la solución al problema.

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


Desconectado Desconectado

Mensajes: 548



Ver Perfil
Re: formar combinaciones de 7 y 8 numeros con 25 numeros
« Respuesta #8 en: 13 Octubre 2014, 04:44 am »
Tu creees que no he estado en ello :) el ejemplo que me dices es este ,pero de verdad que no logro hacerlo andar


Código
  1.  combinations.ForEach(Sub(comb As List(Of Integer))
  2.  
  3.                            ' Convierto la Lista a 'String', le añado los ceros, y añado el string formateado al Listbox.
  4.                            ListBox1.Items.Add(String.Join(", ",
  5.                                                           From value As String In comb
  6.                                                           Select If(value.Length = 1I,
  7.                                                                     value.Insert(0I, "0"c),
  8.                                                                     value)))
  9.                            ListBox1.Sorted = True



luis
En línea
Que tu sabiduria no sea motivo de Humillacion para los demas
luis456


Desconectado Desconectado

Mensajes: 548



Ver Perfil
Re: formar combinaciones de 7 y 8 numeros con 25 numeros
« Respuesta #9 en: 13 Octubre 2014, 13:57 pm »
Otra ves al ataque :) bien tratando con los ejemplos que me diste la otra ves y no doy pie con bola he cambiado todas las variables y nada no me aclaro cual es la que debo mostrar en el listbox


Código
  1.  Dim combinations As New List(Of Integer()) <---creo esta es la que tiene las combis
  2. Dim length As Integer = 7 <----------esta es la determina las cantidad
  3. Dim skipStart As Integer = 0 <----------NPI
  4.  
  5.  
  6.  
  7. Estos son las  formas que me enseñaste 
  8.  
  9. Combos.ForEach(Sub(comb As List(Of Integer))
  10.                            ListBox1.Items.Add(String.Join(", ", comb))
  11.                        End Sub)
  12.  
  13. ---------------------------------------------------------------------------
  14.  
  15.  
  16.  ListBox1.Items.AddRange(
  17.             (From comb As List(Of Integer) In Combos
  18.              Select String.Join(", ", comb)).ToArray
  19.          )
  20.  
  21.  
  22.  
  23. -------------------------------------------------------------------------------------
  24.  
  25.  Combos.ForEach(Sub(comb As List(Of Integer))
  26.  
  27.                            ' Convierto la Lista a 'String', le añado los ceros, y añado el string formateado al Listbox.
  28.                            ListBox1.Items.Add(String.Join(", ",
  29.                                                           From value As String In comb
  30.                                                           Select If(value.Length = 1I,
  31.                                                                     value.Insert(0I, "0"c),
  32.                                                                     value)))
  33.  
  34.                        End Sub)
En línea
Que tu sabiduria no sea motivo de Humillacion para los demas
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 5,649 Último mensaje 21 Mayo 2010, 23:45 pm
por Shell Root
Combinaciones con 54 numeros
.NET (C#, VB.NET, ASP) 		mr_marley 3 9,267 Ú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 28,764 Último mensaje 15 Julio 2012, 18:26 pm
por DickGumshoe
Combinaciones letras o numeros « 1 2 »
.NET (C#, VB.NET, ASP) 		luis456 11 8,457 Ú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 18,826 Último mensaje 28 Septiembre 2014, 16:13 pm
por luis456
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines