Top Ad unit 728 × 90

Recientes

recent

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

En este artículo continuamos viendo las estructuras de datos, revisaremos ahora 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.

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 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!
Arrays (arreglos) Matrices Multidimensionales - Programación Visual Basic. Net con Visual Studio 2013 (19-25) Reviewed by Juan Carlos Arcila Díaz on 12:46 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.