Perfecto

Gracias Elektro

Luis

En serio  o yo no se buscar o esto no existe

envio a un listbox una serie de datos numericos y los muestro en un listbox y a al principio y segun los calculos estos muestran algunos ceros ( bueno yo diria que bastantes jejej )    y lo que quiero no es eliminar los ceros, pero si que no se vean  y que solo el listbox muestre numeros pero no el cero ( cuestion de estetica )

 Dim se As IEnumerable(Of Integer) = Resultss
        Dim li As List(Of Integer) = se
        li.Sort()
        Me.ListBox7.Items.AddRange(li.Cast(Of Object).ToArray) 

Hola

si Funciona con el codigo de rellenar con ceros

Gracias Profe

Luis

Hola
bueno con la funcion que me pasaste. No queda tan mal, ya que modificando ciertas cosas en mi funcion puedo hacer que no salgan los ceros esto funciona bien

If values.Count < 35 Then
            values = values.Concat(Enumerable.Repeat(Of Integer)(0, (35 - values.Count)))
        End If
 
        MsgBox(values.Count) '35  

Lo de usar las dos variables es para poder hacer mas calculos, ya que entre los dos resultados no importa la cantidad de cada uno, sino los calculos y como unas veces una de las variables no llega a 35 produce el error, pero no se determinar cuando es que esas variables llegan o no al minimo de los 35 y solo me queda con este codigo de arriba trabajar con una sola variable pero se me ocurre que podre trabajar con las dos con el mismo codigo lo unico que tendre que aumentar el area del form jejeje


Otra cosa con la modificacion que hiciste de la funcion hay alguna pega ya que me da error en " SplitIntoParts no esta declarado " lo busco pero no veo el porque, a si que volvi a poner al otro pedazo de codigo y funciona ???

 Dim splits As IEnumerable(Of IEnumerable(Of Integer)) =
            SplitIntoParts(collection:=values, amount:=2, fillEmpty:=True) 

modificacion

Public Shared Function SplitIntoParts(Of T)(ByVal collection As IEnumerable(Of T),
                                                ByVal amount As Integer,
                                                ByVal fillEmpty As Boolean) As IEnumerable(Of IEnumerable(Of T))
 
        Return From index As Integer In Enumerable.Range(0, CInt(Math.Ceiling(collection.Count() / amount)))
               Select If(Not fillEmpty,
                         collection.Skip(index * amount).Take(amount),
                         If((collection.Count() - (index * amount)) >= amount,
                            collection.Skip(index * amount).Take(amount),
                            collection.Skip(index * amount).Take(amount).
                                                            Concat(From i As Integer
                                                                   In Enumerable.Range(0, amount - (collection.Count() - (index * amount)))
                                                                   Select DirectCast(Nothing, T))))
    End Function   

Hoy trabajare en esto y tratere de hacerlo funcionar con:

If values.Count < 35 Then
            values = values.Concat(Enumerable.Repeat(Of Integer)(0, (35 - values.Count)))
        End If
 
        MsgBox(values.Count) '35   

Ya te contare

Gracias

Luis

Pense en eso una ves pero aparte de " Feo "  y no importa que sea para mi jejej, me gusta mucho la idea de poder usar las dos variables ya que mejora sustancialmente el poder de calculo de mi code

Lo de los 35 numeros es el minimo para que (splits(15) tenga numeros para evitar el error , ya que mi idea es seguir aumentando los splits pero modificando la rutina y las variables y estoy parado en este punto y mira que me horas he vistando la pagina " FAMOSA " donde esta todo lo de linq: jejeje

alguna idea ?   Profe 
Luis

Bien te paso el code con el problema fijate que con  " Values " no llega la cantidad para hacer funcionar el " splits(15) " ya que  " values " no llega a 35 numeros y me sale lo del error ese de que hablamos en el otro post. " null " y se me ocurrio esta idea que me parece perfecta para mi code jejej

Pero si vamos a "values2" veras que si tiene mas de 35 numeros con lo cual no da problemas el  " splits(15) "  y tu diras aja y porque no usamos solo values2 ? porque son dos variables que vienen de una funcion  y una ves "values " tiene mas que la otra y otras values2 se invierten las cantidades  y esto varia segun los calculos que hago.

Public Class Form1
    ReadOnly MAX As Integer = 90
    Dim Rand As New Random
    Dim compuesto As IEnumerable(Of Integer)
 
    Private Sub Test() Handles MyBase.Shown
        Dim values As IEnumerable(Of Integer) =
            {
                1, 2, 3, 4,
                5, 6, 10, 11,
                14, 15, 54, 57,
                58, 60, 63, 64,
                65, 67
            }
 
        Dim values2 As IEnumerable(Of Integer) =
            {
                1, 2, 3, 4,
                5, 6, 10, 11,
                14, 15, 54, 57,
                58, 60, 63, 64,
                65, 67, 68, 69,
                70, 75, 78, 79, 80,
                81, 82, 86, 88, 89, 90, 92,
                93, 94, 95, 97, 98, 99
            }
 
 
        pondria en donde esta " values " a compuesto 
 
        Dim splits As IEnumerable(Of IEnumerable(Of Integer)) =
            SplitIntoParts(collection:=values, amount:=2, fillEmpty:=True)
 
        Me.ListBox1.Items.AddRange(splits(0).Cast(Of Object).ToArray)
        Me.ListBox2.Items.AddRange(splits(1).Cast(Of Object).ToArray)
        Me.ListBox3.Items.AddRange(splits(2).Cast(Of Object).ToArray)
        Me.ListBox4.Items.AddRange(splits(3).Cast(Of Object).ToArray)
        Me.ListBox5.Items.AddRange(splits(4).Cast(Of Object).ToArray)
 
        Dim concatCol As IEnumerable(Of Integer) = splits(0).Concat(splits(3).Concat(splits(4).Concat(splits(5).Concat(splits(15)))))
        Dim distinctCol As IEnumerable(Of Integer) = concatCol.Distinct.Skip(2), Take(10)
        Dim selectCol As IEnumerable(Of Integer) = distinctCol.Select(Function(value As Integer)
                                                                          If value < MAX Then
                                                                              Return value
                                                                          Else
                                                                              Return Rand.Next(1, MAX)
 
                                                                          End If
 
                                                                      End Function)
 
 
        ListBox8.Items.AddRange(selectCol.Cast(Of Object).ToArray)
 
 
    End Sub
 
 
    Public Shared Function SplitIntoParts(Of T)(ByVal collection As IEnumerable(Of T),
                                                ByVal amount As Integer,
                                                ByVal fillEmpty As Boolean) As IEnumerable(Of IEnumerable(Of T))
 
        Return From index As Integer In Enumerable.Range(0, CInt(Math.Ceiling(collection.Count() / amount)))
               Select If(Not fillEmpty,
                         collection.Skip(index * amount).Take(amount),
                         If((collection.Count() - (index * amount)) >= amount,
                            collection.Skip(index * amount).Take(amount),
                            collection.Skip(index * amount).Take(amount).
                                                            Concat(From i As Integer
                                                                   In Enumerable.Range(0, amount - (collection.Count() - (index * amount)))
                                                                   Select DirectCast(Nothing, T))))
    End Function
 
 
 
 
 
 
 
 
End Class
 

Algunas fallitas jejej pero es mas o menos la idea

!) el operador '>' no está definido para los tipos 'System.Collections.Generic.IEnumerable(Of Integer)' y 'Integer'.
2) un valor de tipo 'Integer' no se puede convertir en 'System.Collections.Generic.IEnumerable(Of Integer)'.

luis

Siempre estoy con prisas jejej y me enredo yo mismo,

 Dim values1 As  integer (trae de la funcion, x numeros )
 Dim values2 As  integer ( trae de la misma funcion otros x numeros)
 Dim compuesto as integer ( a esta pasarle los valores de alguna de ellas )


lo que nesecito es pasar a  " Dim compuesto "  el valor de cualquiera de estas dos variables " Dim values1"   " Dim values2"  cuando alguna de ellas  sobrepasen los 35 registros ,si values1 tiene mas de 35 regitros se pasa a  "compuesto" y la otra se queda sin hacer nada y por supuesto al reves .


Luis

Hola a todos aca traigo otra e las mias

tengo tres variables dos con arreglos y una tercera que trabajaria con los registros de la variable que cumpla con la condicion en ese momento pero no se si se puede hacer algo con esta chapuza que haciendo  

    Dim values1 As    integer  
        Dim values2 As   integer
       [color=red] Dim compuesto As Integer <-- a esta variable llegaria los datos de cualquiera de las dos anteriores[/color]
 
 
 
 
        Dim Re As IEnumerable(Of Integer) =
           (values).
           Distinct.
           Select(Function(values As Integer)
                      If values <= 35 Then
 
                          Return values
                      Else
 
                          Return values2
 
                      End If
 
                  End Function)
 

Luis

Estudiando el caso este descubri que la forma de que no me de error es mantener el arreglo dentro del minimo de registros que es de 35 registros por debajo de esa cantdad me produce el error, ahora lo que no tengo ni idea como hacerlo,se me ocurre con generar numeros aleaorios dentro el rango pero que no repitan con los de la variable  ;(

luis