Hola a todos

en un arreglo de numeros de x cantidad de numeros, siempre el famoso 01 al 99 yo formo grupos de numeros de 10 numeros

concatenando splist o variables de dos numeros cada uno de ese arreglo de esta manera:

  Dim Bz1 As IEnumerable(Of Integer) =
(
From Value As Integer In split(1).Concat(split(2).Concat(split(3)).Concat(split(4)).Concat(split(5)))
Where (Value <= MAX AndAlso Value > 0)).Distinct
 
 
        Dim Sl1 As IEnumerable(Of Integer) = Bz1
        Dim SM1 As List(Of Integer) = Bz1.toList
        SM1.Sort()
 
       Me.ListBox2.Items.AddRange((From value As Integer In SM1 Where value <> 0).Cast(Of Object).ToArray)
 

Bien esto funciona bien el problema que quiero resolver es que tiene correlatividad de numeros.


arreglo principal ( 01 02 03 04 05 06 07 08 09 10 ....................99)

este codigo muestra este resultado

01 02 03 04 05 06 07 08 09 10

Porque al ordenarse el arreglo los splits o variables enpiezan desde el principio del arreglo

split(1) = 01 02
split(2) = 03 04
split(3) = 05 06
split(4) = 07 08
split(5) = 09 10



estos split los saco de esta funcion que toma los valores del arreglo principal

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

en definitiva lo que nesecito es hacer saltos de numeros intermedios de los numeros contenidos en los split

ejemplo
ahora es de esta forma

split(1) = 01 02
split(2) = 03 04
split(3) = 05 06
split(4) = 07 08
split(5) = 09 10
******************
y lo nesecito de esta forma

split(1) = 01 03
split(2) = 02 04
split(3) = 05 07
split(4) = 06 08
split(5) = 08 10


Bueno antes de preguntar he usado take,skip sin resultados con la clausula Where no se plantear el problema

claro esta que si volvemos a unir los split como estan ahora y despues, se formaria la misma combinacion pero lo puse a si para el ejemplo ya que las concatenaciones cambian de forma que haga otras numeraciones


Luis

Hola a todos
bueno aca estoy de nuevo con mis rollos

no encuentro la manera de eliminar datos repetidos he puesto por todos lados pero no me filtra los registros repetidos se como hacerlo con variables pero como aca pongo todas las variables juntas en un testbox ;( me da ese fallo

01 02 03 04 05 06 07 08 09
01 02 03 04 05 06 07 08 09

 Dim Lnumbers As List(Of IEnumerable(Of Integer)) = { SM18, SM17, SM16, SM14....,}.Distinct.ToList
 
 
      For Each col As IEnumerable(Of Integer) In Lnumbers
 
 
 
            ListBox23.Items.Add(String.Join(", ", From value As Integer In col
                                                                      Select If(value.ToString.Length = 1I,
                                                                                value.ToString.Insert(0I, "0"c),
                                                                                value.ToString)))
        Next col 

Luis

Bueno aca de nuevo con un problema similar al anterior post  

Queria mostrar en un solo listbox 60 listbox  y se resolvio ahora pense que seria mejor mostrar  las variables que se muestra en esos testbosex  y podria hacer el codigo mas limpio jejej

tengo esto, pero dos cosas si son 60 variables como es que se colocan jejej ya que logro poner una y la muestra pero repiten los resultados cuando se supone que deberia

de esta manera si hay una sola variable
01 02 03 04 05 06 07 08 09 10

y me muestra : ????

01 02 03 04 05 06 07 08 09 10
01 02 03 04 05 06 07 08 09 10
01 02 03 04 05 06 07 08 09 10
01 02 03 04 05 06 07 08 09 10
01 02 03 04 05 06 07 08 09 10
01 02 03 04 05 06 07 08 09 10

 Dim Lnumbers As List(Of Integer) = rsalmlals2
 
        For Each Lnumber As Integer In Lnumbers
 
            ListBox1.Items.Add(String.Join(" "c, Lnumbers.Cast(Of Integer)))
 
        Next Lnumber

Saludos
Luis

Hola de nuevo por aca, ya espacio el tiempo en entrar por preguntas tontas jejej gracias a mi amigo elektro que por miedo a sus regaños    no mentira , es gracias a el que me dio la pista como trabajar en este lenguaje pero me falta un monton por aprender jejeje

ahora la temida pregunta

tengo 60 listbox y por supuesto las consabidas variables de cada uno de estos listbox donde muestro resultados numericos ahora se me ocurre meter en un solo lisbotx todas estas variables pero separadas por resultados

algo como esto

listbox1
01 02 03 04 05 06 07 08 09 10 <---------variable 1
 
11 12 13 14 15 16 17 18 19 20 <---------variable 2

21 22 23 24 25 26 27 28 29 30 <---------variable 3 ....Etc

estaba concatenando ;( pero ***** desastre jejej


saludos
Luis

 Otro de mis inventos

quiero rellenar con numeros aleatorios cuando la cuenta de la variable este por debajo de 30, el rango de estos numeros es 00 al 99, pero no deberian de repetir en la variable.

tengo esto que rellena pero con ceros

 If Resultados.Count < 30 Then
 
           Resultados = Resultados.Concat(Enumerable.Repeat(Of Integer)(0, (30 - Resultados.Count)))
 
          End If 

entonces se me ocurrio esto pero nunca me da la seguridad de tener como minimo 30 datos en la variable a veces el programa entero no llega a esa cantidad y FALLO

If Resultados.Count < 30 Then
 
           Resultados = numerosFaltantesdelRango
 
        End If 

Luis

Hola no tengo Npi de como hacerlo pero alguien me puede decir como se puede evitar o que se reenvien sus mensajes spam ? y saturarlos de tal manera que se les quite las ideas de enviar basura ?

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 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

Otra de las mias
cuando quiero unir dos rutinas o mas no me funciona lo de rellenar con numeros aleatorios dentro del rango

se supone que este codigo al no haber mas numeros dentro del arreglo tomaria uno al azar dentro del rango establecido pero no se que pasa ahora que no lo hace

   ReadOnly MAX As Integer = 99
 
 
        Dim Rand As New Random
        Dim ReAsult2255e As IEnumerable(Of Integer) =
           (splits(1).Concat(splits(3).Concat(splits(5).
           Distinct.
           Select(Function(Value As Integer)
                      Return If(Value < MAX, Value, Rand.Next(1, MAX))
                  End Function))))
 
        Dim seAlecctedValues231 As IEnumerable(Of Integer) = ReAsult2255e
        Dim liste3 As List(Of Integer) = ReAsult2255e.Take(10).ToList
        liste3.Sort()
        ListBox12.Items.AddRange(liste3.Cast(Of Object).ToArray)
        ' ----------------------------------------------------------------------
 
 
       Dim Rand1 As New Random
        Dim AReAAsult2255e As IEnumerable(Of Integer) =
           (splits(3).Concat(splits(10).Concat(splits(11).Concat(splits(12).
           Distinct.
           Select(Function(Value As Integer)
                      Return If(Value < MAX, Value, Rand1.Next(1, MAX))
                  End Function)))))
 
        Dim seAlecctedValues231A As IEnumerable(Of Integer) = AReAAsult2255e
        Dim listeA3 As List(Of Integer) = AReAAsult2255e.Take(10).ToList
 
        listeA3.Sort()
        ListBox13.Items.AddRange(listeA3.Cast(Of Object).ToArray) 

Luis

Eliminar numeros con terminaciones iguales

Hola de nuevo aca estoy con mis chapusas en programacion

Formo combinaciones de numeros de un arreglo o variables pero donde el resultado no debe tener el mismo numero terminal explico

Dim resultss As IEnumerable(Of Integer) =
            {
                01,03,04,06,07,08,09,20,28,35.39,45,48,55,66,68,75,78.90,98........
            }
 
        Dim selectedValues As IEnumerable(Of Integer) = resultss.Take(10)
 
        Me.ListBox1.Items.AddRange(selectedValues.Cast(Of Object).ToArray)
    End Sub 

esto me da combinaciones de 10 numeros


salida

01,03,04,06,07,08,09,20,28,35

39,45,48,55,66,68,75,78.90,98

en la primera combinacion esta el 08 y el 28
en la segunda combinacion estan el  45 55 75

la idea es que en ninguna combinacion  tenga repetidos el mismo numero terminal ?

Luis