Top Ad unit 728 × 90

Recientes

recent

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.
Estructura Iterativa Bucle While - Programación Visual Basic. Net con Visual Studio 2013 (16-25) Reviewed by IncanatoIt-ad on 10:13 Rating: 5

No hay comentarios:

Todos los derechos reservados www.IncanatoIT.com - Desarrollando Software © 2014 - 2019
Desarrollado por Blogger, Designed by Sweetheme
IncanatoIt.com. Con la tecnología de Blogger.
y>