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

En este artículo seguimos con las estructuras de datos, ahora revisaremos matrices multidimensionales en el lenguaje de programación Visual Basic. Net, desarrollaremos un ejemplo para entender mejor el uso de matrices multidimensionales 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 Matriz Multidimensional

Problema 17

Implementar una programa para registrar los datos de venta de un restaurant, se debe almacenar en una matriz el nombre del plato, su precio, y la cantidad disponible.

El programa permitirá realizar búsquedas por el nombre del plato, si existe el plato buscado nos mostrará su precio y la cantidad disponible para vender, el stock se debe de actualizar por cada venta.

V	0	1	2
0	Arroz	$5	10
1	Fideos	$4	15
2	Gaseosa	$2	20
3	Vino	$50	5

Formulario

Declaración de variables de ámbito global

'Declaración de variables

    Private mPlatos(,) As String

    Private cantPlatos As String

    Private index As Integer

    Private encuentra As Integer = 0

Código del evento load del formulario

Private Sub frmRestaurant_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        btnVender.Enabled = False

        txtPrecio.Enabled = False

        txtDisponible.Enabled = False

End Sub

Código del Botón Cargar Datos

Private Sub btnCargar_Click(sender As Object, e As EventArgs) Handles btnCargar.Click

        'Entrada de Datos

        cantPlatos = Val(txtCantPlatos.Text)

        'Inicializar ahora la matriz

        ReDim Preserve mPlatos(cantPlatos, 3)

        'Ingresar datos a nuestra matriz

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

            mPlatos(i, 0) = InputBox("Ingrese el nombre del plato " & (i + 1), "Restaurant")

            mPlatos(i, 1) = InputBox("Ingrese el precio del plato " & (i + 1), "Restaurant")

            mPlatos(i, 2) = InputBox("Ingrese el stock del plato " & (i + 1), "Restaurant")

        Next

End Sub

Código del Botón Buscar

Private Sub btnBuscar_Click(sender As Object, e As EventArgs) Handles btnBuscar.Click

        'Declaración de variables

        Dim plato As String

        'Entrada de datos

        plato = txtPlato.Text

        'Buscamos  si el plato ingresado existe

        For i As Integer = 0 To cantPlatos Step 1

            If (mPlatos(i, 0) = plato) Then

                txtPrecio.Text = mPlatos(i, 1)

                txtDisponible.Text = mPlatos(i, 2)

                index = i

                btnVender.Enabled = True

                encuentra = 1

            End If

            If (encuentra = 0) Then

                MessageBox.Show("No existe el plato", "Restaurant", MessageBoxButtons.OK, MessageBoxIcon.Error)

                btnVender.Enabled = False

            End If

        Next               

End Sub

Código del Botón Vender

Private Sub btnVender_Click(sender As Object, e As EventArgs) Handles btnVender.Click

        'Declaración de variables

        Dim cant As Integer, stock As Integer

        'Entrada de Datos

        cant = Val(txtCantidad.Text)

        stock = Val(txtDisponible.Text)

        If (cant <= stock) Then

            'Disminuir el stock de ese plato

            mPlatos(index, 2) = stock - cant

         Else

            MessageBox.Show("NO hay suficiente Stock", "Restaurant", MessageBoxButtons.OK, MessageBoxIcon.Information)

        End If

End Sub

Arrays Matrices Multidimensionales (19-25) Programación en Visual Basic. Net con Visual Studio 2013

Saludos imperio, un abrazo a la distancia.