ESTRUCTURAS CONDICIONALES EN VISUAL BASIC

ESTRUCTURAS CONDICIONALES EN VISUAL BASIC

Estructura condicional

Estructura condicional ó lógica condicional, es un conjunto de instrucciones que nos permitirá mejorar la funcionalidad  y el control del ingreso de datos a nuestra aplicación. Un ejemplo muy claro son las páginas web, como el correo electrónico(Gmail, Yahoo, etc.) y las aplicaciones de mensajería instantánea(Messenger Yahoo, Messenger Live, etc.) que lo usamos a diario, estas aplicaciones generalmente nos piden ingresar el usuario y contraseña, estos datos serán evaluados por ejemplo: Si el usuario es “solocodigofuente”  y la contraseña es “s010c0di60″ entonces tendrás acceso a tu: Correo electrónico, Mensajería instantánea, Sistema operativo, Sistemas de ventas, etc. como verán  es de gran importancia la lógica condicional dentro de nuestras aplicaciones. A continuación veremos los ejemplos respectivos.

La estructura If...…Then...…Else...

Cuando queremos ejecutar un bloque de código de acuerdo a una condición o varias (condiciones anidadas), entonces utilizamos la estructura If... Then... Else... por ejemplo:

Dim usuario As String
If usuario=”solocodigofuente” Then
‘Bloque de condigo a ejecutarse
End If 
‘———————————————————
Dim Usuario,Contraseña As String 
If usuario=”solocodigofuente” And Contraseña=”s010c0di60″ Then
‘Ingresar al sistema
Else
‘Enviar un mensaje al usuario
End If
‘——————————————————–
Dim MontoPagar As Double
If MontoPagar < 10 Then
‘Hacer un descuento del 1%
ElseIf MontoPagar < 20 Then
‘Hacer un descuento del 2%
If Cliente=”QuihuiNet” Then
‘Hacer un descuento del 3%
End If
ElseIf MontoPagar >= 30 Or MontoPagar <=40 Then
‘Hacer un descuento del 3%
End If

Como pueden notar los operadores juegan un papel importante dentro de las estructuras.

-Ejemplo 1
Dim dia As Integer
Select Case dia
Case 1
‘Lunes
Case 2
‘Martes
Case 3
‘Miercoles
Case 4
‘Jueves
Case 5
‘Viernes
Case 6
‘Sabado
Case Else
‘Dimingo
End Select
-Ejemplo 2
Dim MontoPagar As Double
Select Case MontoPagar
Case Is < 10
‘Hacer un descuento del 1%
Case Is < 20
‘Hacer un descuento del 2%
Case Is >= 30
‘Hacer un descuento del 3%
End Select
-Ejemplo 3
‘etapas de la vida humana
Dim Etapas As Integer
Select Case Etapas
Case 1 To 4
‘Infancia
Case 5 To 10
‘Niñez
Case 10 To 14
‘Pubertad
Case 15 To 21
‘Adolescencia
Case 22 To 50
‘Adultes
Case 50 To 70
‘Vejes
End Select
-Ejemplo 4
Dim numeros As Integer
Select Case numeros
Case 2, 4, 6, 8, 10
‘Mensaje:Números Pares
Case 1, 3, 5, 7, 9
‘Mensaje:Números Impares
Case Else
‘Mensaje: el numero no pertenece al rango establecido
End Select
-Ejemplo 5

Dim integrantes As String
Select Case integrantes
Case “Aereo”
‘Avioneta
Case “Terrestre”
‘Auto
Case “Maritimo”
‘Yate
End Select