Programación Visual Basic .

Net

LABORATORIOS
LABORATORIO - 001

1. Elaborar una aplicación que permita ingresar el nombre de un usuario y que luego permita
saludarlo en un Label.

Public Class Form1

Private Sub BtnSaludo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
BtnSaludo.Click
'Define la variable nombre y le asigna el valor ingresado
Dim Nombre As String = TxtNombre.Text
'Alinea el texto del saludo al centro de la etiqueta
LblSaludo.TextAlign = ContentAlignment.MiddleCenter
'Muestra el saludo
LblSaludo.Text = "Hola: " & Chr(10) & Chr(13) & Nombre & Chr(10) & Chr(13) & Chr(10) _
& Chr(13) & "Bienvenido a Visual Basic 2005"
End Sub

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

BtnCerrar.Click
Close()
End Sub
End Class

1
 Programación Visual Basic .Net

LABORATORIO - 002

Elaborar una aplicacion que permita obtener el promedio de tres notas, mostrandome los puntos obtenidos (suma
de las notas) y el promedio del mismo.

Public Class Form1

Private Sub BtnCalcular_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim Nota1, Nota2, Nota3, Puntos, Promedio As Single
Nota1 = Single.Parse(TxtNota1.Text)
Nota2 = Single.Parse(TxtNota2.Text)
Nota3 = Single.Parse(TxtNota3.Text)
Puntos = Nota1 + Nota2 + Nota3
Promedio = Puntos / 3
LblPuntos.Text = Puntos.ToString
LblPromedio.Text = Promedio.ToString
If Promedio >= 10.5 Then
LblPromedio.ForeColor = Color.Blue
Else
LblPromedio.ForeColor = Color.Red
End If
End Sub

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

TxtNombre.Text = ""
TxtNota1.Text = ""
TxtNota2.Text = ""
TxtNota3.Text = ""
LblPuntos.Text = ""
LblPromedio.Text = ""
TxtNombre.Focus()

2
 Programación Visual Basic .Net

End Sub
End Class

LABORATORIO - 003

Elaborar una aplicación que permita mostrar el promedio de dos notas, este promedio se mostrara en un cuadro
de mensaje, de la siguiente manera:

Public Class Form4

Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
MyBase.Load
Dim kb As Integer = 0
Dim seg As Integer = 0
Dim velocidad As Integer = 0
kb = 55
velocidad = kb / seg
MsgBox(CStr(velocidad) & " kb por seg")
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button1.Click
Dim aNumber As Integer = CInt(TextBox1.Text)
Dim bNumber As Integer = CInt(TextBox2.Text)
MsgBox(calculopromedio(aNumber, bNumber))
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button2.Click
TextBox1.Text = ""
TextBox1.Text = ""
habilitabotones()
End Sub
Sub deshabilitabotones()
TextBox1.Enabled = False
TextBox2.Enabled = False
End Sub
Sub habilitabotones()

3
 Programación Visual Basic .Net

TextBox1.Enabled = True
TextBox2.Enabled = True
End Sub
Function calculopromedio(ByVal N1 As Integer, ByVal N2 As Integer) As Integer
Return (N1 + N2) / 2
End Function
End Class

4
 Programación Visual Basic .Net

LABORATORIO - 004

2. Elaborar una aplicacion que permita ingresar el nombre de un cliente asi como el monto consumido,
luego al hacer click debera mostrar el importe del mismo acompañado del igv, mostrandose en los labels
respectivos.

Public Class Form1

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

Dim Monto, Importe, Igv As Double
Monto = Double.Parse(TxtMonto.Text)
Importe = Monto / 1.19
Igv = Monto - Importe
LblImporte.Text = Importe.ToString("###,##0.00")
LblIgv.Text = Igv.ToString("###,##0.00")
End Sub

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

TxtCliente.Text = ""
TxtMonto.Text = ""
LblImporte.Text = ""
LblIgv.Text = ""
TxtCliente.Focus()
End Sub

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

Close()
End Sub
End Class

5
 Programación Visual Basic .Net

SESIÓN III

TRABAJANDO CON CONTROLES

CONTENIDO

 ComboBox
 ListBox
 CheckBox
 RadioButton
 TabPage
PRÁCTICA DE REFORZAMIENTO

6
 Programación Visual Basic .Net

ComboBox (Control, formularios Windows Forms)

El control ComboBox de los formularios Windows Forms se utiliza para mostrar datos en un cuadro combinado
desplegable. De forma predeterminada, el control ComboBox aparece en dos partes: la parte superior es un
cuadro de texto que permite al usuario escribir un elemento de la lista. La segunda parte es un cuadro de lista
que muestra una lista de elementos, de los cuales el usuario puede seleccionar

Public Class Form7

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Select Case ComboBox1.SelectedIndex
Case 0
TextBox1.Text = 1000
Case 1
TextBox1.Text = 2000
Case 2
TextBox1.Text = 3000
End Select
End Sub

7
 Programación Visual Basic .Net

Private Sub Form7_Load(ByVal sender As Object, ByVal e As

System.EventArgs) Handles Me.Load
ComboBox1.Items.Add("DIGITADOR")
ComboBox1.Items.Add("PROGRAMADOR")
ComboBox1.Items.Add("ANALISTA")
End Sub
End Class
El control ComboBox de Visual Basic 6.0 se ha reemplazado por el control ComboBox de Windows Forms en
Visual Basic 2005. Los nombres de algunas propiedades, métodos, eventos y constantes son diferentes y, en
algunos casos, existen diferencias de comportamiento.
Diferencias conceptuales
Change (Evento)
En Visual Basic 6.0, el evento Change del control ComboBox se desencadena cuando se modifica el texto del
control. El evento Change no se desencadena cuando se selecciona un elemento en la sección de la lista del
control. Si se modifica el texto de un elemento de la lista mediante programación, no se desencadena el evento
Change.
En Visual Basic 2005, el evento Change ya no existe; el evento TextChanged se desencadena cada vez que el
texto se modifica por alguna razón; por ejemplo:
 Cuando se modifica la sección de entrada de texto
 Cuando se selecciona un elemento de la lista
 Cuando se modifica un elemento de la lista mediante programación
 Cuando se llama al método AddItem
ItemData (Propiedad)

En Visual Basic 6.0 la propiedad ItemData de un control ComboBox se puede establecer en tiempo de diseño
en la ventana Propiedades para asociar un valor Integer con un elemento ComboBox.

En Visual Basic 2005, la propiedad ItemData ya no existe. La biblioteca Microsoft.VisualBasic.Compatibility

contiene una función SetItemData que se puede utilizar para asociar un valor Integer con un elemento; la
función GetItemData se puede utilizar para recuperar el elemento.

Locked (Propiedad)

En Visual Basic 6.0, la propiedad Locked de un control ComboBox determina si se puede editar la sección del
cuadro de texto del control.

En Visual Basic 2005, la propiedad Locked impide que un control se mueva en tiempo de diseño. No existe un
equivalente directo para la propiedad Locked de Visual Basic 6.0; sin embargo, puede conseguir el mismo efecto
si establece la propiedad DropDownStyle del control ComboBox en DropDownList.

Nota En Visual Basic 6.0, si se establece la propiedad Locked en True, también se impedirá que se modifique
la selección. Para duplicar este comportamiento, puede cancelar la selección en el evento MouseDown.

8
 Programación Visual Basic .Net

NewIndex (Propiedad)

En Visual Basic 6.0, la propiedad NewIndex se usaba para recuperar el índice del último elemento agregado a
un control ComboBox.

En Visual Basic 2005, la propiedad NewIndex ya no existe. Puede utilizar el valor devuelto desde el método
Item.Add para recuperar el índice de un elemento cuando éste se agrega.

TopIndex (Propiedad)

En Visual Basic 6.0, la propiedad TopIndex se utilizaba para devolver o establecer un valor que especificara el
elemento del control ComboBox o ListBox que debía mostrarse en la posición superior. Esta propiedad solía
utilizarse para desplazarse por la lista sin seleccionar ningún elemento.

En Visual Basic 2005, la propiedad ComboBox ya no es compatible con la propiedad TopIndex. En la mayoría
de los casos esto no debería representar un problema, porque al definir la propiedad TopIndex, no se producirá
ningún efecto visible a menos que se hubiera establecido la propiedad Style en 1 - SimpleCombo. En este
caso, puede emular su comportamiento utilizando un control ListBox y un control TextBox; el control ListBox
continúa admitiendo la propiedad TopIndex.

Scroll (Evento)

El evento Scroll de Visual Basic 6.se utiliza junto con la propiedad TopIndex para llevar a cabo acciones cuando
se desplaza por la lista. Visual Basic 2005 no admite el evento Scroll; sin embargo, en la mayoría de los casos, el
evento SelectedIndexChanged constituye un sustituto válido.

Otras diferencias

Existen numerosas diferencias conceptuales que se aplican a todos los controles, como diferencias en los enlaces
de datos, control de fuentes, operaciones de arrastrar y colocar, compatibilidad con Ayuda, y otras. Para obtener
más información, vea Conceptos de formularios Windows Forms para usuarios de Visual Basic 6.0.

Cambios de código para el control ComboBox

En los ejemplos siguientes se muestran las diferencias que existen entre las técnicas de codificación de Visual
Basic 6.0 y Visual Basic 2005.

El código se modifica para hacer que un control ComboBox sea de sólo lectura

El código siguiente muestra cómo impedir que un usuario agregue nuevos elementos a un control ComboBox.

Copiar código

' Visual Basic 6.0

Combo1.Locked = True
Visual Basic

Copiar código

9
 Programación Visual Basic .Net

' Visual Basic 2005

ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList
El código se modifica para seleccionar el último elemento agregado en un control ComboBox
El código siguiente muestra cómo se establece la selección en un elemento que se ha agregado mediante
programación a un control ComboBox.
Copiar código

' Visual Basic 6.0

Combo1.AddItem "This is a new item"
Combo1.ListIndex = Combo1.NewIndex
Visual Basic

Copiar código

' Visual Basic 2005

Dim i As Integer
i = ComboBox1.Items.Add("This is a new item")
ComboBox1.SelectedIndex = i
El código de Private Sub se modifica para asociar datos de elementos
El código siguiente muestra cómo se asocia un número de empleado a cada empleado mostrado en un control
ComboBox y cómo se recupera después ese número en tiempo de ejecución.
Copiar código

' Visual Basic 6.0

Private Sub Form_Load
Combo1.AddItem "Nancy Davolio"
Combo1.ItemData(Combo1.NewIndex) = 12345
Combo1.AddItem "Judy Phelps"
Combo1.ItemData(Combo1.NewIndex) = 67890
End Sub
Private Sub Combo1_Click()
Label1.Caption = "Empoyee #" & _
CStr(Combo1.ItemData(Combo1.ListIndex))
End Sub
Visual Basic

Copiar código

' Visual Basic 2005

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles MyBase.Load
ComboBox1.Items.Add("Nancy Davolio")
Microsoft.VisualBasic.Compatibility.VB6. _
SetItemData(ComboBox1, ComboBox1.Items.Count() - 1, 12345)
ComboBox1.Items.Add("Judy Phelps")
Microsoft.VisualBasic.Compatibility.VB6. _
SetItemData(ComboBox1, ComboBox1.Items.Count() - 1, 67890)

10
 Programación Visual Basic .Net

End Sub
Visual Basic

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Label1.Text = "Employee #" & CStr( _
Microsoft.VisualBasic.Compatibility.VB6. _
GetItemData(ComboBox1, ComboBox1.SelectedIndex))
End Sub

11
 Programación Visual Basic .Net

Control ListBox
El control ListBox permite añadir elementos en forma de lista y también poder seleccionar elementos de la
misma para trabajar los datos. Este control permite seleccionar un elemento solo o varios de ellos, utilizando la
propiedad Multiselect. La imagen de la izquierda muestra un ListBox en el que se selecciona un solo elemento y a
la derecha se seleccionan varios:
Algunas de sus propiedades.
ListBox.Items.Add: Sirve para agregar información al control
ListBox.SelectedIndex: Indica los elementos que han sido seleccionado en el control, (ojo) esta propiedad es
una de las mas funcionales que tiene este control, ya que, no da una perspectiva completa de la información que
tenemos almacenada en el mismo.
ListBox.Items.RemoveAt: Remueve o elimina la información seleccionada en el mismo.
ListBox.Sorted: Esta propiedad es de tipo Boolean (Verdadero o Falso), nos sirve para ordenar alfabéticamente
(A hasta Z) la información contenida en el control.

Public Class Form8

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

System.EventArgs) Handles MyBase.Load

ListBox1.Items.Add("DIGITADOR")

ListBox1.Items.Add("PROGRANADOR")

ListBox1.Items.Add("ANALISTA")

End Sub

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object,

ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged

Select Case ListBox1.SelectedIndex

12
 Programación Visual Basic .Net

Case 0

TextBox1.Text = 1200

Case 1

TextBox1.Text = 2500

Case 2

TextBox1.Text = 4500

End Select

End Sub

End Class

Ejercicio 2

Public Class Form1

'Aqui valido que no quede entradas en blanco
Private Sub btnAgregar_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnAgregar.Click
If Me.txtNombre.Text = "" Then
MessageBox.Show("El Nombre esta en blanco", "Datos en blanco")
Me.txtNombre.Focus()
Exit Sub

13
 Programación Visual Basic .Net

Else
If Me.txtDireccion.Text = "" Then
MessageBox.Show("La Direccion esta en blanco", "Datos en blanco")
Me.txtDireccion.Focus()
Exit Sub
Else
If Me.txtTelefono.Text = "" Then
MessageBox.Show("El Telefono esta en blanco", "Datos en
blanco")
Me.txtTelefono.Focus()
Exit Sub
Else
'Agrego a la lista
Me.lstLista.Items.Add(Me.txtNombre.Text.Trim _
& " " & "---" & " " & Me.txtDireccion.Text.Trim _
& " " & "---" & " " & Me.txtTelefono.Text.Trim)
'Limpio las entradas
Me.txtNombre.Clear()
Me.txtDireccion.Clear()
Me.txtTelefono.Clear()
'Enfoco
Me.txtNombre.Focus()
End If
End If
End If
End Sub

Private Sub btnEliminar_Click(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles btnEliminar.Click

'Aqui eliminamos los datos del ListBox

If Me.lstLista.SelectedIndex <> -1 Then
Me.lstLista.Items.RemoveAt(Me.lstLista.SelectedIndex)
MessageBox.Show("El Dato ha sido borrado", "Dato borrado")
Exit Sub
Else
MessageBox.Show("Debe seleccionar para poder borrar", "Seleccione el
dato")
End If

End Sub

14
 Programación Visual Basic .Net

Private Sub btnSalir_Click(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles btnSalir.Click
'Aqui mandamos a salir
Application.Exit()
End Sub

Private Sub Llenar_Lista()

'Aqui creamos un metodo para llenar la lista
With Me.lstLista.Items
.Add("Carlos Perez --- La Vega --- 8095286969")
.Add("Roman Fernandez --- Santiago --- 8094715896")
.Add("Juan Fco. --- Santiago --- 8094718494")
.Add("Alberto Fernandez --- La Vega --- 8093256969")
.Add("Adalberto Perez --- San Cristobal --- 8098526969")
End With
End Sub
Private Sub btnLlenar_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnLlenar.Click
'Aqui llamamos el metodo
Call Llenar_Lista()
'Mandamos a ordenar
Me.lstLista.Sorted = True
End Sub
End Class

15
 Programación Visual Basic .Net

BackColor Obtiene o establece el color de fondo del control.

Checked Obtiene o establece un valor que indica si el estado de la casilla de

verificación es el de activada.

Enabled Obtiene o establece un valor que indica si el control puede responder a la

interacción del usuario.

Font Obtiene o establece la fuente del texto que muestra el control.

ForeColor Obtiene o establece el color de primer plano del control.

Text Obtiene o establece el texto asociado al control.

- Se utiliza un control CheckBox para dar al usuario una opción del tipo verdadero/falso
o sí/no.
- El control de la casilla de verificación puede mostrar una imagen o texto o ambos.
- Se utiliza la propiedad Checked para obtener o establecer el valor de un control de
casilla de verificación de dos estados.

-
-
Focus Establece el foco de entrada en el control.

Hide Oculta el control al usuario.

Refresh Obliga al control a invalidar su área cliente y, acto seguido, obliga a que
vuelva a dibujarse el control y sus controles secundarios.

16
 Programación Visual Basic .Net

Show Muestra el control al usuario.

17
 Programación Visual Basic .Net

Public Class Form5

Dim sueldo, bon, descuento, neto As Single

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

System.EventArgs)

Form2.Show()

End Sub

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

System.EventArgs)

Form4.Show()

End Sub

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

System.EventArgs) Handles CheckBox1.CheckedChanged
If CheckBox1.Checked = True Then
sueldo = 1500
TextBox1.Text = sueldo
Else
sueldo = 0
TextBox1.Text = sueldo
End If

18
 Programación Visual Basic .Net

End Sub

19
 Programación Visual Basic .Net

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

System.EventArgs) Handles CheckBox2.CheckedChanged

If CheckBox2.Checked = True Then

bon = 500

TextBox2.Text = bon

Else

bon = 0

TextBox2.Text = bon

End If

End Sub

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

System.EventArgs) Handles CheckBox3.CheckedChanged

If CheckBox3.Checked = True Then

descuento = 345

TextBox3.Text = descuento

Else

descuento = 0

TextBox3.Text = descuento

End If

End Sub

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

Handles Button1.Click

neto = sueldo + bon - descuento

TextBox4.Text = neto.ToString("##.00")

End Sub

20
 Programación Visual Basic .Net

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

Handles Me.Load
sueldo = 0
bon = 0
descuento = 0
neto = 0

End Sub
End Class

21
 Programación Visual Basic .Net

Control Radiobutton

- Ofrece opciones que el usuario puede activar o desactivar, pero solamente una opción si existe un grupo
de RadioButton.
- El control RadioButton puede mostrar texto, Imagen o ambos.
- Cuando el usuario selecciona un botón de opción en un grupo, los demás se desactivan
automáticamente.
- Se utiliza la propiedad Checked para obtener o establecer el estado de un RadioButton.
- Ofrece opciones que el usuario puede activar o desactivar, pero solamente una opción si existe un grupo
de RadioButton.
- El control RadioButton puede mostrar texto, Imagen o ambos.
- Cuando el usuario selecciona un botón de opción en un grupo, los demás se desactivan
automáticamente.
- Se utiliza la propiedad Checked para obtener o establecer el estado de un RadioButton.

PROPIEDADES

BackColor Obtiene o establece el color de fondo del control.

CheckAlign Obtiene o establece la ubicación de la parte de casilla de

verificación del control de botón de opción.

Checked Obtiene o establece un valor que indica si el control está

activado.

Enabled Obtiene o establece un valor que indica si el control puede

responder a la interacción del usuario.

Font Obtiene o establece la fuente del texto que muestra el control.

ForeColor Obtiene o establece el color de primer plano del control.

Name Obtiene o establece el nombre del control.

Text Obtiene o establece el texto asociado al control.

Visible Obtiene o establece un valor que indica si se muestra el control.

22
 Programación Visual Basic .Net

MÉTODOS
Focus Establece el foco de entrada en el control.

Hide Oculta el control al usuario.

Refresh Obliga al control a invalidar su área cliente y, acto

seguido, obliga a que vuelva a dibujarse el control y
sus controles secundarios.

Select Sobrecargado. Activa un control.

Show Muestra el control al usuario.

Update Hace que el control vuelva a dibujar las regiones no

válidas en su área de cliente.

Public Class Form6

Dim SUELDO As Single

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

System.EventArgs) Handles RadioButton1.CheckedChanged

If RadioButton1.Enabled = True Then

SUELDO = 960

TextBox1.Text = SUELDO

End If

23
 Programación Visual Basic .Net

End Sub

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

System.EventArgs) Handles RadioButton2.CheckedChanged

If RadioButton2.Enabled = True Then

SUELDO = 2500

TextBox1.Text = SUELDO

End If

End Sub

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

System.EventArgs) Handles RadioButton3.CheckedChanged

If RadioButton3.Enabled = True Then

SUELDO = 3500

TextBox1.Text = SUELDO

End If

End Sub

End Class

24
 Programación Visual Basic .Net

TAB PAGE

Este control permite visualizar las fichas de un control

Public Class Form9

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

Button1.Click

Call visibilidad()

TabPage1.BackColor = Color.BlanchedAlmond

Label6.Text = "DATOS REGISTRADOS"

Label7.Text = TextBox1.Text

Label8.Text = TextBox2.Text

Label9.Text = TextBox3.Text

Label10.Text = TextBox4.Text

Label11.Text = ComboBox1.Text

End Sub

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

Button2.Click

Me.Close()

End Sub

25
 Programación Visual Basic .Net
Private Sub Form9_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
MyBase.Load

Label6.Visible = False

Label7.Visible = False

Label8.Visible = False

Label9.Visible = False

Label10.Visible = False

Label11.Visible = False

ComboBox1.Items.Add("DIGITADOR")

ComboBox1.Items.Add("PROGRAMADOR")

ComboBox1.Items.Add("ANALISTA")

TabPage1.Text = "DATOS PERSONALISIMOS"

TabPage2.Text = "ESTUDIOS"

TabPage3.Text = "RESUMEN"

TabPage1.BackColor = Color.BlanchedAlmond

TabPage2.BackColor = Color.White

TabPage3.BackColor = Color.Chartreuse

End Sub

Sub visibilidad()

Label6.Visible = True

Label7.Visible = True

Label8.Visible = True

Label9.Visible = True

Label10.Visible = True

Label11.Visible = True

End Sub

26
 Programación Visual Basic .Net

LABORATORIOS
LABORATORIO - 001

 Se desea elaborar una aplicación que me permita mostrar el Neto a Pagar en el sueldo de un empleado
para ello debemos tomar en cuenta lo siguiente:
Si hacemos click en el Check de Bon Mov, se debera tomar en cuenta:
El basico va a Depender del Cargo:

Cargo Basico
Analista 2800
Programador 2000
Operador 1600
Digitador 1250
Secretaria 1000

 Bon Mov es el 2% del Basico

 Si es Bon Ref es el 1% del Basico
 El Sueldo Bruto es la Suma del Basico mas las Bonificaciones esta se mostrara en el Label14.
 El Adelanto es el 3% del Basico, la AFP es el 13% del Basico, Otros es el 7% del Basico, por lo tanto el
total de Descuentos es : Adelanto + AFP + Otros esto se mostrara en el Label15.
 El Neto es Bruto – TotalDescuentos.

El diseño de la ventana tendra el siguiente aspecto:

78
 Programación Visual Basic .Net

LABORATORIO - 002

 Elaborar una aplicación que permita ingresar el Nombre, Edad y Estado Civil asi como su Turno,
cuando presionemos Agregar este se visualizara en las Listas respectivas.
Luego si deseamos eliminar a uno de los elementos de la lista, debemos seleccionarla y luego hacer clic
en el boton Quitar. Del mismo modo cuando se haga clic en Limpiar todos los controles se borraran.

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
BtnAgregar.Click
Dim Nombre, Casado, Turno As String
Dim Edad As Byte
If TxtNombre.Text.Trim = "" Then
MessageBox.Show("Ingrese el Nombre", "Por Favor")
TxtNombre.Focus()
Exit Sub
End If
If RbMañana.Checked = False And RbTarde.Checked = False And RbNoche.Checked = False Then
MessageBox.Show("Seleccione el Turno", "Por Favor")
Exit Sub
End If
'Cambia el nombre a mayúsculas
Nombre = TxtNombre.Text.ToUpper()
Edad = UpEdad3.Value
If CkCasado.Checked = True Then
Casado = "Si"
Else
Casado = "No"

79
 Programación Visual Basic .Net
End If
If RbMañana.Checked = True Then
Turno = "Mañana"
ElseIf RbTarde.Checked = True Then
Turno = "Tarde"
Else
Turno = "Noche"
End If
LbNombre.Items.Add(Nombre)
LbEdad.Items.Add(Edad.ToString)
LbTurno.Items.Add(Turno)
LbCasado.Items.Add(Casado)
TxtNombre.Clear()
UpEdad3.Value = 18
CkCasado.Checked = False
RbMañana.Checked = False
RbTarde.Checked = False
RbNoche.Checked = False
TxtNombre.Focus()
End Sub
Private Sub LbNombre_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles LbNombre.SelectedIndexChanged
Seleccionar(LbNombre.SelectedIndex)
End Sub
Private Sub LbEdad_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles LbEdad.SelectedIndexChanged
Seleccionar(LbEdad.SelectedIndex)
End Sub
Private Sub LbTurno_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles LbTurno.SelectedIndexChanged
Seleccionar(LbTurno.SelectedIndex)
End Sub
Private Sub LbCasado_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles LbCasado.SelectedIndexChanged
Seleccionar(LbCasado.SelectedIndex)
End Sub
Private Sub BtnQuitar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
BtnQuitar.Click
If LbNombre.SelectedIndex < 0 Then
MessageBox.Show("Seleccione un elemento", "Para Quitar", MessageBoxButtons.OK,
MessageBoxIcon.Information)
Else
Quitar(LbNombre.SelectedIndex)

80
 Programación Visual Basic .Net
End If
End Sub
Private Sub BtnLimpiar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles BtnLimpiar.Click
LbNombre.Items.Clear()
LbTurno.Items.Clear()
LbEdad.Items.Clear()
LbCasado.Items.Clear()
End Sub

Sub Seleccionar(ByVal Elemento As Integer)

LbNombre.SelectedIndex = Elemento
LbTurno.SelectedIndex = Elemento
LbEdad.SelectedIndex = Elemento
LbCasado.SelectedIndex = Elemento
End Sub
Sub Quitar(ByVal Elemento As Integer)
LbNombre.Items.RemoveAt(Elemento)
LbTurno.Items.RemoveAt(Elemento)
LbEdad.Items.RemoveAt(Elemento)
LbCasado.Items.RemoveAt(Elemento)
End Sub
End Class

81
 Programación Visual Basic .Net

LABORATORIO - 003

Elaborar una aplicación que permita ingresar :

 Nombre de una Persona

 Seleccionar el Sexo de una persona
 Seleccionar el Estado Civil
 Ingresar la Edad.

Cuando se ingresa la Edad y se presiona ENTER, se mostrara la informacion ingresada y seleccionada en las listas
respectivamente, y al mismo tiempo se debera mostrar Los Nros que solicitan en la parte inferior.

List:
Masculino
Femenino

List:
Soltero
Casado
Viudo
Divorciado
Conviviente

82
 Programación Visual Basic .Net

LABORATORIO - 004

Elaborar una aplicación que permita ingresar :

 Nombre de una Persona
 Seleccionar el Turno
 Seleccionar el Ciclo
 Seleccionar la Especialidad
 Seleccionar los datos Adicionales.
Se debera tomar en cuenta las siguientes alternativas :

ESPECIALIDADES
Turno Ciclo
Turismo Contabilidad Computacion Secretariado
I , II y III 280 290 290 285
Mañana
IV, V ,VI 300 310 320 315
I , II y III 250 260 270 265
Tarde
IV, V ,VI 270 280 280 270
I , II y III 284 295 295 290
Noche
IV, V ,VI 320 340 340 325

Los precios se mostrara en la Caja de Texto Mensualidad, asi mismo cuando seleccionamos un dato Adicional esta
se acumulara en la caja de texto Pago Adicional.
El Descuento sera de la siguiente manera :
Turno Descuento
Mañana 2% de la Suma (Mensualidad + Adicional)
Tarde 3% de la Suma (Mensualidad + Adicional)
Noche 4% de la Suma (Mensualidad + Adicional)

List :
Mañana
Tarde
Noche

List :
I
II
III
IV
V
VI

83
Programación Visual Basic .Net

84