Estructura Iterativa Bucle While - Programación Visual Basic. Net con Visual Studio 2013 (16-25)

En este artículo  revisaremos la estructura iterativa bucle While en el lenguaje de programación Microsoft Visual Basic. Net, desarrollaremos un ejemplo para entender mejor el uso de la estructura iterativa While 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

Estructura Iterativa Bucle While

Una estructura iterativa While permite repetir una o más instrucciones mientras la condición (Expresión lógica) sea verdadera, cuando la condición es falsa sale del bucle.

Sintáxis estructura Iterativa While

Problema 14

Una organización tiene punto de repartos de vacunas, cada día se registra con cuantas vacunas se inicia.
Crear un programa en Visual Basic que gestione las entregas (validar que la cantidad a entregar no sea mayor que el stock) y de un aviso cuando el stock es inferior a 10 unidades.


Diagrama de Flujo

Formulario

Código del Botón Nuevo

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

        txtStockInicial.Clear()

        txtStockFinal.Clear()

        txtCantidadPersonas.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 stock As Integer

        Dim cantPersonas As Integer, cantEntrega As Integer

        'Inicialización de variables

        cantPersonas = 0

        'Entrada de datos

        stock = Val(txtStockInicial.Text)

        'Empezamos a repartir las vacunas

        Do While (stock >= 10)

            cantEntrega = InputBox("Ingrese cantidad entregada persona " & (cantPersonas + 1), "Reparto de vacunas")

            'Validar que la cantidad entregada sea menor o igual

            'que el stock

            If (stock >= cantEntrega) Then

                cantPersonas = cantPersonas + 1

                stock = stock - cantEntrega

            Else

                MessageBox.Show("No hay suficiente stock", "Reparto de Vacunas", MessageBoxButtons.OK, MessageBoxIcon.Error)

            End If

        Loop

        MessageBox.Show("El stock es inferior a 10 und", "Reparto de Vacunas", MessageBoxButtons.OK, MessageBoxIcon.Information)

        'Salida de información

        txtStockFinal.Text = Convert.ToString(stock)

        txtCantidadPersonas.Text = Convert.ToString(cantPersonas)

    End Sub

Código del Botón Salir

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

        End

End Sub

Estructura Iterativa Bucle While (16-25) Programación Visual Basic. Net con Visual Studio 2013 

Saludos imperio, un abrazo a la distancia.