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 ?
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 ?
?????? ni mi amigo Elektro jejjeje
Yo no entiendo muy bien la pregunta "saber los números que faltan dentro del rango".
saludos
Cita de: Eleкtro en 18 Enero 2014, 20:28 PM
Yo no entiendo muy bien la pregunta "saber los números que faltan dentro del rango".
saludos
Se referirá a los numeros que no esten entre 0 y 99
!!!CREO!!!
ReadOnly MAX As Integer = 99
Select(Function(Value As Integer)
Return If(Value < MAX, Value, Rand.Next(0, MAX))
End Function))Hombre pues asi a bote pronto o hace un if con Value > MAX o en el if añades un else para que cualquier otro resultado que no sea Value < MAX. Iba a dejar code pero de los retos se aprende ;D ;D
Saludos.
Cita de: .:Weeds:. en 19 Enero 2014, 02:58 AMSe referirá a los numeros que no esten entre 0 y 99 !!!CREO!!!
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
Cita de: Eleкtro en 19 Enero 2014, 04:15 AM
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
mi solución seria organizar el array y recorrerlo buscando donde se salta :P
Cita de: luis456 en 19 Enero 2014, 09:44 AMSi 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
Eso es algo facil de hacer ya sea usando un FOR o usando LINQ, pero como no encontré nada en Google para mostrarte diréctamente un ejemplo parecido al problema que describiste, yo mismo hice una función de uso genérico, aquí la tienes:
Cita de: http://foro.elhacker.net/net/libreria_de_snippets_compartan_aqui_sus_snippets-t378770.0.html;msg1913189#msg1913189
' Get Numbers Not In Range.
' ( By Elektro )
'
' Usage Examples:
'
' MsgBox(String.Join(", ", GetNumbersNotInRange({1, 3, 5, 7, 9}, 0, 10).ToArray)) ' Result: 0, 2, 4, 6, 8, 10
'
''' <summary>
''' Given a numeric collection, gets all the numbers which are not in a specified range.
''' </summary>
''' <param name="NumbersInRange">Indicates the numbers collection which are in range.</param>
''' <param name="MinRange">Indicates the minimum range.</param>
''' <param name="MaxRange">Indicates the maximum range.</param>
''' <returns>System.Collections.Generic.IEnumerable(Of System.Int32).</returns>
Private Function GetNumbersNotInRange(ByVal NumbersInRange As IEnumerable(Of Integer),
ByVal MinRange As Integer,
ByVal MaxRange As Integer) As IEnumerable(Of Integer)
Return From Number As Integer
In Enumerable.Range(MinRange, MaxRange + 1)
Where Not NumbersInRange.Contains(Number)
End Function
Ejemplo de uso:
Private Sub Test(sender As Object, e As EventArgs) Handles MyBase.Shown
Dim NumbersInRange As Integer() = {2, 4, 6, 8, 9}
Dim NumbersNotInRange As Integer() = GetNumbersNotInRange(NumbersInRange, 0, 10).ToArray
MsgBox(String.Join(", ", NumbersNotInRange)) ' Result: 0, 1, 3, 5, 7, 10
End SubSaludos
Cita de: Eleкtro en 19 Enero 2014, 04:15 AM
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
No era sarcasmo, puse creo (Lo añadi editando el mensaje) por que no estaba seguro :¬¬ despues de leer el mensaje 3 o 4 veces mas.
Saludos.
Nada dos dias y nada no logro hacerlo funcionar :rolleyes:
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
como aun no estoy muy familiarizado con tu sintaxis lo hare a mi manera (espero se entienda xD)
Dim arregloSumas() As Integer = {10, 15, 20, 25, 30}
Dim numerosFaltantesdelRango() As Integer = {}
Dim rango_min As Integer = 0, rango_max As Integer = 99
Dim tamanio As Integer
Dim val As Integer
For i = rango_min To rango_max
val = i
If Array.Exists(arregloSumas, Function(value As Integer) value = val) = False Then 'Compruebo si el valor de i no aparece en el arreglo de las sumas
tamanio = numerosFaltantesdelRango.Length + 1
ReDim numerosFaltantesdelRango(tamanio)
numerosFaltantesdelRango(tamanio) = val 'Agrego el valor al arreglo
End If
Next
ListBox1.Items.AddRange(numerosFaltantesdelRango.Cast(Of Object).ToArray)
Cita de: luis456 en 21 Enero 2014, 16:54 PM
Nada dos dias y nada no logro hacerlo funcionar :rolleyes:
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!
Cita de: Eleкtro en 21 Enero 2014, 22:29 PM
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 "
' 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
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:
Result11 = Result11.Select(Function(Value As Integer) If(Value < MAX, Value, Rand.Next(0, MAX)))Y por cierto, esto tal vez quieras revisarlo...:
Citar(Result1.Concat(Result3).Concat(Result3)
(concatenas dos veces Result3).
Saludos
Cita de: Eleкtro en 22 Enero 2014, 14:19 PM
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:
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
seguimos :)
error de resolucion de sobre carga pongo codigo entero
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
Cita de: luis456 en 22 Enero 2014, 15:04 PM
seguimos :)
error de resolucion de sobre carga pongo codigo entero
Result11 = Result11.Select(Function(Value As Integer) If(Value < MAX, Value, Rand.Next(0, MAX))) <----------------------aca
Veo que has marcado el error en la misma linea ...pero con la modificación que te puse arriba debería funcionar corréctamente.
Esto que dijiste la verdad es que no me sirve de nada:
Citarerror de resolucion de sobre carga
Si puedes modifica el lenguaje de la IDE para mostrar el mensaje de error en Inglés, pero muestra el mensaje completo no como has hecho las dos veces anteriores xD, debes mostrar el
tipo de excepción además de los
detalles del error y el
número de linea donde te salta la excepción.
saludos
Hola esto es lo que puedo copiar,me remarca todo el codigo que me diste
Result11 = Result11.Select(Function(Value As Integer) If(Value < MAX, Value, Rand.Next(0, MAX)))CitarError 2 Error de resolución de sobrecarga porque ninguna de las funciones 'Select' a las que se tiene acceso se puede llamar con estos argumentos:
Método de extensión 'Public Function Select(Of TResult)(selector As System.Func(Of Integer, Integer, TResult)) As System.Collections.Generic.IEnumerable(Of TResult)' definido en 'System.Linq.Enumerable': La función anidada no tiene una firma compatible con el delegado 'System.Func(Of Integer, Integer, TResult)'.
Método de extensión 'Public Function Select(Of TResult)(selector As System.Func(Of Integer, Integer, TResult)) As System.Collections.Generic.IEnumerable(Of TResult)' definido en 'System.Linq.Enumerable': Los tipos de datos de los parámetros de tipo no se pueden inferir de estos argumentos. Este error se puede resolver especificando los tipos de datos explícitamente.
Método de extensión 'Public Function Select(Of TResult)(selector As System.Func(Of Integer, TResult)) As System.Collections.Generic.IEnumerable(Of TResult)' definido en 'System.Linq.Enumerable': 'Rand' no está declarado. Puede que esté inaccesible debido a su nivel de protección.
Método de extensión 'Public Function Select(Of TResult)(selector As System.Func(Of Integer, TResult)) As System.Collections.Generic.IEnumerable(Of TResult)' definido en 'System.Linq.Enumerable': Los tipos de datos de los parámetros de tipo no se pueden inferir de estos argumentos. Este error se puede resolver especificando los tipos de datos explícitamente. C:\Users\Acuario\documents\visual studio 2010\Projects\Preueba\Preueba\Form1.vb 78 20 Preueba
Luis
A simple vista, no hay nada erroneo en la instrucción.
comprueba si la linea que me has mostrado es la misma que hace referencia a esta:
CitarForm1.vb 78
Comprueba que todos los valores que usas en el método de LINQ seán Integers, no longs no shorts no otra cosa, y prueba así, sin especificar el datatype de retorno:
Result11 = Result11.Select(Function(Value) If(Value < MAX, Value, Rand.Next(0, MAX)))De todas formas aún sigo esperando a que des un
maldito detalle sobre el tipo de excepción de la que se trata, si en tiempo de ejecución o un error de compilación, aunque está claro que es de compilación pero bueno... para la próxima vez.
PD: Siempre puedes ponerle un par de breakpoints para inspeccionar más detalládamente los sucesos si se trata de una excepción en tiempo de ejecución.
saludos
Cita de: Eleкtro en 22 Enero 2014, 17:28 PM
A simple vista, no hay nada erroneo en la instrucción.
comprueba si la linea que me has mostrado es la misma que hace referencia a esta:
Comprueba que todos los valores que usas en el método de LINQ seán Integers, no longs no shorts no otra cosa, y prueba así, sin especificar el datatype de retorno:
Result11 = Result11.Select(Function(Value) If(Value < MAX, Value, Rand.Next(0, MAX)))
De todas formas aún sigo esperando a que des un maldito detalle sobre el tipo de excepción de la que se trata, si en tiempo de ejecución o un error de compilación, aunque está claro que es de compilación pero bueno... para la próxima vez.
PD: Siempre puedes ponerle un par de breakpoints para inspeccionar más detalládamente los sucesos si se trata de una excepción en tiempo de ejecución.
saludos
si elektro hace referencia a
Form1.vb 78
Y el error es en tiempo de compilación
Luis
Bien todavia super atascado
No habria una forma de comparar los resultados del array que contiene los resultados
con los numeros del 00 al 99 y que diga cuales faltan ?
Joe pense que esto era facil jejej.
Luis
Cita de: luis456 en 24 Enero 2014, 16:52 PM
Bien todavia super atascado
No habria una forma de comparar los resultados del array que contiene los resultados
con los numeros del 00 al 99 y que diga cuales faltan ?
Joe pense que esto era facil jejej.
Luis
en la respuesta que puse te deje un algoritmo sencillo de como hacer eso, y funciona
Cita de: Legnak en 25 Enero 2014, 17:31 PM
en la respuesta que puse te deje un algoritmo sencillo de como hacer eso, y funciona
Como ya comente en esto soy novato lo mio era el viejo foxpro jejej pongo el codigo pero me error
Public Class Form1
Dim Max As Integer = 99
Dim Xmin As Integer = 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
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)
' Dim arregloSumas() As Integer = {10, 15, 20, 25, 30}
Dim numerosFaltantesdelRango() As Integer = {}
Dim rango_min As Integer = 0, rango_max As Integer = 99
Dim tamanio As Integer
Dim val As Integer
For i = rango_min To rango_max
val = i
If Array.Exists(Result11, Function(value As Integer) value = val) = False Then 'Compruebo si el valor de i no aparece en el arreglo de las sumas
tamanio = numerosFaltantesdelRango.Length + 1
ReDim numerosFaltantesdelRango(tamanio)
numerosFaltantesdelRango(tamanio) = val 'Agrego el valor al arreglo
End If
Next
ListBox1.Items.AddRange(numerosFaltantesdelRango.Cast(Of Object).ToArray)
End Sub
End Class
ahora si funciona :)
Public Class Form1
Dim Max As Integer = 99
Dim Xmin As Integer = 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
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)
' Dim arregloSumas() As Integer = {10, 15, 20, 25, 30}
Dim numerosFaltantesdelRango() As Integer = {}
Dim rango_min As Integer = 0, rango_max As Integer = 99
Dim tamanio As Integer
Dim val As Integer
Dim test As Integer
For i = rango_min To rango_max
val = i
If Array.Exists(Result11.Cast(Of Object).ToArray, Function(value As Integer) value = val) = False Then 'Compruebo si el valor de i no aparece en el arreglo de las sumas
test += 1
tamanio = UBound(numerosFaltantesdelRango) + 1
ReDim Preserve numerosFaltantesdelRango(tamanio)
numerosFaltantesdelRango(tamanio) = val 'Agrego el valor al arreglo
End If
Next
ListBox1.Items.AddRange(numerosFaltantesdelRango.Cast(Of Object).ToArray)
End Sub
End Class
Cita de: Legnak en 28 Enero 2014, 01:07 AM
ahora si funciona :)
Public Class Form1
Dim Max As Integer = 99
Dim Xmin As Integer = 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
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)
' Dim arregloSumas() As Integer = {10, 15, 20, 25, 30}
Dim numerosFaltantesdelRango() As Integer = {}
Dim rango_min As Integer = 0, rango_max As Integer = 99
Dim tamanio As Integer
Dim val As Integer
Dim test As Integer
For i = rango_min To rango_max
val = i
If Array.Exists(Result11.Cast(Of Object).ToArray, Function(value As Integer) value = val) = False Then 'Compruebo si el valor de i no aparece en el arreglo de las sumas
test += 1
tamanio = UBound(numerosFaltantesdelRango) + 1
ReDim Preserve numerosFaltantesdelRango(tamanio)
numerosFaltantesdelRango(tamanio) = val 'Agrego el valor al arreglo
End If
Next
ListBox1.Items.AddRange(numerosFaltantesdelRango.Cast(Of Object).ToArray)
End Sub
End Class
Perfecto perfecto ;-) ;-) ;-)
Funciona como quería ¡ muchas gracias por tu ayuda
Luis