Ingresos de datos y Condicionales - Modulo y Procedimiento

V.J.E

Asignatura: Tecnología e Informática.

Formación en Valor: Esperanza.

Núcleo Integrador: Modulo y Procedimiento
Indicador de desempeño: Identifica la diferencia entre modulo y procedimiento.

Núcleo Integrador: Ingresos de datos y Condicionales.

Indicador de desempeño: Aplica los condicionales para realizar preguntas.

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.

Operadores Lógicos

Operador Lógico AND
Primera Condición	Segunda Condición	Resultado
Verdadero	Verdadero	Verdadero
Verdadero	Falso	Falso
Falso	Verdadero	Falso
Falso	Falso	Falso

Operador Lógico OR
Primera Condición	Segunda Condición	Resultado
Verdadero	Verdadero	Verdadero
Verdadero	Falso	Verdadero
Falso	Verdadero	Verdadero
Falso	Falso	Falso

Operador Lógico NOT
Condición	Resultado
Verdadero	Falso
Falso	Verdadero

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.