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.

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

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 Juan Carlos Arcila Díaz on 10:13 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.