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.

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






Comentarios

Publicar un comentario

Entradas populares de este blog

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

Imagen
  Ediciones de SQL Enterprise La oferta prémium, SQL Server Enterprise Edition, proporciona funciones de centro de datos de tecnología avanzada completas con un rendimiento ultrarrápido, virtualización ilimitada 1 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. Enterprise Edition   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 Estándar   SQL Server Standard Edition 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 administración eficaz de bases de datos con recursos de TI mínimos. Web   S...
Leer más

SQL Server

Imagen
¿ Qué es Microsoft SQL Server? Microsoft SQL Server es uno de los principales sistemas de gestión de bases de datos relacional del mercado que presta servicio a un amplio abanico de aplicaciones de software destinadas a la inteligencia empresarial y análisis sobre entornos corporativos. Basada en el lenguaje Transact-SQL, incorpora un conjunto de extensiones de programación propias de lenguaje estándar y su aplicación está disponible para usarse tanto a nivel on premise o bajo una modalidad cloud. Características   Soporte de transacciones. Soporta procedimientos  almacenados. Incluye también un entorno gráfico de administración, que permite el uso de comandos DDL y DML gráficamente. Permite trabajar en modo cliente-servidor, donde la información y datos se alojan en el servidor y los terminales o clientes de la red solo acceden a la información. Además permite administrar información de otros servidores de datos. Este sistema incluye una versión reducida, llamada MSDE con el ...
Leer más