Blog de Daiyiro

#BlogDeDaiyiro es sobre todo Bricolajes de Electrónica/Informática. ¡^-^¡

LO NUEVO:

15.10.13

Realizar Una Aplicación Que Utilice Colecciones

Hola, hoy voy a mostraros una aplicación en consola que utiliza colecciones, esta misma aplicación ya la había hecho con vectores, si quieres verla hecha con vectores solamente tienes que entrar a este link:

http://www.daiyiro.blogspot.com.es/2013/10/buscar-el-maximo-y-minimo-de-un-vector.html

Ahora os muestro el código en visual basic para hacer una aplicación con colecciones:



CÓDIGO EN VB.NET:


Module Module1

    Sub Main()

        Dim n As Integer = 0
        Dim maximo As Integer = 0
        Dim minimo As Integer = 9999999
        Dim posicionMaximo, posicionMinimo As Integer

        Console.WriteLine("Dime cuantas posiciones tiene el vector: ")
        n = Console.ReadLine

        Dim coleccion As Collection
        coleccion = New Collection


        'Recorremos para informar el vector
        For i As Integer = 0 To n - 1
            Console.WriteLine("Dime el valor de la posición {0}", i + 1)
            coleccion.Add(Console.ReadLine)
        Next


        'Recorremos el vector para sacar la información
        For i = 1 To coleccion.Count

            If maximo < coleccion(i) Then
                maximo = coleccion(i)
                posicionMaximo = i
            End If

            If minimo > coleccion(i) Then
                minimo = coleccion(i)
                posicionMinimo = i
            End If
        Next


        Console.WriteLine("Mayor: {0} Posicion: {1}", maximo, posicionMaximo)
        Console.WriteLine("Menor: {0} Posicion: {1}", minimo, posicionMinimo)


        Console.ReadLine()


    End Sub

End Module



Espero que os sea de utilidad...

Si queréis descargaros el proyecto podéis hacerlo:

Descargar Coleccion.rar

Un Saludiioo.

1 comentario:

  1. Me a ayudado el codigo de visual basic que he podido descargar de aqui, no entendia lo de las colecciones, soy novatillo y me queda mucho por aprender, tus ejemplos me estan ayudando, gracias, ¡ojala subas mas!!

    ResponderEliminar