CENTRO INCA LTDA

AUXILIAR EN SISTEMAS INFORMATICOS

APLICACIONES DE ESCRITORIO CON VISUAL BASIC .NET

Microsoft Visual Basic .Net

GUÍA DE LABORATORIO Nº 2
Objetivos
Luego de completar este laboratorio, el estudiante será capaz de:
• Implementar aplicaciones utilizando estructuras de control selectivas.
• Usar casillas de verificación y botones de opción para alternar entre uno o más valores.
• Utilizar cajas de diálogo predefinidas para visualizar mensajes.

Consideraciones
Para el desarrollo del presente laboratorio Ud. deberá crear una carpeta U:\FundVB\Lab2, para guardar
sus trabajos correspondientes a este laboratorio.

Aplicación Nº 1
Se desea elaborar la boleta de pago de los trabajadores de una fábrica. Para ello se cuenta con los
siguientes datos de entrada:
 Apellidos y nombres del trabajador
 Sueldo básico
 Horas extras trabajadas
Además, se sabe que los trabajadores laboran en dos turnos: diurno y nocturno. Y que la tarifa por las
horas extras diurnas es de 10.000 pesos y por las horas extras nocturnas es de 15.000 pesos.
Los descuentos para aplicar son sobre el sueldo básico y se obtienen de la siguiente manera:
Renta = SueldoBasico * 0.1
Fonavi = SueldoBasico * 0.07
AFP = SueldoBasico * 0.03

Finalmente, el sueldo neto del trabajador se calcula mediante las siguientes expresiones:
Ingresos = SueldoBasico + HorasExtras * PagoHoraExtra
Egresos = Renta + Fonavi + AFP
SueldoNeto = Ingresos - Egresos
El diseño de la interfaz deberá ser similar a la figura mostrada:

Página 1 de 13
 CENTRO INCA LTDA
AUXILIAR EN SISTEMAS INFORMATICOS
APLICACIONES DE ESCRITORIO CON VISUAL BASIC .NET

Para el desarrollo de esta aplicación, proceda a ubicar los siguientes controles en el formulario:
2 Marcos
5 Etiquetas
8 cajas de texto
2 botones de opción
3 Casillas de verificación
3 Botones de comando
Luego, proceda a establecer las propiedades según se indica a continuación:

Form1
Nombre FrmBoletaDePago
FormBorderStyle FixedDialog
Text Boleta de pago

Label1
Nombre LblTrabajador
AutoSize True
Text Trabajador:

Label2
Nombre LblSueldoBasico
AutoSize True
Text Sueldo Bruto $

Label3
Nombre LblHorasExtras

Página 2 de 13
 CENTRO INCA LTDA
AUXILIAR EN SISTEMAS INFORMATICOS
APLICACIONES DE ESCRITORIO CON VISUAL BASIC .NET

AutoSize True
Text Horas extras:

Label4
Nombre LblPagoHoraExtra
AutoSize True
Text Pago hora extra $

Label5
Nombre LblSueldoNeto
AutoSize True
Text Sueldo neto $

Textbox1
Nombre TxtTrabajador
Text

Textbox2
Nombre TxtSueldoBasico
Text

Textbox3
Nombre TxtHorasExtras
Text

Textbox4
Nombre TxtPagoHoraExtra
Text

Textbox5
Nombre TxtRenta
Locked True
Text

Textbox6
Nombre TxtFonavi
Locked True
Text

Textbox7
Nombre TxtAFP
Locked True

Página 3 de 13
 CENTRO INCA LTDA
AUXILIAR EN SISTEMAS INFORMATICOS
APLICACIONES DE ESCRITORIO CON VISUAL BASIC .NET
Text

Textbox8
Nombre TxtSueldoNeto
Locked True
Text

Radiobutton1
Nombre RbtDiurno
Text Diurno
checked True

Radiobutton2
Nombre RbtNocturno
Text Nocturno
checked False

Checkbox1
Nombre ChkRenta
Text Renta

Checkbox2
Nombre ChkFonavi
Text Fonavi

Checkbox3
Nombre ChkAFP
Text AFP

Button1
Nombre BtnAceptar
Text &Aceptar

Button2
Nombre BtnLimpiar
Text &Limpiar

Button3
Nombre BtnSalir
Text &Salir

Página 4 de 13
 CENTRO INCA LTDA
AUXILIAR EN SISTEMAS INFORMATICOS
APLICACIONES DE ESCRITORIO CON VISUAL BASIC .NET

Una vez establecidas las propiedades, proceda a ingresar el código que se indica a continuación:
Private Sub BtnAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles BtnAceptar.Click

Dim SueldoBasico As Double

Dim HorasExtras As Integer, PagoHoraExtra As Double
Dim Renta As Double, Fonavi As Double, AFP As Double
Dim Ingresos As Double, Egresos As Double
Dim SueldoNeto As Double

SueldoBasico = Cdbl(TxtSueldoBasico.text)
HorasExtras = Cdbl(TxtHorasExtras.text)

If RbtDiurno.cheked Then
PagoHoraExtra = 10
End If

If RbtNocturno.cheked Then
PagoHoraExtra = 15
End If

If ChkRenta.cheked Then
Renta = SueldoBasico * 0.1
Else
Renta = 0
End If

If ChkFonavi.cheked Then
Fonavi = SueldoBasico * 0.07
Else
Fonavi = 0
End If

If ChkAFP.cheked Then
AFP = SueldoBasico * 0.03
Else
AFP = 0
End If

Ingresos = SueldoBasico + HorasExtras * PagoHoraExtra

Egresos = Renta + Fonavi + AFP
SueldoNeto = Ingresos - Egresos
TxtPagoHoraExtra.text = (PagoHoraExtra).ToString
Página 5 de 13
 CENTRO INCA LTDA
AUXILIAR EN SISTEMAS INFORMATICOS
APLICACIONES DE ESCRITORIO CON VISUAL BASIC .NET
TxtRenta.text = (Renta).ToString
TxtFonavi.text = (Fonavi).ToString
TxtAFP.text = (AFP).ToString
TxtSueldoNeto.text = (SueldoNeto).ToString
End Sub

Private Sub BtnSalir_ Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

Handles BtnAceptar.Click
Me.close()
End Sub
Aplicación Nº 2
Cuatro notas entre 0 y 20 representan las calificaciones de un estudiante de un curso de
programación. Elaborar una aplicación para obtener el promedio de esas calificaciones y visualizar su
puntuación de acuerdo con el siguiente cuadro:

Promedio Puntuación
19-20 A
16-18 B
11-15 C
6-10 D

El 0-5 E diseño de la interfaz deberá ser similar a la figura

mostrada:

Para el desarrollo de esta aplicación, proceda a ubicar los siguientes controles en el formulario:

7 Etiquetas
7 Cajas de texto
3 Botones de comando
Luego, proceda a establecer las propiedades según se indica a continuación:

Página 6 de 13
 CENTRO INCA LTDA
AUXILIAR EN SISTEMAS INFORMATICOS
APLICACIONES DE ESCRITORIO CON VISUAL BASIC .NET

Form1
Nombre FrmNotas
BorderStyle FixedDialog
Text Puntuación de un estudiante

Label1
Nombre LblAlumno
AutoSize True
Text Alumno:

Label2
Nombre LblN1
AutoSize True
Text Nota 1:

Label3
Nombre LblN2
AutoSize True
Text Nota 2:

Label4
Nombre LblN3
AutoSize True
Text Nota 3:

Label5
Nombre LblN4
AutoSize True
Text Nota 4:

Label6
Nombre LblPromedio
AutoSize True
Text Promedio:

Label7
Nombre LblPuntuacion
AutoSize True
Text Puntuación:

Página 7 de 13
 CENTRO INCA LTDA
AUXILIAR EN SISTEMAS INFORMATICOS
APLICACIONES DE ESCRITORIO CON VISUAL BASIC .NET
Textbox1
Nombre TxtAlumno
Text

Textbox2
Nombre TxtN1
Text

Textbox3
Nombre TxtN2
Text

Textbox4
Nombre TxtN3
Text

Textbox5
Nombre TxtN4
Text

Textbox6
Nombre TxtPromedio
Locked True
Text

Textbox7
Nombre TxtPuntuacion
Locked True
Text

Button1
Nombre BtnAceptar
Text &Aceptar
Default True

Button2
Nombre BtnLimpiar
Text &Limpiar

Button3
Nombre BtnSalir
Cancel True

Página 8 de 13
 CENTRO INCA LTDA
AUXILIAR EN SISTEMAS INFORMATICOS
APLICACIONES DE ESCRITORIO CON VISUAL BASIC .NET

Text &Salir

Una vez establecidas las propiedades, proceda a ingresar el código que se indica:

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

Handles BtnAceptar.Click
Dim N1 As Double, N2 As Double, N3 As Double, N4 As Double
Dim Promedio As Integer

N1 = Cdbl(TxtN1.text)
N2 = Cdbl(TxtN2.text)
N3 = Cdbl(TxtN3.text)
N4 = Cdbl(TxtN4.text)

Promedio = CInt((N1 + N2 + N3 + N4) / 4)

TxtPromedio.text = Str(Promedio)

If Promedio >= 19 And Promedio <= 20 Then

TxtPuntuacion.text = “A”
ElseIf Promedio >= 16 And Promedio <= 18 Then
TxtPuntuacion.text = “B”
ElseIf Promedio >= 11 And Promedio <= 15 Then
TxtPuntuacion.text = “C”
ElseIf Promedio >= 6 And Promedio <= 10 Then
TxtPuntuacion.text = “D”
ElseIf Promedio >= 0 And Promedio <= 5 Then
TxtPuntuacion.text = “B”
Else: MsgBox “Error de datos”, vbCritical, “Mensaje”
End If

End Sub

Página 9 de 13
 CENTRO INCA LTDA
AUXILIAR EN SISTEMAS INFORMATICOS
APLICACIONES DE ESCRITORIO CON VISUAL BASIC .NET
Aplicación Nº 3
Escribir una aplicación que acepte fechas como tres números (dd, mm, aaaa) y las visualice del
modo usual. A manera de ejemplo considere lo siguiente:

En caso de que el usuario ingrese algún dato incorrecto (por ejemplo 13 como un número de mes),
se debe visualizar el siguiente mensaje:

Cuando el usuario haga click en el botón Salir, se debe observar el siguiente mensaje:

En caso de que el usuario elija la opción Si, la aplicación debe terminar. En caso contrario, es
decir si el usuario elige la opción No, se debe proseguir con la aplicación.

Para el desarrollo de esta aplicación, proceda a ubicar los siguientes controles en el formulario:

4 Etiquetas
3 Cajas De Texto
1 Marco
3 Botones De Comando

En seguida proceda a establecer las propiedades según se indica:

Form1
Nombre FrmFecha
BorderStyle Fixed Dialog
Text Fecha en letras

Label1
Nombre LblDia

Página 10 de 13
 CENTRO INCA LTDA
AUXILIAR EN SISTEMAS INFORMATICOS
APLICACIONES DE ESCRITORIO CON VISUAL BASIC .NET

AutoSize True
Text Día:

Label2
Nombre LblMes
AutoSize True
Text Mes:

Label3
Nombre LblAnno
AutoSize True
Text Año:

Label4
Nombre LblFecha
AutoSize True
Text

Textbox1
Nombre TxtDia
Text

Textbox2
Nombre TxtMes
Text

Textbox3
Nombre TxtAnnio
Text

Button1
Nombre BtnAceptar
Text &Aceptar

Button2
Nombre BtnLimpiar

Text &Limpiar

Button 3
Nombre BtnSalir

Página 11 de 13
 CENTRO INCA LTDA
AUXILIAR EN SISTEMAS INFORMATICOS
APLICACIONES DE ESCRITORIO CON VISUAL BASIC .NET
Text &Salir

Una vez establecidas las propiedades de la interfaz proceda a ingresar el siguiente código:

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

Handles BtnAceptar.Click
Dim CadMes As String, Mes As Integer
Mes = Cdbl(TxtMes.text)
Select Case Mes
Case 1: CadMes = “Enero”
Case 2: CadMes = “Febrero”
Case 3: CadMes = “Marzo”
Case 4: CadMes = “Abril”
Case 5: CadMes = “Mayo”
Case 6: CadMes = “Junio”
Case 7: CadMes = “Julio”
Case 8: CadMes = “Agosto”
Case 9: CadMes = “Setiembre”
Case 10: CadMes = “Octubre”
Case 11: CadMes = “Noviembre”
Case 12: CadMes = “Diciembre”
Case Else
MsgBox (“Error de datos...”, vbCritical, “Mensaje”)
Call BtnLimpiar.PerformClick ()
Exit Sub
End Select
LblFechatext = TxtDia.text & “ de ” & CadMes & “ de ” & TxtAnnio.text
End Sub

Private Sub BtnLimpiar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

Handles BtnAceptar.Click
TxtDia.text = “”
TxtMes.text = “”
TxtAnno.text = “”
TxtDia.Focus()
End Sub

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

Handles BtnAceptar.Click
If MsgBox(“¿Desea terminar la aplicación?”, _
vbQuestion + vbYesNo, “Pregunta”) = vbYes Then
Página 12 de 13
 CENTRO INCA LTDA
AUXILIAR EN SISTEMAS INFORMATICOS
APLICACIONES DE ESCRITORIO CON VISUAL BASIC .NET

End
Else
Call BtnLimpiar.PerformClick ()
End If
End Sub

Aplicación N.4 (Se propone para que usted realice una solución informática para este
requerimiento)
Un restaurante ofrece un descuento del 10% para consumos entre $ 30.000 y $ 50.000; un descuento del
20% para consumos mayores a $50.000 pesos, y para todos los demás casos no se aplica ningún tipo de
descuento. Elaborar una aplicación que permita determinar el total a pagar por el consumidor. El diseño
de la interfaz y otras consideraciones se dejan a su criterio.

Página 13 de 13