Procesamiento de Datos

LABORATORIO 06: MACROS NIVEL BÁSICO

Objetivos:

• Escribir algoritmos y pseudocódigos para los casos planteados

• Crear un algoritmo usando PSEINT
• Utilizar instrucciones de programación.
• Crear y personalizar formularios
• Programar los controles de los formularios

Equipos, Materiales, Programas y Recursos:

• PC personal con Windows 10 Professional.

• Microsoft Office Excel 2016
• Material adicional en Canvas Tecsup.

Introducción:

Este laboratorio nos permite conocer los elementos fundamentales de los lenguajes de programación,
la importancia de los algoritmos, nos da un alcance de los diferentes lenguajes de programación.
El laboratorio está planificado para Diseñar, personalizar y programar formularios e ingresar datos que
después serán trasladados hacia una hoja de cálculo de Excel 2016.

Seguridad:

 Prever tener datos de internet / conexión a internet para poder trabajar el laboratorio.
 Tener completamente cargada la batería de la laptop para trabajar sin inconvenientes.
 Antes de apagar la laptop asegurarse de guardar toda la información del laboratorio.
 Al culminar la sesión de laboratorio, apagar correctamente la computadora o laptop.

Preparación:

Para ello el alumno previamente deberá haber revisado el material publicado en el CANVAS, la
participación activa en el transcurso de la clase previa al desarrollo del Laboratorio y así lograr cumplir
con los objetivos y metas trazados al final de cada clase.

Dpto. de Tecnologías digitales y Gestión

 Procesamiento de Datos

Procedimiento y Resultados:
Descargar el programa PSEINT y DFD de su sitio virtual “CANVAS”. El programa DFD
servirá para realizar los DFD o Diagramas de flujo de datos y el PSEINT para comprobar la
estructura algorítmica planteada.
Pseudocódigo y diagramas de Flujo
Para este ejemplo se utilizará el PSEINT, hay que recordar algunos conceptos de matemática:

Como se puede apreciar el PSEINT usa una sintaxis de PROCESO- FINPROCESO que equivale decir INICIO –
FIN que corresponde al desarrollo de un algoritmo estándar.
Para este caso el comando ESCRIBIR, permite mostrar los mensajes que irán siempre entre comillas La palabra
LEER permitirá leer las variables según lo que escoja el usuario.
Los cálculos como operaciones, se utilizarán el símbolo que significa asignación en una estructura de
algoritmo. Aunque el PSEINT también puede validar el símbolo “=” como alternativa si se realiza las
configuraciones respectivas.
El diagrama de flujo del área de un triángulo en DFD sería el siguiente:

Dpto. de Tecnologías digitales y Gestión

 Procesamiento de Datos

Realice los siguientes ejercicios en PSEINT y DFD

2. Crear el DFD y código que permita sumar 3 números. Guarde ambos archivos con el nombre ejercicio2.

3. Crear un algoritmo que permita ingresar 3 números enteros y luego muestre el promedio, guarde ambos
archivos con el nombre ejercicio3.

4. Crear un algoritmo que permita ingresar el valor de tres productos, sume los tres valores (Subtotal), calcule
el IGV (0.15%) y calcule el Total, guarde ambos archivos con el nombre ejercicio4.

5. Calcular el área y el volumen de un cilindro. Su pseudocódigo deberá de pedir el radio (R) y la altura (H),
guarde ambos archivos con el nombre ejercicio5

6. Escriba el pseudocódigo que permita convertir un monto en soles a un monto en dólares (cambio 3.52),
deberá de ingresar el monto y el tipo de cambio. Guarde ambos archivos con el nombre ejercicio6.

7. Escriba un algoritmo que permita ingresar la velocidad de un auto en km por hora y lo convierta a metros
por segundo, guarde ambos archivos con el nombre ejercicio7.

8. Escriba un algoritmo que permita hallar la Nota final de un alumno, este tendrá tres notas de laboratorios,
cuyo promedio vale el 80% del curso y un examen final que vale el 20% del curso. Guarde ambos archivos
con el nombre ejercicio9.

Excel

1. Abrir el libro asignado que corresponde al laboratorio y ubíquese en la primera hoja

(hoja 1).
a. En la pestaña desarrollador (Programador) seleccione macros y cree el nuevo macro
“descuentotardanza”, esta macro se encargará de determinar si un trabajador llego a
tiempo o llego tarde.
b. En la ventana que aparece por defecto ingrese el siguiente código.

Sub descuentotardanza()

Dim llegada, descuento As Integer

hora = ActiveCell.Value
llegada = Minute(hora)
If llegada > 40 Then
descuento = llegada - 30
MsgBox "Se le descontará " & descuento & " minutos el día de hoy"
Else
MsgBox "Gracias por su puntualidad"
End If

End Sub

c. Seleccione cualquier celda que contenga la hora y ejecute la macro ¿Qué es lo que hace
el programa?

Genera un anuncio además te avisa la hora de entrada además de que si llegas

tarde o temprano te alertara una notificación en la pantalla te marcara los
minutos y tu hora de llegada
Dpto. de Tecnologías digitales y Gestión
 Procesamiento de Datos

d. Modifique el programa para que aplique la tardanza a los 15 minutos después de las 8,
en vez de a los 40.
e. Cree el diagrama que flujo que represente el programa.
f. En la segunda hoja se generará una macro el cual permitirá hacer descuentos en el
precio de un producto dependiendo del volumen de la compra (mientras más unidades
compren, mayor será el descuento).
g. Para esto cree un botón (al igual que en el laboratorio anterior) y nómbrelo
“descuentovolumen” y asígnele un nuevo macro llamado “descuentovolumen”.

Sub descuentovolumen()
Dim cantidad1 As Double
Dim cantidad2 As Double
Dim cantidad3 As Double
Dim precio1 As Double
Dim precio2 As Double
Dim precio3 As Double
Dim precio4 As Double
Dim unid As Double

cantidad1 = Range("a2")
cantidad2 = Range("a3")
cantidad3 = Range("a4")
precio1 = Range("b2")
precio2 = Range("b3")
precio3 = Range("b4")
precio4 = Range("b5")
unid = Range("b8")

If unid <= cantidad1 Then

Range("b9") = precio1
Range("b10") = precio1 * unid
ElseIf unid <= cantidad2 Then
Range("b9") = precio2
Range("b10") = precio2 * unid
ElseIf unid <= cantidad3 Then
Range("b9") = precio3
Range("b10") = precio3 * unid
Else
Range("b9") = precio4
Range("b10") = precio4 * unid
End If
End Sub

h. ¿Qué es lo que hace el programa?

Genera un anuncio de tú hora de entrada y tu ganancia .

Dpto. de Tecnologías digitales y Gestión

 Procesamiento de Datos

2. En la hoja 3 nos encargaremos de crear dos macros que calculen ciertos

beneficios para los trabajadores

a. Toda el área comercial se desplaza constantemente para cubrir rutas

según zonas, los puestos de mando medio en adelante utilizan su
movilidad propia y los demás usan el transporte público para realizar este
recorrido mensual.
b. Se asigna a cada uno un monto específico: Si el sueldo está por encima
de los 2500 soles, el monto será de 600 soles. Si está por debajo de 2500
soles, el monto será de 450 soles.
c. Crear una macro con el siguiente código, ubíquese en la celda donde
desea calcular la movilidad y ejecútelo.

Sub calc_movilidad()
Dim sueldo As Integer
sueldo = Cells(ActiveCell.Row, ActiveCell.Column - 1).Value
If sueldo >= 2500 Then
ActiveCell = 600
Else
ActiveCell = 450
End If

End Sub

d. Usando como referencia el código anterior cree una macro que permita
calcular la alimentación según las siguientes pautas.
e. Si el colaborador tiene un sueldo menor a 2000 soles se le cubre al 100%
la alimentación en el concesionario de la empresa, por lo que el beneficio
es de 200 soles. Si tiene un sueldo mayor a 2000 soles, la alimentación
se cubre al 50% por lo que el beneficio sería sólo de 100 soles. Saldría un
mensaje con la explicación del monto asignado.

Envíe todos sus archivos empaquetados a la plataforma Canvas Semana 06.

REVISEMOS AHORA FORMULARIOS

¿Qué es un formulario?

Se llama formulario a una ventana que permite realizar una determinada operación o aplicación.

¿Qué es una propiedad?

Una propiedad define el aspecto físico de un control como tamaño, color, posición, tipo de letra, etc.

CONTROL NOMBRE DESCRIPCION

Etiqueta: Texto que proporciona

Label información. El nombre de un control, por
ejemplo.

Dpto. de Tecnologías digitales y Gestión

 Procesamiento de Datos

Cuadro de texto: para ingreso de datos por

TextBox parte del usuario.

Cuadro combinado: despliega los valores

ComboBox posibles de un campo. El usuario puede
ingresar otro valor.

Botón de comando: ejecuta un programa

CommandButton asociado.

Botón de opción: permite marcar una sola

OptionButton opción de entre un grupo de opciones

Marco: permite agrupar controles dentro de

Frame su marco para tener una mejor presentación
de su formulario.

EMPEZAR A TRABAJAR DE FORMA GUIADA

1. Abrir una nueva hoja de cálculo

2. Seguidamente se debe ingresar información de algunos datos que se requiere en
administración pedagógica, como en la imagen, desde la celda B2 hasta la celda H2.

3. Luego para poder crear un formulario en el editor de Visual Basic primero se debe de
activar el panel del programador/Dearrollador “Según versión” para eso hacemos clic
según la imagen y la versión “Opciones de Excel”.

Dpto. de Tecnologías digitales y Gestión

 Procesamiento de Datos

4. A continuación, se visualizará una ventana, donde se debe de activar la opción

“Mostrar ficha programador en la cinta de opciones”, luego hacemos clic en el
botón Aceptar.

¿Qué sucede cuando hacemos clic en el botón Aceptar? Conoces otra forma
para crear un formulario. Explica

Sinceramente desconozco otra manera seguí el video que dejo

¿Cree qué es necesario activar la ficha del programador/Desarrollador? ¿Porque?

Estar a opciones activar macros

5. A continuación, haremos clic en la ficha del programador, seguidamente

hacemos clic en el botón Visual Basic de la sección código.

Dpto. de Tecnologías digitales y Gestión

 Procesamiento de Datos

6. Esta acción permitirá visualizar la ventana del editor de Visual Basic

6.1 A continuación insertamos un formulario para empezar a diseñar en nuestro

formulario.

Para ingresar un formulario hacer clic en el menú insertar, luego hacer clic
en la opción “UserForm” tal como se ve en la imagen:

6.2.- Una vez hecho un clic en UserForm se visualizará lo que se observa en el

cuadro siguiente al cual hay que:
Poner nombre a cada una de las letras según
corresponda:

Dpto. de Tecnologías digitales y Gestión

 Procesamiento de Datos

7. A continuación, diseñaremos el siguiente formulario en el editor de Visual Basic.

Poner Nombre según corresponda

INSERTAR EN EL FORMULARIO LOS SIGUIENTES CONTROLES

A. Primero insertamos 4 controles Label (etiqueta) para:

 Apellidos, Nombres, Fecha de nacimiento y edad.
B. Luego insertamos 4 controles TextBox (cuadro de texto) para:
 Cada etiqueta.
C. Luego insertamos un control Frame (Marco o contenedor de objetos)
D. luego insertamos 4 controles OptionButton (botones de opción):
 Estos controles Option deben estar dentro del control Frame que son:
soltero, casado, viudo y divorciado, tal como en la imagen.
E. Seguidamente insertamos nuevamente 2 controles Label (etiqueta) para:
 Área y Carga horaria
F. Después insertamos 1 control Cuadro combinado para: área.
G. Luego 1 TextBox (cuadro de texto) para carga horaria.
H. Finalmente insertamos 3 controles “Command Button” (Botones de comando).
NOTA:
Dpto. de Tecnologías digitales y Gestión
 Procesamiento de Datos

 Con la propiedad Caption les pondremos nombres al Formulario, a las

Etiquetas, a los OptionButton, a los Botones de Comandos y al Control Frame.

 Con la propiedad BackColor cambiaremos de color al Formulario, Control
Frame, Las Etiquetas y Los Botones de Comando.
8. A continuación, procederemos a programar en algunos controles para poder
insertar los datos del formulario a la hoja de cálculo.
8.1. Procederemos a programar el botón “Limpiar”, el botón limpiar se utilizará
para borrar el contenido de todos los casilleros y desactivar las opciones
seleccionadas para volver a ingresar otros datos de otro profesor.
Para eso hacemos doble clic en el botón limpiar y procedemos a ingresar la
siguiente secuencia de código.
Private Sub CommandButton1_Click()
TextBox1.Text = Empty
TextBox2.Text = Empty NOTA:
TextBox3.Text = Empty La instrucción
TextBox4.Text = Empty Empty permite
borrar el
TextBox5.Text = Empty
contenido o el
OptionButton1.Value = False Caption o el Text
OptionButton2.Value = False de un control. La
propiedad Value
OptionButton3.Value = False
OptionButton4.Value = False
ComboBox1.Text = Empty
TextBox1.SetFocus
End Sub
8.2.- A continuación, procederemos a programar el botón “Enviar Datos”, el
botón enviar datos se utilizará para trasladar los datos del formulario
hacia la hoja de cálculo de Excel.
Para eso hacemos doble clic en este botón y procedemos a insertar la
siguiente secuencia de código.

Private Sub CommandButton2_Click()

Sheets("Hoja1").Select  Seleccionando la hoja con la que se trabajara
Range("B2:H19").Select  Seleccionando el rango de celdas a utilizar
Do While Not IsEmpty(ActiveCell)  Hacer mientras no esté vacio
ActiveCell.Offset(1, 0).Select  Escribir en la siguiente fila
Loop

Dpto. de Tecnologías digitales y Gestión

 Procesamiento de Datos

ActiveCell = TextBox1.Text  Llenando en la celda el contenido del text1

ActiveCell.Offset(0, 1).Select  Escribir en la siguiente columna
ActiveCell = TextBox2.Text  Llenando en la celda el contenido del text2
ActiveCell.Offset(0, 1).Select  Escribir en la siguiente columna
ActiveCell = TextBox3.Text  Llenando en la celda el contenido del text3
ActiveCell.Offset(0, 1).Select  Escribir en la siguiente columna
ActiveCell = TextBox4.Text  Llenando en la celda el contenido del text4
ActiveCell.Offset(0, 1).Select  Escribir en la siguiente columna

If OptionButton1.Value = True Then Si el valor de option1 esta activado entonces

ActiveCell = "Soltero"  Llenando en la celda “Soltero”
ElseIf OptionButton2.Value = True Then
ActiveCell = "Casado"
ElseIf OptionButton3.Value = True Then
ActiveCell = "Viudo"
ElseIf OptionButton4.Value = True Then
ActiveCell = "Divorsiado"
End If  Fin Del Si
ActiveCell.Offset(0, 1).Select  Escribir en la siguiente columna
ActiveCell = ComboBox1.Text  Llenando en la celda el contenido del text4
ActiveCell.Offset(0, 1).Select  Escribir en la siguiente columna
ActiveCell = TextBox5.Text  Llenando en la celda el contenido del text4
ActiveCell.Offset(0, 1).Select  Escribir en la siguiente columna
End Sub
8.3.- Seguidamente programaremos el Combobox, este control se utilizara para seleccionar
una Área o curso que el profesor Dicta, dependiendo del curso seleccionado saldrá
una cierta cantidad de horas automáticamente en el casillero carga horaria.

Private Sub ComboBox1_Click()

Select Case ComboBox1.Text
Case "Matematica"
TextBox5.Text = "14"
Case "Comunicación"
TextBox5.Text = "13"
Case "Procesamiento de Datos"
TextBox5.Text = "10"
Dpto. de Tecnologías digitales y Gestión
 Procesamiento de Datos

Case "Electricidad"
TextBox5.Text = "8"
Case "Actitudes y Valores"
TextBox5.Text = "5"
Case "Ingles"
TextBox5.Text = "6"
Case "Química"
TextBox5.Text = "9"
Case "Dibujo técnico"
TextBox5.Text = "7"
Case "Programación"
TextBox5.Text = "4"
End Select
End Sub
8.4.- Seguidamente programaremos en el evento Initialize del Formulario el
ingreso de las áreas o cursos al control ComboBox. “Clic derecho en una
área blanca del formulario-Buscar en actívate y cambiar por initialize”

Private Sub UserForm_Initialize()

ComboBox1.AddItem ("Matematica")
ComboBox1.AddItem ("Comunicación")
ComboBox1.AddItem ("Procesamiento de Datos")
ComboBox1.AddItem ("Electricidad")
ComboBox1.AddItem ("Actitudes y Valores")
ComboBox1.AddItem ("Ingles")
ComboBox1.AddItem ("Química")
ComboBox1.AddItem ("Dibujo Técnico")
ComboBox1.AddItem ("Programación")
End Sub
8.5.- Luego programaremos el botón “Finalizar”, el botón finalizar se utilizara
para finalizar la aplicación con el formulario.
Par eso hacemos doble clic en este botón de comandos.
Private Sub CommandButton3_Click()
End  Finalizar aplicación
End Sub
8.6.- Finalmente insertaremos un módulo haciendo clic en el menú insertar y después
haremos clic en la opción módulo donde programaremos que aparezca el
formulario en la hoja de cálculo de Excel utilizando un botón de comando.

Dpto. de Tecnologías digitales y Gestión

 Procesamiento de Datos

8.7.- Luego en la ventana de código del módulo ingresamos la siguiente secuencia.

Sub Activarformulario()
UserForm1.Show
End Sub

NOTA: En este módulo crearemos una subrutina

llamada activar formulario. Un modulo es
como si fuera una macro. El método Show
permite llamar a un formulario en este caso
estamos llamado al formulario1.

9.- Para Finalizar insertaremos un botón de comando en la hoja de cálculo y le asignaremos

la macro o módulo que habíamos creado con el nombre “Activar Formulario”
9.1.- Hacemos clic en el botón Insertar de la sección controles del panel programador
y hacemos clic sobre el botón (control de formulario).

Dpto. de Tecnologías digitales y Gestión

 Procesamiento de Datos

9.2.- Una vez hecho clic en el botón, insertarlo en la hoja de cálculo, una vez diseñado se
visualizará una ventana donde pedirá se le asigne una macro, seleccionar el
nombre que se le dio en el editor de Visual Basic “Activar Formulario”, luego en
la opción macros en: seleccionamos Este libro y hacemos clic en el botón Aceptar.

9.3.- Finalmente le ponemos un nombre al botón de comando que será “Ejecutar Formulario”
9.4.- Luego hacemos clic en este botón Ejecutar Formulario y mostrará el formulario creado.
9.5.- Procedemos a llenar los casilleros en blanco con los datos que se requiere de los profesores.
9.6.- Luego para activar el formulario e ingresar los datos del formulario a la hoja de cálculo
hacemos clic en el botón de comandos Enviar Datos.

Dpto. de Tecnologías digitales y Gestión

 Procesamiento de Datos

9.7.- Y así sucesivamente empezamos a ingresar los datos de los profesores a nuestra
hoja de cálculo.
9.8.- Finalmente guardamos nuestro trabajo con el nombre TareaMacros_Nombre, En
el casillero Guardar como tipo seleccionamos la opción “Libro de Excel
habilitado para macros” y hacemos clic en Guardar.

BUSCAR INOFRMACIÓN Y RESPONDER:

¿La instrucción Empty para qué sirve?

Permite borrar el contenido o el Caption de un control.

¿Según su apreciación que utilidad le da Ud. a IF THEN?

Me proporciona un valor de prueba lógico

¿Según su apreciación que utilidad le da Ud. a DO WHILE?

Para repetir un conjunto de expresiones.

¿Según tu apreciación para que nos sirve un MODULO?

Dpto. de Tecnologías digitales y Gestión
 Procesamiento de Datos

Me permite organizar el código VBA

¿Qué propiedades has utilizado para los controles y para qué sirve cada una de
las propiedades que se ha utilizado?

Utilice If (sirve para determinar si un valor es verdadero o falso), End sub (para terminarla
expresión)

¿Crees que es importante trabajar con formularios? Justifica tu respuesta.

Si ya que tiene un mejor aspecto y es más practico al momento de usar

Conclusiones:

Indique con color azul las conclusiones a las que llegó acerca de los temas tratados de manera práctica
y teórica en esta unidad:

A. En DFD sirve para comprender un poco más de programación.

B. B. Los macros sirvieron para automatizar las tareas requeridas.
C. Los formularios sirvieron para ingresar datos de una manera más organizada Los
formularios sirvieron para ingresar datos de una manera más organizada.
D. Aprendí expresiones de programación.
E. Al saber utilizar estas funcionalidades nos facilitan el trabajo.

Dpto. de Tecnologías digitales y Gestión

 Procesamiento de Datos

Criterios de Evaluación

C21/C22

Rúbrica

Resultado 2 Los estudiantes aplican conocimientos de matemática, ciencia y tecnología para identificar
y analizar problemas en equipos de cómputo, redes y sistemas de telecomunicaciones.
Criterio de desempeño 2.2. Utiliza conceptos de ciencias e informática en el diagnóstico y evaluación de
sistemas de cómputo, redes y sistemas de telecomunicaciones
Curso Procesamiento de Datos Periodo 2022-2

Actividad Macros Nivel Básico Semestre I

Nombre del Alumno Macedo Huachani Cristhian Michel Semana 06

Loayza Lozada Edgar A

Docente Fecha 25/11/2022 Sección
Melchor
Requiere No Puntaje
Criterios a Evaluar Excelente Bueno
Mejora Aceptable Logrado
3 2 1 0
 Conocen y utilizan diferentes tipos de datos.
5 4 3 2-0
 Conocen y utilizan diagramas de flujo
6 5 3 1
 Conocen y utilizan estructuras condicionales.
6 4 3 2-0
 Realizan formularios de datos
Total 20 15 10 5-0

Acciones a cumplir Menos

4
 Cumple con el desarrollo de los laboratorio 06 en clase
1
 Ortografía y redacción.

Puntaje Final

Comentarios respecto del desempeño

del alumno

Descripción

Demuestra un completo entendimiento del problema o realiza la actividad cumpliendo

Excelente
todos los requerimientos especificados.
Demuestra un considerable entendimiento del problema o realiza la actividad
Bueno
cumpliendo con la mayoría de los requerimientos especificados.
Demuestra un bajo entendimiento del problema o realiza la actividad cumpliendo con
Requiere mejora
pocos de los requerimientos especificados.
No Aceptable No demuestra entendimiento del problema o de la actividad.

Dpto. de Tecnologías digitales y Gestión