ESTRUCTURAS CONDICIONALES EN VISUAL BASIC TECNOLOGA E INFORMTICA
ESTRUCTURAS CONDICIONALES EN VISUAL BASIC TECNOLOGÍA E INFORMÁTICA GRADO DÉCIMO COLEGIO UPB 2017 ADRIANA LOMBANA
ESTRUCTURAS CONDICIONALES EN VISUAL BASIC Las estructuras condicionales nos permiten ejecutar una serie de instrucciones; si cumple una determinada condición que nosotros le indiquemos, entonces se ejecuta una acción inicial, en caso contrario se ejecuta la acción siguiente.
ESTRUCTURA BÁSICA Si (condición) entonces If (condición) then Instrucción 1 Sino Else Instrucción 2 Fin si End If
EJEMPLOS 1. Crear un programa que muestre la nota definitiva del área de Tecnología e Informática. Si la nota es mayor o igual a 3. 5 entonces debe aparecer un mensaje informando al estudiante que aprobó la materia sino, debe aparecer un mensaje que muestre que reprobó la materia.
DIS E ÑO Controles Name Text Formulario frm. Notas Label lbl. Notas Ingrese nota Picture. Box 1 pic. Revisar -------- Picture. Box 2 pic. Limpiar -------- Text. Box tbx. Nota ---------
PROGRAMACIÓN Public Class frm. Notas Private Sub Picture. Box 1_Click(sender As Object, e As Event. Args) Handles pic. Revision. Click Dim nota As Double nota = tbx. Nota. Text If nota >= 3. 5 Then Message. Box. Show("Usted aprobó la materia", "Información") Else Message. Box. Show("Usted no aprobó la materia", "Información") End If End Sub Private Sub pic. Limpiar_Click(sender As Object, e As Event. Args) Handles pic. Limpiar. Click tbx. Nota. Text = "" End Sub End Class
EJEMPLOS 2. En un almacén se hace un 5% de descuento a los clientes, cuya compra supere los $100. 000, de lo contrario no se otorgará ningún descuento. El programa deberá calcular el valor de la compra, el descuento y el valor a pagar.
DISEÑO Control Name Text Formulario frm. Compras label 1 lbl. Valor. P Valor Producto Label 2 lbl. Cantida. P Cantidad Producto Label 3 lbl. Valor. Compra Valor Compra Label 4 lbl. Descuento Label 5 lbl. Valor_Pagar Valor a pagar Text. Box 1 tbx. Valorproducto ----------- Tex. TBox 2 tbx. Cantidad ---------- Text. Box 3 tbx. Valor. Compra ---------- Text. Box 4 tbx. Descuento ---------- Text. Box 5 tbx. Valor_pagar --------- Button 1 btn. Calcular CALCULAR Button 2 btn. Limpiar LIMPIAR
Public Class frm. Compra If valor_compra >= 100000 Then desc = valor_compra * 5 / 100 valor_pagar = valor_compra - desc tbx. Valor_pagar. Text = valor_pagar tbx. Descuento. Text = desc tbx. Valor. Compra. Text = valor_compra Else desc = 0 valor_pagar = valor_compra tbx. Valor_pagar. Text = valor_pagar tbx. Descuento. Text = desc tbx. Valor. Compra. Text = valor_compra End If End Sub Private Sub btn. Limpiar_Click(sender As Object, e As Event. Args) Handles btn. Limpiar. Click tbx. Cantidad. Text = "" tbx. Descuento. Text = "" tbx. Valor_pagar. Text = "" tbx. Valor. Compra. Text = "" tbx. Valorproducto. Text = "" End Sub End Class PROGRAMACIÓN Private Sub btn. Calcular_Click(sender As Object, e As Event. Args) Handles btn. Calcular. Click Dim cantidad, valor_Producto, desc, valor_compra, valor_pagar As Double cantidad = tbx. Cantidad. Text valor_Producto = tbx. Valorproducto. Text valor_compra = cantidad * valor_Producto
EJEMPLOS Calcule el total que una persona debe pagar en una fábrica de llantas. El precio de cada llanta es de $80. 000 si se compran menos de 5 llantas. Si se compran 5 o más llantas el precio es de $70. 000. El programa deberá mostrar el valor a pagar por la compra de las llantas. 3.
DISEÑO Controles Name Text Formulario frmllantas FÁBRICA DE LLANTAS label 1 lbl. Cantidad Ingrese cantidad de llantas label 2 lbl. Valor. Pagar Valor a pagar Text. Box 1 tbx. Cantidad ---------- Text. Box 2 tbx. Valor_Pagar ---------- Button 1 btn. Calcular CALCULAR Button 2 btn. Limpiar LIMPIAR
PROGRAMACIÓN Public Class frmllantas Private Sub btn. Calcular_Click(sender As Object, e As Event. Args) Handles btn. Calcular. Click Const precio 1 As Double = 80000 Const precio 2 As Double = 70000 Dim valor_pagar, cantidad As Double cantidad = tbx. Cantidad. Text If cantidad >= 5 Then valor_pagar = precio 2 tbx. Valor_Pagar. Text = Else valor_pagar = precio 1 tbx. Valor_Pagar. Text = End If * cantidad valor_pagar End Sub Private Sub btn. Limpiar_Click(sender As Object, e As Event. Args) Handles btn. Limpiar. Click tbx. Cantidad. Text = "" tbx. Valor_Pagar. Text = "" End Sub End Class
- Slides: 12