Base de datos

Solo disponible en BuenasTareas
  • Páginas : 23 (5647 palabras )
  • Descarga(s) : 0
  • Publicado : 23 de noviembre de 2011
Leer documento completo
Vista previa del texto
AMPLIACIÓN DE INFORMÁTICA Diplomatura de Estadística Universidad de Sevilla

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...
tracking img