Foro de elhacker.net

Programación => .NET (C#, VB.NET, ASP) => Mensaje iniciado por: luis456 en 23 Marzo 2016, 11:45 am



Título: Mas problemas :( filtrar o eliminar registros iguales
Publicado por: luis456 en 23 Marzo 2016, 11:45 am
Esto no acaba nunca :(

Esto ya funciona pero me repite las combinaciones y necesito números o combinaciones únicas ya que  1, 2, 3 es lo mismo que  3, 2, 1 o  2, 1, 3... solo debe quedar uno de ellos
he probado con poner " .Distinct().ToArray " pero como siempre :(

Código
  1. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  2.        Dim intCol As IEnumerable(Of Integer) = {20, 24, 34, 37}
  3.  
  4.        Dim pairsCol As IEnumerable(Of String) =
  5.            From value1 As Integer In intCol
  6.            From value2 As Integer In intCol
  7.            Select String.Join(Environment.NewLine, (
  8.                               From value3 As Integer In intCol
  9.                               Where (value1 <> value2) AndAlso
  10.                                     (value1 <> value3) AndAlso
  11.                                     (value2 <> value3)
  12.                               Select String.Format("{0:00}, {1:00}, {2:00}",
  13.                                                    value1, value2, value3)))
  14.  
  15.  
  16.  
  17.        For Each pairs As String In pairsCol
  18.  
  19.  
  20.            For Each line As String In pairs.Split({Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries).Distinct().ToArray
  21.                ' MsgBox(pairs.Count)
  22.                ' MsgBox(line.Count)
  23.  
  24.                Me.ListBox1.Items.Add(line)
  25.            Next line
  26.  
  27.        Next pairs
  28.  
  29.  
  30.    End Sub

salida

20, 24, 34***
20, 24, 37
20, 34, 24***
20, 34, 37
20, 37, 24
20, 37, 34****
24, 20, 34
24, 20, 37
24, 34, 20
24, 34, 37
24, 37, 20
24, 37, 34
34, 20, 24
34, 20, 37
34, 24, 20***
34, 24, 37
34, 37, 20
34, 37, 24
37, 20, 24****
37, 20, 34
37, 24, 20
37, 24, 34
37, 34, 20
37, 34, 24

si os dais cuenta las combinaciones se repiten pero con el orden de los numeros cambiados como podria dejar solo una de ellas ???

Luis


 


Título: Re: Mas problemas :( filtrar o eliminar registros iguales
Publicado por: Eleкtro en 23 Marzo 2016, 14:22 pm
Código:
20, 24, 34
20, 34, 24
34, 24, 20

Yo no veo ninguna repetición, tecnicamente son combinaciones distintas.

Muestra la lista completa del resultado que obtienes, y la lista completa del resultado que esperas obtener, sino esto no hay quien lo entienda ya!.


Título: Re: Mas problemas :( filtrar o eliminar registros iguales
Publicado por: luis456 en 23 Marzo 2016, 15:03 pm
Bueno aca esta la lista completa como me lo entrega ahora .esto esta haciedo permutaciones pero no quiero modificar el codigo ya que le tengo otras ideas jejej
solamente quiero dejar una combinacion de cada uno.esto es quitar toda cambinaciones que tengan o coincidan los mismos tres numeros en diferente orden.

ideas pasar esta lista a una variable donde elimine antes de mostrar en el listbox .


ahora esta es la salida como me la muestra.

20, 24, 34
20, 24, 37
20, 34, 24
20, 34, 37
20, 37, 24
20, 37, 34
24, 20, 34
24, 20, 37
24, 34, 20
24, 34, 37
24, 37, 20
24, 37, 34
34, 20, 24
34, 20, 37
34, 24, 20
34, 24, 37
34, 37, 20
34, 37, 24
37, 20, 24
37, 20, 34
37, 24, 20
37, 24, 34
37, 34, 20
37, 34, 24


quiero ir eliminando las combinaciones iguales porque si se mira bien. veras que hay combinaciones que son iguales. solo que cambian las posiciones de los números.


debería quedar asi
20, 24, 34
20, 24, 37
20, 34, 37
24, 34, 37



Luis


Título: Re: Mas problemas :( filtrar o eliminar registros iguales
Publicado por: Eleкtro en 23 Marzo 2016, 15:05 pm
De todas formas, tengo una sorpresita para ti.

Ayer te mencioné lo del desarrollo de la función de permutaciones (ya no se si quieres combinaciones o permutaciones, pero esto viene al caso igualmente),
al final he acabado haciendo un puerto para Vb.Net de la librería Combinatronics, la cual tiene un código fuente que es una delicia:
  • https://github.com/eoincampbell/combinatorics

Aun no he terminado de finalizar el código fuente, pero igualmente puedes usar ese en C#. Solo tienes que descargarlo desde GitHub y compilarlo en Visual Studio, se generará una librería "Combinatronics.dll", referencias esa dll en tu proyecto de Vb.Net, y listo.

Modo de empleo:
Código
  1. Dim permutations As New Permutations(Of Integer)({3, 1, 10}, MetaCollectionType.WithoutRepetition)
  2.  
  3. MsgBox(String.Format("Permutaciones: {0}", permutations.Count))
  4.  
  5. For Each permutation As List(Of Integer) In permutations
  6.    Console.WriteLine(String.Join(", ", permutation))
  7. Next permutation

PD: Si esto no resuelve los problemas con combinaciones/permutaciones ...yo no se que más puedes necesitar ya xD.

Saludos!


Título: Re: Mas problemas :( filtrar o eliminar registros iguales
Publicado por: luis456 en 23 Marzo 2016, 15:15 pm
De todas formas, tengo una sorpresita para ti.

Ayer te mencioné lo del desarrollo de la función de permutaciones (ya no se si quieres combinaciones o permutaciones, pero esto viene al caso igualmente),
al final he acabado haciendo un puerto para Vb.Net de la librería Combinatronics, la cual tiene un código fuente que es una delicia:
  • https://github.com/eoincampbell/combinatorics

Aun no he terminado de finalizar el código fuente, pero igualmente puedes usar ese en C#. Solo tienes que descargarlo desde GitHub y compilarlo en Visual Studio, se generará una librería "Combinatronics.dll", referencias esa dll en tu proyecto de Vb.Net, y listo.

Modo de empleo:
Código
  1. Dim permutations As New Permutations(Of Integer)({3, 1, 10}, MetaCollectionType.WithoutRepetition)
  2.  
  3. MsgBox(String.Format("Permutaciones: {0}", permutations.Count))
  4.  
  5. For Each permutation As List(Of Integer) In permutations
  6.    Console.WriteLine(String.Join(", ", permutation))
  7. Next permutation

PD: Si esto no resuelve los problemas con combinaciones/permutaciones ...yo no se que más puedes necesitar ya xD.

Saludos!


Gracias por tu tiempo y GRAN PACIENCIA jejejje lo que necesito es crear un sistema de Combinaciones pero no busco lo normal jejejje busco algo diferente pero en combinaciones únicas ya que codigos de combinaciones hay miles pero son lo basico y normal jejje con eso no se llega a donde quiero ir   ::) , las permutas no me valen para lo que busco :( te puse lo que me gustaría poder hacer a ver si se puede, sin modificar la funcion del codigo ,solo en el resultado


Luis





Título: Re: Mas problemas :( filtrar o eliminar registros iguales
Publicado por: luis456 en 23 Marzo 2016, 22:54 pm
Ya me canse jejej ,,de revizar todos mis códigos  y parte de google todo el dia :(

alguna idea ? que me pueda servir



Título: Re: Mas problemas :( filtrar o eliminar registros iguales
Publicado por: crack81 en 23 Marzo 2016, 23:40 pm
puedes detallar un poco mas lo que quieres hacer?


Título: Re: Mas problemas :( filtrar o eliminar registros iguales
Publicado por: luis456 en 24 Marzo 2016, 11:01 am
puedes detallar un poco mas lo que quieres hacer?

Bueno analizando el problema , lo que quiero es ordenar los registros y eliminar los coincidentes

ahora me los entrega de esta forma desordenado deberian estar por oden de menor a mayor

20, 24, 34
20, 24, 37
20, 34, 24
20, 34, 37


para poder eliminar iguales se debería de ordenar primero el orden de los registros

20, 24, 34
20, 24, 37
20, 24, 34*********
20, 34, 37*********

Para eliminar los que están marcados con *


Código
  1. For Each pairs As String In pairsCol
  2.  
  3.  
  4.            For Each line As String In pairs.Split({Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries).Distinct().ToArray
  5.                ' MsgBox(pairs.Count)
  6.                ' MsgBox(line.Count)
  7.  
  8.                Me.ListBox1.Items.Add(line)
  9.            Next line
  10.  
  11.        Next pairs

Estoy tratado de convertir la variable antes de llenar el testbox

Pero cuando trato de hacerlo con (Line) me dice error

"Ya no se admiten instrucciones 'Line'." ???? 

 estoy mas enredado  :silbar:

Luis



Título: Re: Mas problemas :( filtrar o eliminar registros iguales
Publicado por: Lekim en 24 Marzo 2016, 13:56 pm
Hola Luis

Ya te comenté lo de meter la lista en un Array list:

Código
  1.        Dim Elementos() As String = {1, 2, 3, 3, 3, 4, 4, 5}
  2.        Dim LISTA As New List(Of String)(Elementos)
  3.  
  4.  
  5.        MsgBox("Con repeticiones")
  6.        For Each N As String In LISTA
  7.            ListBox1.Items.Add(N)
  8.        Next
  9.  
  10.        MsgBox("Sin repeticiones")
  11.        ListBox1.Items.Clear()
  12.        LISTA = LISTA.Distinct.ToList '<---Elimina las repeticones de la lista
  13.        For Each N As String In LISTA
  14.            ListBox1.Items.Add(N)
  15.        Next
  16.  
  17.  


Con integer:

Código
  1.        Dim Elementos() As Integer = {1, 2, 3, 3, 3, 4, 4, 5}
  2.        Dim LISTA As New List(Of Integer)(Elementos)
  3.  
  4.  
  5.        MsgBox("Con repeticiones")
  6.        For Each N As String In LISTA
  7.            ListBox1.Items.Add(N)
  8.        Next
  9.  
  10.        MsgBox("Sin repeticiones")
  11.        ListBox1.Items.Clear()
  12.        LISTA = LISTA.Distinct.ToList '<---Elimina las repeticones de la lista
  13.        For Each N As String In LISTA
  14.            ListBox1.Items.Add(N)
  15.        Next


Título: Re: Mas problemas :( filtrar o eliminar registros iguales
Publicado por: luis456 en 25 Marzo 2016, 09:49 am
Hola Luis

Ya te comenté lo de meter la lista en un Array list:

Código
  1.        Dim Elementos() As String = {1, 2, 3, 3, 3, 4, 4, 5}
  2.        Dim LISTA As New List(Of String)(Elementos)
  3.  
  4.  
  5.        MsgBox("Con repeticiones")
  6.        For Each N As String In LISTA
  7.            ListBox1.Items.Add(N)
  8.        Next
  9.  
  10.        MsgBox("Sin repeticiones")
  11.        ListBox1.Items.Clear()
  12.        LISTA = LISTA.Distinct.ToList '<---Elimina las repeticones de la lista
  13.        For Each N As String In LISTA
  14.            ListBox1.Items.Add(N)
  15.        Next
  16.  
  17.  


Con integer:

Código
  1.        Dim Elementos() As Integer = {1, 2, 3, 3, 3, 4, 4, 5}
  2.        Dim LISTA As New List(Of Integer)(Elementos)
  3.  
  4.  
  5.        MsgBox("Con repeticiones")
  6.        For Each N As String In LISTA
  7.            ListBox1.Items.Add(N)
  8.        Next
  9.  
  10.        MsgBox("Sin repeticiones")
  11.        ListBox1.Items.Clear()
  12.        LISTA = LISTA.Distinct.ToList '<---Elimina las repeticones de la lista
  13.        For Each N As String In LISTA
  14.            ListBox1.Items.Add(N)
  15.        Next


Hola y gracias ,bueno esto solo funciona con la cadena propia que me muestras

Código
  1. Dim Elementos() As String = {1, 2, 3, 3, 3, 4, 4, 5}
  2.        Dim LISTA As New List(Of String)(Elementos)
  3.  


 y yo busco es aplicarlo a los resultados que me da :

Código
  1.  For Each pairs As String In pairsCol
  2.  
  3.  
  4.            For Each line As String In pairs.Split({Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries).Distinct().ToArray
  5.                ' MsgBox(pairs.Count)
  6.                ' MsgBox(line.Count)
  7.  
  8.                Me.ListBox1.Items.Add(line)
  9.            Next line
  10.  
  11.        Next pairs


Donde se supone que los datos dentro del listbox es LINE el cual no encuentro la manera de pasarlos a un array y ya he probado de todo ;(

Luis





Título: Re: Mas problemas :( filtrar o eliminar registros iguales
Publicado por: Lekim en 25 Marzo 2016, 15:27 pm
Chacho, por correo privado ya te contesté. ¿Dónde ves tú que aquí se repitan?

Código
  1.        Dim Elementos As IEnumerable(Of Integer) = {1, 3, 4, 5, 6}
  2.        Dim EleX As Integer = 0
  3.        Dim EleX2 As Integer = 0
  4.        ListBox1.Items.Clear() 'Limpia el ListBox
  5.        For I1 As Integer = 0 To Elementos.Count - 1 : EleX += 1
  6.            For I2 As Integer = EleX To Elementos.Count - 1
  7.                For I3 As Integer = EleX To Elementos.Count - 1
  8.                    If Elementos(I2) <> Elementos(I3) And Elementos(I3) > Elementos(I2) Then
  9.                        ListBox1.Items.Add(String.Format("{0:00}, {1:00}, {2:00}", Elementos(I1), Elementos(I2), Elementos(I3)))
  10.                    End If
  11.  
  12.                Next
  13.            Next
  14.        Next
  15.        MessageBox.Show("Combinaciones: " & ListBox1.Items.Count)


Código:
01, 03, 04
01, 03, 05
01, 03, 06
01, 04, 05
01, 04, 06
01, 05, 06
03, 04, 05
03, 04, 06
03, 05, 06
04, 05, 06



Bueno, y está..el de 3

Lo que tengo una duda respecto a como quieres combinarlos, ya que hay muchas posibilidades. Te aconsejo, cuando preguntes aquí en el foro que especifiques bien las condiciones, más que nada para ahorrarte tener que volver a preguntar y trabajo y tiempo perdido para los demás.

POSIBILIDADES DE COMBINAR DE TRES EN TRES:
Combinarlos de modos que el segundo y el tercero de  puedan repetir
1,2,2
1,2,3
1,2,4

Igual  y que  tercero pueda ser MENOR que el segundo.
...
1, 3, 2
1, 3, 3
1, 3, 4

Que el segundo y que el tercero no puedan ser iguales
...
1, 3, 2
1, 3, 4

1, 3, 5


Que el segundo y el tercero no puedan ser iguales y el tercero no pueda ser menor que el segundo
1, 2 ,3
1, 2, 4
1, 3, 4
1, 3, 5
2, 3, 4


CÓDIGO:
OPCIÓN 1: Permite el tercero menor que el segundo y que tercero y segundo sena iguales

Código
  1.    Dim Elementos As IEnumerable(Of Integer) = {1, 3, 4, 5, 8, 13, 34, 55, 84, 99}
  2.        Dim EleX As Integer = 0
  3.        Dim EleX2 As Integer = 0
  4.        ListBox1.Items.Clear() 'Limpia el ListBox
  5.        For I1 As Integer = 0 To Elementos.Count - 1 : EleX += 1
  6.            For I2 As Integer = EleX To Elementos.Count - 1
  7.                For I3 As Integer = EleX - 1 To Elementos.Count - 1
  8.                    ListBox1.Items.Add(String.Format("{0:00}, {1:00}, {2:00}", Elementos(I1), Elementos(I2), Elementos(I3)))
  9.                Next
  10.            Next
  11.        Next
  12.        MessageBox.Show("Combinaciones: " & ListBox1.Items.Count)
  13.  

OPCIÓN 2: No permite segundo y tercero sean iguales pero si que el tercero sea menor que el segundo.

Código
  1.        Dim Elementos As IEnumerable(Of Integer) = {1, 3, 4, 5, 8, 13, 34, 55, 84, 99}
  2.        Dim EleX As Integer = 0
  3.        Dim EleX2 As Integer = 0
  4.        ListBox1.Items.Clear() 'Limpia el ListBox
  5.        For I1 As Integer = 0 To Elementos.Count - 1 : EleX += 1
  6.            For I2 As Integer = EleX To Elementos.Count - 1
  7.                For I3 As Integer = EleX - 1 To Elementos.Count - 1
  8.                    If Elementos(I2) <> Elementos(I3) Then
  9.                        ListBox1.Items.Add(String.Format("{0:00}, {1:00}, {2:00}", Elementos(I1), Elementos(I2), Elementos(I3)))
  10.                    End If
  11.  
  12.                Next
  13.            Next
  14.        Next
  15.        MessageBox.Show("Combinaciones: " & ListBox1.Items.Count)
  16.  
  17.  
  18.  

OPCIÓN 3: No permite que el segundo y el tercero sean iguales, ni tampoco que el tercero sea menor que el segundo.

Código
  1.        Dim Elementos As IEnumerable(Of Integer) = {1, 3, 4, 5, 8, 13, 34, 55, 84, 99}
  2.        Dim EleX As Integer = 0
  3.        Dim EleX2 As Integer = 0
  4.        ListBox1.Items.Clear() 'Limpia el ListBox
  5.        For I1 As Integer = 0 To Elementos.Count - 1 : EleX += 1
  6.            For I2 As Integer = EleX To Elementos.Count - 1
  7.                For I3 As Integer = EleX To Elementos.Count - 1
  8.                    If Elementos(I2) <> Elementos(I3) And Elementos(I3) > Elementos(I2) Then
  9.                        ListBox1.Items.Add(String.Format("{0:00}, {1:00}, {2:00}", Elementos(I1), Elementos(I2), Elementos(I3)))
  10.                    End If
  11.  
  12.                Next
  13.            Next
  14.        Next
  15.        MessageBox.Show("Combinaciones: " & ListBox1.Items.Count)
  16.  
  17.  

Creo que no hay errores  :silbar:

Si eso me lo cuentas

S2s



Se llaman Combinaciones SIN REPETICIÓN y en combinatoria se puede simbolizar así:

Código:
C m,n

y la fórmula para determinar el número de combinaciones:
                    m!
C m,n =  ___________
                n! · ( m-n)!


donde m! es el factorial del número total de elementos
y n un número de elementos de cada grupo

Consiste por ejemplo en realizar con un determinado grupo de elementos E={A,B,C,D,E} grupos de 3 en 3 y sin repetición. Si hay ABC, no vale BCA, ni tampoco AAA o ABB.

Si m=[A,B,C,D,E]  = 5 elementos
n= grupos de 3 en 3

                      5!
C 5,3 =  ___________ = 10 combinaciones
                3! · ( 5-3)!


Código:
ABC
ABD
ABE
ACE
.....


          
Código
  1. Dim Elementos As IEnumerable(Of Integer) = {1, 2, 3, 4, 5}
  2.        Dim EleX As Integer = 0
  3.        Dim EleX2 As Integer = 0
  4.        ListBox1.Items.Clear() 'Limpia el ListBox
  5.        For I1 As Integer = 0 To Elementos.Count - 1 : EleX += 1
  6.            For I2 As Integer = EleX To Elementos.Count - 1
  7.                For I3 As Integer = EleX To Elementos.Count - 1
  8.                    If Elementos(I2) <> Elementos(I3) And Elementos(I3) > Elementos(I2) Then
  9.                        ListBox1.Items.Add(String.Format("{0:00}, {1:00}, {2:00}", Elementos(I1), Elementos(I2), Elementos(I3)))
  10.                    End If
  11.  
  12.                Next
  13.            Next
  14.        Next
  15.        MessageBox.Show("Combinaciones: " & ListBox1.Items.Count)


Como ves salen 10


En la primitiva te saldrían ni más ni menos que......

49!/(6!·(49 - 6)!)= 13.983.816

Ya que en la primitiva da igual 14, 5 ,25 que  5, 14 ,25. Las bolas salen en un orden pero luego se ordenan, y no pueden volver a salir repetidas porque todas están en el mismo bombo.

Como ya te dije son casi 14 millones de combinaciones... :xD



Título: Re: Mas problemas :( filtrar o eliminar registros iguales
Publicado por: luis456 en 25 Marzo 2016, 18:00 pm
Jjejeje no se cuando aprendí hablar chino  ;D ;D ;D  我不明白的貓

A ver lekim estoy usando este código, los tuyos los tengo reservados a otros proyecto que se me ocurren por cierto me parecen estupendos ,pero estoy usando el código de Elektro este código me entrega los números a si. y

supongamos que voy a jugar a la lotería  :silbar: .como dices son no se cuantos millones de apuestas pero te equivocas en la primitiva ahora son mas millones ya ahora es 6+complementario eso te multiplica la ostia  :o

Para que necesito hacer apuestas donde los números se repiten ? estaríamos formando realmente apuestas iguales si ordenamos los números de cada linea  de menor a mayor.veremos que se repiten muchos registros por ende. es lo que quiero eliminar todos los que tienen asterisco ya que son combinaciones iguales pero en diferente orden

asi es como me entrega AHORA este codigo los resultados

20, 24, 34***
20, 24, 37
20, 34, 24***
20, 34, 37
20, 37, 24
20, 37, 34****
24, 20, 34
24, 20, 37
24, 34, 20
24, 34, 37
24, 37, 20
24, 37, 34
34, 20, 24
34, 20, 37
34, 24, 20***
34, 24, 37
34, 37, 20
34, 37, 24
37, 20, 24****
37, 20, 34
37, 24, 20
37, 24, 34
37, 34, 20
37, 34, 24


Simplemente quiero dejar números, registros o lineas únicas


Código
  1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  2.        Dim intCol As IEnumerable(Of Integer) = {20, 24, 34, 44, 45}
  3.  
  4.        Dim pairsCol As IEnumerable(Of String) =
  5.            From value1 As Integer In intCol
  6.            From value2 As Integer In intCol
  7.            Select String.Join(Environment.NewLine, (
  8.                               From value3 As Integer In intCol
  9.                               Where (value1 <> value2) AndAlso
  10.                                     (value1 <> value3) AndAlso
  11.                                     (value2 <> value3)
  12.                               Select String.Format("{0:00}, {1:00}, {2:00}",
  13.                                                    value1, value2, value3)))
  14.  
  15.  
  16.        For Each pairs As String In pairsCol
  17.  
  18.  
  19.            For Each line As String In pairs.Split({Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries)
  20.                ' MsgBox(pairs.Count)
  21.                ' MsgBox(line1.Count)
  22.  
  23.                Me.ListBox1.Items.Add(line)
  24.  
  25.            Next line
  26.  
  27.        Next pairs


Luis


Título: Re: Mas problemas :( filtrar o eliminar registros iguales
Publicado por: Lekim en 25 Marzo 2016, 18:11 pm
Bueno esto es como la once que le han puesto lo de los números de serie, pero en lo básico es 100000 números, luego tienes + el número de serie y todas las jodidos 'TIMOJUEGOS' que se les ocurra.

Realmente no me queda lo claro lo que quieres,  :-\. Pero mientras escribías hice este código a ver si te sirve.

Crea los seis números de la Primitiva, sin repetir y en orden de numeración con la función GetCombPrimitiva . Además crea tantas combinaciones como quieras hacer y SIN REPETIR, establecido en NumCombinaciones

Si hay algún fallo pues que alguien lo digo o lo arregle jaja

GENERADOR DE COMBINACIONES DEL LA PRIMITIVA
Código
  1. Public Class Form1
  2.  
  3.    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  4.  
  5.        Dim ListaComb As New List(Of String)         '//Lista de combinaciones
  6.        Dim NumCombinaciones As Integer = 5
  7.        Dim NewComb As String
  8.        ListaComb.Clear()
  9.        For B1 As Integer = 1 To NumCombinaciones
  10.            While ListaComb.Count < NumCombinaciones
  11.                NewComb = GetCombPrimitiva()
  12.                ListaComb.Add(NewComb)
  13.                ListaComb = ListaComb.Distinct.ToList
  14.                My.Application.DoEvents()
  15.            End While
  16.        Next B1
  17.  
  18.        ListBox1.Items.Clear()
  19.        For Each Elem As String In ListaComb
  20.            ListBox1.Items.Add(Elem)
  21.        Next
  22.    End Sub
  23.  
  24.    Public Function GetCombPrimitiva() As String
  25.        Dim Bombo As New List(Of Integer)           '//Bombo para meter las bolas
  26.        Dim Fila As New List(Of Integer)            '//Fila virtual para poner las bolas en orden
  27.        Dim Combinación As String = Nothing
  28.        Dim NumRandom As New Random
  29.        '//Llena el bombo
  30.        For Bolas As Integer = 1 To 49
  31.            Bombo.Add(Bolas)
  32.        Next
  33.  
  34.        '//Extrae las bolas
  35.        For Index As Integer = 1 To 6
  36.            '//Devuelve números del 0 a 48 (49 números, Bola(0): contiene 1, Bola(1): Bolcontiene 2 ...)
  37.            Dim Bola As Integer = NumRandom.Next(0, Bombo.Count)
  38.            '//Mete la bola en la "fila"
  39.            Fila.Add(Bombo(Bola))
  40.            '//Quita la bola obtenida del bombo
  41.            Bombo.RemoveAt(Bola)
  42.        Next
  43.        Fila.Sort() 'Ordena la fila de bolas
  44.        For Each Bola As Integer In Fila
  45.            Combinación += String.Format("{0:00} ", Bola)
  46.        Next
  47.        Return Combinación
  48.    End Function
  49.  
  50. End Class


Por cierto que si Elektro no te lo ha resuelto ya es que no se puede  :xD

Además que lo que pides ya lo he puesto yo, creo , pero tu te has empeñado en usar este código:

Código
  1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  2.        Dim intCol As IEnumerable(Of Integer) = {20, 24, 34, 44, 45}
  3.  
  4.        Dim pairsCol As IEnumerable(Of String) =
  5.            From value1 As Integer In intCol
  6.            From value2 As Integer In intCol
  7.            Select String.Join(Environment.NewLine, (
  8.                               From value3 As Integer In intCol
  9.                               Where (value1 <> value2) AndAlso
  10.                                     (value1 <> value3) AndAlso
  11.                                     (value2 <> value3)
  12.                               Select String.Format("{0:00}, {1:00}, {2:00}",
  13.                                                    value1, value2, value3)))
  14.  
  15.  
  16.        For Each pairs As String In pairsCol
  17.  
  18.  
  19.            For Each line As String In pairs.Split({Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries)
  20.                ' MsgBox(pairs.Count)
  21.                ' MsgBox(line1.Count)
  22.  
  23.                Me.ListBox1.Items.Add(line)
  24.  
  25.            Next line
  26.  
  27.        Next pairs

y quieres quitar repeticiones... este código ya está hecho para crear las combinaciones así, tendrías que cambiar las condiciones o añadir más código para ir leyendo línea tras línea y comprando para ir eliminado, un rollo  :-X

Sinceramente, no se como hacerlo usando ese código  :¬¬. Yo ta te lo hice. Parece que hablo chino yo jaja. Hasta he dado clases de combinatoria que más quieres XD


Título: Re: Mas problemas :( filtrar o eliminar registros iguales
Publicado por: luis456 en 25 Marzo 2016, 18:26 pm
Joder estas empeñado con lo imposible jejej

Sinceramente, no se como hacerlo usando ese código  :¬¬. Yo ta te lo hice. Parece que hablo chino yo jaja. Hasta he dado clases de combinatoria que más quieres XD

Si lo que nesecito no es modificar el codigo. es eliminar en el listbox los numeros o lineas repetidas ........como ufff se me seca la lengua jajajja no me interesa modificar el codigo

voy corriendo a probar este codigo de la primi  a ver si tengo mas suerte que aca JAJAJJA

gracias :) por tu paciencia

Luis 


Título: Re: Mas problemas :( filtrar o eliminar registros iguales
Publicado por: Lekim en 25 Marzo 2016, 18:29 pm

Si lo que nesecito no es modificar el codigo. es eliminar en el listbox los numeros o lineas repetidas ........como ufff se me seca la lengua jajajja no me interesa modificar el codigo

gracias :) por tu paciencia

Luis  

ahí está compi, para hacer eso cambias el código o usas el que ya te di uno usando For Next o añades más còdigo para quitar las repeticones lo cual es un royo. Por eso te digo que si yo ya he puesto un código que hace esto mismo porque te empeñas en usar este XD


Título: Re: Mas problemas :( filtrar o eliminar registros iguales
Publicado por: luis456 en 25 Marzo 2016, 18:40 pm
ahí está compi, para hacer eso cambias el código o usas el que ya te di uno usando For Next o añades más còdigo para quitar las repeticones lo cual es un royo. Por eso te digo que si yo ya he puesto un código que hace esto mismo porque te empeñas en usar este XD

Ya puse tu codigo de la primitiva a rular a ver si ganamos jejejje   ;-) ,bueno en serio ,olvidate del codigo, solo imagina que tenemos el listbox y hay que eliminar como comento tan dificil es ???

Luis


Título: Re: Mas problemas :( filtrar o eliminar registros iguales
Publicado por: Lekim en 25 Marzo 2016, 19:01 pm
Amos a ver

¿Y esto que es lo que hace?

Código
  1.        Dim Elementos As IEnumerable(Of Integer) = {20, 24, 34, 44, 45}
  2.        Dim EleX As Integer = 0
  3.        Dim EleX2 As Integer = 0
  4.        ListBox1.Items.Clear() 'Limpia el ListBox
  5.        For I1 As Integer = 0 To Elementos.Count - 1 : EleX += 1
  6.            For I2 As Integer = EleX To Elementos.Count - 1
  7.                For I3 As Integer = EleX To Elementos.Count - 1
  8.                    If Elementos(I2) <> Elementos(I3) And Elementos(I3) > Elementos(I2) Then
  9.                        ListBox1.Items.Add(String.Format("{0:00}, {1:00}, {2:00}", Elementos(I1), Elementos(I2), Elementos(I3)))
  10.                    End If
  11.  
  12.                Next
  13.            Next
  14.        Next
  15.        MessageBox.Show("Combinaciones: " & ListBox1.Items.Count)


20, 24, 34
20, 24, 44
20, 24, 45
20, 34, 44
20, 34, 45
20, 44, 45
24, 34, 44
24, 34, 45
24, 44, 45
34, 44, 45

madre miaaaa!!!!!



El de la primitiva tenía un fallo, no salía el 49, ya lo he arreglado  :-[



El de la primitiva modificando un poco también hace LO MISMO

Código
  1. Public Class Form1
  2.    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  3.        Dim ListaComb As New List(Of String)         '//Lista de combinaciones
  4.        Dim NumCombinaciones As Integer = 10 '<---OJO EN ESTE CASO SOLO LO MAXÍMO SON 10
  5.        Dim NewComb As String
  6.        ListaComb.Clear()
  7.  
  8.        For B1 As Integer = 1 To NumCombinaciones
  9.            While ListaComb.Count < NumCombinaciones
  10.                NewComb = GetCombPrimitiva()
  11.                ListaComb.Add(NewComb)
  12.                ListaComb = ListaComb.Distinct.ToList
  13.                My.Application.DoEvents()
  14.            End While
  15.        Next B1
  16.        ListaComb.Sort()
  17.        ListBox1.Items.Clear()
  18.        For Each Elem As String In ListaComb
  19.            ListBox1.Items.Add(Elem)
  20.        Next
  21.  
  22.    End Sub
  23.    Public Function GetCombPrimitiva() As String
  24.        Dim MisBolas() As String = {20, 24, 34, 44, 45}
  25.        Dim Bombo As New List(Of Integer)           '//Bombo para meter las bolas
  26.        Dim Fila As New List(Of Integer)            '//Fila virtual para poner las bolas en orden
  27.        Dim Combinación As String = Nothing
  28.        Dim NumRandom As New Random
  29.        '//Llena el bombo
  30.        For Index As Integer = 0 To MisBolas.Count - 1
  31.            Bombo.Add(MisBolas(Index))
  32.        Next
  33.  
  34.        '//Extrae las bolas
  35.        For Index As Integer = 1 To 3
  36.            '//Devuelve números del 0 a 48 (49 números, Bola(0): contiene 1, Bola(1): Bolcontiene 2 ...)
  37.            Dim Bola As Integer = NumRandom.Next(0, Bombo.Count)
  38.            '//Mete la bola en la "fila"
  39.            Fila.Add(Bombo(Bola))
  40.            '//Quita la bola obtenida del bombo
  41.            Bombo.RemoveAt(Bola)
  42.        Next
  43.        Fila.Sort() 'Ordena la fila de bolas
  44.        For Each Bola As Integer In Fila
  45.            Combinación += String.Format("{0:00} ", Bola)
  46.        Next
  47.        Return Combinación
  48.    End Function
  49.  
  50.  
  51. End Class
  52.  

Pero OJO con el valor que pones a NumCombinaciones , pues lo máximo que debes poner es el máximo que permite las condiciones que en este caso son :

C5,3= 5!/(3!·(5-3)!) = 10 combinaciones


Título: Re: Mas problemas :( filtrar o eliminar registros iguales
Publicado por: luis456 en 25 Marzo 2016, 19:27 pm
Amos a ver

¿Y esto que es lo que hace?

Código
  1.        Dim Elementos As IEnumerable(Of Integer) = {20, 24, 34, 44, 45}
  2.        Dim EleX As Integer = 0
  3.        Dim EleX2 As Integer = 0
  4.        ListBox1.Items.Clear() 'Limpia el ListBox
  5.        For I1 As Integer = 0 To Elementos.Count - 1 : EleX += 1
  6.            For I2 As Integer = EleX To Elementos.Count - 1
  7.                For I3 As Integer = EleX To Elementos.Count - 1
  8.                    If Elementos(I2) <> Elementos(I3) And Elementos(I3) > Elementos(I2) Then
  9.                        ListBox1.Items.Add(String.Format("{0:00}, {1:00}, {2:00}", Elementos(I1), Elementos(I2), Elementos(I3)))
  10.                    End If
  11.  
  12.                Next
  13.            Next
  14.        Next
  15.        MessageBox.Show("Combinaciones: " & ListBox1.Items.Count)


20, 24, 34
20, 24, 44
20, 24, 45
20, 34, 44
20, 34, 45
20, 44, 45
24, 34, 44
24, 34, 45
24, 44, 45
34, 44, 45

madre miaaaa!!!!!

A ver jejej en que parte empiezo hablar chino jajja no en serio ,se que te pica la curiosidad  :silbar: para ordenarlos lo puedo hacer a mano ademas tengo que mirar si este codigo hace exactamente que lo de elektro y por favor no te ofendas jejje no es que sea mejor o peor, es que tengo metida entre ceja y ceja una idea y yo soy muy "TERCO · lo Reconozco .solo quiero trabajar con el listbox despues que este cargado con el otro codigo, pero ahora mismo voy a compararlos ya te dire que hace jejejje solo mira bien y tienes que darte cuenta que es lo que hace y ya te lo dire pero con pruebas :)

Luis






Título: Re: Mas problemas :( filtrar o eliminar registros iguales
Publicado por: Lekim en 25 Marzo 2016, 19:34 pm
joer

El código de elektro te hace esto;

Código:
20, 24, 34
20, 24, 44
20, 24, 45
20, 34, 24
20, 34, 44
20, 34, 45
20, 44, 24
20, 44, 34
20, 44, 45
20, 45, 24
20, 45, 34
20, 45, 44
24, 20, 34
24, 20, 44
24, 20, 45
24, 34, 20
24, 34, 44
24, 34, 45
24, 44, 20
24, 44, 34
24, 44, 45
24, 45, 20
24, 45, 34
24, 45, 44
34, 20, 24
34, 20, 44
34, 20, 45
34, 24, 20
34, 24, 44
34, 24, 45
34, 44, 20
34, 44, 24
34, 44, 45
34, 45, 20
34, 45, 24
34, 45, 44
44, 20, 24
44, 20, 34
44, 20, 45
44, 24, 20
44, 24, 34
44, 24, 45
44, 34, 20
44, 34, 24
44, 34, 45
44, 45, 20
44, 45, 24
44, 45, 34
45, 20, 24
45, 20, 34
45, 20, 44
45, 24, 20
45, 24, 34
45, 24, 44
45, 34, 20
45, 34, 24
45, 34, 44
45, 44, 20
45, 44, 24
45, 44, 34

y tu quieres quitar repeticiones de modo que si pone ABC , ni otro ABC, ni  ponga BCA o BAC, esto REPIIIIITOOOOOO son COMBINACIONES SIN REPETICION y al final te queda esto:

Código:
20, 24, 34
20, 24, 44
20, 24, 45
20, 34, 44
20, 34, 45
20, 44, 45
24, 34, 44
24, 34, 45
24, 44, 45
34, 44, 45

Que es lo que hace mi código ¿Cual es el problema? Quien entienda que te compre ajajja.


Título: Re: Mas problemas :( filtrar o eliminar registros iguales
Publicado por: luis456 en 25 Marzo 2016, 19:49 pm
 Hola cara de japones jejej es broma yo me tomo todo en broma ya con mi edad no se puede andar enfadado, mira como lo llevo ponlo a rular y dime que tal va :)

Código
  1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  2.        Dim Elementos As IEnumerable(Of Integer) = {2, 6, 10, 11, 17, 20, 24, 34, 38, 39, 40, 41, 41, 42, 43, 44, 45, 46, 47, 50}
  3.        Dim EleX As Integer = 0
  4.        Dim EleX2 As Integer = 0
  5.        ListBox1.Items.Clear() 'Limpia el ListBox
  6.        For I1 As Integer = 0 To Elementos.Count - 1 : EleX += 1
  7.            For I2 As Integer = EleX To Elementos.Count - 1
  8.                For I3 As Integer = EleX To Elementos.Count - 1
  9.                    If Elementos(I2) <> Elementos(I3) And Elementos(I3) > Elementos(I2) Then
  10.                        ListBox1.Items.Add(String.Format("{0:00}, {1:00}, {2:00}", Elementos(I1), Elementos(I2), Elementos(I3)))
  11.                    End If
  12.  
  13.                Next
  14.            Next
  15.        Next
  16.        MessageBox.Show("Combinaciones: " & ListBox1.Items.Count)
  17.    End Sub
  18.  
  19.    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  20.        Dim list As New List(Of String)
  21.        Dim i As Integer
  22.  
  23.        For i = 0 To ListBox1.Items.Count - 1
  24.            list.Add(ListBox1.Items(i))
  25.        Next i
  26.  
  27.        ListBox1.Items.Clear()
  28.  
  29.        For Each s As String In list.Distinct
  30.            ListBox1.Items.Add(s)
  31.        Next
  32.    End Sub


y si resta o no resta después de aplicar el filtro habra que poner un count despues de aplicar el filtro

espero
Luis




Título: Re: Mas problemas :( filtrar o eliminar registros iguales
Publicado por: Lekim en 25 Marzo 2016, 20:04 pm
Chacho has repetido números:
{2, 6, 10, 11, 17, 20, 24, 34, 38, 39, 40, 41, 41, 42, 43, 44, 45, 46, 47, 50}

Quita ese número repetido (41)y verás que te salen 969 XD

Código
  1.        Dim Elementos As IEnumerable(Of Integer) = {2, 6, 10, 11, 17, 20, 24, 34, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 50}
  2.        Dim EleX As Integer = 0
  3.        Dim EleX2 As Integer = 0
  4.        ListBox1.Items.Clear() 'Limpia el ListBox
  5.        For I1 As Integer = 0 To Elementos.Count - 1 : EleX += 1
  6.            For I2 As Integer = EleX To Elementos.Count - 1
  7.                For I3 As Integer = EleX To Elementos.Count - 1
  8.                    If Elementos(I2) <> Elementos(I3) And Elementos(I3) > Elementos(I2) Then
  9.                        ListBox1.Items.Add(String.Format("{0:00}, {1:00}, {2:00}", Elementos(I1), Elementos(I2), Elementos(I3)))
  10.                    End If
  11.  
  12.                Next
  13.            Next
  14.        Next
  15.        MessageBox.Show("Combinaciones: " & ListBox1.Items.Count)



      19!     
⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯ = 969
 3!·(19 - 3)!



Título: Re: Mas problemas :( filtrar o eliminar registros iguales
Publicado por: luis456 en 25 Marzo 2016, 20:08 pm
Chacho has repetido números:
{2, 6, 10, 11, 17, 20, 24, 34, 38, 39, 40, 41, 41, 42, 43, 44, 45, 46, 47, 50}

Quita ese número repetido (41)y verás que te salen 969 XD

Código
  1.        Dim Elementos As IEnumerable(Of Integer) = {2, 6, 10, 11, 17, 20, 24, 34, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 50}
  2.        Dim EleX As Integer = 0
  3.        Dim EleX2 As Integer = 0
  4.        ListBox1.Items.Clear() 'Limpia el ListBox
  5.        For I1 As Integer = 0 To Elementos.Count - 1 : EleX += 1
  6.            For I2 As Integer = EleX To Elementos.Count - 1
  7.                For I3 As Integer = EleX To Elementos.Count - 1
  8.                    If Elementos(I2) <> Elementos(I3) And Elementos(I3) > Elementos(I2) Then
  9.                        ListBox1.Items.Add(String.Format("{0:00}, {1:00}, {2:00}", Elementos(I1), Elementos(I2), Elementos(I3)))
  10.                    End If
  11.  
  12.                Next
  13.            Next
  14.        Next
  15.        MessageBox.Show("Combinaciones: " & ListBox1.Items.Count)



      19!     
⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯ = 969
 3!·(19 - 3)!



Ya sabes las prisas jejjejeje pero si resta no ? y deja solo únicos, ya no veo de tanto estar pegado al monitor :(

luis


Título: Re: Mas problemas :( filtrar o eliminar registros iguales
Publicado por: Lekim en 25 Marzo 2016, 20:19 pm
Creo que lo tengo como querias.... jeje

espero te sirva "Al estilo Elektro" ajaja que lujo  :xD:


Código
  1. Public Class Form1
  2.  
  3.    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  4.  
  5.        Dim intCol As IEnumerable(Of Integer) = {20, 24, 34, 44, 45}
  6.        Dim pairsCol As IEnumerable(Of String) =
  7.            From value1 As Integer In intCol
  8.            From value2 As Integer In intCol
  9.            Select String.Join(Environment.NewLine, (
  10.                               From value3 As Integer In intCol
  11.                               Where (value1 <> value2) AndAlso
  12.                                     (value1 <> value3) AndAlso
  13.                                     (value2 <> value3) AndAlso
  14.                                     (value3 > value2) AndAlso
  15.                                     (value2 > value1)
  16.                               Select String.Format("{0:00}, {1:00}, {2:00}",
  17.                                                    value1, value2, value3)))
  18.  
  19.  
  20.        Dim ClearRep As New List(Of String)
  21.  
  22.        For Each pairs As String In pairsCol
  23.            For Each line As String In pairs.Split({Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries)
  24.                ListBox1.Items.Add(line)
  25.            Next line
  26.        Next pairs
  27.  
  28.        MessageBox.Show(ListBox1.Items.Count)
  29.  
  30.  
  31.  
  32.    End Sub
  33. End Class




Código
  1. Public Class Form1
  2.  
  3.    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  4.  
  5.        Dim intCol As IEnumerable(Of Integer) = {2, 6, 10, 11, 17, 20, 24, 34, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 50}
  6.        Dim pairsCol As IEnumerable(Of String) =
  7.            From value1 As Integer In intCol
  8.            From value2 As Integer In intCol
  9.            Select String.Join(Environment.NewLine, (
  10.                               From value3 As Integer In intCol
  11.                               Where (value1 <> value2) AndAlso
  12.                                     (value1 <> value3) AndAlso
  13.                                     (value2 <> value3) AndAlso
  14.                                     (value3 > value2) AndAlso
  15.                                     (value2 > value1)
  16.                               Select String.Format("{0:00}, {1:00}, {2:00}",
  17.                                                    value1, value2, value3)))
  18.  
  19.  
  20.        Dim ClearRep As New List(Of String)
  21.  
  22.        For Each pairs As String In pairsCol
  23.            For Each line As String In pairs.Split({Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries)
  24.                ListBox1.Items.Add(line)
  25.            Next line
  26.        Next pairs
  27.  
  28.        MessageBox.Show(ListBox1.Items.Count)
  29.  
  30.  
  31.  
  32.    End Sub
  33. End Class



Hace lo mismo que el mio, pero como insistias tanto en este sistema lo he machacado un poco hasta que di  con el problemas, pero vamos que hace lo mismo.


Título: Re: Mas problemas :( filtrar o eliminar registros iguales
Publicado por: Eleкtro en 25 Marzo 2016, 21:11 pm
El mal llamado "Estilo Elektro" se denomina LINQ-to-Objects, es algo más expensivo que un FOR, pero más legible y manejable que un FOR.

Si le ofrezco soluciones basadas en LINQ, es por que supuestamente Luis en su día se puso a practicar con los 101 ejemplos de LINQ oficiales de la galería de código de Microsoft, por lo que está más acostumbrado a este estilo de sintaxis, lo cual, en mi opinión, le resultará de mucha utilidad, puesto que, lo bueno de LINQ, es su versatilidad con esa cantidad de útiles keywords disponibles para realizar típicas operaciones que nos tomarían más tiempo de escritura al traducirlas a un búcle For Range o For Each.

Saludos.


Título: Re: Mas problemas :( filtrar o eliminar registros iguales
Publicado por: Lekim en 26 Marzo 2016, 08:46 am
El mal llamado "Estilo Elektro" se denomina LINQ-to-Objects, es algo más expensivo que un FOR, pero más legible y manejable que un FOR.

Si le ofrezco soluciones basadas en LINQ, es por que supuestamente Luis en su día se puso a practicar con los 101 ejemplos de LINQ oficiales de la galería de código de Microsoft, por lo que está más acostumbrado a este estilo de sintaxis, lo cual, en mi opinión, le resultará de mucha utilidad, puesto que, lo bueno de LINQ, es su versatilidad con esa cantidad de útiles keywords disponibles para realizar típicas operaciones que nos tomarían más tiempo de escritura al traducirlas a un búcle For Range o For Each.

Saludos.

Hola Elektro

No te lo tomes a ma, jeje.  Desconocía completamente que se pudiera hacer usando LINQ-to-Objects, es mas desconocía LINQ-to-Objects. Con eso te lo digo todo.

Pero... este sistema va como sobre raíles, es decir, genera todas las combianciones de forma sistemática. ¿Qué pasa si yo solo quiero un grupo al azar de todas las combinaciones posibles que te haría LINQ-to-Objects? .

Claro podrías pensar, genero todas, y luego cojo algunas al azar. Eso vale si son pocas pero ¿Y si son unas 14 millones como en el código que he hecho yo de la Primitiva y solo quiero X < 14 millones al azar? No se si se podría usar en dicho caso LINQ-to-Objects.

Al descubrir "el estilo Elektro" XD, he estado contemplando la posibilidad de usar LINQ-to-Objects, pero no se me ocurre como.

Si ves mi código unos comentarios más atrás, verás que se pueden modificar varios valores como NumCombinaciones y " For Index As Integer = 1 To 6"  o        
Código:
Dim MisBolas() As String = {2, 6, 10, 11, 17, 20, 24, 34, 38, 39, 40}

Y no tengo que modificar código, ni condiciones para cambiar las combinaciones. Por ejemplo esto generaría combinaciones de la Primitiva pero solo con los números  {2, 6, 10, 11, 17, 20, 24, 34, 38, 39, 40}. Se podrían hacer un total de 462 combianciones. Pero el código sólo genera al azar  100. Que es lo que he establecido en  

Código:
  Dim NumCombinaciones As Integer = 100
(se puede cambiar 100 por 462 y las hace también..)

Código
  1. Public Class Form1
  2.    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  3.        Dim ListaComb As New List(Of String)         '//Lista de combinaciones
  4.        Dim NumCombinaciones As Integer = 100 '<---OJO EN ESTE CASO SOLO LO MAXÍMO SON 462
  5.        Dim NewComb As String
  6.        ListaComb.Clear()
  7.  
  8.        For B1 As Integer = 1 To NumCombinaciones
  9.            While ListaComb.Count < NumCombinaciones
  10.                NewComb = GetCombPrimitiva()
  11.                ListaComb.Add(NewComb)
  12.                ListaComb = ListaComb.Distinct.ToList
  13.                Me.Text = "Combinaciones generadas: " & ListaComb.Count
  14.                My.Application.DoEvents()
  15.            End While
  16.  
  17.        Next B1
  18.        ListaComb.Sort()
  19.        ListBox1.Items.Clear()
  20.        For Each Elem As String In ListaComb
  21.            ListBox1.Items.Add(Elem)
  22.        Next
  23.  
  24.    End Sub
  25.    Public Function GetCombPrimitiva() As String
  26.        Dim MisBolas() As String = {2, 6, 10, 11, 17, 20, 24, 34, 38, 39, 40}
  27.        Dim Bombo As New List(Of Integer)           '//Bombo para meter las bolas
  28.        Dim Fila As New List(Of Integer)            '//Fila virtual para poner las bolas en orden
  29.        Dim Combinación As String = Nothing
  30.        Dim NumRandom As New Random
  31.        '//Llena el bombo
  32.        For Index As Integer = 0 To MisBolas.Count - 1
  33.            Bombo.Add(MisBolas(Index))
  34.        Next
  35.  
  36.        '//Extrae las bolas
  37.        For Index As Integer = 1 To 6
  38.            '//Devuelve números del 0 a 48 (49 números, Bola(0): contiene 1, Bola(1): Bolcontiene 2 ...)
  39.            Dim Bola As Integer = NumRandom.Next(0, Bombo.Count)
  40.            '//Mete la bola en la "fila"
  41.            Fila.Add(Bombo(Bola))
  42.            '//Quita la bola obtenida del bombo
  43.            Bombo.RemoveAt(Bola)
  44.        Next
  45.        Fila.Sort() 'Ordena la fila de bolas
  46.        For Each Bola As Integer In Fila
  47.            Combinación += String.Format("{0:00} ", Bola)
  48.        Next
  49.        Return Combinación
  50.    End Function
  51.  
  52.  
  53. End Class
  54.  

Pero,  este código tiene un inconveniente. A medida que añade combinaciones a la lista tiene que comprobar que no ha salido antes, y en cuanto el número de combinaciones en la lísta más se acerque al máximo ( en este caso serían 462) más tarda en añadir una nueva combinación a la lista. Porque claro, el código no está pensado para hacer todas, sino una porción del total.

¿Cómo se podría hacer con LINQ-to-Objects? Sin tener que estar modificando las condiciones. Si añado un número más o menos, o dos más, etc. Hay que estar modificando el código. Además que no quiero todos, sino todos o una parte del total al azar. No se me ocurre como se podría aprovechar la ventaja de LINQ-to-Objects. ¿Alguna idea?


S2s


Título: Re: Mas problemas :( filtrar o eliminar registros iguales
Publicado por: luis456 en 26 Marzo 2016, 09:59 am
El mal llamado "Estilo Elektro" se denomina LINQ-to-Objects, es algo más expensivo que un FOR, pero más legible y manejable que un FOR.

Si le ofrezco soluciones basadas en LINQ, es por que supuestamente Luis en su día se puso a practicar con los 101 ejemplos de LINQ oficiales de la galería de código de Microsoft, por lo que está más acostumbrado a este estilo de sintaxis, lo cual, en mi opinión, le resultará de mucha utilidad, puesto que, lo bueno de LINQ, es su versatilidad con esa cantidad de útiles keywords disponibles para realizar típicas operaciones que nos tomarían más tiempo de escritura al traducirlas a un búcle For Range o For Each.

Saludos.


El estilo Elektro jejej, bueno es el que mas cómodo se me hace ya que es cierto lo que dice el yo me acostumbre a linq y se me hace ahora un poco difícil mirar otros metodos
pero ambas son buenas ya que las de lekim son similares a Fox y tampoco es tan difícil
les agradezco a los dos por la ayuda, pero les recuerdo que cada programador lo hace a su manera generalmente pero lo mejor es compartir de todo esto  ;-)

Luis