practicas de visual basic
Objetivos
Luego de completar este laboratorio, 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.Consideraciones
Para el desarrollo del presente laboratorio Ud. deberá crear una carpeta C:\FundVB\Lab1, para guardar sus trabajos correspondientes a este laboratorio.
Aplicación Nº 1
Elaborar una aplicación que permita calcular el salario neto de un trabajador en función del número de horas trabajadas, pago por hora de trabajo y un descuento fijo al sueldo bruto del 20 por 100. Los cálculos aefectuar 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:
Para el desarrollo de esta aplicación, proceda a ubicar los siguientes controles en el formulario:
2 marcos
6etiquetas
6 cajas de texto
3 botones de comando
Una vez ubicados los controles, establezca las propiedades según se indica:
Form1
Nombre FrmSalarioNeto
BorderStyle 3-Fixed Dialog
Caption Cálculo del salario neto
Moveable False
StartUpPosition 2-CenterScreen
Frame1
Nombre FraIngreso
Caption Ingreso de datos:
Frame2
Nombre FraSalida
Caption Salida de datos:
Label1Nombre LblApellidosNombres
AutoSize True
Caption Apellidos y nombres:
Label2
Nombre LblHorasTrabajadas
AutoSize True
Caption Horas trabajadas:
Label3
Nombre LblPagoPorHora
AutoSize True
Caption Pago por hora S/.
Label4
Nombre LblSalarioBruto
AutoSize True
Caption Salario bruto S/.
Label5
Nombre LblDescuento
AutoSize True
Caption Descuento S/.
Label6Nombre LblSalarioNeto
AutoSize True
Caption Salario neto S/.
Text1
Nombre TxtApellidosNombres
Text
Text2
Nombre TxtHorasTrabajadas
Text
Text3
Nombre TxtPagoPorHora
Text
Text4
Nombre TxtSalarioBruto
Text
Text5
Nombre TxtDescuento
Text
Text6
Nombre TxtSalarioNeto
Text
Command1
Nombre CmdAceptar
Caption &Aceptar
Command2
Nombre CmdLimpiarCaption &Limpiar
Command3
Nombre CmdSalir
Caption &Salir
Luego de establecer las propiedades para los controles, debe añadir código a la aplicación. Para ello haga doble click sobre el botón Aceptar e ingrese el siguiente código:
Private Sub CmdAceptar_Click()
Dim HorasTrabajadas As Integer, PagoPorHora As Double
Dim SalarioBruto As Double
Dim Descuento As DoubleDim 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 haga doble clicksobre el botón Salir y añada el siguiente código:
Private Sub CmdSalir_Click()
End
End Sub
Guarde y luego ejecute la aplicación que acaba de crear. Pruebe ingresando diferentes valores.
Luego, haga doble click sobre el botón Limpiar y añada el siguiente código:
Private Sub CmdLimpiar_Click()
TxtApellidosNombres = “”
TxtHorasTrabajadas = “”
TxtPagoPorHora = “”TxtSalarioBruto = “”
TxtDescuento = “”
TxtSalarioNeto = “”
TxtApellidosNombres.SetFocus
End Sub
Guarde y ejecute su aplicación. ¿Cómo afecta el código añadido en el botón Limpiar a la aplicación?. Anote sus observaciones.
Aplicación Nº 2
El menú de un restaurante rápido se muestra a continuación:
MENÚ PRECIO (S/.)
Hamburguesa 2.50
Cerveza 4.00
Gaseosa 3.00...
Regístrate para leer el documento completo.