• Categories
• Herramientas de programación informática
• Software de aplicaciones
• Software
• Programación orientada a objetos
• Microsoft Visual Studio

Citation preview

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