Se puede condicionar que los resultados de este array pasen de x numeros ? ya lo tengo resuelto para los texboxes pero ahora quiero trabajar directamente con los array me parece que seria mas fácil para después mostrar los resultados
Dim maximum As Short = 99
Dim Results7s As Integer() = Result1.Concat(Result2).Distinct.ToArray
Luis
Cita de: luis456 en 13 Enero 2014, 21:25 PMSe puede condicionar que los resultados de este array pasen de x numeros ?
¿Te refieres a descartar números que séan mayores de 99?
@
Luis456, te sugiero que aprendas a usar LINQ ...será tu mejor aliado :) (por su sencillez, no por rendimiento) :
Dim Max As Integer = 99
Dim arr1 As Integer() = {100, 2, 3}
Dim arr2 As Integer() = {4, 500, 6}
Dim arr3 As Integer() = {7, 8, 999}
Dim Result As Integer() =
(
From Value As Integer In (arr1.Concat(arr2).Concat(arr3))
Where Value <= Max
).ToArray
MsgBox(String.Join(", ", Result)) ' Result = {2, 3, 4, 6, 7, 8}
PD: En otro post te dije una url donde descargar 101 ejemplos de LINQ, si te lo estudiases un poco tendrías ejemplos como los que yo te pongo para un buen rato xD.
Saludos
Cita de: Eleкtro en 13 Enero 2014, 22:03 PM
¿Te refieres a descartar números que séan mayores de 99?
@Luis456, te sugiero que aprendas a usar LINQ ...será tu mejor aliado (por su sencillez, no por rendimiento) :):
Dim Max As Integer = 99
Dim arr1 As Integer() = {100, 2, 3}
Dim arr2 As Integer() = {4, 500, 6}
Dim arr3 As Integer() = {7, 8, 999}
Dim Result As Integer() =
(From Value In (arr1.Concat(arr2).Concat(arr3)) Where Value <= Max).ToArray
MsgBox(String.Join(", ", Result)) ' Result = {2, 3, 4, 6, 7, 8}
Saludos
Si elektro y te agradezco la ayuda ya me llamo la atencion LINQ Y me estoy bajando todo cuanto pueda
Luis
Posdata: si me baje todo lo que me pusiste :)
Me imagino que para poder usarlo deberia de crear otro array para poder usar estas dos funciones ?
Dim Resu As Integer() = Result1.Concat(Result2).Concat(Result3).Distinct.ToArray
(From Value In (Result1.Concat(Result2).Concat(Result3)) Where Value <= Max).ToArray
luis
Bueno explico un poco mejor :)
como hago para unir estas dos funciones en una sola variable o array he probado y probado y no logro hacerlo, ya que me da el tipico error de que ya esta declarada
el array " Results7s "
Dim Results7s As Integer() = Result1.Concat(Result2).Concat(Result3).Distinct.ToArray <---esto lo muestro en un lisbotx
Dim Result As Integer() =(From Value In (result1.Concat(result2).Concat(result3)) Where Value <= Max).ToArray
Luis
Cita de: luis456 en 14 Enero 2014, 12:42 PMme da el tipico error de que ya esta declarada el array " Results7s "
Hombre, error típico no es, lo que pasa es que tienes la mala costumbre de declarar variables innecesarias por todas partes del código, y al final tienes un lio.
En lugar de declarar varios arrays:
Dim result1 as Integer() = {1, 2, 3}
Dim result2 as Integer() = {4, 5, 6}
Dim result2 as Integer() = {7, 8, 9}Intenta declarar sólamente 1 array, y reemplazarlo/actualízarlo cuando sea necesario:
Public Result as Integer() = {1, 2, 3}...En otra parte del código:
Me.Result = Me.Result.Concat({4, 5, 6}).Concat({7, 8, 9}).ToArray ' Por ejemplo.De todas formas si prefieres seguir como hasta ahora, pues declara una nueva variable con otro nombre distinto y así no tendrás ese "típico error", de verdad no te lo tomes a mal pero no le veo ningún sentido a la duda que has posteado.
Saludos!
Bueno como pasa en programacion jejej el que entiende su chapuza no se sabe explicar :)
tengo tres arrays con resultados independientes de la suma pero cuando quiero unirlos en el lisbot
primero repetían ya lo solucione con :
Dim Results7s As Integer() = Result1.Concat(Result2).Concat(Result3).Distinct.ToArray
ahora quiero que estos resultados ya filtrados en resut7 pasen por otro filtro que seria el del rango 99
Where Value <= Max).ToArray
Luis
Cita de: luis456 en 14 Enero 2014, 13:24 PMquiero que estos resultados ya filtrados en resut7 pasen por otro filtro que seria el del rango 99
Where Value <= Max).ToArray
No me ha quedado claro el poblema, en la variable resut7 declaras el array numérico, y en la otra variable (Result) ya "filtras" con LINQ, ¿Cual es el problema?.
PD: Lo importante si que lo entendí, no es necesario 4 o 5 variables para llevar a cabo una operación de ese tipo, símplemente odio ver ese tipo de cosas.
Saludos!
Cita de: Eleкtro en 14 Enero 2014, 13:42 PM
No me ha quedado claro el poblema, en la variable resut7 declaras el array numérico, y en la otra variable (Result) ya "filtras" con LINQ, ¿Cual es el problema?.
PD: Lo importante si que lo entendí, no es necesario 4 o 5 variables para llevar a cabo una operación de ese tipo, símplemente odio ver ese tipo de cosas.
Saludos!
El problema es que no logro mostar en el lisbotbox los resultados de las dos funciones juntas osea la " Distinct y la del rango "
luis
Creo que esto es lo que intentas hacer...
ReadOnly MAX As Integer = 99
Public Sub Test() Handles MyBase.Shown
Dim result1 As Integer() = {1, 100, 2, 3, 4}
Dim result2 As Integer() = {5, 500, 6, 6, 4}
Dim result3 As Integer() = {7, 8, 9, 10, 99}
' Elimino duplicados al mismo tiempo que selecciono los números inferiores a MAX.
Dim Result As IEnumerable(Of Integer) =
(
From Value As Integer
In (result1.Concat(result2).Concat(result3)).Distinct
Where Value <= MAX
)
ListBox1.Items.AddRange(Result.Cast(Of Object).ToArray)
End Sub
Saludos
Cita de: Eleкtro en 14 Enero 2014, 14:43 PM
Creo que esto es lo que intentas hacer...
ReadOnly MAX As Integer = 99
Public Sub Test() Handles MyBase.Shown
Dim result1 As Integer() = {1, 100, 2, 3, 4}
Dim result2 As Integer() = {5, 500, 6, 6, 4}
Dim result3 As Integer() = {7, 8, 9, 10, 99}
' Elimino duplicados al mismo tiempo que selecciono los números inferiores a MAX.
Dim Result As IEnumerable(Of Integer) =
(
From Value As Integer
In (result1.Concat(result2).Concat(result3)).Distinct
Where Value <= MAX
)
ListBox1.Items.AddRange(Result.Cast(Of Object).ToArray)
End Sub
Saludos
;-) ;-) ;-) ;-)
Perfecto Eleкtro
justo y preciso :)
ya sabes cualquier problema con el coche me avisas
Luis