Autor
|
Tema: De nuevo con los filtros (Leído 3,201 veces)
|
luis456
Desconectado
Mensajes: 551
|
Hola Recien resolvi o mejor dicho me resolvieron unas dudas gracias a como siempre elektro jejej ahora vengo de nuevo con algo que lo mejor es una bobera pero ya me volvi loco buscando la solucion Explico tengo este codigo Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim valuesInt As IEnumerable(Of Integer) = {0, 1, 4, 6, 2, 8, 7} Dim pairs As IEnumerable(Of KeyValuePair(Of Integer, IEnumerable(Of Integer))) = From value As Integer In valuesInt Select New KeyValuePair(Of Integer, IEnumerable(Of Integer))( key:=value, value:=From index As Integer In valuesInt Where index <> Integer.Parse(CStr(value).Last) Select CInt(value & index)) For Each pair As KeyValuePair(Of Integer, IEnumerable(Of Integer)) In pairs ListBox1.Items.Add(String.Format("Key: {0,-4} Values: {1}", pair.Key, String.Join(", ", pair.Value))) Next pair End Sub End Class
lo que no puedo hacer una limitacion de los resultados o sea que si los numeros muestran del 01 al 89 y yo quiera mostrar solo desde el 01 al 50 ,no se ya que tampoco he logrado pasar estos resultados a otra variable que yo pueda o conosca manejar ya que con "pair.Key " no tengo ide de como manejar esto . Luis
|
|
« Última modificación: 9 Octubre 2015, 10:41 am por luis456 »
|
En línea
|
Que tu sabiduria no sea motivo de Humillacion para los demas
|
|
|
Eleкtro
Ex-Staff
Desconectado
Mensajes: 9.866
|
Retomando la función que te mostré aquí: http://foro.elhacker.net/net/formar_pares_de_numeros-t442316.0.html;msg2041620#msg2041620Le puedes añadir un parámetro opcional para limitar el valor máximo que se debe devolver. Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim valuesInt As IEnumerable(Of Integer) = {0, 1, 4, 6, 2, 8, 7} Dim pairs As IEnumerable(Of KeyValuePair(Of Integer, IEnumerable(Of Integer))) = Form1.GetPairs(valuesInt, maxValue:=50) For Each pair As KeyValuePair(Of Integer, IEnumerable(Of Integer)) In pairs ListBox1.Items.Add(String.Format("Key: {0,-4} Values: {1}", pair.Key, String.Join(", ", pair.Value))) Next pair End Sub Public Shared Function GetPairs(ByVal col As IEnumerable(Of Integer), Optional ByVal maxValue As Integer = Integer.MaxValue) As IEnumerable(Of KeyValuePair(Of Integer, IEnumerable(Of Integer))) If (col.Max >= 10) Then Throw New ArgumentException(paramName:="col", message:="El valor máximo de la colección debe ser un valor inferior a 10.") Else Return From value As Integer In col Select New KeyValuePair(Of Integer, IEnumerable(Of Integer))( key:=value, value:=From index As Integer In Enumerable.Range(1, 9) Where (index <> value) AndAlso (CInt(value & index) <= maxValue) Select CInt(value & index)) End If End Function End Class
Saludos
|
|
|
En línea
|
|
|
|
luis456
Desconectado
Mensajes: 551
|
Retomando la función que te mostré aquí: http://foro.elhacker.net/net/formar_pares_de_numeros-t442316.0.html;msg2041620#msg2041620Le puedes añadir un parámetro opcional para limitar el valor máximo que se debe devolver. Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim [color=yellow]valuesInt[/color] As IEnumerable(Of Integer) = {0, 1, 4, 6, 2, 8, 7} Dim pairs As IEnumerable(Of KeyValuePair(Of Integer, IEnumerable(Of Integer))) = Form1.GetPairs(valuesInt, maxValue:=50) For Each pair As KeyValuePair(Of Integer, IEnumerable(Of Integer)) In pairs ListBox1.Items.Add(String.Format("Key: {0,-4} Values: {1}", pair.Key, String.Join(", ", pair.Value))) Next pair End Sub Public Shared Function GetPairs(ByVal col As IEnumerable(Of Integer), Optional ByVal maxValue As Integer = Integer.MaxValue) As IEnumerable(Of KeyValuePair(Of Integer, IEnumerable(Of Integer))) If (col.Max >= 10) Then Throw New ArgumentException(paramName:="col", message:="El valor máximo de la colección debe ser un valor inferior a 10.") Else Return From value As Integer In col Select New KeyValuePair(Of Integer, IEnumerable(Of Integer))( key:=value, value:=From index As Integer In Enumerable[color=red].Range(1, 9)[/color] Where (index <> value) AndAlso (CInt(value & index) <= maxValue) Select CInt(value & index)) End If End Function End Class
Saludos Hola Elektro No te habia respondido porque me quede dormido jejej ,bien tengo el siguiente problema con esto, ya en el anterior lo habia resuelto pero en este no se, como sabes los numeros de la variable valuesIn no mantienen la misma cantidad de numeros en cada ejecucion y estos varian. en donde esta lo de Range(1, 9) aunque en la variable haya menos numeros me toma como que si hubieran los 9 siempre Como siempre gracias Luis edicto jejej creo lo resolvi pero corrigeme si estoy pelado Return From value As Integer In col Select New KeyValuePair(Of Integer, IEnumerable(Of Integer))( key:=value, value:=From index As Integer In col Where (index <> value) AndAlso (CInt(value & index) <= maxValue) Select CInt(value & index))
|
|
« Última modificación: 4 Octubre 2015, 22:01 pm por luis456 »
|
En línea
|
Que tu sabiduria no sea motivo de Humillacion para los demas
|
|
|
luis456
Desconectado
Mensajes: 551
|
Bueno sigo con mis enredos aunque ya esta resuelta la pregunta ahora me encuentro en otra dimension desconocida jejej se como se convierten ya las variables pero no de este tipo codigo Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim valuesInt As IEnumerable(Of Integer) = {0, 1, 2, 4, 6, 7, 8} Dim pairs As IEnumerable(Of KeyValuePair(Of Integer, IEnumerable(Of Integer))) = Form1.GetPairs(valuesInt, maxValue:=80) For Each pair As KeyValuePair(Of Integer, IEnumerable(Of Integer)) In pairs ListBox1.Items.Add(String.Format("Key: {0,-4} Values: {1}", pair.Key, String.Join(", ", pair.Value))) Next pair End Sub Public Shared Function GetPairs(ByVal col As IEnumerable(Of Integer), Optional ByVal maxValue As Integer = Integer.MaxValue) As IEnumerable(Of KeyValuePair(Of Integer, IEnumerable(Of Integer))) If (col.Max >= 10) Then Throw New ArgumentException(paramName:="col", message:="El valor máximo de la colección debe ser un valor inferior a 10.") Else Return From value As Integer In col Select New KeyValuePair(Of Integer, IEnumerable(Of Integer))( key:=value, value:=From index As Integer In Enumerable.Range(1, 9) Where (index <> value) AndAlso (CInt(value & index) <= maxValue) Select CInt(value & index)) End If End Function End Class
esto entrega estos resultados y quiero pasarlos a unas variables normalitas jejje Key: 0 Values: 1, 2, 4, 5, 6, 7, 8 Key: 1 Values: 10, 12, 14, 15, 16, 17, 18 Key: 2 Values: 20, 21, 24, 25, 26, 27, 28 Key: 4 Values: 40, 41, 42, 45, 46, 47, 48 Key: 5 Values: 50, 51, 52, 54, 56, 57, 58 Key: 6 Values: 60, 61, 62, 64, 65, 67, 68 Key: 7 Values: 70, 71, 72, 74, 75, 76, 78 Key: 8 Values: 80, 81, 82, 84, 85, 86, 87 como puedo meter en cada variable los valores de cada key ejemplo variable 0 = 1, 2, 4, 5, 6, 7, 8 variable 1= 10, 12, 14, 15, 16, 17, 18 variable 2= 20, 21, 24, 25, 26, 27, 28 Luis
|
|
|
En línea
|
Que tu sabiduria no sea motivo de Humillacion para los demas
|
|
|
Eleкtro
Ex-Staff
Desconectado
Mensajes: 9.866
|
Lo tienes perfecto tal y como está, es más productivo así. Creo que solo necesitas un ejemplo de cómo usar el índice (no deberías necesitar un ejemplo a estas alturasss), como el siguiente, por que yo no le veo ninguna dificultad de accesibilidad adicional entre hacer esto: ' Dim pairs As IEnumerable(Of KeyValuePair(Of Integer, IEnumerable(Of Integer))) = ... MsgBox(String.Join(", ", pairs(0).Value))
...o hacer esto otro: ' Dim col As IEnumerable(Of IEnumerable(Of Integer)) = ... MsgBox(String.Join(", ", col(0)))
Para hacer lo segundo, cosa que repito ...es innecesario, pero bueno, tendrías que modificar el tipo de objeto que maneja la función, para devolver un IEnumerable(Of IEnumerable(Of Integer)) claro está... Saludos!
|
|
« Última modificación: 7 Octubre 2015, 14:50 pm por Eleкtro »
|
En línea
|
|
|
|
luis456
Desconectado
Mensajes: 551
|
Lo tienes perfecto tal y como está, es más productivo así. Creo que solo necesitas un ejemplo de cómo usar el índice (no deberías necesitar un ejemplo a estas alturasss), como el siguiente, por que yo no le veo ninguna dificultad de accesibilidad adicional entre hacer esto: ' Dim pairs As IEnumerable(Of KeyValuePair(Of Integer, IEnumerable(Of Integer))) = ... MsgBox(String.Join(", ", pairs(0).Value))
...o hacer esto otro: ' Dim col As IEnumerable(Of IEnumerable(Of Integer)) = ... MsgBox(String.Join(", ", col(0)))
Para hacer lo segundo, cosa que repito ...es innecesario, pero bueno, tendrías que modificar el tipo de objeto que maneja la función, para devolver un IEnumerable(Of IEnumerable(Of Integer)) claro está... Saludos! Hola bien es que la idea de tener cada key o valor dentro de una variable es por ejemplo pongamos el 0 : Key: 0 Values: 1, 2, 4, 5, 6, 7, 8 nesecitaria dado el caso hacer combinaciones con la clave o key 2 key 2 values: 20, 21, 24, 25, 26, 27, 28 ejemplo si los concateno key 0 + key 2 = 1, 2, 4, 5, 6, 7, 8 ,20, 21, 24, 25, 26, 27, 28 No nesecito que esten todos los numeros en una variable, si no cada grupo en su respectiva variable para yo poder hacer calculos con cada una o entre ellas Luis
|
|
|
En línea
|
Que tu sabiduria no sea motivo de Humillacion para los demas
|
|
|
luis456
Desconectado
Mensajes: 551
|
Creo a si van los tiros Dim M1 As IEnumerable(Of Integer) = pairs(1).Value.ToList Dim juntos2 As List(Of Integer) = M1 juntos2.Sort() Me.ListBox2.Items.AddRange((From value As Integer In M1).Cast(Of Object).ToArray)
Ya listo Luis
|
|
|
En línea
|
Que tu sabiduria no sea motivo de Humillacion para los demas
|
|
|
|
|