FACULTAD DE INGENIERIA
ESCUELA PROFESIONAL DE INGENIERIA DE SISTEMAS
INTEGRANTES
• CARMEN ATOCHE ARNOL
• CARMEN HERRERA TANYA
• CHUMACERO ORDINOLA JUAN
• JIMENEZ RAMIREZ MARLON
DOCENTE
ING. JENNIFER SULLON CHINGA
CURSO
PROGRAMACION NET
TEMA
PRACTICA – VISUAL BASIC
CICLO
V
PIURA – PERÚ
2019
EJERCICIO_01
1. Desarrollar el siguiente ejercicio que permita registrar alumnos hasta la vacante
indicada (VB.Net=15; C#= 20; SQL Server 2000= 12), caso contrario mostrar un
mensaje de vacantes completas.
Public Class Form1
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles
btnSalir.Click
Dim x As Integer
x = MessageBox.Show("Desea Salir", "Salir", MessageBoxButtons.YesNo,
MessageBoxIcon.Question)
If x = 6 Then
End
End If
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles
btnMatricula.Click
Me.lstNombresYApellidos.Items.Add(Me.txtNombres.Text)
Me.lstNombresYApellidos.Items.Add(Me.txtApellidos.Text)
Me.lstCurso.Items.Add(Me.cbCurso.Text)
Me.lstMatricula.Items.Add(Me.lstMatricula.Text)
Dim contar As Integer
contar = Me.lstCurso.Items.Count
Me.txtVb.Text = conta
End Sub
Private Sub btnNuevaMatr_Click(sender As Object, e As EventArgs) Handles
btnNuevaMatr.Click
Me.txtNombres.Text = ""
Me.txtApellidos.Text = ""
Me.txtDireccion.Text = ""
Me.txtVacantes.Text = ""
Me.cbCurso.Text = ""
Me.lstNombresYApellidos.Text = ""
Me.lstCurso.Text = ""
Me.lstMatricula.Text = ""
End Sub
Private Sub btnNuevo_Click(sender As Object, e As EventArgs) Handles
btnNuevo.Click
Me.txtNombres.Text = ""
Me.txtApellidos.Text = ""
Me.txtDireccion.Text = ""
Me.txtVacantes.Text = ""
Me.cbCurso.Text = ""
Me.lstNombresYApellidos.Items.Clear()
Me.lstCurso.Items.Clear()
Me.lstMatricula.Items.Clear()
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
End Class
EJERCICIO_02
Desarrollar e implementar un formulario que permita trabajar con arreglos,
además debe de calcular el total a pagar y además debe de disminuir el importe de
los productos eliminados
Public Class Form1
Dim descripcion As String() = {"Asus xt 360", "Cocina Faeda 4 Ornillas", "Parlantes
Genius"}
Dim precio As Integer() = {10, 20, 30}
Private Sub limpiar()
txtCantidad.Text = ""
txtSubTotal.Text = ""
txtDescripcion.Text = ""
cboProducto.SelectedIndex = -1
End Sub
Private Sub btnAgregar_Click(sender As Object, e As EventArgs) Handles
btnAgregar.Click
Dim s As Double
Me.lstProducto.Items.Add(Me.cboProducto.Text)
Me.lstPrecio.Items.Add(Me.txtPrecio.Text)
Me.lstCantidad.Items.Add(Me.txtCantidad.Text)
Me.lstSubtotal.Items.Add(Me.txtSubTotal.Text)
limpiar()
For Each x In lstSubtotal.Items
s=s+x
Next
txtTotal.Text = s.ToString
End Sub
Private Sub cboProducto_SelectedIndexChanged(sender As Object, e As EventArgs)
Handles cboProducto.SelectedIndexChanged
Dim pos As Integer
pos = Me.cboProducto.SelectedIndex
Select Case pos
Case -1
txtDescripcion.Text = ""
txtPrecio.Text = ""
Case 0
txtDescripcion.Text = descripcion(0)
txtPrecio.Text = precio(0)
Case 1
txtDescripcion.Text = descripcion(1)
txtPrecio.Text = precio(1)
Case 2
txtDescripcion.Text = descripcion(2)
txtPrecio.Text = precio(2)
Case Else
MsgBox("SELECIONE UN CODIGO")
End Select
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles
btnCalcular.Click
Dim pre, can, subtd As Integer
can = txtCantidad.Text
pre = txtPrecio.Text
subtd = pre * can
txtSubTotal.Text = subtd
End Sub
Private Sub btnEliminar_Click(sender As Object, e As EventArgs) Handles
btnEliminar.Click
Dim pos As Integer
Dim s As Double
pos = Me.lstProducto.SelectedIndex
If pos >= 0 Then
Me.lstProducto.Items.RemoveAt(pos)
Me.lstPrecio.Items.RemoveAt(pos)
Me.lstCantidad.Items.RemoveAt(pos)
Me.lstSubtotal.Items.RemoveAt(pos)
Else
MessageBox.Show("SELECCIONAR UN PRODUCTO ", "ELIMINAR",
MessageBoxButtons.OK, MessageBoxIcon.Hand)
End If
For Each x In lstSubtotal.Items
s=s+x
Next
txtTotal.Text = s.ToString
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles
Button1.Click
txtCantidad.Text = ""
txtSubTotal.Text = ""
txtDescripcion.Text = ""
cboProducto.SelectedIndex = -1
lstProducto.Items.Clear()
lstCantidad.Items.Clear()
lstPrecio.Items.Clear()
lstSubtotal.Items.Clear()
txtTotal.Clear()
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
End Class
EJERCICIO_03
EJERCICIO_04
Diseñar Formulario Ventas
• Nuevo: Limpia los Cuadros Textos del Formulario
• Calcular: Calcula el Subtotal en Dólares y Soles (Precio, Cantidad, Tipo
Cambio)
• Agregar: Agrega los Elementos a las listas y va acumulando el Monto Bruto de
Sub total
• Eliminar: Elimina El elemento seleccionado de la lista además disminuye el
Monto bruto
• Pagar: Depende de la forma de pago su incremento es de 0% y crédito su
incremento es de 10% del Monto bruto
Public Class Form1
Dim incre As Double
Private Sub cboProducto_SelectedIndexChanged(sender As Object, e As EventArgs)
Handles cboProducto.SelectedIndexChanged
Dim pos As Integer
pos = Me.cboProducto.SelectedIndex
Select Case pos
Case 0
txtPrecio.Text = 1000
Case 1
txtPrecio.Text = 200
Case 2
txtPrecio.Text = 100
Case 3
txtPrecio.Text = 50
Case 4
txtPrecio.Text = 120
Case 5
txtPrecio.Text = 30
Case 6
txtPrecio.Text = 80
Case 7
txtPrecio.Text = 70
Case 8
txtPrecio.Text = 250
Case 9
txtPrecio.Text = 600
Case Else
MsgBox("SELECIONE UN PRODUCTO")
End Select
End Sub
Private Sub btnCalcular_Click(sender As Object, e As EventArgs) Handles
btnCalcular.Click
Dim pre, can, subtd As Integer
Dim tc, subts As Double
can = txtCantidad.Text
pre = txtPrecio.Text
tc = txtTipoCam.Text
subtd = pre * can
subts = subtd * tc
txtSubtSole.Text = subtd
txtSubTotDol.Text = subts
End Sub
Private Sub btnNuevo_Click(sender As Object, e As EventArgs) Handles
btnNuevo.Click
txtCantidad.Clear()
txtPrecio.Clear()
txtSubTotDol.Clear()
txtTipoCam.Clear()
cboProducto.Text = ""
txtSubtSole.Clear()
End Sub
Private Sub btnAgregar_Click(sender As Object, e As EventArgs) Handles
btnAgregar.Click
Dim s As Double
Me.lstProducto.Items.Add(Me.cboProducto.Text)
Me.lstPrecio.Items.Add(Me.txtPrecio.Text)
Me.lstCantidad.Items.Add(Me.txtCantidad.Text)
Me.lstSubtoDo.Items.Add(Me.txtSubTotDol.Text)
Me.lstSubtoSol.Items.Add(Me.txtSubtSole.Text)
For Each x In lstSubtoSol.Items
s=s+x
Next
txtMontoBruto.Text = s.ToString
End Sub
Private Sub btnEliminar_Click(sender As Object, e As EventArgs) Handles
btnEliminar.Click
Dim pos As Integer
pos = Me.lstProducto.SelectedIndex
If pos >= 0 Then
Me.lstProducto.Items.RemoveAt(pos)
Me.lstPrecio.Items.RemoveAt(pos)
Me.lstCantidad.Items.RemoveAt(pos)
Me.lstSubtoSol.Items.RemoveAt(pos)
Me.lstSubtoDo.Items.RemoveAt(pos)
Else
MessageBox.Show("SELECCIONAR UN ELEMENTO ", "ELIMINAR",
MessageBoxButtons.OK, MessageBoxIcon.Hand)
End If
Dim s As Double
For Each x In lstSubtoSol.Items
s=s+x
Next
txtMontoBruto.Text = s.ToString
End Sub
Private Sub btnPagar_Click(sender As Object, e As EventArgs) Handles
btnPagar.Click
Dim mb, tp, i As Double
mb = txtMontoBruto.Text
i = mb * incre
tp = mb + i
txtTotalPagar.Text = tp
End Sub
Private Sub rbContado_CheckedChanged(sender As Object, e As EventArgs)
Handles rbContado.CheckedChanged
incre = 0.0
End Sub
Private Sub rbCredito_CheckedChanged(sender As Object, e As EventArgs) Handles
rbCredito.CheckedChanged
incre = 0.1
End Sub
End Class
