RED DE PROCESOS COGNITIVOS INTEGRADOS.

Grado: Undécimo

Asignatura: Tecnología e Informática

Docente: Betsauro Palomino Díaz

Periodo: IV

Año: 2016

·         Componente

o    Apropiación y uso de los contenidos libres.

o    Tecnología y sociedad.

·         Competencias  a desarrollar

o    El estudiante desarrollará habilidades y destrezas que le permiten conocer y utilizar los contenidos libres.

·         Estándares Básicos  de competencias

o    Comprendo el funcionamiento de la Nube informática.

·         Eje Curricular

o    Contenidos libres.

o    Procesos productivos.

·         Núcleos integrador

1.    Contenidos libres (Blogs).

2.    Configuración de un Blog.

3.    Entradas en un Blog.

4.    Drive y sus elementos.

5.    Evaluar procesos productivos de artefactos tecnológicos.

·         Logros

o    Conocer y aplicar los contenidos libres.

o    Analiza, compara y evalúa los procesos productivos de artefactos tecnológicos.

o    Escuchará atentamente las explicaciones dadas en clase y las participaciones de sus compañeras.

o    Aplicara correctamente las normas de cuidado en la sala de cómputo.

·         Indicador de desempeño

o    El estudiante estará en capacidad de desarrollar contenidos libres.

V.J.E

Asignatura: Tecnología e Informática.

Formación en Valor: Templanza

Núcleo Integrador: Contenidos libres (Blogs).

Indicador de desempeño: Publica contenidos libres en la web.

Exploración cognitiva: 

¿Cómo creas tu sitio web?

Taller teniendo en cuenta los pasos que encontraras en el siguiente blog, crea un sitio web libre que hable de un tema libre.

Clic aquí para ver los pasos de Contenidos Libres (blogs)

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