Eventos MouseMove y Change con el objeto Image.

Grado: 11A - 11C
Fecha: Mayo-31-2013
Asignatura: Tecnología e Informática.
Formación en Valor: Imitación al Modelo Mariano.
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

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 tes imágenes 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

Ejecute el programa F5.

CheckBox - Casillas de Verificación

Fecha: Mayo 27 de 2013

Asignatura: Tecnología e Informática.

Formación en Valor: Imitación al Modelo Mariano.

Núcleo Integrador: CheckBox

Objetivo: Programar las casillas de verificación.

Los CheckBox 

Son Casillas de Verificación, las cuales se utilizan para trabajar listas de opciones, de las cuales se puede o no seleccionar la opción.

Se controla con la propiedad Value, la cual indica si esta o no seleccionado el CHECKBOX.
Tiene dos posibles valores:
0 No esta seleccionado.
1 Esta Seleccionado.

Ejemplo:
Diseñe el siguiente formulario:

Para cambiar el texto que muestra el CHECKBOX, debe utilizar la propiedad CAPTION del CHECKBOX.

Copie el siguiente código, en la ventana de código del Visual Basic.

Private Sub Check1_Click()
  If Check1.Value = 0 Then
    Check1.Caption = "No Tiene IVA"
  ElseIf Check1.Value = 1 Then
    Check1.Caption = "Tiene IVA"
  End If
End Sub

Private Sub Command1_Click()
  If Check1.Value = 0 Then
    Text3 = 0
  ElseIf Check1.Value = 1 Then
    Text3 = Val(Text2) * 16 / 100
  End If
  Text4 = Val(Text2) + Val(Text3)
End Sub

Private Sub Command2_Click()
  Text1 = ""
  Text2 = ""
  Text3 = ""
  Text4 = ""
  Text1.SetFocus
End Sub

Ejecute el programa e ingrese:

- El Nombre del Articulo.

- Valor Venta.

- Active si tiene o No IVA el articulo.

- Clic en el botón Calcular.

TALLER: Desarrolle un programa que calcule si un empleado tiene o no COMISIÓN.

El programa debe CAPTURAR.

- El Nombre del Empleado.

- Salario Basico.

- Active si tiene o No COMISIÓN, (SI TIENE ES DEL 15% DEL SALARIO BASE.)

- El botón Calcular, debe realizar las operaciones matemáticas.

Eventos Lostfocus y Gotfocus

Curso: 11B - 11C
Fecha: Junio 7 de 2013
Asignatura: Tecnología e Informática.
Formación en Valor: Lealtad.
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

Taller:

Teniendo en cuenta el programa anterior, desarrolle usted uno que utilice el evento Gotfocus.