ChecBox. - Taller

V.J.E

Asignatura: Tecnología e Informática.

Formación en Valor: Prudencia.

Núcleo Integrador: ChecBox.

Indicador de desempeño: Programa las casillas de verificación.

Exploración de conocimientos previos
¿Dónde has visto las casillas de verificación y como se utilizan?
 
Taller:
Diseñe el siguiente Formulario:

El siguiente programa debe calcular el Subsidio de Transporte y el Neto a Pagar de un empleado, se debe tener en cuenta:
Si la casilla esta activa se le asigna 70000.
Si no está activa se le asigna cero (0).
El neto a pagar es la suma del subsidio de transporte más el salario.

El código del programa es:
Private Sub CommandButton1_Click()
  If CheckBox1.Value = True Then
    TextBox3 = 70000
  Else
    TextBox3 = 0
  End If
  TextBox4 = Val(TextBox2) + Val(TextBox3)
End Sub

OptionButton. - Taller

V.J.E

Asignatura: Tecnología e Informática.

Formación en Valor: Prudencia.

Núcleo Integrador: OptionButton.

Indicador de desempeño: Desarrolla programas básicos utilizando botones de opciones.

Exploración de conocimientos previos
¿Cuándo debes utilizar los Botones de Opciones?
 
Taller:
Diseñe el siguiente Formulario:

El siguiente programa debe calcular el Subsidio de Transporte y el Neto a Pagar de un empleado, se debe tener en cuenta:
Si el empleado es nuevo, el subsidio de Transporte es de 70000
Si el empleado es antiguo el subsidio de Transporte es de 100000
 Neto a pagar: es la suma del Salario más Subsidio de Transporte.

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

Private Sub CommandButton1_Click()
  If OptionButton1.Value = True Then
    TextBox3 = 70000
  ElseIf OptionButton2.Value = True Then
    TextBox3 = 100000
  Else
    TextBox3 = 0
    MsgBox "Debe seleccionar el tipo de empleado", vbExclamation, "Error"
  End If
  TextBox4 = Val(TextBox2) + Val(TextBox3)
End Sub

Menú - Ciencias Naturales

Diseñe el siguiente formulario:

Copie el siguiente código :.
Private Sub Image1_Click()
  UserForm1.Show
End Sub

Private Sub Image2_Click()
  UserForm3.Show
End Sub

Private Sub Image3_Click()
 UserForm4.Show
End Sub

Private Sub Image4_Click()
  UserForm5.Show
End Sub

NOTA:
Debe crear un formulario por cada tema.

Imágenes y Lista - Tema Animales

Cree el siguiente diseño:

Adicione un objeto Image, Objeto Label y Una Lista.
y copie el siguiente código:
Private Sub ListBox1_Click()
With ActiveWorkbook
  Select Case ListBox1.ListIndex
    Case 0
      Image1.Picture = LoadPicture(.Path + "\Gato.jpg")
      Label1 = "Explico sobre el Gato"
    Case 1
      Image1.Picture = LoadPicture(.Path + "\tigres.jpg")
      Label1 = "Explico sobre el Tigres"
    Case 2
      Image1.Picture = LoadPicture(.Path + "\Leon.jpg")
      Label1 = "Explico sobre el Leon"
    Case 3
      Image1.Picture = LoadPicture(.Path + "\vaca.jpg")
      Label1 = "Explico sobre la Vaca"
    Case 4
      Image1.Picture = LoadPicture(.Path + "\Burro.jpg")
      Label1 = "Explico sobre el Burro"
  End Select
End With
End Sub

Private Sub UserForm_Initialize()
  ListBox1.AddItem "Gato"
  ListBox1.AddItem "Tigres"
  ListBox1.AddItem "Leon"
  ListBox1.AddItem "Vaca"
  ListBox1.AddItem "Burro"
End Sub

NOTA:

Deben estar los archivos de imágenes guardados en la misma carpeta del archivo de Excel.

Eventos MouseMove y Change con el objeto Image.

V.J.E

Asignatura: Tecnología e Informática.

Formación en Valor: Servicio.

Núcleo Integrador: Eventos MouseMove y Change con el objeto Image.

Indicador de desempeño: Programa el movimiento del mouse..

Exploración Cognitiva:

¿Que utilidad tiene programar el Mouse?

Taller:
Diseña el siguiente formulario:

Debes adicionar los siguientes Objetos:
Image

Label

Descarga la imagen e incorpórala  al formulario.

Cambiar las propiedades del objeto Image:

PictureSizeMode = 1 – fmPictureSizeModeStretch

Esta propiedad ajusta la imagen al tamaño asignado.

Cambiar las propiedades del objeto Label:

BackStyle = 0 – fmBackStyleTransparent

Esta propiedad coloca transparente el Label

Escucha la explicación para poder utilizar los objetos y luego copia este código:

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

  Label2 = ""

  Label1 = ""

End Sub

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

  Label2 = "Bus"

  Label1 = "Terrestre"

  Label9 = "Explicar el tema"

End Sub

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

  Label2 = "Moto"

  Label1 = "Terrestre"

End Sub

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

  Label2 = "Elicortero"

  Label1 = "Aereo"

  Label9 = "Explicar el tema"

End Sub

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

  Label2 = "Carro"

  Label1 = "Terrestre"

  Label9 = "Explicar el tema"

End Sub

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

  Label2 = "Avion"

  Label1 = "Aereo"

  Label9 = "Explicar el tema"

End Sub

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

  Label2 = "Barco"

  Label1 = "Acuatico"

  Label9 = "Explicar el tema"

End Sub

Private Sub UserForm_Activate()

    With ActiveWorkbook   

      Image1.Picture = LoadPicture(.Path + "\medios-transporte.jpg")   

    End With

End Sub

  

Taller - ComboBox y ListBox

Teniendo en cuenta el siguiente formulario

active la ventana de código y copie el código siguiente:

Private Sub ComboBox1_Click()
  ListBox1.Clear
  Select Case ComboBox1.ListIndex
    Case 0
      ListBox1.AddItem "Barranquilla"
      ListBox1.AddItem "Baranoa"
      ListBox1.AddItem "Santo Tomas"
    Case 1
      ListBox1.AddItem "Arjona"
      ListBox1.AddItem "Cartagena"
      ListBox1.AddItem "Turbaco"
    Case 2
      ListBox1.AddItem "Aracataca"
      ListBox1.AddItem "Cienaga"
      ListBox1.AddItem "Santa Marta"
  End Select
End Sub

Private Sub UserForm_Initialize()
  ComboBox1.AddItem "Atlantico"
  ComboBox1.AddItem "Bolivar"
  ComboBox1.AddItem "Magdalena"
End Sub

El anterior programa nos permite seleccionar un Departamento y nos muestra los municipios del Departamento seleccionado.

TALLER: Desarrolle un programa teniendo en cuenta la anterior información.
Espere instrucciones del docente.

Ambientación - conducta de entrada - II Periodo

V.J.E

Asignatura: Tecnología e Informática.

Formación en Valor: Alegría.

Núcleo Integrador: Ambientación - conducta de entrada.

Indicador de desempeño: Dar a conocer los núcleos del segundo periodo.

Núcleo Integrador: Cuadro Combinado y Cuadros de Listas.

Indicador de desempeño: Crea y programa lista de datos.

Exploración Cognitiva:

¿Cómo utilizas las listas de datos?

 Taller1.

Adicione a un formulario de Visual Basic los siguientes objetos

Cuadro Combinado

ComboBox

Cuadro de Lista.

ListBox

Adicione el siguiente código (copie y pegue)
Private Sub UserForm_Initialize()
  ListBox1.AddItem "TEMA 1"
  ListBox1.AddItem "TEMA 2"
  ListBox1.AddItem "TEMA 3"
   
  ComboBox1.AddItem "TEMA 1"
  ComboBox1.AddItem "TEMA 2"
  ComboBox1.AddItem "TEMA 3"
End Sub

Private Sub ComboBox1_Click()
  Select Case ComboBox1.ListIndex
    Case 0
      Label6.Caption = "PRESIONO CLIC EN EL ITEM 1"
    Case 1
      Label6.Caption = "PRESIONO CLIC EN EL ITEM 2"
    Case 2
      Label6.Caption = "PRESIONO CLIC EN EL ITEM 3"
  End Select
End Sub 

Private Sub ListBox1_Click()
  Select Case ListBox1.ListIndex
    Case 0
      Label7.Caption = "PRESIONO CLIC EN EL ITEM 1"
    Case 1
      Label7.Caption = "PRESIONO CLIC EN EL ITEM 2"
    Case 2
      Label7.Caption = "PRESIONO CLIC EN EL ITEM 3"
  End Select
End Sub

Ejecute el programa (F5) y seleccione los datos de las listas.
NOTA:
El evento Initialize(), se ejecuta al momento de iniciar o mostrar el formulario (Cuando presionas F5)
AddItem: Es una propiedad de los objetos ListBox y ComboBox, la cual permite adicionar un Item o elemento a la lista.