elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Únete al Grupo Steam elhacker.NET


  Mostrar Mensajes
Páginas: 1 ... 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 [39] 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55
381  Programación / .NET (C#, VB.NET, ASP) / Re: Como puedo saber los números que faltan dentro del rango ? en: 28 Enero 2014, 11:43 am
Cita de: Legnak en 28 Enero 2014, 01:07 am
ahora si funciona  :)
Código
  1. Public Class Form1
  2.  
  3.     Dim Max As Integer = 99
  4.     Dim Xmin As Integer = 0
  5.     Dim x As Integer = 0
  6.     Dim Número As Double
  7.  
  8.     Private TextBoxes As TextBox() = {Nothing}
  9.     Private Result1 As Int32(), Result2 As Int32(), Result3 As Int32()
  10.     Private _textBox As Object
  11.     Private _getNumbersNotInRange As Object
  12.  
  13.     Private Property ListBox1Count As Integer
  14.  
  15.     Private Property Calcular As Object
  16.  
  17.     Private Property TextBox(ByVal TextBoxCount As Short) As Object
  18.         Get
  19.             Return _textBox
  20.         End Get
  21.         Set(ByVal value As Object)
  22.             _textBox = value
  23.         End Set
  24.     End Property
  25.  
  26.  
  27.     ReadOnly Property Num1 As Int32
  28.         Get
  29.             Return CInt(TextBox1.Text)
  30.         End Get
  31.     End Property
  32.  
  33.     ReadOnly Property Num2 As Int32
  34.         Get
  35.             Return CInt(TextBox2.Text)
  36.         End Get
  37.     End Property
  38.     ReadOnly Property Num3 As Int32
  39.         Get
  40.             Return CInt(TextBox3.Text)
  41.         End Get
  42.     End Property
  43.  
  44.     Private Property GetNumbersNotInRange(ByVal Result11 As IEnumerable(Of Integer), ByVal Xmin As Integer, ByVal XMax As Integer) As Object
  45.         Get
  46.             Return _getNumbersNotInRange
  47.         End Get
  48.         Set(ByVal value As Object)
  49.             _getNumbersNotInRange = value
  50.         End Set
  51.     End Property
  52.  
  53.  
  54.     Private Sub Sumar(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
  55.  
  56.  
  57.  
  58.         Result1 = {Num1 + 10, Num1 + 20, Num1 + 30} _
  59.                   .Distinct().ToArray ' Elimino duplicados
  60.  
  61.         Result2 = {Num2 + 10, Num2 + 20, Num2 + 30} _
  62.                   .Distinct().ToArray ' Elimino duplicados
  63.  
  64.         Result3 = {Num3 + 10, Num3 + 20, Num3 + 30} _
  65.                   .Distinct().ToArray ' Elimino duplicados
  66.         ' primero concatenas y eliminas duplicados en el primer array:
  67.  
  68.         Dim Result11 As IEnumerable(Of Integer) =
  69.         (Result1.Concat(Result2).Concat(Result3).
  70.           Distinct)
  71.  
  72.  
  73.         ' Dim arregloSumas() As Integer = {10, 15, 20, 25, 30}
  74.         Dim numerosFaltantesdelRango() As Integer = {}
  75.         Dim rango_min As Integer = 0, rango_max As Integer = 99
  76.         Dim tamanio As Integer
  77.         Dim val As Integer
  78.  
  79.  
  80.         Dim test As Integer
  81.         For i = rango_min To rango_max
  82.             val = i
  83.             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
  84.  
  85.                 test += 1
  86.                 tamanio = UBound(numerosFaltantesdelRango) + 1
  87.                 ReDim Preserve numerosFaltantesdelRango(tamanio)
  88.                 numerosFaltantesdelRango(tamanio) = val 'Agrego el valor al arreglo
  89.  
  90.             End If
  91.         Next
  92.  
  93.         ListBox1.Items.AddRange(numerosFaltantesdelRango.Cast(Of Object).ToArray)
  94.  
  95.     End Sub
  96. End Class



Perfecto perfecto  ;-)  ;-)  ;-)

Funciona como quería ¡ muchas gracias por tu ayuda

Luis
382  Programación / .NET (C#, VB.NET, ASP) / Re: Como puedo saber los números que faltan dentro del rango ? en: 26 Enero 2014, 18:40 pm
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

Código
  1. Public Class Form1
  2.  
  3.     Dim Max As Integer = 99
  4.     Dim Xmin As Integer = 0
  5.     Dim x As Integer = 0
  6.     Dim Número As Double
  7.  
  8.     Private TextBoxes As TextBox() = {Nothing}
  9.     Private Result1 As Int32(), Result2 As Int32(), Result3 As Int32()
  10.     Private _textBox As Object
  11.     Private _getNumbersNotInRange As Object
  12.  
  13.     Private Property ListBox1Count As Integer
  14.  
  15.     Private Property Calcular As Object
  16.  
  17.     Private Property TextBox(ByVal TextBoxCount As Short) As Object
  18.         Get
  19.             Return _textBox
  20.         End Get
  21.         Set(ByVal value As Object)
  22.             _textBox = value
  23.         End Set
  24.     End Property
  25.  
  26.  
  27.     ReadOnly Property Num1 As Int32
  28.         Get
  29.             Return CInt(TextBox1.Text)
  30.         End Get
  31.     End Property
  32.  
  33.     ReadOnly Property Num2 As Int32
  34.         Get
  35.             Return CInt(TextBox2.Text)
  36.         End Get
  37.     End Property
  38.     ReadOnly Property Num3 As Int32
  39.         Get
  40.             Return CInt(TextBox3.Text)
  41.         End Get
  42.     End Property
  43.  
  44.     Private Property GetNumbersNotInRange(ByVal Result11 As IEnumerable(Of Integer), ByVal Xmin As Integer, ByVal XMax As Integer) As Object
  45.         Get
  46.             Return _getNumbersNotInRange
  47.         End Get
  48.         Set(ByVal value As Object)
  49.             _getNumbersNotInRange = value
  50.         End Set
  51.     End Property
  52.  
  53.  
  54.     Private Sub Sumar(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
  55.  
  56.  
  57.  
  58.         Result1 = {Num1 + 10, Num1 + 20, Num1 + 30} _
  59.                   .Distinct().ToArray ' Elimino duplicados
  60.  
  61.         Result2 = {Num2 + 10, Num2 + 20, Num2 + 30} _
  62.                   .Distinct().ToArray ' Elimino duplicados
  63.  
  64.         Result3 = {Num3 + 10, Num3 + 20, Num3 + 30} _
  65.                   .Distinct().ToArray ' Elimino duplicados
  66.         ' primero concatenas y eliminas duplicados en el primer array:
  67.  
  68.         Dim Result11 As IEnumerable(Of Integer) =
  69.         (Result1.Concat(Result2).Concat(Result3).
  70.           Distinct)
  71.  
  72.  
  73.         ' Dim arregloSumas() As Integer = {10, 15, 20, 25, 30}
  74.         Dim numerosFaltantesdelRango() As Integer = {}
  75.         Dim rango_min As Integer = 0, rango_max As Integer = 99
  76.         Dim tamanio As Integer
  77.         Dim val As Integer
  78.  
  79.         For i = rango_min To rango_max
  80.             val = i
  81.             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
  82.                 tamanio = numerosFaltantesdelRango.Length + 1
  83.                 ReDim numerosFaltantesdelRango(tamanio)
  84.                 numerosFaltantesdelRango(tamanio) = val 'Agrego el valor al arreglo
  85.             End If
  86.         Next
  87.         ListBox1.Items.AddRange(numerosFaltantesdelRango.Cast(Of Object).ToArray)
  88.     End Sub
  89. End Class
  90.  
383  Programación / .NET (C#, VB.NET, ASP) / Re: Como puedo saber los números que faltan dentro del rango ? 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
384  Programación / .NET (C#, VB.NET, ASP) / Re: Como puedo saber los números que faltan dentro del rango ? en: 22 Enero 2014, 17:43 pm
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:
Código
  1.  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
385  Programación / .NET (C#, VB.NET, ASP) / Re: Como puedo saber los números que faltan dentro del rango ? en: 22 Enero 2014, 17:14 pm
Hola esto es lo que puedo copiar,me remarca todo el codigo que me diste

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



Citar
Error   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
386  Programación / .NET (C#, VB.NET, ASP) / Re: Como puedo saber los números que faltan dentro del rango ? en: 22 Enero 2014, 15:04 pm
seguimos :)

error de resolucion de sobre carga pongo codigo entero


 
Código:
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
387  Programación / .NET (C#, VB.NET, ASP) / Re: Como puedo saber los números que faltan dentro del rango ? en: 22 Enero 2014, 14:46 pm
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:

Código
  1. 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
388  Programación / .NET (C#, VB.NET, ASP) / Re: Como puedo saber los números que faltan dentro del rango ? en: 22 Enero 2014, 10:31 am
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 "



Código:
 ' 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
389  Programación / .NET (C#, VB.NET, ASP) / Re: Como puedo saber los números que faltan dentro del rango ? en: 21 Enero 2014, 16:54 pm
Nada dos dias y nada no logro hacerlo funcionar  :rolleyes:


Código
  1. Public Class Form1
  2.  
  3.     Dim XMax As Short = 99
  4.     Dim Xmin As Short = 0
  5.     Dim x As Integer = 0
  6.     Dim Número As Double
  7.     Private TextBoxes As TextBox() = {Nothing}
  8.     Private Result1 As Int32(), Result2 As Int32(), Result3 As Int32()
  9.     Private _textBox As Object
  10.     Private _getNumbersNotInRange As Object
  11.  
  12.     Private Property ListBox1Count As Integer
  13.     ReadOnly MAX As Integer = 99
  14.     Private Property Calcular As Object
  15.  
  16.     Private Property TextBox(ByVal TextBoxCount As Short) As Object
  17.         Get
  18.             Return _textBox
  19.         End Get
  20.         Set(ByVal value As Object)
  21.             _textBox = value
  22.         End Set
  23.     End Property
  24.  
  25.  
  26.     ReadOnly Property Num1 As Int32
  27.         Get
  28.             Return CInt(TextBox1.Text)
  29.         End Get
  30.     End Property
  31.  
  32.     ReadOnly Property Num2 As Int32
  33.         Get
  34.             Return CInt(TextBox2.Text)
  35.         End Get
  36.     End Property
  37.     ReadOnly Property Num3 As Int32
  38.         Get
  39.             Return CInt(TextBox3.Text)
  40.         End Get
  41.     End Property
  42.  
  43.     Private Property GetNumbersNotInRange(ByVal Result11 As IEnumerable(Of Integer), ByVal Xmin As Integer, ByVal XMax As Integer) As Object
  44.         Get
  45.             Return _getNumbersNotInRange
  46.         End Get
  47.         Set(ByVal value As Object)
  48.             _getNumbersNotInRange = value
  49.         End Set
  50.     End Property
  51.  
  52.  
  53.     Private Sub Sumar(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
  54.  
  55.  
  56.  
  57.         Result1 = {Num1 + 10, Num1 + 20, Num1 + 30} _
  58.                   .Distinct().ToArray ' Elimino duplicados
  59.  
  60.         Result2 = {Num2 + 10, Num2 + 20, Num2 + 30} _
  61.                   .Distinct().ToArray ' Elimino duplicados
  62.  
  63.         Result3 = {Num3 + 10, Num3 + 20, Num3 + 30} _
  64.                   .Distinct().ToArray ' Elimino duplicados
  65.  
  66.  
  67.         ' primero concatenas y eliminas duplicados en el primer array:
  68.         Dim Result11 As IEnumerable(Of Integer) =
  69.               (Result1.Concat(Result3).Concat(Result3).
  70.               Distinct).ToArray
  71.  
  72.         ' luego instancias un segundo array que obtiene los números que no están dentro del rango 'Xmin'-'Xmax' del primer array:
  73.         Dim NumbersNotInRange As Integer() =
  74.              GetNumbersNotInRange(Result11, Xmin, XMax).ToArray
  75.  
  76.         ' Y por último reemplazas los números que no están en el rango, en el primer array:
  77.        Result11 =Result11.Select(Function(Value As Integer)
  78.                               ReadOnly If(Value < MAX, Value, Rand.Next(0, MAX))
  79.                    End Function))
  80.  
  81.  
  82.         ' y los añades a los listbox:
  83.         ListBox1.Items.AddRange(Result11.Cast(Of Object).ToArray)
  84.         ListBox2.Items.AddRange(NumbersNotInRange.Cast(Of Object).ToArray)
  85.  
  86.  
  87.     End Sub
  88.  
  89.  
  90. End Class

Luis
390  Programación / .NET (C#, VB.NET, ASP) / Re: Como puedo saber los números que faltan dentro del rango ? en: 19 Enero 2014, 09:44 am
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
Páginas: 1 ... 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 [39] 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines