Diseño de Una Aplicación para Gestionar Un Centro de Mascotas

11.
DISEÑO DE UNA APLICACIÓN PARA GESTIONAR UN

CENTRO DE MASCOTAS
Objetivo: Desarrollar un ejercicio para diseñar la aplicación ESCUELA DE MASCOTAS, como
herramienta de apoyo para la gestión de una microempresa encargada del adiestramiento de
perros domésticos.
Primer paso: Diseño de la portada de la aplicación
Diseñe una portada relacionada con la razón social de la empresa. Agregue imágenes alusivas al
adestramiento de mascotas. Incluya un botón denominado CONTINUAR con un hipervínculo
que dirija al usuario a una hoja de nombre FACTURAR.
Ilustración 145. Portada propuesta para el ejercicio 11
En este caso, se eliminaron las líneas de división y encabezados, desmarcando la opción VER que
se encuentra en la ficha DISEÑO DE PÁGINA en Office 2007 o en la ficha VISTA para Office
2010.
.
Ilustración 146. Opción para visualizar las líneas de división y encabezados en Microsoft® Excel 2010
Proteja la hoja, desmarcando la opción SELECCIONAR CELDAS
BLOQUEADAS, con el fin de evitar daños involuntarios en la portada.
Ilustración 147. Protección de la hoja portada para el ejercicio 11
Segundo paso: Diseño de la plantilla para la facturación
La aplicación contendrá 4 hojas: PORTADA, FACTURAR, ENTRENAMIENTO y REGISTRO.

Antes de pasar al diseño de las tres últimas hojas, procederemos a crear un menú en común que
permita el desplazamiento entre hojas. Inicie insertando tres botones, agregando un hipervínculo
respectivo para cada hoja.
Ilustración 148. Esquema general de la aplicación
Seleccione toda la hoja, y copie su contenido para luego pegarlo en las hojas restantes. Elimine las
líneas de división y encabezados, desmarcando la opción VER que se encuentra en la ficha
DISEÑO DE PÁGINA en Office 2007 o en la ficha VISTA para Office 2010.
En la hoja FACTURAR, diseñe una tabla que contenga los siguientes campos:
- Nombre Mascota (máximo 20 caracteres)

- Código
- Actividades Realizadas
- Fecha
- Valor Actividad
- Subtotal
- IVA
- Valor Total
- Estado
Ilustración 149. Plantilla de facturación para el ejercicio 11
Selecciones las celdas de contenido de los campos (puede ayudarse con la tecla CONTROL para
seleccionar celdas no consecutivas) y pulsando con el botón derecho del mouse sobre ellas,
desmarque la opción BLOQUEADA que se encuentra en FORMATO DE CELDAS ficha
PROTEGER.
Ilustración 150. Bloqueo y desbloqueo de celdas
Agregue las fórmulas necesarias para calcular el SUBTOTAL, IVA (equivalente al 16% del
SUBTOTAL) y VALOR TOTAL. En el valor del campo ESTADO, escriba SIN CANCELAR.
Ilustración 151. Fórmulas para los campos Subtotal, IVA y Valor Total.
Tercer paso: Diseño del formulario de Facturación

Diseñe un formulario que contenga los campos descritos en el paso anterior como se puede
observar en la siguiente ilustración.
Ilustración 152. Formulario para el registro de facturas
Proteja los TEXTBOX correspondientes a NOMBRE MASCOTA, ACTIVIDADES

REALIZADAS, FECHA y VALOR, modificando la opción ENABLED a FALSE. Haga doble
click en el botón ACEPTAR y escriba el siguiente código. La función de este botón es trasladar
los datos del USERFORM1 a la hoja de cálculo.
Private Sub CommandButton2_Click()

Cells(3, 6).Value = TextBox1.Text
Cells(14, 9).Value = Label6.Caption
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
TextBox9.Text = ""
TextBox10.Text = ""
TextBox11.Text = ""
TextBox12.Text = ""
TextBox13.Text = ""
TextBox14.Text = ""
Label6.Caption ="SIN CANCELAR" End Sub
Nótese que se traslada el valor del CAPTION del componente LABEL6. Más adelante se
incluirá el código del botón BUSCAR. Bloquearemos momentáneamente el botón ACEPTAR
en el momento que se active la ventana. Para cumplir con esta tarea deberá hacer doble click en
la ventana (USERFORM1), seleccionando el PROCEDIMIENTO ACTIVATE e ingresando el
siguiente código.
Private Sub UserForm_Activate()

CommandButton2.Enabled = False End Sub
Cuarto paso: Activar el formulario desde la hoja de cálculo
Regrese a la hoja de cálculo y haga doble click en el botón FACTURAR (ver ilustración) y escriba
el siguiente código.

UserForm1.Show
End Sub
Ilustración 153. Botón para activar el formulario de registro de facturas

Proteja la hoja desde la ficha REVISAR, desmarcando la opción SELECCIONAR CELDAS
BLOQUEADAS.
Ilustración 154. Protección de la hoja facturar para el ejercicio 11
Quinto paso: Plantilla y formularios para el registro de entrenamientos
Diseñe una tabla en la hoja ENTRENAMIENTO que contenga los siguientes campos:
- Código
- Actividades 1
- Fecha 1
- Actividades 2
- Fecha 2
- Actividades 3
- Fecha 3
- Actividades 4
- Fecha 5
Ilustración 155. Diseño de la tabla para el registro de actividades por mascota
Diríjase a la consola de Visual Basic y diseñe el siguiente formulario (USERFORM2).
Ilustración 156. Formulario para el registro de entrenamientos
En esta ventana se incluyeron 4 COMBOBOX para identificar las actividades. La programación

de estos elementos se realizará al final del documento. Proteja el TEXTBOX correspondiente a
NOMBRE MASCOTA modificando la opción ENABLED a FALSE. Haga doble click en el
botón ACTUALIZAR y escriba el siguiente código. La función de este botón es trasladar o
actualizar unos datos existentes del USERFORM2 a la hoja de cálculo.

ESCRITO = "NO"
If TextBox2.Text <> "" And TextBox1.Text <> "" And TextBox3 <> "" Then
ESCRITO = "SI"
Else
MsgBox ("DEBE DE ESCRIBIR POR LO MENOS UNA ACTIVIDAD")
End If
ENCONTRADO = "NO"
For I = 1 To 100
If TextBox2.Text = Cells(I + 2, 5).Value Then
ENCONTRADO = "SI"
Exit For
End If
Next
If ENCONTRADO = "NO" And ESCRITO = "SI" Then

For I = 1 To 100
If Cells(I + 2, 5).Value = "" Then
Cells(I + 2, 5).Value = TextBox2.Text
Cells(I + 2, 7).Value = ComboBox1.Text
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
ComboBox1.Text = ""
ComboBox2.Text = ""
ComboBox3.Text = ""
ComboBox4.Text = ""
Exit For
End If
Next
End If
If ENCONTRADO = "SI" And ESCRITO = "SI" Then

For I = 1 To 100
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
ComboBox1.Text = ""
ComboBox2.Text = ""
ComboBox3.Text = ""
ComboBox4.Text = ""
Exit For
End If
Next
End If
End Sub
Observe que en el código se declaran dos variables: ESCRITO y ENCONTRADO. La primera

cambia su valor a SI siempre y cuando, exista un texto escrito en los TEXTBOX 1, 2 y 3. Esto
evita que el usuario realice
una modificación en la tabla sin haber escrito nada en el USERFORM. La segunda variable torna
su valor SI en el momento en que se encuentre una coincidencia entre el campo CÓDIGO
(TEXTBOX2) del USERFORM2 y la celda de la tabla correspondiente a dicho CÓDIGO. La
rutina continúa con dos condicionales:
- IF ENCONTRADO = "NO" AND ESCRITO = "SI" THEN ->> En caso de que los
valores de las variables ENCONTRADO y ESCRITO sean NO y SI respectivamente, se
procederá a agregar un nuevo registro.
- IF ENCONTRADO = "SI" AND ESCRITO = "SI" THEN ->> En caso de que ambos
valores de las variables sean SI, se procederá a actualizar un registro existente.
Antes de pasar a programar el botón BORRAR, adicionaremos un nuevo USERFORM
(USERFOM3) para validar la eliminación de un registro con una CONTRASEÑA. Diseñe el
formulario de acuerdo a la siguiente ilustración. Modifique las propiedades MAXLENGTH y
PASSWORDCHAR del TEXTBOX1 en 4 y * respectivamente.
Ilustración 157. Propiedades MaxLength y PasswordChar del control TextBox
Regrese al formulario anterior (USERFORM2) y haga doble click en el botón
BORRAR, agregando el siguiente código

UserForm3.Show
End Sub
Bloquearemos momentáneamente el botón BORRAR y ACTUALIZAR en el momento que se

active la ventana. Para cumplir con esta tarea deberá hacer doble click en la ventana
(USERFORM2), seleccionando el PROCEDIMIENTO ACTIVATE e ingresando el siguiente
código.

CommandButton2.Enabled = False
CommandButton3.Enabled = False End Sub
Visualice el USERFORM3, y programe el código para el botón BORRAR.

If TextBox1 <> "1234" Then
MsgBox ("LA CONTRASEÑA NO ES CORRECTA")
Else
For I = 1 To 100
If UserForm2.TextBox2.Text = Cells(I + 2, 5).Value Then
Range(Cells(I + 2, 5), Cells(I + 2, 14)).Select
Selection.ClearContents
Range(Cells(I + 3, 5), Cells(102, 14)).Select
Selection.Cut
Cells(I + 2, 5).Select
ActiveSheet.Paste
Exit For
End If
Next
End If
End Sub
Inserte un botón en la hoja (ENTRENAMIENTO) denominado REGISTRAR y escriba el

siguiente código en él.

UserForm2.Show
End Sub
No se le olvide desbloquear las celdas correspondientes a los registros de la tabla (seleccione un

todas las filas de la tabla para desbloquearlas, en caso contrario el programa producirá un
error) y proteger la hoja desmarcando la opción SELECCIONAR CELDAS BLOQUEADAS.
El resultado final debería verse como en la siguiente ilustración.
Ilustración 158. Botón para activar el formulario de registro de entrenamientos

Sexto paso: Plantilla y formularios para el registro de mascotas y
actividades de entrenamiento
Diseñe dos tablas en la hoja REGISTRO correspondientes al registro de mascotas y actividades

de entrenamiento. Incluya los siguientes campos como puede observarse en la siguiente
ilustración:
- Código
- Estado
- Actividad (se aceptan máximo 4 actividades de máximo 10 caracteres)
- Valor
Ilustración 159. Diseño de la tabla para el registro de mascotas

Diseñe y programe el formulario (USERFORM4) para la primera tabla.
Ilustración 160. Formulario para el registro de mascotas
Registre el siguiente código en el botón INGRESAR.

REGISTRADO = "NO"
For I = 1 To 100
MsgBox ("LA MASCOTA YA ESTA REGISTRADA")
REGISTRADO = "SI"
Exit For
End If
Next
If REGISTRADO = "NO" Then

For I = 1 To 100
Cells(I + 2, 7).Value = "SIN CANCELAR"
TextBox1.Text = ""
TextBox2.Text = ""
Exit For
End If
Next
End If
End Sub
Registre el código en el botón BORRAR.

For I = 1 To 100
Range(Cells(I + 2, 5), Cells(I + 2, 7)).Select
Range(Cells(I + 3, 5), Cells(102, 7)).Select
Selection.Cut
Cells(I + 2, 5).Select
ActiveSheet.Paste
Exit For
End If
Next
End Sub
Diseñe y programe el formulario (USERFORM5) para el registro de las actividades de

entrenamiento.
Ilustración 161. Formulario para el registro de actividades
Ingrese el código en botón REGISTRAR.

REGISTRADO = "NO"
For I = 1 To 4
If Cells(I + 2, 9).Value = TextBox1.Text Then
REGISTRADO = "SI"
TextBox1.Text =””
Exit For
End If
Next
If REGISTRADO = "NO" Then

For I = 1 To 4
REGISTRADO = "SI"
Exit For
End If
Next
End If
End Sub
La rutina anterior permite ingresar o actualizar el registro de una actividad, gracias a la variable
REGISTRADO. Agregue dos botones en la hoja REGISTRO llamados REG. MASCOTA y
REG. ACTIVIDAD con los siguientes códigos respectivos:

UserForm4.Show
End Sub Private Sub CommandButton1_Click()
UserForm5.Show
End Sub
Desbloquee las celdas correspondientes a los registros de ambas tablas (seleccione un todas las
filas de las tablas para desbloquearlas, en caso contrario el programa producirá un error) y
proteja la hoja desde la ficha REVISAR, desmarcando la opción SELECCIONAR
CELDAS BLOQUEADAS.
Ilustración 162. Protección de la hoja registro para el ejercicio 11

Elimine las líneas de división y encabezados, desmarcando la opción VER que se encuentra en la
ficha DISEÑO DE PÁGINA en Office 2007 o en la ficha VISTA para Office 2010 (esto debe
realizarlo a todas las hojas del libro).
Ilustración 163. Opción para visualizar las líneas de división y encabezados en Microsoft® Excel 2010
Séptimo paso: Programación de los COMBOBOX del formulario

USERFOM2 (REGISTRO DE ENTRENAMIENTOS)
Haga doble click en la ventana (USERFORM2), seleccionando el PROCEDIMIENTO

ACTIVATE y adicione el siguiente código (se encuentra en color azul).

ComboBox1.Clear
ComboBox1.AddItem (Sheets("REGISTRO").Cells(3, 9).Value)
ComboBox2.Clear
ComboBox3.Clear
ComboBox4.Clear
End Sub
Con esta rutina incluiremos las actividades de entrenamiento en la hoja REGISTRO en cada
COMBOBOX, facilitando su selección por parte del usuario. Realice una prueba del formulario.
Octavo paso: Programación de los botones denominados BUSCAR
Para finalizar, se programarán los botones BUSCAR de los USERFORM 1 y 2. Haga doble click
en el botón BUSCAR del primer USERFORM e incluya el código:

ACIERTO = "NO"
For I = 1 To 100
If TextBox2.Text = Sheets("REGISTRO").Cells(I + 2, 5).Value And
TextBox2.Text <> "" Then
ACIERTO = "SI"
TextBox1.Text = Sheets("REGISTRO").Cells(I + 2, 6).Value
Label6.Caption = Sheets("REGISTRO").Cells(I + 2, 7).Value
CommandButton2.Enabled = True
Exit For
End If
Next
If ACIERTO = "NO" Then

MsgBox ("LA MASCOTA NO SE ENCUENTRA REGISTRADA")
End If
If ACIERTO = "SI" Then

For I = 1 To 100
If TextBox2.Text = Sheets("ENTRENAMIENTO").Cells(I + 2, 5).Value Then
TextBox3.Text = Sheets("ENTRENAMIENTO").Cells(I + 2, 7).Value
For J = 1 To 4
If TextBox3.Text = Sheets("REGISTRO").Cells(J + 2, 9) Then
TextBox5.Text = Sheets("REGISTRO").Cells(J + 2, 10)
End If

End If

End If
End If
Next
Exit For
End If
Next
End If
End Sub
Si se encuentra la MASCOTA registrada, la variable ACIERTO cambiará su valor a SI. El

fragmento de código siguiente (se ejecuta cuando la variable ACIERTO es SI) muestra el traslado
de los datos de la hoja ENTRENAMIENTO a los TEXTBOX respectivos para las
ACTIVIDADES REALIZADAS y FECHA. El código continúa verificando el valor de las
actividades.
Pulse doble click en el botón BUSCAR del USERFORM2 ingresando el siguiente código.
ACIERTO = "NO"
For I = 1 To 100
If TextBox2.Text = Sheets("REGISTRO").Cells(I + 2, 5).Value And
TextBox2.Text <> "" Then
TextBox1.Text = Sheets("REGISTRO").Cells(I + 2, 6).Value
ACIERTO = "SI"
Exit For
End If
Next
If ACIERTO = "NO" Then
MsgBox ("LA MASCOTA NO SE ENCUENTRA REGISTRADA")
End If
End Sub
Observe que una vez encontrado el registro de la mascota (ACIERTO = “SI”), se activan los
botones BORRAR y ACTUALIZAR.
Para terminar con la programación general de la aplicación, vamos agregar un fragmento de

código que actualice el estado de la mascota de SIN CANCELAR a CANCELADO. Agregue un
botón a la hoja FACTURAR denominado CANCELAR e ingrese el siguiente código.

If Cells(14, 9).Value = "SIN CANCELAR" And Cells(3, 12).Value <> "" Then
Cells(14, 9).Value = "CANCELADO"
For I = 1 To 100
If Sheets("REGISTRO").Cells(I + 2, 5).Value = Cells(3, 12).Value Then
Sheets("REGISTRO").Cells(I + 2, 7).Value = "CANCELADO"
Range("E6:I9").Select
Exit For
End If
Next
Else
MsgBox ("LA FACTURA SE ENCUENTRA CANCELADA")
End If
End Sub
Ilustración 164. Diseño final de la hoja facturar para el ejercicio 11
Noveno paso: Prueba Básica de la aplicación
1. Ingrese las siguientes actividades en la hoja REGISTRO (los precios regístrelos sin signos
y puntuaciones)
Básica 1 -> $65.000
Básica 2 -> $75.000
Avanzado 1 -> $150.000
Avanzado 2 -> $120.000
2. Modifique el precio de la actividad Básica 2 a $70.000
3. Ingrese la siguientes mascotas con sus respectivos códigos
Homero -> 4321
Doggy -> 5552
Pulgoso -> 3950
Pastor -> 2001
4. Borre la mascota de código 5552 (el resultado preliminar de la hoja debería quedar como
se muestra en la siguiente ilustración).
Ilustración 165. Prueba de la aplicación para gestionar un centro de mascotas
5. Registrelos siguientes entrenamientos para las mascotas (en la hoja

ENTRENAMIENTO):
Pulgoso -> 3950
Actividad Básica 1 (10-May-10) Avanzado 1 (15-Jun-10)
Pastor -> 2001
Actividad Básica 1 (10-May-10) Básica 2 (19-May-10)

Avanzado 1 (15-Jun-10)
6. En la hoja FACTURAR pulse el botón del mismo nombre y busque el código 2001. Luego
pulse el botón ACEPTAR.
Ilustración 166. Registro de una factura
Verifique el valor total ($ 324.800).

7. Ahora pulse sobre el botón CANCELAR de la hoja y verifique que el estado de la cuenta
pase a CANCELADO.

Diseño de Una Aplicación para Gestionar Un Centro de Mascotas

Cargado por

Copyright:

Formatos disponibles

Diseño de Una Aplicación para Gestionar Un Centro de Mascotas

Cargado por

Información del documento

Título original

Derechos de autor

Formatos disponibles

Compartir este documento

Compartir o incrustar documentos

Opciones para compartir

¿Le pareció útil este documento?

¿Este contenido es inapropiado?

Copyright:

Formatos disponibles

Diseño de Una Aplicación para Gestionar Un Centro de Mascotas

Cargado por

Copyright:

Formatos disponibles

11.

DISEÑO DE UNA APLICACIÓN PARA GESTIONAR UN

Primer paso: Diseño de la portada de la aplicación

Ilustración 145. Portada propuesta para el ejercicio 11

BLOQUEADAS, con el fin de evitar daños involuntarios en la portada.

Ilustración 147. Protección de la hoja portada para el ejercicio 11

Segundo paso: Diseño de la plantilla para la facturación

La aplicación contendrá 4 hojas: PORTADA, FACTURAR, ENTRENAMIENTO y REGISTRO.

Ilustración 148. Esquema general de la aplicación

- Nombre Mascota (máximo 20 caracteres)

Tercer paso: Diseño del formulario de Facturación

Ilustración 152. Formulario para el registro de facturas

Proteja los TEXTBOX correspondientes a NOMBRE MASCOTA, ACTIVIDADES

Private Sub CommandButton2_Click()

Private Sub UserForm_Activate()

Cuarto paso: Activar el formulario desde la hoja de cálculo

Private Sub CommandButton1_Click()

Ilustración 153. Botón para activar el formulario de registro de facturas

Ilustración 154. Protección de la hoja facturar para el ejercicio 11

Quinto paso: Plantilla y formularios para el registro de entrenamientos

Ilustración 155. Diseño de la tabla para el registro de actividades por mascota

Diríjase a la consola de Visual Basic y diseñe el siguiente formulario (USERFORM2).

Ilustración 156. Formulario para el registro de entrenamientos

En esta ventana se incluyeron 4 COMBOBOX para identificar las actividades. La programación

Private Sub CommandButton3_Click()

If ENCONTRADO = "NO" And ESCRITO = "SI" Then

If ENCONTRADO = "SI" And ESCRITO = "SI" Then

Observe que en el código se declaran dos variables: ESCRITO y ENCONTRADO. La primera

Ilustración 157. Propiedades MaxLength y PasswordChar del control TextBox

Regrese al formulario anterior (USERFORM2) y haga doble click en el botón

BORRAR, agregando el siguiente código

Private Sub CommandButton2_Click()

Bloquearemos momentáneamente el botón BORRAR y ACTUALIZAR en el momento que se

Private Sub UserForm_Activate()

Visualice el USERFORM3, y programe el código para el botón BORRAR.

Private Sub CommandButton1_Click()

Inserte un botón en la hoja (ENTRENAMIENTO) denominado REGISTRAR y escriba el

Private Sub CommandButton1_Click()

No se le olvide desbloquear las celdas correspondientes a los registros de la tabla (seleccione un

Ilustración 158. Botón para activar el formulario de registro de entrenamientos

Diseñe dos tablas en la hoja REGISTRO correspondientes al registro de mascotas y actividades

Ilustración 159. Diseño de la tabla para el registro de mascotas

Ilustración 160. Formulario para el registro de mascotas

Registre el siguiente código en el botón INGRESAR.

Private Sub CommandButton2_Click()

If REGISTRADO = "NO" Then

Registre el código en el botón BORRAR.

Diseñe y programe el formulario (USERFORM5) para el registro de las actividades de

Ingrese el código en botón REGISTRAR.

Private Sub CommandButton2_Click()

If REGISTRADO = "NO" Then

Private Sub CommandButton1_Click()

Ilustración 162. Protección de la hoja registro para el ejercicio 11

Séptimo paso: Programación de los COMBOBOX del formulario

Haga doble click en la ventana (USERFORM2), seleccionando el PROCEDIMIENTO

Private Sub UserForm_Activate()

Octavo paso: Programación de los botones denominados BUSCAR

Private Sub CommandButton1_Click()

If ACIERTO = "NO" Then