Trabajo con vídeos

Asignatura: Tecnología e Informática

Formación en Valor: Honestidad.

Núcleo Integrador: Trabajo con vídeos.

Desempeño esperado: Crea software didácticos con contenido multimedia (vídeo).

Exploración Cognitiva

¿Qué utilidad tiene el vídeo en un software didáctico?

Para utilizar vídeos en Visual Basic Excel se debe activar el control Windows Media Player, para lo cual debe seguir los siguientes pasos.

Activar controles adicionales, clic derecho sobre la barra de controles y seleccionar la opción.

En la ventana controles adicionales activar Windows Media Player.

 

Aparece el siguiente control en la barra de herramientas.

Se debe escribir el siguiente código para poder reproducir el vídeo cuando el formulario se inicie:

Private Sub UserForm_Activate()
 'Este código se ejecuta al Activar el Formulario
 'El video debe estar en la misma carpeta que el archivo de Excel
 With ActiveWorkbook
   WindowsMediaPlayer1.URL = .Path + "\Congelada - Frozen Fiebre.mp4"
 End With
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
  'Este codigo cierra el video al momento de cerrar el formulario.
  'Si no utilizas este código puede quedar ejecutandose  el vídeo en memoria
  WindowsMediaPlayer1.Close
End Sub

NOTA:

Tenga en cuenta que usted puede cambiar el tamaño del control Windows Media Player al tamaño que desee, si en diseño lo adiciona por la propiedad  URL.

Si no utiliza el código anterior y solo asigna el vídeo por la propiedad, al cambiar de computador el buscara la carpeta donde usted indico por propiedad URL el vídeo, por eso es importante el código de la parte superior, para que siempre encuentre el vídeo en la carpeta indicada por código.

Trabajar con audio.

En programación se puede utilizar archivos con extensión MP3 para agregar Sonido a nuestro programa. ejemplo:

Debe copiar el siguiente código a su formulario.

'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

Private Sub Image1_Click()
 With ActiveWorkbook
      mciExecute "Close All"
      mciExecute "play " + .Path + "\Caballo.mp3"
 End With
End Sub

Private Sub Image2_Click()
   With ActiveWorkbook
        mciExecute "Close All"
        mciExecute "play " + .Path + "\Cabra.mp3"
   End With
End Sub

Private Sub Image3_Click()
   With ActiveWorkbook
      mciExecute "Close All"
      mciExecute "play " + .Path + "\Conejo.mp3"
   End With
End Sub

Private Sub Image4_Click()
   With ActiveWorkbook
      mciExecute "Close All"
      mciExecute "play " + .Path + "\Gallina.mp3"
   End With
End Sub
'Es importante este código para que al momento de cerrar el formulario no continué el sonido
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
  With ActiveWorkbook
      mciExecute "Close All"
 End With
End Sub

Tenga en cuenta:
Los archivos de sonido MP3 deben estar grabados en la misma carpeta del proyecto o no se podrán escuchar en el programa.

Este código ejecuta el sonido Gallina.mp3 que debe estar en la misma carpeta del proyecto.
mciExecute "play " + .Path + "\Gallina.mp3"

Este código cierra algún sonido que este activo.
mciExecute "Close All"

Eventos MouseMove y Change con el objeto Image.

Taller

Diseña el siguiente formulario

Tenga en cuenta:

Las imagenes deben estar en la misma carpeta donde esta el archivo de Excel.

Copie el siguiente código siguiente:

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

Respuesta = ""

Image2.Picture = LoadPicture()

End Sub

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

  With ActiveWorkbook

      Image2.Picture = LoadPicture(.Path + "\Ojo.jpg")

      Respuesta = "Explica el Ojo"

  End With

End Sub

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

  With ActiveWorkbook

      Image2.Picture = LoadPicture(.Path + "\oreja.jpg")

      Respuesta = "Explica la Oreja"

  End With

End Sub

Objeto Image y Eventos MouseMove y Click.

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