Top Ad unit 728 × 90

Recientes

recent

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.

Puedes ver todos los vídeos directamente en youtube:
https://www.youtube.com/watch?v=33uPg7kEPic&list=PLZPrWDz1MoloGD4irFB-YMIKvUYNu1i3m

Visita nuestro canal en youtube y revisa cursos 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!
Arrays (arreglos) Matrices Unidimensionales - Programación Visual Basic. Net con Visual Studio 2013 (18-25) Reviewed by Juan Carlos Arcila Díaz on 12:26 Rating: 5

No hay comentarios:

All Rights Reserved by www.IncanatoIT.com - Desarrollando Software © 2014 - 2015
Powered By Blogger, Designed by Sweetheme

Formulario de contacto

Nombre

Correo electrónico *

Mensaje *

IncanatoIt.com. Con la tecnología de Blogger.