EL CICLO WHILE

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

 Sintaxis estructura Iterativa While



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.Clik
        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.Clik
End
End sub





Estructura Iterativa Bucle While 16 25 Programación Visual Basic (youtube.com)

Comentarios

Publicar un comentario

Entradas más populares de este blog

EL CICLO WHILE

Imagen
    Se dice que todo programa se puede escribir usando sólo dos estructuras de control de flujo: la condicional if, y el ciclo while. En esta entrada les hablaré sobre el ciclo while o también conocido en español como mientras. El ciclo controlado por condición inicial (while). Recuerda que un ciclo (loop, lazo) es una estructura de control de flujo cuya función es repetir un conjunto de instrucciones varias veces. Esto nos permite escribir la solución una vez, y que se repita con un conjunto diverso de datos. Por ejemplo, si necesitas obtener el promedio general de un estudiante, preocúpate sólo de escribir la solución para un estudiante. Después esa solución colócala dentro de un ciclo, y éste se repetirá tantas veces tú lo necesites. Uno de estos ciclos es el ciclo while al cual también se le conoce también como ciclo controlado por condición inicial, porque en este tipo de ciclos, se repite un proceso mientras una condición sea verdadera. En la figura 1 te muestro la forma...
Leer más

CICLO WHILE REGLAS

Imagen
  Reglas del ciclo while. La siguiente lista es una serie de observaciones que incluso pueden pasar como reglas que te ayudarán a utilizar de la forma adecuada la estructura while. 1.    Si el ciclo tiene una variable de control, ésta puede ser de cualquier tipo de dato numérico (int, float, o double): Una  variable de control  lleva la cuenta de la repetición en la que se encuentra el ciclo. Por ejemplo, si una tarea debe repetirse 10 veces, la variable de control irá del 1, 2, 3, 4, al 10. Entonces en un momento determinado, te indicará en cuál de estas 10 repeticiones se encuentra el ciclo. Con el ciclo while no necesariamente debes usar una variable de control, pues eso dependerá del problema a solucionar. Sin embargo, si la utilizas, tienes la ventaja de que puede ser de cualquier tipo de dato numérico. Esto a diferencia del ciclo  for , en el que la variable de control sólo puede ser de tipo  int . Ejemplo # 1: Para explicar mejor esta carac...
Leer más

SQL SERVER

Imagen
  EDICIONES     Definición:     La oferta premium, SQL Server Enterprise Edición,      proporciona funciones de centro de datos de tecnología avanzada completas con un rendimiento ultrarrápido, virtualización ilimitada e inteligencia empresarial integral, lo que habilita los mayores niveles de servicio para las cargas de trabajo críticas y el acceso del usuario final a   información sobre los datos.       Estándar Enterprise Edición está disponible para su evaluación. Hay disponible una implementación de evaluación durante 180 días. Para obtener información, consulte Recursos y documentos de licencias de SQL Server. SQL Server Standard Edición proporciona administración básica de datos y base de datos de inteligencia empresarial para que los departamentos y pequeñas organizaciones ejecuten sus aplicaciones y admite las herramientas de desarrollo comunes, tanto locales como en la nube, que habilitan la adm...
Leer más