Base de datos
Consideraciones generales Para el desarrollo de las prácticas se deben crear carpetas en las que para guardar los ficheros correspondientes a las mismas.
Ampliación de Informática
Diplomatura de Estadística.
1
PRÁCTICA Nº 1 Objetivos Tras completar esta práctica, el estudiante será capaz de: • • • • •Identificar los elementos del entorno integrado de desarrollo de Microsoft Visual Basic 6.0. Añadir controles a un formulario. Establecer las propiedades de los controles. Trabajar con procedimientos de eventos. Crear una aplicación simple con Microsoft Visual Basic.
Aplicación Nº 1 Elaborar una aplicación que permita calcular el salario neto de un trabajador en función del número de horastrabajadas, pago por hora de trabajo y un descuento fijo al sueldo bruto del 20%. Los cálculos a efectuar para obtener el salario neto de un trabajador se muestran a continuación:
SalarioBruto = HorasTrabajadas * PagoPorHora Descuento = 0.2 * SalarioBruto SalarioNeto = SalarioBruto – Descuento
El diseño de la interfaz debe ser similar a la figura mostrada a continuación:
Ampliación deInformática
Diplomatura de Estadística.
2
Como se puede observar en la figura anterior, para el desarrollo de esta aplicación, necesitamos situar los siguientes controles en el formulario:
2 marcos 6 etiquetas 6 cajas de texto 3 botones de comando
Una vez situados los controles, establece las propiedades de los controles según se indica en las siguientes tablas:
Form1 Nombre BorderStyleCaption Moveable StartUpPosition Frame1 Nombre Caption Frame2 Nombre Caption Label1 Nombre AutoSize Caption Label2 Nombre AutoSize Caption Label3 Nombre AutoSize Caption Label4 Nombre AutoSize Caption Label5 Nombre AutoSize Caption FrmSalarioNeto 3-Fixed Dialog Cálculo del salario neto False 2-CenterScreen Label6 Nombre AutoSize Caption Text1 Nombre Text Text2 Nombre Text Text3 Nombre Text Text4Nombre Text Text5 Nombre Text Text6 Nombre Text Command1 Nombre Caption Command2 Nombre Caption Command3 Nombre Caption LblSalarioNeto True Salario neto S/.
TxtApellidosNombres
FraIngreso Ingreso de datos:
TxtHorasTrabajadas
FraSalida Salida de datos:
TxtPagoPorHora
LblApellidosNombres True Apellidos y nombres:
TxtSalarioBruto
LblHorasTrabajadas True Horas trabajadas:TxtDescuento
LblPagoPorHora True Pago por hora S/.
TxtSalarioNeto
LblSalarioBruto True Salario bruto S/.
CmdAceptar &Aceptar
CmdLimpiar &Limpiar
LblDescuento True Descuento S/.
CmdSalir &Salir
Ampliación de Informática
Diplomatura de Estadística.
3
Tras establecer las propiedades para los controles, procedemos a añadir código a la aplicación. Para ello haz doble clicksobre el botón Aceptar y añade el siguiente código:
Private Sub CmdAceptar_Click() Dim HorasTrabajadas As Integer, PagoPorHora As Double Dim SalarioBruto As Double Dim Descuento As Double Dim SalarioNeto As Double HorasTrabajadas = Val(TxtHorasTrabajadas) PagoPorHora = Val(TxtPagoPorHora) SalarioBruto = HorasTrabajadas * PagoPorHora Descuento = 0.2 * SalarioBruto SalarioNeto = SalarioBruto -Descuento TxtSalarioBruto = Str(SalarioBruto) TxtDescuento = Str(Descuento) TxtSalarioNeto = Str(SalarioNeto) End Sub
A continuación haz doble click sobre el botón Salir y añade el siguiente código:
Private Sub CmdSalir_Click() End End Sub
Guarda y luego ejecuta la aplicación que acabas de crear. Pruébala ingresando diferentes valores. Luego, haz doble click sobre el botón Limpiar y añade elsiguiente código:
Private Sub CmdLimpiar_Click() TxtApellidosNombres = “” TxtHorasTrabajadas = “” TxtPagoPorHora = “” TxtSalarioBruto = “” TxtDescuento = “” TxtSalarioNeto = “” TxtApellidosNombres.SetFocus End Sub
Guarda y ejecuta la aplicación. ¿Qué efecto tiene el código añadido en el botón
Limpiar?
Ampliación de Informática
Diplomatura de Estadística.
4
Aplicación Nº 2 A...
Regístrate para leer el documento completo.