Mensajes

seguimos

error de resolucion de sobre carga pongo codigo entero

Código [Seleccionar] Expandir

Public Class Form1

   Dim XMax As Short = 99
   Dim Xmin As Short = 0
   Dim x As Integer = 0
   Dim Número As Double
   Private TextBoxes As TextBox() = {Nothing}
   Private Result1 As Int32(), Result2 As Int32(), Result3 As Int32()
   Private _textBox As Object
   Private _getNumbersNotInRange As Object

   Private Property ListBox1Count As Integer
   ReadOnly MAX As Integer = 99
   Private Property Calcular As Object

   Private Property TextBox(ByVal TextBoxCount As Short) As Object
       Get
           Return _textBox
       End Get
       Set(ByVal value As Object)
           _textBox = value
       End Set
   End Property


   ReadOnly Property Num1 As Int32
       Get
           Return CInt(TextBox1.Text)
       End Get
   End Property

   ReadOnly Property Num2 As Int32
       Get
           Return CInt(TextBox2.Text)
       End Get
   End Property
   ReadOnly Property Num3 As Int32
       Get
           Return CInt(TextBox3.Text)
       End Get
   End Property

   Private Property GetNumbersNotInRange(ByVal Result11 As IEnumerable(Of Integer), ByVal Xmin As Integer, ByVal XMax As Integer) As Object
       Get
           Return _getNumbersNotInRange
       End Get
       Set(ByVal value As Object)
           _getNumbersNotInRange = value
       End Set
   End Property


   Private Sub Sumar(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click

       

       Result1 = {Num1 + 10, Num1 + 20, Num1 + 30} _
                 .Distinct().ToArray ' Elimino duplicados

       Result2 = {Num2 + 10, Num2 + 20, Num2 + 30} _
                 .Distinct().ToArray ' Elimino duplicados

       Result3 = {Num3 + 10, Num3 + 20, Num3 + 30} _
                 .Distinct().ToArray ' Elimino duplicados

       

      ' primero concatenas y eliminas duplicados en el primer array:
       Dim Result11 As IEnumerable(Of Integer) =
             (Result1.Concat(Result2).Concat(Result3).
             Distinct)

       ' luego instancias un segundo array que obtiene los números que no están dentro del rango 'Xmin'-'Xmax' del primer array:
       Dim NumbersNotInRange As Integer() =
            GetNumbersNotInRange(Result11, Xmin, XMax).ToArray

       ' Y por último reemplazas los números que no están en el rango, en el primer array:
       Result11 = Result11.Select(Function(Value As Integer) If(Value < MAX, Value, Rand.Next(0, MAX))) <----------------------aca


       ' y los añades a los listbox:
       ListBox1.Items.AddRange(Result11.Cast(Of Object).ToArray)
       ListBox2.Items.AddRange(NumbersNotInRange.Cast(Of Object).ToArray)



   End Sub
End Class


Luis

El código de arriba lo escribí al vuelo, no me di cuenta de un fallo muy grande, en lugar de un Return le puse ReadOnly xD, déjalo asi:

Código (vbnet) [Seleccionar] Expandir

Result11 = Result11.Select(Function(Value As Integer) If(Value < MAX, Value, Rand.Next(0, MAX)))

Y por cierto, esto tal vez quieras revisarlo...:
(concatenas dos veces Result3).

Saludos

Si elektro lo pille tarde cuando puse el post las putas prisas y la presbicia de mis ojos me juegan malas pasadas jejej.ahora pruebo de nuevo a ver


Gracias
Luis

Porfavor, detalles!.

1. Que significa "no funciona", ¿te salta alguna excepción?.

2. Número de linea exacta en el que te salta la excepción junto al mensaje de error y el stacktrace.

saludos!

Me salta esto " error de sobrecarga porque ninguna seleccion selet se puede llamar a las que se tiene acceso se puede llamar
con estos argumentos "

Código [Seleccionar] Expandir

' primero concatenas y eliminas duplicados en el primer array:
        Dim Result11 As IEnumerable(Of Integer) =
              (Result1.Concat(Result3).Concat(Result3).
              Distinct).ToArray

        ' luego instancias un segundo array que obtiene los números que no están dentro del rango 'Xmin'-'Xmax' del primer array:
        Dim NumbersNotInRange As Integer() =
             GetNumbersNotInRange(Result11, Xmin, XMax).ToArray

        ' Y por último reemplazas los números que no están en el rango, en el primer array:
         Result11 =Result11.Select(Function(Value As Integer)
             ReadOnly If(Value < MAX, Value, Rand.Next(0, MAX))  <-----error de sobrecarga porque ninguna seleccion selet se puede llamar a las que se tiene acceso se puede llamar
con estos argumentos
                                        End Function))


        ' y los añades a los listbox:
        ListBox1.Items.AddRange(Result11.Cast(Of Object).ToArray)
        ListBox2.Items.AddRange(NumbersNotInRange.Cast(Of Object).ToArray)

 


Luis

Nada dos dias y nada no logro hacerlo funcionar  

Código (vbnet) [Seleccionar] Expandir

Public Class Form1

   Dim XMax As Short = 99
   Dim Xmin As Short = 0
   Dim x As Integer = 0
   Dim Número As Double
   Private TextBoxes As TextBox() = {Nothing}
   Private Result1 As Int32(), Result2 As Int32(), Result3 As Int32()
   Private _textBox As Object
   Private _getNumbersNotInRange As Object

   Private Property ListBox1Count As Integer
   ReadOnly MAX As Integer = 99
   Private Property Calcular As Object

   Private Property TextBox(ByVal TextBoxCount As Short) As Object
       Get
           Return _textBox
       End Get
       Set(ByVal value As Object)
           _textBox = value
       End Set
   End Property


   ReadOnly Property Num1 As Int32
       Get
           Return CInt(TextBox1.Text)
       End Get
   End Property

   ReadOnly Property Num2 As Int32
       Get
           Return CInt(TextBox2.Text)
       End Get
   End Property
   ReadOnly Property Num3 As Int32
       Get
           Return CInt(TextBox3.Text)
       End Get
   End Property

   Private Property GetNumbersNotInRange(ByVal Result11 As IEnumerable(Of Integer), ByVal Xmin As Integer, ByVal XMax As Integer) As Object
       Get
           Return _getNumbersNotInRange
       End Get
       Set(ByVal value As Object)
           _getNumbersNotInRange = value
       End Set
   End Property


   Private Sub Sumar(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click

       

       Result1 = {Num1 + 10, Num1 + 20, Num1 + 30} _
                 .Distinct().ToArray ' Elimino duplicados

       Result2 = {Num2 + 10, Num2 + 20, Num2 + 30} _
                 .Distinct().ToArray ' Elimino duplicados

       Result3 = {Num3 + 10, Num3 + 20, Num3 + 30} _
                 .Distinct().ToArray ' Elimino duplicados

       
       ' primero concatenas y eliminas duplicados en el primer array:
       Dim Result11 As IEnumerable(Of Integer) =
             (Result1.Concat(Result3).Concat(Result3).
             Distinct).ToArray

       ' luego instancias un segundo array que obtiene los números que no están dentro del rango 'Xmin'-'Xmax' del primer array:
       Dim NumbersNotInRange As Integer() =
            GetNumbersNotInRange(Result11, Xmin, XMax).ToArray

       ' Y por último reemplazas los números que no están en el rango, en el primer array:
      Result11 =Result11.Select(Function(Value As Integer)
                             ReadOnly If(Value < MAX, Value, Rand.Next(0, MAX))
                  End Function))


       ' y los añades a los listbox:
       ListBox1.Items.AddRange(Result11.Cast(Of Object).ToArray)
       ListBox2.Items.AddRange(NumbersNotInRange.Cast(Of Object).ToArray)


   End Sub

   
End Class

Luis

[un número que no está dentro de una suma]

Aquí no es necesario el sarcasmo, primero habla del rango, pero luego según dice: 'me gustaria mostrar en otro listbox los números que " NO " están dentro de estas sumas', como ves no dice: 'los números que NO están dentro del rango'.

Si tu comprendes lo que significa "un número que no está dentro de una suma", me parece bien, aunque digo yo que si sumas 1+1 todo el resto de números existentes estarán fuera de la suma, así que a dudas poco detalladas prefiero preguntar para estar seguro de lo que quiere.

Saludos

Hola

No vi anoche el tema jej

Si Elektro si la función ( pondré corto los números)  me da"  2, 4 ,6,8, 9 " y el rango es de 0 al 10  entonces me faltaría el " 1,3, 5, 7 "  ademas de mostrar "  2, 4 ,6,8, 9 "  también quiero mostrar " 1,3, 5, 7 " pero en otro listbox


Luis

?????? ni mi amigo Elektro jejjeje

Como puedo saber los números que faltan dentro del rango ? tengo esta función que recibe los resultados de tres array donde hago unas sumas: y me gustaria mostrar en otro listbox los números que " NO " están dentro de estas sumas. es posible ?

Código (vbnet) [Seleccionar] Expandir

Rango 00 al 99

ReadOnly MAX As Integer = 99

Dim Rand 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 Result1 As IEnumerable(Of Integer) =
           (Result1.Concat(Result3).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

       ListBox11.Items.AddRange(Result1.Cast(Of Object).ToArray)


Luis

Edito= no se porque no me sale bien el poner el codigo entre el insert codigo ?

[Abs]

La pregunta es, ¿que haces para que se lleguen a mostrar esos símbolos?.

Si tienes problemas con números negativos puedes usar el método Abs de la class Math

Código (vbnet) [Seleccionar] Expandir

        Dim i As Integer = -1

        ListBox1.Items.Add(i) ' Result = -1

        i = Math.Abs(i)

        ListBox1.Items.Add(i) ' Result = 1

PD: Lo que quiero decir con esto es que los cambios necesarios házselos al objeto que contenga los números, olvida el ListBox ...no lo modifiques diréctamente.

Saludos

Aveces en la suma o resta que hago me nuestra -20 ( el signo debo de quitarlo )

Código [Seleccionar] Expandir

Dim Result22 As IEnumerable(Of Integer) =
            (Result1).
            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

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


Luis

Por mas que busco en propiedades no encuentro la forma que no se muestre los signos - o + en un listbox

Luis

Gracias elektro
esa respuesta me dice que todo es cuestión de diseño vale lo probare:) se me ocurre hacer algo como esto, es de combinatoria pero ni idea de como enfocar lo de las cuatro posiciones ni como tomar los numeros del array

Código [Seleccionar] Expandir

Private Function Result2345() As Integer
        Dim a, f, b, c, d, e As Integer <------------------?????
        Dim va As String
        For f = 1 To 5
            For a = 1 To 5
                For b = 1 To 5
                    For c = 1 To 5
                        For d = 1 To 5
                            For e = 1 To 5
                                TextBox7.Text = "a & b & c & d & e" <--no logro verlo jeje

                            Next e
                        Next d
                    Next c
                Next b
            Next a
        Next f
        Return va
    End Function

saludos
Luis