Contenidos Libres (Blog).

Asignatura: Tecnología e Informática.

Formación en Valor: Ternura.
Núcleo Integrador: Contenidos Libres (Blog)
Objetivo: Publicar contenidos libres en la Web.

Componentes:
1. Apropiación y uso de la Informática 
2. Tecnología y sociedad.

Eje Curricular:
1. Contenidos Libres.
2. Procesos productivos.

Estándar de desempeño: 
1. Manifiesto destreza en la asistencia remota de computadores utilizando Internet. 

2. Evalúo los procesos productivos de diversos artefactos y sistemas tecnológicos, teniendo en cuenta sus efectos sobre el medio ambiente y las comunidades implicadas.

Núcleos Integradores IV Periodo

• Contenidos libres (Blogs).
• Configuración de un Blog.
• Entradas en un Blog.
• Compartir archivos en la web.

Presione Clic para ir al enlace Crear un Blog

Taller:

Desarrolle un Mapa Conceptual en Power Point que explique las siguientes preguntas:

1. ¿Qué es un Blog?

2. Características de un Blog.

3. Ventajas que ofrece un Blog.

4. Desventajas de un Blog.

5. Como beneficia un Blog el proceso de enseñanza aprendizaje.

En el Nombre de la diapositiva debe ser: 
Curso - Taller Blogs - Nombre estudiante.

Ejemplo: 
11B - Taller Blogs - Jennifer Palomino 

Fecha de entrega Próxima clase

Nota:

Para la Tercera Nota del Cuarto periodo se debe crear una cuenta en gmail, para la próxima clase.

RED DE PROCESOS COGNITIVOS INTEGRADOS IV PERIODO

Grado: 11°	Asignatura:  Tecnología e Informática	Docente: Betsauro Palomino Díaz	Periodo:  IV	Año: 2015
Componente	Ejes Curriculares	Estándares de Desempeño	Núcleos Integradores
Apropiación y uso de la Informática Tecnología y sociedad	Contenidos libres. Procesos productivos.	Manifiesto destreza en los contenidos libres y manipulación de archivos en la web. Evalúo los procesos productivos de diversos artefactos y sistemas tecnológicos, teniendo en cuenta sus efectos sobre el medio ambiente y las comunidades implicadas.	Contenidos libres (Blogs). Configuración de un Blog. Entradas en un Blog. Compartir archivos en la web. Evaluar procesos productivos de artefactos tecnológicos.

Menús

Asignatura: Tecnología e Informática.
Formación en Valor: Ternura.
Núcleo Integrador: Menús.
Objetivo: Crear menús para mostrar diferentes ventanas en un programa.


Editor de Menús

Permite crear un menú









Modelo de Menús

Taller: Consulte cómo crear Menús en Visual Basic 6.0 y cree un Menú que ejecute dos o más Form (Formularios). Con diferentes opciones y subOpciones.

















Asignatura: Tecnología e Informática.
Formación en Valor: Ternura
Núcleo Integrador: Analizar, comparar y buscar soluciones a problemas..
Objetivo: Identificar un problema y como se ha solucionado utilizando tecnología.

Taller: desarrolle un trabajo escrito utilizando diapositivas, que explique como se ha solucionado dos problemas utilizando tecnología,  ejemplo:

Problema: En tiempos anteriores, los docentes sufrían de problemas en la piel, pues la tiza que utilizaban le causaban daños en la piel, como salpullidos y otros.
Solución, se crea el marcador borrable y el tablero acrílico, explico sus beneficios.

Características:
1, Diapositiva, hoja de presentación.
2. Indicar el primer problema.
3. Indicar solución al primer problema.
4. Indicar el segundo problema.
5. Indicar solución al segundo problema.

Las diapositivas deben tener:

• Transiciones.
• Animaciones aplicadas a imágenes y texto.

Control Timer

Asignatura: Tecnología e Informática.
Formación en Valor: Ternura
Núcleo Integrador: Control Timer.
Objetivo: Desarrollar un  control de Tiempo


Control Timer
Este control se activa por intervalos de tiempo.

Sus propiedades son:
Interval: Especifica el intervalo de tiempo en que se activa el control.

Objetos que deben agregar al formulario:

Control Timer

Label

Image

Adicione:

2 Control Timer

1 Label

1 Image

Debe quedar el formulario Así:

Grabe el Formulario y el Proyecto en una carpeta y copie estas 8 imágenes a esa misma carpeta: Deben tener el Nombre:

Caballo1.jpg, Caballo2.jpg, Caballo3.jpg, Caballo4.jpg, Caballo5.jpg, Caballo6.jpg, Caballo7.jpg, Caballo8.jpg, 

Luego copie el código y ejecute el programa.

Private Sub Form_Load()
  'Indica el intervalo de tiempo, 100 milésimas de segundo
  Timer1.Interval = 100
  
  Timer2.Interval = 100
  
  'Ancho y alto del formulario
  Me.Width = 16000
  Me.Height = 1000

 'ubica el formulario arriba
  Me.Top = 0
  
  'Cambia el tipo de letra, su tamaño
  Label1.Font.Name = "Magneto"
  Label1.Font.Size = 100

  'Auto ajusta el Label al tamaño de la letra
  Label1.AutoSize = True
  
End Sub

Private Sub Timer1_Timer()
  'Muestra la hora en el Label
  Label1 = Time
End Sub

Private Sub Timer2_Timer()
  'Se declara la Variable entera y Static es para que conserve el valor.
  Static Numero As Integer

  'Aumenta el valor de 1 en 1
  Numero = Numero + 1

  'Muestra la imagen 
  Image1.Picture = LoadPicture(App.Path + "\caballo" + Trim(Str(Numero)) + ".jpg")
  If Numero = 8 Then
    Numero = 0
  End If
End Sub

NOTA: Presione F5 y vea el resultado.

TALLER: Teniendo en cuenta el Taller anterior, descargue, imágenes que tengan una secuencia.
Nota1: Cambie la linea:
Image1.Picture = LoadPicture(App.Path + "\caballo" + Trim(Str(Numero)) + ".jpg")

Adaptando al nombre del archivo que acabas de descargar.

Nota2:
Tenga el cuenta la siguiente línea:
 If Numero = 8 Then
Cambie el numero 8, por el número de imágenes que tiene tu programa.

Nota3:
Tenga en cuenta la linea:
  Timer2.Interval = 100
El número 100: indica las milésimas de segundo que permiten mostrar la otra imagen, un numero menor, la imagen se mueve mas rápido, un numero mayor se mueve más lento.

ListBox

Asignatura: Tecnología e Informática.
Formación en Valor: Esperanza.
Núcleo Integrador: ListBox.
Objetivo: Programar listas.

ListBox:  Este objeto nos permite mostrar una lista de opciones 


Ejercicio Diseña el siguiente formulario:
CLIC SOBRE LA IMAGEN PARA VERLA MEJOR.

Copia el siguiente código y muestra el resultado con F5.

Dim x As Integer
Private Sub Command1_Click()
 If List1.ListIndex = -1 Then
   MsgBox "Seleccione el elemento", vbInformation, "ListBox"
 Else
   List2.AddItem List1.Text
   List1.RemoveItem List1.ListIndex
 End If
End Sub

Private Sub Command2_Click()
 If List1.ListIndex = -1 Then
   MsgBox "Seleccione el elemento", vbInformation, "ListBox"
 Else
   For x = 0 To List1.ListCount
     List2.AddItem List1.List(x)
   Next x
   List1.Clear
 End If
End Sub

Private Sub Command3_Click()
If List2.ListIndex = -1 Then
   MsgBox "Seleccione el elemento", vbInformation, "ListBox"
 Else
   List1.AddItem List2.Text
   List2.RemoveItem List2.ListIndex
 End If
End Sub

Private Sub Command4_Click()
 If List2.ListIndex = -1 Then
   MsgBox "Seleccione el elemento", vbInformation, "ListBox"
 Else
   For x = 0 To List2.ListCount
     List1.AddItem List2.List(x)
   Next x
   List2.Clear
 End If
End Sub

Private Sub Form_Load()
  List1.AddItem "ELEMENTO 1"
  List1.AddItem "ELEMENTO 2"
  List1.AddItem "ELEMENTO 3"
  List1.AddItem "ELEMENTO 4"
End Sub

Taller: 
Teniendo en cuenta el Taller desarrollado en la clase pasada del COMBOBOX, desarrolle un programa similar utilizando LISTBOX, pero en este caso adicione un objeto IMAGE el cual debe cambiar al dar clic sobre el elemento de la lista dos.

ComboBox

Asignatura: Tecnología e Informática.

Formación en Valor: Esperanza
Núcleo Integrador: ComboBox

Objetivo: Programar las listas desplegables.

COMBOBOX
Permite crear listas desplegables.

Agregue 2 comboBox al Formulario
y escriba el siguiente código

Private Sub Combo1_Click()
  Combo2.Clear
  Select Case Combo1.ListIndex
    Case 0
      Combo2.AddItem "CARTAGENA"
      Combo2.AddItem "TURBACO"
    Case 1
      Combo2.AddItem "BARRANQUILLA"
      Combo2.AddItem "BARANOA"
    Case 2
      Combo2.AddItem "SANTA MARTA"
      Combo2.AddItem "CIENAGA"
  End Select
End Sub

Private Sub Form_Load()
  Combo1.Clear
  Combo2.Clear
  Combo1.AddItem "BOLIVAR"
  Combo1.AddItem "ATLANTICO"
  Combo1.AddItem "MAGDALENA"
End Sub

Presione F5 y pruebe el programa.
Analice que el segundo ComboBox depende de la selección del primer ComboBox, teniendo en cuenta lo anterior,  desarrolle el siguiente Taller:

TALLER.
Desarrolle un programa donde aplique lo aprendido con 2 COMBOBOX. El primer ComboBox tiene los temas de Inglés y el segundo los elementos de ese tema.

Manejo de Unidades de disco, carpetas y archivos.

Asignatura: Tecnología e Informática.
Formación en Valor: Esperanza.
Núcleo Integrador: Manejo de Unidades de disco, carpetas y archivos.
Objetivo: Programar la exploración de unidades y carpetas.


Manejo de Unidades de disco, carpetas y archivos.

Visual Basic 6.0 le permite con una serie de objetos explorar las unidades de disco y mostrar los archivos que contengan las unidades de disco o carpetas.


Objetos a Utilizar:

 DriveListBox: Muestra una lista de las unidades de disco del computador como son: Discos duros, USB, CD, etc.


 DirListBox: Permite explorar las carpetas, mostrando las subcarpetas que estas contengan.


 FileListBox: Muestra los archivos contenidos en una unidad de disco o carpeta.


 Image: Muestra imágenes contenidas en el disco.


Taller:

Realice el siguiente diseño de formulario con los objetos anteriores:
Nota: al objeto Image debe cambiarle la propiedad Stretch a TRUE, para que se ajuste al tamaño del objeto cuando se muestra la imagen.

NOTA: LAS IMÁGENES NO APARECE AL DISEÑAR, SOLO CUANDO SE EJECUTE EL PROGRAMA Y SELECCIONE UN ARCHIVO DE IMAGEN.

Debe copiar el siguiente código:

'La comilla sencilla al frente del código indica que es un comentario.

'Muestra los archivos al cambiar la carpeta.

Private Sub Dir1_Change()

  File1.Path = Dir1.Path

End Sub

'Al cambiar la unidad de disco muestra que carpetas contiene.

Private Sub Drive1_Change()

  Dir1.Path = Drive1.Drive

End Sub

'Muestra la imagen al dar un clic sobre el archivo de imagen.

Private Sub File1_Click()

  Image1.Picture = LoadPicture(File1.Path + "\" + File1.FileName)

End Sub

'Al momento de mostrar el formulario le indica al objeto FileListBox 

' que muestre solo los tipos de archivos jpg, bmp y gif 

Private Sub Form_Load()

  File1.Pattern = "*.jpg; *.bmp; *.gif"

End Sub

Ejecute el programa presionando la tecla F5 y explore el disco en busca de imágenes.

Proyecto de Ingles - Agregar Audio

Asignatura: Tecnología e Informática.

Formación en Valor: Esperanza.

Núcleo Integrado: Taller - Eventos MouseMove y Click con el objeto Image.

Objetivo: Desarrollo de taller con los eventos MoveMouse y Change.

NOTA1: El Texto que comience con Comillas sencillas ( ' ), es un comentario, en el Blog los he colocado en rojo, en el programa tienen un color verde.

NOTA2: Las imágenes y archivos de sonido, deben estar guardados en la misma carpeta para que se puedan ver o sonar, según sea el caso.

'Este código se escribe al comienzo
Option Explicit
'Función Api mciExecute para reproducir los archivos de música
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long

'Este evento ocurre al mover el Mouse por la ventana o Formulario (Form)
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Image1.Picture = LoadPicture(App.Path + "\Animales.jpg")
  Label3 = ""
  Label4 = ""
End Sub

'Al dar un clic sobre la Image2 (Mustra una corneta) reproduce el sonido
Private Sub Image2_Click()
  Image1.Picture = LoadPicture(App.Path + "\caballo.jpg")
  Label3 = "Se Escribe Horse"
  Label4 = "Se Pronuncia Hourse"
  
  mciExecute "play " + "Caballo.mp3"
End Sub

'Al dar un clic sobre la Image3 (Mustra una corneta) reproduce el sonido
Private Sub Image3_Click()
  mciExecute "play " + "Conejo.mp3"
  Image1.Picture = LoadPicture(App.Path + "\Conejo.jpg")
  Label3 = "Se Escribe Rabbit"
  Label4 = "Se Pronuncia Rabets"
End Sub

'Este Evento ocurre al Mover el Mouse por el Label1 (Dice en la propiedad Caption Caballo)
'Cambia a Color Rojo y Muestra la imagen de un Caballo
'Da una explicación en el Label3 y Label4
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Label1.ForeColor = &HFF&    'Rojo
  Label2.ForeColor = &HFF0000 'Azul

  Image1.Picture = LoadPicture(App.Path + "\caballo.jpg")
  Label3 = "Se Escribe Horse"
  Label4 = "Se Pronuncia Hourse"
End Sub

'Este Evento ocurre al Mover el Mouse por el Label2 (Dice en la propiedad Caption Conejo)
'Cambia a Color Rojo y Muestra la imagen de un Conejo
'Da una explicación en el Label3 y Label4
Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Label2.ForeColor = &HFF&     'Rojo
  Label1.ForeColor = &HFF0000  'Azul

  Image1.Picture = LoadPicture(App.Path + "\Conejo.jpg")
  Label3 = "Se Escribe Rabbit"
  Label4 = "Se Pronuncia Rabets"
End Sub

CheckBox y OptionButton

Asignatura: Tecnología e Informática.

Formación en Valor: Obediencia
Núcleo Integrador: CheckBox

Objetivo: Programar las Casillas de Verificación.

CheckBox: también conocidas como Casillas de Verificación, nos permite establecer una lista de opciones, de las cuales podemos seleccionar ninguna, una, algunas o todas.

Son opcionales.

Estos objetos trabajan con la propiedad Value:

Si tiene el valor de 1 indica que fue seleccionada.

Si tiene el valor de 0 indica que No se ha seleccionado.

Ejemplo:

Adicione un CHECKBOX  al formulario.

Cámbiele la propiedad  Caption por: “Esta Inactivo “

Doble clic sobre el CheckBox

Escriba el siguiente código sobre el evento Clic

Private Sub Check1_Click()

  If Check1.Value = 0 Then

     Check1.Caption = "Esta Inactivo"

  ElseIf Check1.Value = 1 Then

     Check1.Caption = "Esta Activo"

  End If

End Sub

Ejecute el programa presionando F5

Taller:

Desarrolle un ejercicio que aplique lo aprendido, de la siguiente forma:

Incorpore un  CheckBox al Formulario que tenga en la propiedad Caption IVA, al Activarlo que Sume el IVA y que al Desactivarlo lo Reste.

Nota: utilice dos cuadro de texto que tenga el Valor Venta y otro el Valor IVA.

Recuerde que el IVA es el 16% de la Venta.

1. DISEÑO DEL FORMULARIO, DEBE TENER LAS SIGUIENTES CARACTERÍSTICAS:

Para obtener el anterior diseño tenga en cuenta:
a. Los LABEL se les cambia la propiedad CAPTION..
b. Los TEXT se les debe borrar la propiedad TEXT, para que no muestren texto.
c. Los CHECKBOX se les cambia la propiedad CAPTION.
d. Los COMMANDBUTTON se les cambia la propiedad CAPTION.

2. Programar el botón CALCULAR.
  a. Doble Clic sobre el botón CALCULAR  y escribir el siguiente código:
Private Sub Command1_Click()
  If Check1.Value = 1 Then
    Text2 = Val(Text1) * 16 / 100
  Else
    Text2 = 0
  End If
  Text3 = Val(Text1) + Val(Text2)
End Sub

EJECUTE EL PROGRAMA CON F5

El usuario debe escribir el valor venta.
Si la venta tiene IVA, activar la casilla.
Clic en el botón CALCULAR.

========================================================================

Asignatura: Tecnología e Informática.

Formación en Valor: Obediencia.
Núcleo Integrador: OptionButton

Objetivo: Programar los Botones de Opciones.

Los OptionButton

Son botones de opciones , las cuales se utilizan para trabajar listas de opciones, de las cuales se puede seleccionar una sola opción.

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

DESARROLLE: El siguiente diseño de formulario:

RECUERDE:

Pegue el siguiente código en la ventana de código de Visual Basic:

'Este programa Calcula la Bonificación y el Neto a Pagar de un empleado

'La Bonificación se distribuye así_:

'Si el empleado es Nuevo, la Bonificación es del 10% del salario

'Si el empleado es Antiguo se le da el 15% del salario.

'Neto a Pagar es la Suma del Salario Más la Bonificación.

Private Sub Command1_Click()

  If Option1.Value = True Then

    Text3 = Val(Text2) * 10 / 100

  ElseIf Option2.Value = True Then

    Text3 = Val(Text2) * 20 / 100

  Else

    MsgBox "Debe seleccionar el Tipo de empleado (Nuevo o Antiguo)"

    Exit Sub

  End If

  Text4 = Val(Text2) + Val(Text3)

End Sub

' Este Botón Blanquea los cuadros de texto, los OptionButton y el CheckBox.

' Pasa el cursor al primer cuadro de texto

Private Sub Command2_Click()

  Text1 = ""

  Text2 = ""

  Text3 = ""

  Text4 = ""

  Option1.Value = False

  Option2.Value = False

  Text1.SetFocus

End Sub