Ingresos de datos y Condicionales..

V.J.E

Asignatura: Tecnología e Informática.

Formación en Valor: Misericordia.

Núcleo Integrador: Ingresos de datos y Condicionales..

Indicador de desempeño: Desarrolla preguntas para tomar decisiones.

Exploración Cognitiva:

¿Sabes cómo realizar una pregunta en Visual Basic?

Ingresos de datos 
Se realiza mediante Cuadros de Textos

Condicionales
se utilizan para realizar preguntas y poder evaluar las respuestas de los usuarios que utilizan el programa.

IF  - ELSE – ENDIF:
Instrucción que permite evaluar una condición y devuelve un valor de verdad (Falso o Verdadero), La condición del IF si es verdadera se ejecutan las siguientes instrucciones, al ser FALSA, pasa de forma inmediata a la instrucción ELSE.

En un bloque de instrucciones IF se pueden realizar varias preguntas utilizando la instrucción ELSEIF.
Ejemplo:

IF EDAD <=2 THEN
  MSGBOX "ES UN BEBE"
ELSE IF EDAD <= 12 THEN 
  MSGBOX "ES UN NIÑO"
ELSEIF  EDAD <= 17 THEN
  MSGBOX "ES UN ADOLESCENTE"
ELSE
  MSGBOX "ES UN ADULTO"
ENDIF

Explicación del ejemplo:
1. Linea, pregunta si la edad es menor o igual a 2.
2. Linea, mensaje que muestra "ES UN BEBE", solo si la linea 1, es verdadera.
3. Línea, pregunta si la edad es menor igual a 12, solo si la instrucción de la línea 1, es falsa.
4. Línea, Mensaje que muestra "ES UN NIÑO", solo si la condición de la linea tres es verdadera.
5. Línea, pregunta si la edad es menor o igual a 7 .
6. Linea, Mensaje que muestra "ES UN ADOLESCENTE", solo si la condición de la linea Cinco es verdadera.

7. Línea, Instrucción que se ejecuta solo si ninguna de las anteriores es verdadera.

8. Línea, Indica el fin del condicional IF.

Desarrolle el siguientes diseño 

Copie y pegue el código siguiente:

Private Sub CommandButton1_Click()

  If Val(TextBox1) <= 2 Then

    MsgBox "Es un Bebe", vbInformation, "Condicionales"

  ElseIf Val(TextBox1) <= 12 Then

    MsgBox "Es un Niño", vbInformation, "Condicionales"

  ElseIf Val(TextBox1) <= 17 Then

    MsgBox "Es un Adolescente", vbInformation, "Condicionales"

  Else

    MsgBox "Es un Adulto", vbInformation, "Condicionales"

  End If

End Sub

Ejecute el programa con F5, introduzca los datos siguientes y de aceptar por cada numero, 1, 5, 14 y 20.

Realice la siguiente actividad:

Después de probar el programa anterior, borre los el código y pegue el siguiente y realice las mismas pruebas.

  Select Case Val(TextBox1)
    Case Is <= 2
      MsgBox "Es un Bebe", vbInformation, "Condicionales"
    Case Is <= 12
      MsgBox "Es un Niño", vbInformation, "Condicionales"
    Case Is <= 17
      MsgBox "Es un Adolescente", vbInformation, "Condicionales"
    Case Else
      MsgBox "Es un Adulto", vbInformation, "Condicionales"
  End Select

Realice comentarios al respecto.

Taller:
Realice un programa que capture tres números, cada uno en un cuadro de texto y un botón aceptar que calcule cual de ellos es el Mayor.

NOTA: Tenga en cuenta que necesita hacer más de una pregunta en una sola línea, recuerde los Operadores lógicos AND y OR.