17 abril, 2024

Todo Programación

Cursos, código fuente y ejemplos.

Visual Basic 6 – Capítulo 06 – Arrays y colecciones

3 minutos de lectura
Visual Basic 6 Capítulo 6, Arrays y colecciones
banner vb6

Introducción

Los arrays (ó arreglos) y colecciones son estructuras de datos que nos permiten almacenar múltiples valores del mismo tipo en Visual Basic 6. Los arrays son conjuntos de elementos de un mismo tipo, mientras que las colecciones son estructuras más flexibles que pueden contener elementos de diferentes tipos. En este capítulo, aprenderemos sobre los arreglos y colecciones en Visual Basic 6, cómo declararlos, inicializarlos, acceder a sus elementos y realizar operaciones comunes con ellos.

Arreglos

Los arreglos son estructuras de datos en las que podemos almacenar múltiples valores del mismo tipo, indexados por un número entero que representa su posición en el arreglo. En Visual Basic 6, los arreglos se declaran utilizando la siguiente sintaxis:

Dim nombreArreglo(tamaño - 1) As TipoDeDato

Donde `nombreArreglo` es el nombre que le asignamos al arreglo, `tamaño` es la cantidad de elementos que queremos almacenar en el arreglo, y `TipoDeDato` es el tipo de dato de los elementos del arreglo.

Ejemplo

Dim numeros(4) As Integer
numeros(0) = 10
numeros(1) = 20
numeros(2) = 30
numeros(3) = 40
numeros(4) = 50

Para acceder a los elementos del arreglo, utilizamos el nombre del arreglo seguido del índice entre paréntesis. Los índices de los arreglos en Visual Basic 6 comienzan en 0, por lo que el primer elemento tiene el índice 0, el segundo el índice 1, y así sucesivamente.

Colecciones

Las colecciones son estructuras de datos más flexibles que los arreglos, ya que nos permiten almacenar elementos de diferentes tipos y no necesitan un tamaño fijo. En Visual Basic 6, se puede crear una colección de la siguiente forma.

Ejemplo

Dim miColeccion As Collection
Set miColeccion = New Collection
miColeccion.Add("Juan")
miColeccion.Add(25)
miColeccion.Add(True)

Para acceder a los elementos de la colección, utilizamos el nombre de la colección seguido del método `Item` y el índice entre paréntesis.

MsgBox(miColeccion.Item(0))   ' Muestra "Juan"
MsgBox(miColeccion.Item(1))   ' Muestra "25"
MsgBox(miColeccion.Item(2))   ' Muestra "True"

Otra forma de agregar y acceder a los elementos:

miColeccion.Add "Manzana", "Fruta"
miColeccion.Add "Naranja", "Fruta"
miColeccion.Add "Papa", "Verdura"

Acceder a elementos de la colección:

MsgBox miColeccion("Fruta") ' Muestra "Manzana"
ó
MsgBox miColeccion.Item(2) ' Muestra "Naranja"

Recorrer una colección:

Dim elemento As Variant
For Each elemento In miColeccion
    MsgBox elemento
Next elemento

Ejercicios Resueltos

Ejercicio 1: Crear un arreglo con los nombres de los días de la semana y mostrarlos en pantalla.

Dim diasSemana(6) As String
diasSemana(0) = "Lunes"
diasSemana(1) = "Martes"
diasSemana(2) = "Miércoles"
diasSemana(3) = "Jueves"
diasSemana(4) = "Viernes"
diasSemana(5) = "Sábado"
diasSemana(6) = "Domingo"

For i As Integer = 0 To 6
    MsgBox(diasSemana(i))
Next

Ejercicio 2: Crear una colección que almacene los precios de varios productos y calcular el precio total de la compra.

Dim preciosProductos As Collection
Set preciosProductos = New Collection
preciosProductos.Add(10.5)
preciosProductos.Add(25.75)
preciosProductos.Add(8.99)

Dim precioTotal As Double
Dim precio As Double

precioTotal = 0

For Each precio In preciosProductos
    precioTotal = precioTotal + precio
Next

MsgBox("El precio total de la compra es: " & precioTotal)

Ejercicio 3: Crear un arreglo de números y encontrar el número mayor y el número menor.

Dim numeros(1 to 5) As Integer  
Dim mayor As Integer
Dim menor As Integer

numeros(1) = 10
numeros(2) = 5
numeros(3) = 20
numeros(4) = 15
numeros(5) = 30

mayor = numeros(1)
menor = numeros(1)

For i = 1 To 5
    If numeros(i) > mayor Then
        mayor = numeros(i)
    End If

    If numeros(i) < menor Then
        menor = numeros(i)
    End If
Next

MsgBox("El número mayor es: " & mayor)   ' Muestra "El número mayor es: 30"
MsgBox("El número menor es: " & menor)   ' Muestra "El número menor es: 5"

Conclusiones

En este capítulo, hemos aprendido sobre los arreglos y colecciones en Visual Basic 6, cómo declararlos, inicializarlos, acceder a sus elementos y realizar operaciones comunes con ellos. Los arreglos son estructuras de datos que nos permiten almacenar múltiples valores del mismo tipo, mientras que las colecciones son más flexibles y pueden almacenar elementos de diferentes tipos. Hemos resuelto ejercicios prácticos para poner en práctica los conocimientos adquiridos. Sigue practicando y desarrollando proyectos para mejorar tus habilidades en Visual Basic 6 y aprovechar al máximo los arreglos y colecciones en tus programas. ¡Buena suerte en tu aprendizaje!


Copyright © Todos los derechos reservados. | Newsphere por AF themes.