Software">
Nothing Special   »   [go: up one dir, main page]

Guia No.1 para Microsoft Visual Basic

Descargar como pdf o txt
Descargar como pdf o txt
Está en la página 1de 9

CENTRO INCA LTDA

AUXILIAR EN SISTEMAS INFORMÁTICOS


APLICACIONES DE ESCRITORIO CON VISUAL BASIC .NET

Microsoft Visual Basic .Net


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 .Net
 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 .Net

Consideraciones
Para el desarrollo del presente laboratorio Ud. deberá crear una carpeta
Unidad:\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%. Los cálculos a efectuar para obtener el
salario neto de un trabajador se muestran a continuación:
Página 1 de 9
CENTRO INCA LTDA
AUXILIAR EN SISTEMAS INFORMÁTICOS
APLICACIONES DE ESCRITORIO CON VISUAL BASIC .NET

SalarioBruto = HorasTrabajadas * PagoPorHora

Descuento = SalarioBruto * 20/100

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 (GroupBox)
6 etiquetas (Label)
6 cajas de texto (Textbox)
3 botones de comando (Button)

Una vez ubicados los controles, establezca las propiedades según se indica:

Form1
Name FrmSalarioNeto
FormBorderStyle Fixed Dialog

Página 2 de 9
CENTRO INCA LTDA
AUXILIAR EN SISTEMAS INFORMÁTICOS
APLICACIONES DE ESCRITORIO CON VISUAL BASIC .NET
Text Cálculo del salario neto
StartPosition CenterScreen

GroupBox1
Nombre GbxIngreso
Text Ingreso de datos:

GroupBox2
Nombre GbxSalida
Text Salida de datos:

Label1
Nombre LblApellidosNombres
AutoSize True
Text Apellidos y nombres:

Label2
Nombre LblHorasTrabajadas
AutoSize True
Text Horas trabajadas:

Label3
Nombre LblPagoPorHora
AutoSize True
Text Pago por hora $

Label4
Nombre LblSalarioBruto
AutoSize True
Text Salario bruto $

Página 3 de 9
CENTRO INCA LTDA
AUXILIAR EN SISTEMAS INFORMÁTICOS
APLICACIONES DE ESCRITORIO CON VISUAL BASIC .NET
Label5
Nombre LblDescuento
AutoSize True
Text Descuento $

Label6
Nombre LblSalarioNeto
AutoSize True
Text Salario neto $

Textboxbox1
Nombre TxtApellidosNombres
Text

Textbox2
Nombre TxtHorasTrabajadas
Text

Textbox3
Nombre TxtPagoPorHora
Text

Textbox4
Nombre TxtSalarioBruto
Text

Textbox5
Nombre TxtDescuento
Text

Página 4 de 9
CENTRO INCA LTDA
AUXILIAR EN SISTEMAS INFORMÁTICOS
APLICACIONES DE ESCRITORIO CON VISUAL BASIC .NET
Textbox6
Nombre TxtSalarioNeto
Text

Button1
Nombre BtnAceptar
Text &Aceptar

Button2
Nombre BtnLimpiar
Text &Limpiar

Button3
Nombre BtnSalir
Text &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 BtnAceptar_Click(ByVal sender As System.Object, ByVal e As


System.EventArgs) Handles BtnAceptar.Click

Dim HorasTrabajadas As Integer, PagoPorHora As Double


Dim SalarioBruto As Double, Descuento As Double
Dim SalarioNeto As Double

HorasTrabajadas = Val(TxtHorasTrabajadas.text)
PagoPorHora = Val(TxtPagoPorHora.text)
SalarioBruto = HorasTrabajadas * PagoPorHora
Descuento = SalarioBruto * 20/100

Página 5 de 9
CENTRO INCA LTDA
AUXILIAR EN SISTEMAS INFORMÁTICOS
APLICACIONES DE ESCRITORIO CON VISUAL BASIC .NET
SalarioNeto = SalarioBruto - Descuento
TxtSalarioBruto.text = SalarioBruto.ToString
TxtDescuento.text = Descuento.ToString
TxtSalarioNeto.text = SalarioNeto.ToString
End Sub

A continuación, haga doble click sobre el botón Salir y añada el siguiente


código:

Private Sub BtnSalir_Click(ByVal sender As System.Object, ByVal e As


System.EventArgs) Handles BtnSalir.Click
Me.Close()
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 BtnLimpiar_Click(ByVal sender As System.Object, ByVal e As


System.EventArgs) Handles BtnLimpiar.Click

TxtApellidosNombres.Clear()
TxtHorasTrabajadas.Clear()
TxtPagoPorHora.Clear()
TxtSalarioBruto.Clear()
TxtDescuento.Clear()
TxtSalarioNeto.Clear()
TxtApellidosNombres.Focus()

End Sub

Página 6 de 9
CENTRO INCA LTDA
AUXILIAR EN SISTEMAS INFORMÁTICOS
APLICACIONES DE ESCRITORIO CON VISUAL BASIC .NET
Guarde y ejecute su aplicación. Puede utilizar F5 o haciendo click sobre el
icono de depurar en la barra del IDE.

¿Cómo afecta el código añadido en el botón Limpiar a la aplicación? Anote sus


observaciones.

Aplicación Nº 2
Elaborar una aplicación que permita calcular la edad de una
persona a partir de su fecha de nacimiento. 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 etiquetas
2 cajas de texto
3 botones de comando

Luego, proceda a establecer las propiedades según se indica a


continuación:

Form1
Nombre FrmEdad
FormBorderStyle FixedDialog
Text Calcula la edad de una persona

Página 7 de 9
CENTRO INCA LTDA
AUXILIAR EN SISTEMAS INFORMÁTICOS
APLICACIONES DE ESCRITORIO CON VISUAL BASIC .NET
Label1
Nombre LblFecNac
AutoSize True
Text Fecha de nacimiento:

Label2
Nombre LblEdad
AutoSize True
Text Su edad es:

Textbox1
Nombre TxtFecNac
Text

Textbox2
Nombre TxtEdad
Locked True
Text

Button1
Nombre BtnAceptar
Text &Aceptar

Button2
Nombre BtnLimpiar
Text &Limpiar

Button3
Nombre BtnSalir
Text &Salir

En seguida proceda a ingresar el siguiente código:

Página 8 de 9
CENTRO INCA LTDA
AUXILIAR EN SISTEMAS INFORMÁTICOS
APLICACIONES DE ESCRITORIO CON VISUAL BASIC .NET

Private Sub BtnAceptar_Click(ByVal sender As System.Object, ByVal e As


System.EventArgs) Handles BtnAceptar.Click

Dim FecNac As Date, Edad As Integer


FecNac = CDate(TxtFecNac.text)
Edad = CInt(datediff(dateinterval.day, now.Date, FecNac) / 365)
TxtEdad.text = Edad.ToString & “ años”
End Sub

Se deja como ejercicio para el estudiante el código asociado con los


botones Limpiar y Salir, respectivamente.

Página 9 de 9

También podría gustarte