Eventos KeyPress, Evento Clic

Formación en Valor: Juticia.
Núcleo Integrador: Eventos KeyPress, Evento Clic.
Objetivo: Programar el Mouse y el teclado.

Diseñe el siguiente formulario, teniendo en cuenta lo explicado anteriormente:

Ventana de código F7

Tenga en cuenta:
‘ VAL Es una instrucción que convierte el contenido del cuadro de texto a valor

‘ IF Instrucción que evalúa una condición y devuelve un valor de VERDAD (FALSO O VERDADERO)

‘ CLIC  es un evento que ocurre cuando se da CLIC sobre un control.

‘ KEYPRESS es un evento que ocurre cuando se presiona una tecla.

‘ END  instrucción que finaliza un programa.

‘ SETFOCUS Instrucción que cambia el FOCO o cursor hacia un control (Cuadro de Texto o Botón de Comando)

‘ KEYASCII es una variable que contiene el código de la ultima tecla pulsada,  TENGA EN CUENTA QUE 13 ES EL CÓDIGO DEL ENTER.

' UCASE convierte a mayuscula el texto de un control o variable

Borre la información de la ventana de código y copie el siguiente código.

Private Sub Command1_Click()

  If Val(Text2) <= 1200000 Then

    Text3 = 70000

  Else

    Text3 = 0

  End If

  Text4 = Val(Text2) + Val(Text3) 

End Sub

Private Sub Command2_Click()

  Text1 = ""

  Text2 = ""

  Text3 = ""

  Text4 = ""

  Text1.SetFocus

End Sub

Private Sub Command3_Click()

  End

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

  If KeyAscii = 13 Then

    Text2.SetFocus

  End If

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)

  If KeyAscii = 13 Then

    Command1.SetFocus

  End If

End Sub

NO COPIE ESTE TEXTO.

Ejecute el programa con la tecla F5

Escriba el nombre y presione ENTER.
Escriba un salario menor de 1200000 y presione ENTER.
ENTER en ACEPTAR.

LUEGO - CLIC EN NUEVO.

Escriba un nuevo nombre.
Un salario MAYOR DE 1200000 y presione ENTER.
ENTER en ACEPTAR.

TALLER EN PAREJAS:

En una hoja explique el funcionamiento del programa que se acaba de realizar:

¿ Que hace la programación de cada COMMANDBUTTON (Aceptar, Nuevo y Cerrar)?

¿ Que hace la programación de los TEXTBOX para Nombre y Salario?

¿ Cual es la finalidad del programa ?

Desarrollo de programas

Fecha: Febrero 24 de 2014

Asignatura: Tecnología e Informática.

Formación en Valor: Justicia.

Núcleo Integrador:  Desarrollo de programas básicos con el condicional IF y la instrucción MSGBOX.

Objetivo: Desarrollar programas utilizando condicionales y mensajes.

Tenga en cuenta:

La instrucción INPUTBOX, me permite mostrar un mensaje y capturar un dato, el cual se almacena en una variable. (vea el núcleo anterior).

Ejemplo:

DIM Nombre AS String

Nombre = INPUTBOX("Escriba su Nombre ")

Esta instrucción muestra el mensaje "Escriba su Nombre ", el usuario escribe el nombre y este queda almacenado en la variable Nombre.

MSGBOX, es una instrucción que nos muestra un mensaje.

Para que aparezca este mensaje debe escribir:

MsgBox "Ejemplo de como mostrar un Mensaje", vbExclamation, "Clase Nro 3"

EJEMPLO:

Desarrolle el siguiente diseño:

copie el código:

Private Sub Command1_Click()
  Dim Nombre As String, Ingresos As Currency, Deudas As Currency, ValorPagar As Currency
  Nombre = InputBox("Escriba su Nombre")
  Ingresos = InputBox("Escriba el valor de sus ingresos mensuales")
  Deudas = InputBox("Escriba el valor de sus Deudas Mensuales")

  ValorPagar = Ingresos - Deudas
  Text1 = ValorPagar
  MsgBox "El Valor a pagar es " + Str(ValorPagar), vbExclamation, "Clase Nro 3"

End Sub 

PRESIONE LA TECLA F5, PARA EJECUTAR EL PROGRAMA

TALLER:

Desarrolle un programa que capture dos datos y brinde una respuesta acorde con el resultado.

Programación Orientada a Objetos. Condicionales.

Fecha: Febrero 14 de 2014

Asignatura: Tecnología e Informática.

Formación en Valor: Justicia.

Núcleo Integrador: Programación Orientada a Objetos. Condicionales.

Objetivo: Utilizar los condicionales para Visual Basic.

Condicionales: Se utilizan para evaluar una o más condiciones y retorna un valor de verdad (verdadero o Falso) y permitir ejecutar diferentes  instrucciones.

Visual Basic utiliza diferentes condicionales, entre los que encontramos el condicional IF.

Evaluar solo la parte verdadera
Sintaxis1:

IF Condición THEN

  SI ES VERDADERO SE EJECUTAN N INSTRUCCIONES.

ENDIF

Evaluar la parte verdadera y la parte falsa

Sintaxis2:

IF Condición THEN

  SI ES VERDADERO SE EJECUTAN N INSTRUCCIONES.

ELSE

  SI ES FALSO  SE EJECUTAN N INSTRUCCIONES.

ENDIF

Evaluar la parte diferentes condiciones que pueden ser verdaderas o falsas

Sintaxis3:

IF Condición THEN

  SI ES VERDADERO SE EJECUTAN N INSTRUCCIONES.

ELSE IF Condición THEN

  SI ES VERDADERO SE EJECUTAN N INSTRUCCIONES.

ELSE

  SI ES FALSO  SE EJECUTAN N INSTRUCCIONES.

ENDIF

Nota1: un IF puede tener diferentes ELSEIF, los que sean necesarios.

Nota2: un IF puede tener un solo  ELSE (el ELSE es opcional)

Nota3: Siempre finaliza en ENDIF

TALLER: Diseñe el siguiente formulario

Presione doble Clic sobre el botón de comando MAYOR.
Escriba el siguiente código:

Private Sub Command1_Click()
Dim N1 As Integer, N2 As Integer, N3 As Integer
N1 = InputBox("Ingresa Primer Numero")
N2 = InputBox("Ingresa Segundo Numero")
N3 = InputBox("Ingresa Tercer Numero")

If N1 > N2 And N1 > N3 Then

  MAYOR = N1

ElseIf N2 > N1 And N2 > N3 Then

    MAYOR = N2

ElseIf N3 > N1 And N3 > N2 Then
    MAYOR = N3
Else
    MsgBox "SON IGUALES"
    Exit Sub
End If

MsgBox "EL NUMERO MAYOR ES " + Str(MAYOR)
End Sub

Presione F5 y de CLIC sobre el botón MAYOR

EJERCICIO 1:
Desarrolle un programa que capture la edad de una persona y muestre un mensaje que indique si es un bebe, un niño, adolescente o es un adulto.

Tenga en cuenta:
un Bebe es de 0 a 3 años.
un Niño es de 4 a 12 años.
un Adolescente es de 13 a 17 años.
un Adulto es de 18 años en adelante.

Entorno del lenguaje de programación

Formación en Valor: Justicia.
Núcleo Integrador: Entorno del lenguaje de programación
                            (Form, TextBox, Label y CommandButton).
Objetivo: Diseño de formularios con diferentes controles.

Tenga en cuenta:

1. Entre al programa Visual Basic 6.0. (Clic en inicio y escriba Visual Basic y luego Clic)

2. Seleccione Exe estándar y luego clic botón Abrir.

  

Aparece la siguiente Ventana: Tenga en cuenta lo siguiente:

En el explorador de proyectos encontramos:

En la ventana Propiedades encontramos:

Diseñe el siguiente formulario, teniendo en cuenta lo explicado anteriormente:

Ventana de código F7

Para retornar al formulario presione Shif F7 o clic en el botón formulario de la ventana explorador de proyectos.