Eventos MouseMove y Change con el objeto Image.

Grado: 11A - 11B - 11C
Fecha: Abril 28 - 11A
Fecha : Mayo-02 - 11B - 11C

Asignatura: Tecnología e Informática.
Formación en Valor: Confraternidad.
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 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.

Evaluación - SELECT CASE

Fecha: Abril 11 de 2014.

Asignatura: Tecnología e Informática.

Formación en Valor: Confraternidad

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

Objetivo: Evaluar el desarrollo de programas con SELECT CASE.


TALLER PRÁCTICO 11C


Desarrolle un programa utilizando la instrucción SELECT CASE para realizar preguntas o toma de decisiones.

Una empresa desea que se le desarrolle un programa que calcule el valor a pagar en comisión a un empleado, para lo cual se tiene en cuenta lo siguiente:

Se debe capturar los siguientes datos:
Nombre Empleado.
Cantidad de artículos vendidos.
Tipo Articulo vendido (1, 2, 3)
NOTA: el programa debe capturar solo 1, 2 ó 3 como Tipo de Artículo.

SE DEBE CALCULAR:
VALOR ARTICULO, depende del tipo de articulo, así: 
Si es 1 Valor articulo es de 500 pesos.
Si es 2 Valor articulo es de 1000 pesos.
Si es 3 Valor articulo es de 1500 pesos.

VALOR VENTA, es valor articulo por la cantidad de artículos.

COMISIÓN, es el 15% del valor venta. 

Éxitos. 
Recuerden:
Ejemplos para utilizar SELECT CASE

Fecha: Abril 21 de 2014.

Asignatura: Tecnología e Informática.

Formación en Valor: Confraternidad

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

Objetivo: Evaluar el desarrollo de programas con SELECT CASE.

TALLER PRÁCTICO 11A

Desarrolle un programa utilizando la instrucción SELECT CASE para realizar preguntas o toma de decisiones.

Una empresa desea que se le desarrolle un programa que calcule el valor a pagar de un empleado, para lo cual se tiene en cuenta lo siguiente:

Se debe capturar los siguientes datos:

Nombre Empleado.

Número de horas trabajadas.

Tipo Horas trabajadas (1, 2, 3)

NOTA: el programa debe capturar solo 1, 2 ó 3 como Tipo de Hora.

SE DEBE CALCULAR:

VALOR HORA, depende del tipo de hora, así: 

Si es 1 Valor Hora es de 10000 pesos.

Si es 2 Valor Hora es de 20000 pesos.

Si es 3 Valor Hora es de 30000 pesos.

SUELDO, es Valor Hora por Número de Horas Trabajadas.

DESCUENTO, es el 10% del Sueldo. 

NETO A PAGAR, Sueldo menos Descuento.

Éxitos. 

Recuerden:

Ejemplos para utilizar SELECT CASE

Programar con el condicional SELECT CASE.

SELECT CASE


Esta instrucción nos permite seleccionar los posibles valores que puede tomar una variable.
Ejemplo1:
Se desea desarrollar un programa que capture una edad y se debe mostrar un mensaje que muestre:
Si es un Bebe, de 0 a 3 años.
Si es un Niño, de 4 a 12 años.
Si es un Adolescente, de 13 a 17 años.
Si es un Adulto, de 18 en adelante.


1. Diseñe el siguiente formulario:

2. Doble clic en el botón Aceptar y copie el siguiente código:
Private Sub Command1_Click()
Dim Edad As Integer
Edad = Val(Text1)
Select Case Edad
  Case 0 To 3
    MsgBox "Es un Bebe", vbInformation, "Calcular Edad"
  Case 4 To 12
    MsgBox "Es un Niño", vbInformation, "Calcular Edad"
  Case 13 To 17
    MsgBox "Es un Adolescente", vbInformation, "Calcular Edad"
  Case Else
    MsgBox "Es un Adulto", vbInformation, "Calcular Edad"
End Select
End Sub

3. Presione F5, introduzca diferentes edades para que el programa calcule la edad.

EXPLICACIÓN DEL CÓDIGO:
La instrucción SELECT CASE, evalua los valores que pueda tener la variable EDAD (Selecciona los posibles casos o valores para la variable EDAD).
En este ejemplo la parte CASE 0 TO 3, Pregunta si la variable contiene un valor en el rango de cero hasta tres, si es verdadera la expresión se ejecuta las instrucciones siguientes:
MsgBox "Es un Bebe", vbInformation, "Calcular Edad"
Y salta al END SELECT (FINAL DEL SELECT).

CASE ELSE
Esta instrucción solo se ejecuta si las instrucciones anteriores son falsas.


Ejemplo 2:
Desarrolle un programa que calcule el valor comisión de un vendedor. Tenga en cuenta:
Nombre Vendedor
Valor Venta.
Calcular Valor comisión, el cual depende de:
Si la venta es menor de 1.000.000 la comisión es el 5% de la venta.
Si la venta está entre un 1.000.000 y 2.000.000  la comisión es el 10% de la venta.
Si la venta es mayor de 2.000.000 la comisión es el 15% de la venta.


1. Diseñe el siguiente formulario:

2. Doble clic en el botón Aceptar y copie el siguiente código:
Private Sub Command1_Click()
  Dim ValorVenta As Currency, Comision As Currency
  ValorVenta = Val(Text2)
  Select Case ValorVenta
    Case Is < 1000000
      Comision = ValorVenta * 5 / 100
    Case 1000000 To 2000000
      Comision = ValorVenta * 10 / 100
    Case Else
      Comision = ValorVenta * 15 / 100
  End Select
  Text3 = Comision
End Sub

3. F5, Introduzca diferentes valores de venta y presione CLIC en Aceptar y verifique que se estén realizando los cálculos correctos.

EXPLICACIÓN DEL CÓDIGO:
CASE IS < 1000000
realiza el calculo solo si la variable ValorVenta es menor de 1000000.

CASE 1000000 To 2000000
  Realiza el calculo solo si la variable ValorVenta está entre 1000000 y 2000000.

CASE ELSE
  Realiza el calculo solo si el Valor de la Venta Supera los 2000000.