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
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 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
Select Case integrantes
Case “Aereo”
‘Avioneta
Case “Terrestre”
‘Auto
Case “Maritimo”
‘Yate
End Select
