Eventos Lostfocus y Gotfocus.

Asignatura: Tecnología e Informática.
Formación en Valor: Sentido de Pertenencia.
Núcleo Integrador: Eventos Lostfocus y Gotfocus.
Objetivo: Programar la ubicación del Mouse.

Evento Lostfocus
Este evento ocurre cuando el cursor sale de un objeto(Cuadro de Texto, Botón de comando, etc.)


Evento Gotfocus
Este evento ocurre cuando el cursor Entra o Cae en un objeto(Cuadro de Texto, Botón de comando, etc.)

Diseñe la siguiente pantalla:

Copie este código en la ventana de código del programa y ejecute el programa con F5

Private Sub Command1_Click()

  If Val(Text2) <= 1200000 Then

    Text3 = 70000

  Else

    Text3 = 0

  End If

  Text4 = Val(Text2) + Val(Text3)

  Command2.SetFocus

End Sub

Private Sub Command1_GotFocus()

  

  If Text3 <> "" Then

    MsgBox "No debe escribir el transporte este se calcula"

    Text3 = ""

  End If

  If Text4 <> "" Then

    MsgBox "No debe escribir El Total a Pagar este se calcula"

    Text4 = ""

  End If

  If Text2 = "" Then

    MsgBox "Debe escribir el Salario"

    Text2.SetFocus

  End If

  

End Sub

Private Sub Command2_Click()

  Text1 = ""

  Text2 = ""

  Text3 = ""

  Text4 = ""

  Text1.SetFocus

End Sub

Private Sub Text2_GotFocus()

  If Text1 = "" Then

    MsgBox "Debe escribir el nombre"

    Text1.SetFocus

  End If

End Sub

Private Sub Text3_GotFocus()

  If Text2 = "" Then

    MsgBox "Debe escribir el Salario"

    Text2.SetFocus

  End If

End Sub

PROYECTO DE INGLÉS.
Teniendo en cuanta las anteriores clases, inicie su proyecto de Inglés en parejas. Tenga en cuenta que debe ser orientado a estudiantes de 1 a 3 grado, deben seleccionar un tema que no se repita en el curso.

SELECT CASE

Asignatura: Tecnología e informática:
Formación en Valor: Sentido de Pertenencia.
Núcleo Integrador: Programas con el condicional  SELECT CASE.
Objetivo: Evaluar el desarrollo de programas con SELECT CASE.

SELECT CASE: Nos permite evaluar los diferentes valores que pueda recibir una variable u objeto(Cuadros de textos, Label, etc)

La instrucción SELECT CASE, finaliza en END SELECT.

Un SELECT CASE, puede tener diferentes CASE, cada uno de ellos evalúa uno o varios valores.

Un SELECT CASE, puede tener un solo CASE ELSE, el cual solo es verdadero si las condiciones anteriores son falsas, por lo cual debe ser la ultima condición en preguntarse (Es opcional).

EJEMPLO:
Desarrolle un programa que capture la edad y nos diga si es bebe, niño, adolescente o 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.
Y un adulto es mayor de 17 años.
Diseñe el siguiente formulario:

Al dar clic en el botón ACEPTAR, se debe mostrar un mensaje de acuerdo con la edad capturada.









Private Sub Command1_Click()
  Select Case Val(Text1)
    Case 0 To 3
      MsgBox "ES UN BEBE"
    Case 4 To 12
      MsgBox "ES UN NIÑO"
    Case 13 To 17
      MsgBox "ES UN ADOLESCENTE"
    Case Else
      MsgBox "ES UN ADULTO"
  End Select
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
  If KeyAscii = 13 Then
    Command1.SetFocus
  End If
End Sub

NOTA:
 * La instrucción VAL, convierte a valor, en este caso el contenido de TEXT1
 * KEYASCII, Captura el código de la ultima tecla pulsada, en este caso, pregunta si la ultima tecla pulsada fue ENTER (El código 13 es el del ENTER).

EJEMPLO2

DISEÑE EL SIGUIENTE FORMULARIO

Se captura el nombre del vendedor y se pasa el cursor a Valor Ventas, despues de capturar el  Valor Ventas se pasa el cursor a Aceptar.
Tenga en cuenta, para calcular la comisión:
Las ventas entre 1 y 2000.000 tienen 10% del valor venta
Las Ventas de 2.000.001 hasta 5.000.000 tienen 20% del Valor Venta
Las Ventas superiores a 5.000.000, tienen 30% del Valor Ventas.

Copie el siguiente código:

Private Sub Command1_Click()
  Select Case Val(Text2)
    Case 1 To 2000000
      Text3 = Val(Text2) * 10 / 100
    Case 2000001 To 5000000
      Text3 = Val(Text2) * 20 / 100
    Case Else
      Text3 = Val(Text2) * 30 / 100
  End Select
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

Eventos MouseMove y Change con el objeto Image.

Asignatura: Tecnología e Informática.
Formación en Valor: Sentido de Pertenencia.
Núcleo Integrador: Eventos MouseMove y Change con el objeto Image.
Objetivo: Programar el movimiento del mouse.

Evento MouseMove: Ocurre cuando se mueve el Mouse y se programa los resultados que se desean obtener. 

Evento Change: Ocurre cuando el objeto cambia.

Objeto a utilizar:

Objeto Image, debe cambiarle la propiedad Stretch al valor TRUE.

Objeto Label.

TALLER:

Diseñe el siguiente formulario

Utilice tres Label: Label1, Label2 y Label3.

La imagen no se muestra en el objeto Image, solo aparece cuando se escribe el siguiente código y se ejecuta el programa.

Debe descargar las tres imágenes en la carpeta documentos de su usuario y darle el siguiente nombre:

Carro.jpg

Avion.jpg

Barco.jpg

Copie el siguiente código:

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

  Image1.Picture = LoadPicture()

End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

  Image1.Picture = LoadPicture(App.Path + "\Barco.jpg")

End Sub

Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

  Image1.Picture = LoadPicture(App.Path + "\Avion.jpg")

End Sub

Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

  Image1.Picture = LoadPicture(App.Path + "\Carro.jpg")

End Sub

Guarde el proyecto y el formulario en la misma carpeta que guardo las imagenes.

Ejecute el programa F5.

Taller

Teniendo en cuenta el ejemplo anterior desarrolle un programa que explique un tema utilizando imágenes.

Programar con el condicional SELECT CASE.

Asignatura: Tecnología e Informática.

Formación en Valor: Sentido de Pertenencia,

Núcleo Integrador: Programar con el condicional SELECT CASE.

Objetivo: Evaluar el desarrollo de programas con SELECT CASE



Clic para ver ejemplo de SELECT CASE