Menús

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.
En este caso se utilizaron  objetos imágenes, pero pueden utilizar  Label, Botones de Comandos o cualquier objeto y luego se programa su evento CLICK.

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

  

Diseño de formularios

Taller de sistemas

1. Desarrolle el siguiente diseño de formulario:

Para el desarrollo de la programación tenga en cuenta:
Valor transporte y Neto a Pagar deben ser calculados al dar Click en el botón Aceptar(CommandButton1), de la siguiente forma:

Valor Transporte: se muestra en el Cuadro de Texto 3 (TextBox3) y se calcula asi: solo se les da a los que ganan menos o igual a 1.600.000 (En la programación no utilice puntos).

Neto a Pagar: es la suma del salario Básico (TextBox2)  más el valor transporte(TextBox3) y se muestra en el cuadro de texto 4 (TextBox4).

Para lo anterior utilice el condicional IF - THEN - ENDIF.


2. Desarrolle el siguiente diseño de formulario:

Para el desarrollo de la programación tenga en cuenta:
La Comisión se deben ser calculados al dar Click en el botón Aceptar(CommandButton1), de la siguiente forma:

Comisión (TextBox3): 
Se calcula de la siguiente forma:
Si la venta es menor o igual de un 1.000.000 se les da 10% del Valor Venta(TextBox2).
Si es mayor de 1.000.000 se les da 15% del Valor Venta(TextBox2).

TENGA EN CUENTA:
Para los Botones:
Nuevo (CommandButton2): Borrar los datos de los cuadros de texto y pasar el cursor al cuadro de texto TextBox1.

Private Sub CommandButton2_Click()
  TextBox1 = ""
  TextBox2 = ""
  TextBox3 = ""
  TextBox1.SetFocus
End Sub

Cerrar (CommandButton3): cierra el programa.
Private Sub CommandButton3_Click()
  End
End Sub

Editor de Visual Basic (UserForm, Cuadros de textos, Etiquetas, Botones de comandos).

Formación en Valor: Gratitud.
Núcleo Integrador: Editor de Visual Basic (UserForm, Cuadros de textos, Etiquetas, Botones de comandos).
Desempeño esperado: Diseño de formularios con diferentes controles.

Tenga en cuenta:

1. Entre al programa Visual Basic 6.0. (Clic en inicio y escriba Microsoft Excel active la pestaña Programador entrando por el menú  Archivo, Opciones , Personalizar cinta de opciones, Activar pestaña Programador.

  

Aparece la siguiente Ventana: Tenga en cuenta lo siguiente:

En el explorador de proyectos encontramos:

En la ventana Propiedades encontramos:

Diseñe el siguiente formulario, teniendo en cuenta lo explicado anteriormente:

Ventana de código F7

Operadores lógicos, matemáticos y de relación.

-1 Actitud de escucha, -1 Orden, -1 Aseo

Asignatura: Tecnología e Informática

Formación en Valor: Gratitud.

Núcleo Integrador: Lenguaje de programación orientada a objetos, Objetos, propiedades, métodos. Variables, Constantes, Operadores lógicos, matemáticos y de relación.

Indicador de desempeño: Desarrolla ejercicios con los diferentes operadores de Visual Basic.

Exploración Cognitiva

¿Sabes cómo aplicar los diferentes operadores?

Un lenguaje de programación es un lenguaje formal diseñado para expresar procesos que pueden ser llevados a cabo por máquinas como las computadoras

La creación de un programa de computadora, se realiza mediante la aplicación de procedimientos lógicos, a través de los siguientes pasos:

• El desarrollo lógico del programa para resolver un problema en particular.

• Escritura de la lógica del programa empleando un lenguaje de programación específico (codificación del programa).

• Ensamblaje o compilación del programa hasta convertirlo en lenguaje de máquina.

• Prueba y depuración del programa.

• Desarrollo de la documentación.

and: Evalúa dos condiciones y devuelve un valor de verdad, el cual es verdadero solo si las dos condiciones son verdaderas, las otras combinaciones el resultado son falsas.
not; Evalúa una condición y devuelve resultado contrario.

AND
Cond1	Cond2	Resultado
V	V	V
V	F	F
F	V	F
F	F	F

OR
Cond1	Cond2	Resultado
V	V	V
V	F	V
F	V	V
F	F	F

NOT
Cond1	Resultado
V	F
F	V

Operadores Matemáticos
Suma	+
Resta	-
Multiplicación	*
División	/
Residuo/Resto	MOD

Operadores De Relación
Menor Que	<
Mayor Que	>
Menor Igual Que	< =
Mayor Igual Que	>=
Igual	=

Se utilizan para relacionar dos o más condiciones, al final se devuelve un valor de verdad (Verdadero o Falso).
Variables: Son espacios de memoria con nombre, utilizados para almacenar una información en el transcurso de un programa, la cual puede variar.


Constantes: Son espacios de memoria con nombre, utilizados para almacenar una información en el transcurso de un programa, la cual permanece fija en el transcurso del programa.

A las variables y constantes, se les asigna un nombre y un tipo de dato, así: Sintaxis.
DIM NombreVariable AS Tipo_Dato
Ejemplo
DIM Salario AS Currency
DIM Nombre_Empleado AS String
DIM Fecha_Ingreso AS Date
DIM Nro_Empleados AS Integer
DIM Nro_Votantes AS Long

Los tipos de datos indican el dato que debe contener la variable o constante, en el ejemplo anterior los tipos de datos utilizados indican lo siguiente:
Currency, Acepta valores monetarios o dinero.
String, Acepta cadenas de caracteres (Letras, signos, números) encerrados entre comillas dobles.
Date, Acepta solo fechas.
Integer, Entero corto, acepta valores enteros hasta 32.000.
Long, Entero largo, se utiliza para almacenar valores enteros superiores al entero corto.

Ejempo de asignación de datos a las variables:
Salario=1500000
Nombre_Empleado="JUAN PEREZ"
Fecha_Ingreso="15/01/2014"
Nro_Empleados =45
Nro_Votantes =12000000


OPERADORES LÓGICOS 


or: Evalúa dos condiciones y devuelve un valor de verdad, el cual es verdadero solo una de las condiciones es verdadera, solo es falso cuando las dos condiciones son falsas.

Operadores Matemáticos
Son utilizados para realizar las operaciones básicas de matemáticas.

Ejemplo1:
Se crean las variables y luego se le asignan valores por medio de operaciones matemáticas.
DIM N1 AS Integer, N2 AS Integer, Resp AS Integer
N1=10
N2=20
Resp= N1+N2
La variable Resp, queda con el valor 30

Ejemplo2:
Se crean las variables y luego se le asignan valores por medio de operaciones matemáticas.
DIM N1 AS Currency, N2 AS Currency, Resp AS Currency
N1=21
N2=5
Resp= N1 MOD N2
La variable Resp, queda con el valor 1, Tenga en cuenta que MOD, devuelve el residuo o resto de una división.

Operadores de Relación


Ejercicios:
Tenga en cuanta lo anteriores temas para resolver estos ejercicios.
Indique que valor de verdad tienen las siguientes operaciones.
DIM N1 AS Integer, N2 AS Integer, N3 as Integer
N1=30
N2=40
N3=50

1. (N1 >= N2) and (N1>=N3)
2. (N2 >= N1) and (N2>=N3)
3. (N3 >= N1) and (N3>=N2)
4. (N1 >= N2) OR (N1>=N3)
5. (N2 >= N1) OR (N2>=N3)
6. (N3 >= N1) OR (N3>=N2)

Plan de Trabajo I Periodo

-1 Actitud de escucha, -1 Orden, -1 Aseo

Fecha: Enero 31 de 2019

Asignatura: Tecnología e Informática

Formación en Valor: Gratitud.

Núcleo Integrador: Introducción y diagnostico.

Indicador de desempeño: Conoce y aplica las normas para la clase de informática.

Exploración Cognitiva

¿Sabes que son las normas?

PLAN DE TRABAJO DÉCIMO  -  I PERIODO
DBA/MA		Comprende y desarrolla habilidades y destrezas que le permitan conocer y aplicar las opciones de un lenguaje de programación como Visual Basic.
COMPONENTE		Apropiación y uso de la Informática con Lenguajes de programación.
ESTANDAR		Comprendo y aplico las diferentes instrucciones básicas  del lenguaje programación Visual Basic.
EJE CURRICULAR		Puesta en marcha y entorno del editor  Visual Basic.
NÚCLEOS	1	Ambientación - conducta de entrada.
	2	Lenguaje de programación orientada a objetos, Objetos, propiedades, métodos. variables, Constantes, Operadores lógicos, matemáticos y de relación.
	3	Editor de Visual Basic (UserForm, Cuadros de textos, Etiquetas, Botones de comandos).
	4	Modulo y Procedimiento.
	5	Ingresos de datos y Condicionales.
	6	Eventos Click, KeyPress,