Foro de elhacker.net

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

¿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

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 ?



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 "




Luis

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 :


ahora quiero que estos resultados ya filtrados en resut7 pasen por otro filtro que seria el del rango 99



Luis

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

 ;-)  ;-)  ;-)  ;-)

Perfecto Eleкtro

justo y preciso :)

ya sabes cualquier problema con el coche me avisas

Luis