Estructuras de decisión en Visual Basic

 Estructura "If...Then"

La función If...Then, nos sirve para poner condiciones. Para en un proyecto en Visual Basic podremos utilizarlo de la siguiente manera.

        1. Crea tu formato utilizando los botones de Label, Text Box y CommandButton. Les asignas nombre, tamaño, color, letra, etc que elijas en propiedades.
        2. Una vez hecho lo anterior, aplicas el código con la función "If...Then"
               Ej.- Dim calificacion As Integer

                      calificación = Text1.text

                      If calificacion < 0 or calificacion > 10 Then

                         Label1.Caption = "Calificación no válida"

                      Else

                         If calificacion <= 5 Then

                              Label1.Caption = "Insuficiente"

                     Else...

         3.Puedes continuar poniéndole condiciones como "regular", "bien", "muy bien", etc. Lo más importante es que al final no tienes que olvidarte de cerrar ésta condición poniendo la frase "End if" pero vas a colocarlo las veces que hayas aplicado una condiciín de If. Al momento de correrlo puede quedarte de éste modo:

 Estructura "Select Case"
Para realizar éste proyecto, se utiliza la estructura de decisión Select Case. Ésta estructura la utilizamos cuando queremos utilizar varias opciones.

Para comenzar crea tu formato con los controles Label, Image y List Box, puede quedarte de éste modo, si le aplicas propiedades a cada uno de los controles:

Éste proyecto puedes hacerlo con lo que sea, con marcas de coches, animales, artistas, instrumentos, etc.

Inserta el código sobre los siguientes controles:
        1. Sobre el formulario. Se va a desglosar lo que quieres que aparezca, digamos que el nombre del animal, persona, o cosa (Guitarra, Perro, Johnny Depp, etc..)
               Ej.- List1.AddItem "Johnny Depp"
        2. En en control List Box, para poner el código, se aplica la estructura de decisión Select Case.
               Ej.- Select Case List1.ListIndex
                               Case 0
                                             Image1.Picture =LoadPicture (johnny depp.jpg")
                                             lblName.Caption = "Johnny Depp"
                                             lblBio.Caption = "Johnny Depp nació el 9 de Junio de...

• Como se pudo mostrar en el ejemplo: ("johnny depp.jpg"), en ese se pone el nombre con el que guardamos el archivo (la imagen).
• En la parte de lblBio.Caption es donde ponemos todos los datos del objeto o persona de la que estamos hablando. Es importante que la información se ponga de corrido, porque puede marcarnos como error si damos enter y no coloque la información.

        3. Una vez que ya hayas acabado de poner a los personajes con su respectiva información, das fin a la estructura Select Case con la frase End Select.
        4. Cuando corras el programa, la estructura te quedará algo parecido a la siguiente imagen.