Estructuras de decisión (Visual Basic)

Visual Basic permite probar condiciones y realizar diferentes operaciones en función de los resultados de la prueba.  Puede comprobar si una condición es verdadera o falsa, los distintos valores de una expresión o las diferentes excepciones que se generan al ejecutar una serie de instrucciones. 

En el siguiente ejemplo se muestra una estructura de decisión que prueba si el valor de una condición es true y emprende distintas acciones en función del resultado.

Gráfico de flujo de una construcción If...Then...Else

Emprender acciones diferentes cuando el valor de una condición es true y cuando es false

Construcción If...Then...Else

Las construcciones If...Then...Else permiten probar una o más condiciones y ejecutar una o más instrucciones en función de cada condición.  Puede probar las condiciones y tomar medidas de las maneras siguientes: 

Ejecutar una o más instrucciones si una condición es True.

Ejecutar una o más instrucciones si una condición es False.

Ejecutar algunas instrucciones si una condición es True y otras si es False.

Probar una condición adicional si una condición anterior es False.

Tarea 

Declaración de variables en Visual Basic.

Parte.A.

Option Explicit On

Public Class Form 1

REM Declaración de variables

Const Pi As Single = 3.141592654

Dim R, H, V As Single

REM Contenido del formulario

Private Sub Form1_Load (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles

MyBase. Load

Me. Text = “Cálculo volume cilindro”

ButtonCalcular. Text =”Calcular volume”

Label1. Text = “Introduzca aquí el diámetro, en metros”

Label2. Text = “Introduzca aquí la altura, en metros”

End Sub

REM Cálculo y muestra resultados

Private Sub Button1_Click  (ByVal sender As  system. Object, ByVal e As System. EventArgs) Handles

ButtonCalcular. Click

R = Val(TextBox1. Text) / 2

H = Val(TextBox2. Text)

V = Pi * (R ˆ 2) * H

LabelResultados.Font = New Font(“Arial”; 10;FontStyle.Bold)

LabelResultados.TextAlign = ContentAlignment. MiddleCenter

LabelResultados.Text = “El volume del cilindro es de “ & V & ” metros cúbicos”

End Sub

End Class

Parte.B.

Calcular el promedio de tres notas sumativas

Option Explicit On

Public Class Form1

REM Declaración de variables

Dim nota1, nota2, promedio As Single

REM Contenido del formulario

Private Sub Form1_load (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

MyBase.Load Me.Text = “Cálculo promedio de 3 notas sumativas”

ButtonCalcular.Text = “Calcular el promedio”

Label1.Text = “Introduzca la primera nota”

Label2.Text = “Introduzca la primera nota”

Label3.Text = “Introduzca la primera nota”

End Sub

REM Cálculo y muestra resultados

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

ButtonCalcular.Click

Nota1 = Val(TextBox1.Text)

Nota2 = Val(TextBox2.Text)

Nota3 = Val(TextBox3.Text)

Promedio = (Nota1 +Nota2 + Nota3) / 3

LabelResultados.Font = New Font(“Arial”, 10,FontStyle.Bold)

LabelResultados.TextAlign = ContentAlignment.MiddleCenter

LabelResultados.Text = “El promedio es de “&promedio&”

End Sub

Declaración de variable, proceso,  datos de entrada y salida en los siguientes ejemplos.

Declaración de variables:

1. Dimb,h As Double

2. Dim area As Intenger

Proceso:

1. B= TextBox2.Text

H=TextBox2.Text

2. area= b * h / 2

      TextBox3.Text=

3. Tim(área)

Contasnte:

ConstaAlquilerDelAuto=700

ConstKilometrosRecorrido=750

Variable:

DimDiasDeAlquiler As Integer

DimKilometrosRecorridos, Resultado As Integer

Entrada:

Label1.Text = “introduzca el dia de alquiler”

Label2.Text= “introduzca los kilómetros recorridos”

Salida:

LabelResultado.text= “Los kilómetros recorridos es de “& resultado”