Arrays (arreglos) Matrices Unidimensionales - Programación Visual Basic. Net con Visual Studio 2013 (18-25)

En este artículo iniciaremos viendo las estructuras de datos, revisaremos primero los arrays o arreglos, que pueden ser vectores y matrices en el lenguaje de programación Microsoft Visual Basic Net, desarrollaremos un ejemplo para entender mejor el uso de arrays o arreglos utilizando el IDe Microsoft Visual Studio 2013.

Pueden ver los vídeos directamente en youtube:

https://www.youtube.com/watch?v=33uPg7kEPic&list=PLZPrWDz1MoloGD4irFB-YMIKvUYNu1i3m&index=1

Visita nuestro canal en youtube donde encontrarás cursos completos de Desarrollo de software y aprende a diseñar sistemas informáticos totalmente gratis:

www.youtube.com/jcarlosad7

Arrays - Arreglos

Es un conjunto finito y ordenado de datos homogéneos.

Los arreglos pueden ser de una dimensión (vector),  dos dimensiones (matriz) y “n” dimensiones (matriz multidimensional)

Sintáxis Vector

Problema 16

Implementar un programa que permita gestionar los gastos de los “n” días de una persona, los gastos se deben de ingresar con un inputBox; al final se deberá mostrar el total de gastos y que día se hizo el mayor gasto.

V	0
Día 01	100
Día 02	85
Día 03	19
Día 04	110
Día 05	106
Día 06	108
Día 07	95

Formulario

Código del Botón Nuevo

Private Sub btnNuevo_Click(sender As Object, e As EventArgs) Handles btnNuevo.Click

        txtCantDias.Clear()

        txtDiaMayor.Clear()

        txtGastoMayor.Clear()

        txtTotalGastos.Clear()

        cboGastos.Items.Clear()

End Sub

Código del Botón Ingresar

Private Sub btnIngresar_Click(sender As Object, e As EventArgs) Handles btnIngresar.Click

        'Declaración de variables

        Dim vGastos() As Double

        Dim gasto As Double, totalGasto As Double, diaMayor As Double, gastoMayor As Double

        Dim cantDias As Integer

        'Inicializar variables

        totalGasto = 0

        diaMayor = 1

        gastoMayor = 0

        'Empezamos a leer los gastos

        cantDias = Val(txtCantDias.Text)

        ReDim Preserve vGastos(cantDias)

        For dia As Integer = 1 To cantDias Step 1

            gasto = InputBox("Ingrese el gasto del día " & dia, "Gastos")

            vGastos(dia - 1) = gasto

        Next

        For i As Integer = 0 To cantDias - 1 Step 1

            'Evaluamos el gasto mayo

            If (vGastos(i) > gastoMayor) Then

                gastoMayor = vGastos(i)

                diaMayor = i + 1

            End If

            'Calculamos el total de gastos

            totalGasto = totalGasto + vGastos(i)

            'Mostrar los gastos en el comboBox

            cboGastos.Items.Add("Día " & (i + 1) & " Total: " & vGastos(i))

        Next

            'Mostrar la información

        txtGastoMayor.Text = gastoMayor

        txtDiaMayor.Text = diaMayor

        txtTotalGastos.Text = totalGasto

    End Sub

Código del Botón Salir

Private Sub btnSalir_Click(sender As Object, e As EventArgs) Handles btnSalir.Click

        End

End Sub

Arrays (Arreglos) Matriz Unidimensional (18-25) Programación Visual Basic. Net con Visual Studio 2013

Saludos imperio, un abrazo a la distancia.