A ver segun los calculos que me hace el programa sabes, me entrega cierta cantidad de numeros que varian desde ( 00 al 99 ) unas veces 50 o mas numeros otras 40 y ciertas ocasiones muchas menos y es aca cuando se produce el error, ya que como casi siempre estan por los 50 numeros no da problemas de este tipo ,solo cuando baja de esa cantidad y claro salta el error, ya que no hay numeros para llenar a  splits(13)  splits(15) pero mayormente no falla, lo que quiero es ver como suplir esos numeros que faltarian y dentro del rango ?


Luis

Sigo teniendo problemas con esto pense que lo podria resolver yo pero na

he probado a cambiar las declaraciones del rango max de estas formas pero no me me va y cuando algo hizo solo relleno con ceros ???

la funcion que uso no calcula una cantidad fija de numeros y dependiendo de eso, a veces va bien pero creo cuando se queda corto de cantidad de numeros me sale este error en tiempo de ejecucion

El valor no puede ser nulo.
Nombre del parámetro: second



 
 

ReadOnly MAX As Integer = 99  ( de cualquiera de las formas no hace nada ) 
 Dim MAX As Integer = 99 

  Dim concatCol5 As IEnumerable(Of Integer) = splits(3).Concat(splits(13).Concat(splits(15)))
        Dim distinctCol5 As IEnumerable(Of Integer) = concatCol5.Distinct
        Dim selectCol5 As IEnumerable(Of Integer) = distinctCol5.Select(Function(value As Integer)
                                                                            If value < MAX Then
                                                                                Return value
                                                                            Else
                                                                                Return Rand.Next(1, MAX)
                                                                            End If
 
                                                                        End Function)
 
 
 
        ListBox9.Items.AddRange(selectCol5.Cast(Of Object).ToArray) 

Luis

Se que no te gusta oir esto, pero es que no tendrías ese tipo de problemas si ordenases y estructurases mejor tú código, es un completo lio lo que tienes ...y lo sabes.

Claro que si lo se, pero tengo una grave problema y es siempre la " P " prisa de ver cono funciona y siempre digo " despues lo ordeno "  y asi vamos    tengo que tratar de ser mas ordenado y valla tambien para los que estan aprendiendo a Programar es un sano consejo que nos da Elektro y se agradece

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

Perfecto


Gracias elektro


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

Perfecto profesor otra cosa que aprendi con esta programacion gracias a ti

hasta otra

Luis

Ostias     me pateo el ordenador jejejj , es broma con los controles no hay problemas pero con las variables me sale este error


"resultss3' no es un miembro de 'WindowsApplication1.Form1'.

Npi

Luis

Muchas veces temo preguntar, por los regaños tuyos

gracias elektro

Luis
 

Hola de nuevo por estos lares se que mi amigo Elecktro se preguntaria por mi jejje

Bueno os cuento a medida que avanzo con mas variables en mi programa me surge un problema  si hago las primeras operaciones me salen las cuentas bien,pero la siguiente ves que vuelvo a calcular me encuentro que las cuentas son otras diferentes yo creo que aunque uso un codigo me quedan todas las variables cargadas con el primer calculo y solo borro son los texboxes, esto se corrige cuando cierro el editor y vuelvo a abrir el programa
no se como limpiar las variables sin tener que cerrar todo y empezar de nuevo ;(

  Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        For Each obj As Control In Me.Controls
            If (TypeOf obj Is TextBox) Then
                obj.Text = ""
            End If
            If (TypeOf obj Is GroupBox) Then
                For Each caja As Control In obj.Controls
                    If (TypeOf caja Is TextBox) Then
                        caja.Text = ""
                    End If
                Next
            End If
            ListBox1.Items.Clear()
            ListBox2.Items.Clear()
            ListBox3.Items.Clear()
            ListBox7.Items.Clear()
 
        Next
    End Sub

Luis