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


 


Tema destacado: Introducción a  Git (Primera Parte)


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP) (Moderador: kub0x)
| | | |-+  Arrays en VB.net
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Arrays en VB.net  (Leído 1,347 veces)
xRayderx

Desconectado Desconectado

Mensajes: 4


Yare yare daze


Ver Perfil
Arrays en VB.net
« en: 6 Marzo 2018, 04:48 »

Hola, soy nuevo en el tema de arrays en vb.net y tengo una duda acerca de como codificar lo siguiente:

quiero realizar un programa que mediante cajas de texto almacene en 2 arrays 20 numeros, luego sumar los elementos de cada arreglo, ubicarlos de mayor a menor y que el promedio de los datos se almacene en otro arreglo mostrando los resultados en un listbox.

Saludos!


En línea

Eleкtro
Ex-Staff
*
Desconectado Desconectado

Mensajes: 9.709



Ver Perfil
Re: Arrays en VB.net
« Respuesta #1 en: 6 Marzo 2018, 06:03 »

Hola. Ha quedado claro lo que quieres hacer, ¿pero podrías explicar exactamente con que cosa es que estás teniendo dificultades para avanzar?, empecemos por lo básico: ¿sabes declarar y usar un array, o una colección enumerable?.



Bueno, te explicaré un poco por encima como puedes llevarlo todo a cabo:

1. asumiremos que en realidad no tienes ninguna necesidad real de utilizar un Array, por ende, declara una colección genérica, de tipo List(Of Integer) (por ejemplo).

2. si estás usando un botón para añadir el valor especificado en el TextBox, entonces suscríbete al evento Button.Click y ahí añades un elemento (el texto del TextBox) a la colección List que declaraste.
si no usas un botón, como alternativa puedes suscribirte al evento TextBox.KeyPress para interceptar la tecla "ENTER" y añadir el elemento a la colección.

3. sumar todos los elementos de una colección es tan simple como utilizar LINQ, concretamente la extensión de método IEnumerable(Of Integer).Sum()

Ejemplo:

Código
  1. Dim list As New List(Of Integer)
  2. list.AddRange({1, 1})
  3.  
  4. Dim sum As Integer = list.Sum()
  5. Debug.WriteLine(sum)

5. Para ordenar los elementos, más de lo mismo, puedes usar LINQ:

Código
  1. Dim list As New List(Of Integer)
  2. list.AddRange({8, 2, 1})
  3.  
  4. Dim sortedSecuence As IEnumerable(Of Integer) =
  5.    From i As Integer In list
  6.    Order By i Ascending
  7.  
  8. Debug.WriteLine(String.Join(", ", sortedSecuence))

...o bien el método List.Sort() si quieres aplicar los cambios diréctamente en el objeto:

Código
  1. Dim list As New List(Of Integer)
  2. list.AddRange({8, 2, 1})
  3.  
  4. list.Sort(Comparer(Of Integer).Default)
  5. Debug.WriteLine(String.Join(", ", list))

...o bien en lugar de usar una colección de tipo List como hemos mostrado hasta ahora, en su lugar puedes usar una colección de tipo SortedSet ,
esto sería lo más conveniente suponiendo que siempre quieras mantener ordenados los elementos en la colección:

Código
  1. Dim sortedset As New SortedSet(Of Integer)(Comparer(Of Integer).Default)
  2. sortedset.Add(8)
  3. sortedset.Add(2)
  4. sortedset.Add(1)
  5.  
  6. Debug.WriteLine(String.Join(", ", sortedset))

6. Para introducir/representar los datos en el ListBox, si estás usando una colección de tipo List simplemente tienes que hacer:

Código
  1. Me.ListBox1.DataSource = lista

Si por lo contrario usas una colección de tipo SortedSet, primero tienes que convertir el tipo de colección a IList, de la siguiente manera:

Código
  1. Me.ListBox1.DataSource = sortedset.ToList()

Nota: en lugar de la propiedad ListBox.DataSource puedes utilizar los métodos ListBox.Items.Add() y ListBox.Items.AddRange() para añadir los elementos, pero lo veo innecesario dado el caso.

EDITO: acabo de fijarme mejor en tu pregunta y veo que quieres ordenar los números de mayor a menor, ok entonces en el ejemplo de LINQ solo deberías modificar el keyword "Ascending" por "Descending", en los otros ejemplos de ordenamiento podrías usar el método de extensión de LINQ: IEnumerable(Of Integer).Reverse ( List.Reverse() o SortedSet.Reverse() ) o también puedes declarar una clase e implementar la interfaz IComparer(Of Integer) y pasársela como parámetro al constructor de la clase SortedSet para mantener de forma automática una ordenación de mayor a menor.

Saludos!


« Última modificación: 6 Marzo 2018, 06:17 por Eleкtro » En línea


xRayderx

Desconectado Desconectado

Mensajes: 4


Yare yare daze


Ver Perfil
Re: Arrays en VB.net
« Respuesta #2 en: 7 Marzo 2018, 03:16 »

Hola. Ha quedado claro lo que quieres hacer, ¿pero podrías explicar exactamente con que cosa es que estás teniendo dificultades para avanzar?, empecemos por lo básico: ¿sabes declarar y usar un array, o una colección enumerable?.



Bueno, te explicaré un poco por encima como puedes llevarlo todo a cabo:

1. asumiremos que en realidad no tienes ninguna necesidad real de utilizar un Array, por ende, declara una colección genérica, de tipo List(Of Integer) (por ejemplo).

2. si estás usando un botón para añadir el valor especificado en el TextBox, entonces suscríbete al evento Button.Click y ahí añades un elemento (el texto del TextBox) a la colección List que declaraste.
si no usas un botón, como alternativa puedes suscribirte al evento TextBox.KeyPress para interceptar la tecla "ENTER" y añadir el elemento a la colección.

3. sumar todos los elementos de una colección es tan simple como utilizar LINQ, concretamente la extensión de método IEnumerable(Of Integer).Sum()

Ejemplo:

Código
  1. Dim list As New List(Of Integer)
  2. list.AddRange({1, 1})
  3.  
  4. Dim sum As Integer = list.Sum()
  5. Debug.WriteLine(sum)

5. Para ordenar los elementos, más de lo mismo, puedes usar LINQ:

Código
  1. Dim list As New List(Of Integer)
  2. list.AddRange({8, 2, 1})
  3.  
  4. Dim sortedSecuence As IEnumerable(Of Integer) =
  5.    From i As Integer In list
  6.    Order By i Ascending
  7.  
  8. Debug.WriteLine(String.Join(", ", sortedSecuence))

...o bien el método List.Sort() si quieres aplicar los cambios diréctamente en el objeto:

Código
  1. Dim list As New List(Of Integer)
  2. list.AddRange({8, 2, 1})
  3.  
  4. list.Sort(Comparer(Of Integer).Default)
  5. Debug.WriteLine(String.Join(", ", list))

...o bien en lugar de usar una colección de tipo List como hemos mostrado hasta ahora, en su lugar puedes usar una colección de tipo SortedSet ,
esto sería lo más conveniente suponiendo que siempre quieras mantener ordenados los elementos en la colección:

Código
  1. Dim sortedset As New SortedSet(Of Integer)(Comparer(Of Integer).Default)
  2. sortedset.Add(8)
  3. sortedset.Add(2)
  4. sortedset.Add(1)
  5.  
  6. Debug.WriteLine(String.Join(", ", sortedset))

6. Para introducir/representar los datos en el ListBox, si estás usando una colección de tipo List simplemente tienes que hacer:

Código
  1. Me.ListBox1.DataSource = lista

Si por lo contrario usas una colección de tipo SortedSet, primero tienes que convertir el tipo de colección a IList, de la siguiente manera:

Código
  1. Me.ListBox1.DataSource = sortedset.ToList()

Nota: en lugar de la propiedad ListBox.DataSource puedes utilizar los métodos ListBox.Items.Add() y ListBox.Items.AddRange() para añadir los elementos, pero lo veo innecesario dado el caso.

EDITO: acabo de fijarme mejor en tu pregunta y veo que quieres ordenar los números de mayor a menor, ok entonces en el ejemplo de LINQ solo deberías modificar el keyword "Ascending" por "Descending", en los otros ejemplos de ordenamiento podrías usar el método de extensión de LINQ: IEnumerable(Of Integer).Reverse ( List.Reverse() o SortedSet.Reverse() ) o también puedes declarar una clase e implementar la interfaz IComparer(Of Integer) y pasársela como parámetro al constructor de la clase SortedSet para mantener de forma automática una ordenación de mayor a menor.

Saludos!

Hola, si se declarar un array, pero como mencione , apenas me estoy inicializando en la codificacion del mismo y la verdad mas de ahi poco y nada. Estoy realizando un informe sobre arrays para mi clase de programacion y me asignaron un ejercicio el cual he mencionado en el post.

Bien, lo que he estado pensando es en agregar mediante un textbox 20 numeros, los cuales quiero sumar con la ayuda de un boton. A continuacion, una vez sumados se ordenen de mayor a menor y en otro arreglo calcule el promedio y se muestre en un listbox.

A todo esto, olvide mencionar que este problema debe contener una validacion de datos.

Muchas gracias por responder!
En línea

NEBIRE


Desconectado Desconectado

Mensajes: 2.337


Ver Perfil
Re: Arrays en VB.net
« Respuesta #3 en: 7 Marzo 2018, 05:51 »

La respuesta que te ha dado Elektro es muy válida, pero para programadores con algo más de soltura. ciertamente si estás empezando y a duras penas sabes que es un array y otras estructuras, necesitarías más tiempo (posiblemente) del que dispones para ser capaz de entender y aplicar satisfactoriamente lo que te explica.

A tu nivel...

Declara un array de 20 elementos, un valor para contener el valor actual y un índice que refleje cuantos llevas ya acumulados en tu array...
Código
  1.    Dim miArray(0 To 19) As Object  ' por ejemplo, o un tipo numérico que prefieras... si luego quieres añadir elementos uno a uno.
  2.    Dim miMumero As Int32
  3.    Dim miIndice As Byte
  4.  

Se supone que al menos tienes en la interfaz un textbox, un botón y un listbox...
Entonces deberías usar el evento Validate del textbox...
Código
  1. Private Sub TextBox1_Validating(... , ByVal e As CancelEventArgs) Handles textBox1.Validating
  2.        Try
  3.            miMumero = Integer.Parse(TextBox1.Text)
  4.            TextBox1.Clear()  ' es lo mismo que Textbox1.Text = ""            
  5.            e.Cancel = False
  6.        Catch
  7.            e.Cancel = True
  8.            MessageBox.Show("El texto no puede ser interpretado como un número (o número entero), o bien excede el valor de un int32....", "Error...")
  9.            ' puedes seleccionar el texto del control, o borrarlo... en cualquier caso el foco regresa al control textbox, para editar su contenido...
  10.        End Try
  11.    End Sub

Cuando escribes el texto del número en el textbox, ese control tiene el foco, luego cuando otro control intenta ganar el foco (por ejemplo cuando pulsas el botón), se genera el evento Validating del textbox, si no valida, el foco se mantiene en el textbox... (forzándolo con Cancel=True) pero si valida, se genera el evento Validated...
Fíjate que ni siquiera colocamos código en el botón... aunque puede hacerse así, por supuesto.


Código
  1. Private Sub TextBox1_Validated(sender..., e As EventArgs) Handles TextBox1.Validated
  2.        miArray(miIndice) = miMumero
  3.        miIndice += 1
  4.        If (miIndice < 20) Then
  5.            MessageBox.Show("Número almacenado, introduzca el siguiente número...")
  6.            TextBox1.Focus()
  7.        Else
  8.            TextBox1.Enabled = False
  9.            Button1.Enabled = False
  10.  
  11.            Call Calcular()  ' ahora que tenemos el array completo, podemos hacer el resto de cosas.
  12.        End if
  13. end Sub

Te diría que crearas un algoritmo de ordenación si tuvieras más conocimientos.
Aparte el Listbox tiene una propiedad Sorted, que se activa en diseño y así cuando se añada un ítem se ordena automáticamente.... pero hay un problema, y es que (si no recuerdo mal de memoria), solo ordena de menor a mayor, y tu lo precisas al revés...

...pero en realidad es más fácil... los arrays tienen un método sort...
Código
  1. Private Sub Calcular()
  2.        miArray(0) = 12
  3.        miArray(15) = 87
  4.        Array.Sort(miArray, 0, 20) ' No son precisos los 2 parámetros, si no se indican se ordena todo el array, pero los pongo, para que te des cuenta, que puedes ordenarlo parcialmente si fuera preciso.
  5.        Array.Reverse(miArray) ' invertimos el orden, o bien mediante un bucle añadir elementos al listbos, uno a uno, empezando por el final del array...
  6.        ListBox1.Items.AddRange(miArray) ' Si declaraste el array de tipo numérico, usa un bucle con el método Add (por ejemplo).
  7.  
  8.        ' Suma
  9.        Dim suma As Int32
  10.  
  11.        For k As Byte = 0 To 19
  12.            suma += miArray(k)
  13.        Next
  14.        MessageBox.Show("La suma total del array es: " & suma.ToString)
  15.  
  16.        ' Media, mediana, moda ???
  17.        Dim media As Single = (suma \ 20)
  18.        MessageBox.Show("La media de los valores del array es: " & media.ToString)
  19.    End Sub
  20.  

...y bueno la validación que indicas, no sé a que te refieres, no sé qué tienes que validar, yo he validado si el texto introducido puede ser tomado como un numero entero de 32bits (ni siquiera un decimal), y lo que falte o haya quedado claro, o haya entendido mal, espero que sepas arreglarlo... tienes suficiente para resol bverlo con poco esfuerzo de tu parte.
« Última modificación: 7 Marzo 2018, 05:53 por NEBIRE » En línea

xRayderx

Desconectado Desconectado

Mensajes: 4


Yare yare daze


Ver Perfil
Re: Arrays en VB.net
« Respuesta #4 en: 8 Marzo 2018, 05:14 »

La respuesta que te ha dado Elektro es muy válida, pero para programadores con algo más de soltura. ciertamente si estás empezando y a duras penas sabes que es un array y otras estructuras, necesitarías más tiempo (posiblemente) del que dispones para ser capaz de entender y aplicar satisfactoriamente lo que te explica.

A tu nivel...

Declara un array de 20 elementos, un valor para contener el valor actual y un índice que refleje cuantos llevas ya acumulados en tu array...
Código
  1.    Dim miArray(0 To 19) As Object  ' por ejemplo, o un tipo numérico que prefieras... si luego quieres añadir elementos uno a uno.
  2.    Dim miMumero As Int32
  3.    Dim miIndice As Byte
  4.  

Se supone que al menos tienes en la interfaz un textbox, un botón y un listbox...
Entonces deberías usar el evento Validate del textbox...
Código
  1. Private Sub TextBox1_Validating(... , ByVal e As CancelEventArgs) Handles textBox1.Validating
  2.        Try
  3.            miMumero = Integer.Parse(TextBox1.Text)
  4.            TextBox1.Clear()  ' es lo mismo que Textbox1.Text = ""            
  5.            e.Cancel = False
  6.        Catch
  7.            e.Cancel = True
  8.            MessageBox.Show("El texto no puede ser interpretado como un número (o número entero), o bien excede el valor de un int32....", "Error...")
  9.            ' puedes seleccionar el texto del control, o borrarlo... en cualquier caso el foco regresa al control textbox, para editar su contenido...
  10.        End Try
  11.    End Sub

Cuando escribes el texto del número en el textbox, ese control tiene el foco, luego cuando otro control intenta ganar el foco (por ejemplo cuando pulsas el botón), se genera el evento Validating del textbox, si no valida, el foco se mantiene en el textbox... (forzándolo con Cancel=True) pero si valida, se genera el evento Validated...
Fíjate que ni siquiera colocamos código en el botón... aunque puede hacerse así, por supuesto.


Código
  1. Private Sub TextBox1_Validated(sender..., e As EventArgs) Handles TextBox1.Validated
  2.        miArray(miIndice) = miMumero
  3.        miIndice += 1
  4.        If (miIndice < 20) Then
  5.            MessageBox.Show("Número almacenado, introduzca el siguiente número...")
  6.            TextBox1.Focus()
  7.        Else
  8.            TextBox1.Enabled = False
  9.            Button1.Enabled = False
  10.  
  11.            Call Calcular()  ' ahora que tenemos el array completo, podemos hacer el resto de cosas.
  12.        End if
  13. end Sub

Te diría que crearas un algoritmo de ordenación si tuvieras más conocimientos.
Aparte el Listbox tiene una propiedad Sorted, que se activa en diseño y así cuando se añada un ítem se ordena automáticamente.... pero hay un problema, y es que (si no recuerdo mal de memoria), solo ordena de menor a mayor, y tu lo precisas al revés...

...pero en realidad es más fácil... los arrays tienen un método sort...
Código
  1. Private Sub Calcular()
  2.        miArray(0) = 12
  3.        miArray(15) = 87
  4.        Array.Sort(miArray, 0, 20) ' No son precisos los 2 parámetros, si no se indican se ordena todo el array, pero los pongo, para que te des cuenta, que puedes ordenarlo parcialmente si fuera preciso.
  5.        Array.Reverse(miArray) ' invertimos el orden, o bien mediante un bucle añadir elementos al listbos, uno a uno, empezando por el final del array...
  6.        ListBox1.Items.AddRange(miArray) ' Si declaraste el array de tipo numérico, usa un bucle con el método Add (por ejemplo).
  7.  
  8.        ' Suma
  9.        Dim suma As Int32
  10.  
  11.        For k As Byte = 0 To 19
  12.            suma += miArray(k)
  13.        Next
  14.        MessageBox.Show("La suma total del array es: " & suma.ToString)
  15.  
  16.        ' Media, mediana, moda ???
  17.        Dim media As Single = (suma \ 20)
  18.        MessageBox.Show("La media de los valores del array es: " & media.ToString)
  19.    End Sub
  20.  

...y bueno la validación que indicas, no sé a que te refieres, no sé qué tienes que validar, yo he validado si el texto introducido puede ser tomado como un numero entero de 32bits (ni siquiera un decimal), y lo que falte o haya quedado claro, o haya entendido mal, espero que sepas arreglarlo... tienes suficiente para resol bverlo con poco esfuerzo de tu parte.


Hola, estuve siguiendo estos pasos que me comentaste y lo codifique de la siguiente manera:

Código:
    Dim miMumero As Integer
    Dim miIndice As Byte
    Dim miArray(0 To 19) As Object
    Private Sub TextBox1_Validated(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.Validated
        miArray(miIndice) = miMumero
        miIndice += 1
        If (miIndice < 20) Then
            MessageBox.Show("Número almacenado, introduzca el siguiente número...")
            TextBox1.Focus()
        Else
            TextBox1.Enabled = False
            btnCalcular.Enabled = False

            Call Calcular() 

        End If

    End Sub

    Private Sub calcular()
        miArray(0) = 12
        miArray(15) = 87
        ListBox1.Items.AddRange(miArray)

        ' Suma
        Dim suma As Int32

        For k As Byte = 0 To 19
            suma += miArray(k)
        Next
        MessageBox.Show("La suma total del array es: " & suma.ToString)

       
        Dim media As Single = (suma \ 20)
        MessageBox.Show("La media de los valores del array es: " & media.ToString)
    End Sub

En el diseño del formulario coloque 1 textbox, 1 boton y 1 listbox. Bien, ya agregados los numeros mediante listbox, este hace la suma y calcula el promedio, pero al mostrarlo en el listbox aparecen varios 0 y otros numeros al parecer aleatorios.
En línea

NEBIRE


Desconectado Desconectado

Mensajes: 2.337


Ver Perfil
Re: Arrays en VB.net
« Respuesta #5 en: 8 Marzo 2018, 22:00 »

Hola, estuve siguiendo estos pasos que me comentaste y lo codifique de la siguiente manera:

    Private Sub calcular()
        miArray(0) = 12
        miArray(15) = 87
        ListBox1.Items.AddRange(miArray)
        ...
        ...
        ...
    End Sub

En el diseño del formulario coloque 1 textbox, 1 boton y 1 listbox. Bien, ya agregados los numeros mediante listbox, este hace la suma y calcula el promedio,

pero al mostrarlo en el listbox aparecen varios 0 y otros numeros al parecer aleatorios.
Claro... si lees bien el código en la función calcular, sobran las 2 primeras líneas... yo las puse de ejemplo:
miArray(0) = 12
miArray(15) = 87
Solución: borra esas dos líneas (siempre lee el código y trata de entenderlo, para que no pase eso, copiar y pegar sin más no está bien).

En cuanto a los valores, 0 y otros... te has comido el código del evento 'Validating'... luego no existe ninguna validación, el evento 'validated', se lleva a cabo en ausencia de su correspondiente 'validating'...
Solución: Incluye el código del evento Validating
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Lio con Arrays
Programación Visual Basic
X-TN 2 927 Último mensaje 28 Junio 2006, 20:03
por X-TN
Arrays « 1 2 »
Programación Visual Basic
xDie 12 2,519 Último mensaje 20 Septiembre 2006, 20:05
por xDie
[H] Arrays
ASM
Erik# 4 2,540 Último mensaje 9 Julio 2009, 19:13
por Amerikano|Cls
Duda con arrays dentro de arrays « 1 2 »
PHP
Servia 11 4,746 Último mensaje 10 Marzo 2011, 09:04
por Servia
Funcion RecomendarButacas Ayuda!! (Recorrer arrays de arrays)
Java
elenfatico 2 1,509 Último mensaje 7 Abril 2016, 00:44
por 50ShadesOfKenyi
Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines