Mensajes

[[MOD]: No hagas doble post, utiliza el botón 'Modificar'.]

Hola gente cada ves que modifico algo mmm se me presentan nuevos problemas jeje

ahora uso solo un array donde junto todos los resultados de la suma,pero ahora mi problema es :

Mostrar en este listbox lineas horizontales de cuatro numeros ordenados de mayor a menor
el array me da estos números
10 20 30 40 50 60 70 80
y quiero mostrarlos  asi
80 70 60 50
40 30 20 10

aunque pruebo con lo que me explico Elektro en propiedades de los lisbox colunWich multicolum etc no logro hacer esto.

lo envio al listbox de esta forma

Código [Seleccionar] Expandir

ListBox1.Items.AddRange(Result22.Cast(Of Object).ToArray)



Luis



Mejor pongo la Funcion

Código [Seleccionar] Expandir

Dim Rand2 As New Random
       ' Concateno, y...
       ' Elimino duplicados, y...
       ' Selecciono los números inferiores a MAX, y...
       ' Convierto los números mayores a MAX a números aleatorios entre 0 y MAX.
       Dim Result22 As IEnumerable(Of Integer) =
           (Result1.Concat(Result2).Concat(Result3)).
           Distinct.
           Select(Function(Value As Integer)
                      Return If(Value < MAX, Value, Rand.Next(0, MAX))
                  End Function)

       ' Result = 1, RANDOM, 2, 3, 4, 5, RANDOM, 6, 7, 8, 9, 10, 99
       ListBox1.Items.AddRange(Result22.Cast(Of Object).ToArray)



[MOD]: No hagas doble post, utiliza el botón 'Modificar'.

¿ Que te dije de usar LINQ ?

¿algo como esto te sirve?:

Código (vbnet) [Seleccionar] Expandir

Public Class Form1

   ReadOnly MAX As Integer = 100

   Public Sub Test() Handles MyBase.Shown

       Dim Rand As New Random

       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}

       ' Concateno, y...
       ' Elimino duplicados, y...
       ' Selecciono los números inferiores a MAX, y...
       ' Convierto los números mayores a MAX a números aleatorios entre 0 y MAX.
       Dim Result As IEnumerable(Of Integer) =
           (result1.Concat(result2).Concat(result3)).
           Distinct.
           Select(Function(Value As Integer)
                      Return If(Value < MAX, Value, Rand.Next(0, MAX))
                  End Function)

       ' Result = 1, RANDOM, 2, 3, 4, 5, RANDOM, 6, 7, 8, 9, 10, 99
       ListBox1.Items.AddRange(Result.Cast(Of Object).ToArray)

   End Sub

End Class

Saludos!

Gracias como siempre elektro


lo estoy probando y me da este error en


ListBox1.Items.AddRange(Result.Cast(Of Object).ToArray)

No se puede modificar la colección Items cuando está establecida la propiedad DataSource. ?????????????????

SOLUCIONADO CUESTION DE HERENCIA

Luis


SOLUCIONADO CUESTION DE HERENCIA

Quiero hacer un bucle que mire los objetos del array uno a uno y si se pase del rango lo elimine pero que sobreescriva con algun numero dentro del rango 00 /99
en ese espacio y asi consecutivamente ( siempre numerico)

este codigo lo encontre trasteando aca mismo :)pero no logro hacer que funcione que hago mal ?

Código (VB.NET) [Seleccionar] Expandir


Dim Result3 as integer

Dim i, j As Integer 'Contadores

       For i = 1 To "cantidad de objetos en el array"
           If Result3(i) = 99 Then
               For j = 1 To "objetos array - i"
                   If not (i+1) > 12 (i) = Result3(i+1) else: Result3(i) = ""
                   End If
               Next j
           End If

       Next i


ListBox3.Items.Add(CStr(Result3(X)))



Saludos
Luis

[MOD]Para la próxima inserta correctamente las etiquetas de código.

Creo que esto es lo que intentas hacer...

Código (vbnet) [Seleccionar] Expandir

   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

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


 

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 :

Código [Seleccionar] Expandir

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

Código [Seleccionar] Expandir

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 "

Código [Seleccionar] Expandir


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

Me imagino que para poder usarlo deberia de crear otro array para poder usar estas dos funciones ?

Código [Seleccionar] Expandir

Dim Resu As Integer() = Result1.Concat(Result2).Concat(Result3).Distinct.ToArray
        (From Value In (Result1.Concat(Result2).Concat(Result3)) Where Value <= Max).ToArray

luis

[Luis456]

¿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) :

Código (vbnet) [Seleccionar] Expandir


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

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

Código (vbnet) [Seleccionar] Expandir

Dim maximum As Short = 99

Dim Results7s As Integer() = Result1.Concat(Result2).Distinct.ToArray


Luis