Manual de practica de visual basic 6.0

Lic. José Tavárez – Shano

Visual Basic
GUÍA DE LABORATORIO Nº 1 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 simplecon Microsoft Visual Basic. Consideraciones Para el desarrollo del presente laboratorio Ustedes deberán crear una carpeta D:\Susnombres\PMMZVB\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 alsueldo bruto del 20 por 100. 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:

Lic. José Tavárez – Shano

Para

el

desarrollo

de

esta

aplicación,

procedaa

ubicar los siguientes controles en el formulario: 2 marcos 6 etiquetas 6 cajas de texto 3 botones de comando Una vez ubicados los controles, establezca las

propiedades según se indica: Form1 Nombre BorderStyle Caption Moveable StartUpPosition Frame1 Nombre Caption Frame2 Nombre Caption FraSalida Salida de datos: FraIngreso Ingreso de datos: FrmSalarioNeto 3-Fixed Dialog Cálculo delsalario neto False 2-CenterScreen

Lic. José Tavárez – Shano Label1 Nombre AutoSize Caption Label2 Nombre AutoSize Caption Label3 Nombre AutoSize Caption Label4 Nombre AutoSize Caption Label5 Nombre AutoSize Caption Label6 Nombre AutoSize Caption Text1 Nombre Text Text2 Nombre Text Text3 Nombre Text Text4 Nombre TxtSalarioBruto TxtPagoPorHora TxtHorasTrabajadas TxtApellidosNombres LblSalarioNetoTrue Salario neto S/. LblDescuento True Descuento S/. LblSalarioBruto True Salario bruto S/. LblPagoPorHora True Pago por hora S/. LblHorasTrabajadas True Horas trabajadas: LblApellidosNombres True Apellidos y nombres:

Lic. José Tavárez – Shano Text Text5 Nombre Text Text6 Nombre Text Command1 Nombre Caption Command2 Nombre Caption Command3 Nombre Caption Luego haga doble de CmdSalir &Salirestablecer sobre el las botón propiedades Aceptar e para ingrese los el CmdLimpiar &Limpiar CmdAceptar &Aceptar TxtSalarioNeto TxtDescuento

controles, debe añadir código a la aplicación. Para ello click 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)

Lic. José Tavárez – Shano TxtSalarioNeto = Str(SalarioNeto) End Sub A continuación haga doble click sobre el botón Salir y añada el siguiente código: PrivateSub 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 SubGuarde 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Ú Hamburguesa Cerveza Gaseosa Ensalada Salchichas Refresco Sopa Postre PRECIO (S/.) 2.50 4.00 3.00 1.50 2.00 1.00 1.50 1.50 Se construir desea una

aplicación que calcule

Lic. José...