FACULTAD DE INGENIERÍA
ESCUELA PROFESIONAL DE INGENIERÍA DE SISTEMAS
INTEGRANTES
CARMEN ATOCHE ARNOL
CARMEN HERRERA TANYA
CHUMACERO ORDINOLA JUAN
JIMENEZ RAMIREZ MARLON
DOCENTE
ING. JENNIFER SULLON CHINGA
ASIGNATURA
PROGRAMACIÓN NET
CICLO
V
TEMA
CASOS PRACTICOS
PIURA-PERÚ
2019
EJERCICIO 1
Public Class Form1
Public dt As New DataTable Public
cbCodigo(4) As Double Public
listNombre(4) As String
Public listEditorial(4) As String
Public cbDni(4) As Double
Public listNombre1(4) As String Public
listApellidos(4) As String
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles
[Link]
Dim x As Integer
x = [Link]("Desea Salir", "Salir", [Link],
[Link])
If x = 6 Then
End
End If
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles
[Link]
[Link]()
[Link] = ""
[Link] = ""
[Link]()
[Link] = ""
[Link] = ""
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles
[Link]
Dim pos As Integer
pos = BindingContext([Link]).Position
[Link](pos)
Dim contar As Integer contar
= [Link]
[Link] = contar
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles
[Link]
[Link]([Link], [Link], [Link])
Dim contar As Integer
contar = [Link] [Link] = contar End
Sub
Private Sub frmdatatable_Load(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
[Link]("Código", GetType(String))
[Link]("Nombre", GetType(String))
[Link]("Editorial", GetType(String))
[Link] = dt
End Sub
End Class
EJERCICIO 2
Public Class Form1
Public pos, nomb As Integer
Public boxCodigo(4) As Double
Public listNombreL(4) As String
Public listEdit(4) As String
Public listPrecioL(4) As Double
Public Monto, ST As Double
Private Sub ComboBox1_SelectedIndexChanged(sender As
Object, e As EventArgs)
Handles [Link]
[Link] = listNombreL([Link])
[Link] = listEdit([Link])
[Link] = listPrecioL([Link])
[Link]()
End Sub
Private Sub Form1_Load(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
boxCodigo(0) = 12345
boxCodigo(1) = 23456
boxCodigo(2) = 34567
boxCodigo(3) = 45678
listNombreL(0) = "Saga Harry Potter"
listNombreL(1) = "Saga Crepúsculo"
listNombreL(2) = "Saga 50 Sombras de Grey"
listNombreL(3) = "Saga The Maze Runner"
listEdit(0) = "Bloomsbury Publishing"
listEdit(1) = "Little, Brown And Company"
listEdit(2) = "Vintage Books "
listEdit(3) = "Dell Publishing"
listPrecioL(0) = 150
listPrecioL(1) = 120
listPrecioL(2) = 320
listPrecioL(3) = 100
Monto = 0
End Sub
Private Sub btnEliminar_Click(sender As Object, e As EventArgs)
Handles [Link]
pos = [Link]
If pos >= 0 Then
[Link](pos)
[Link](pos)
[Link](pos)
[Link](pos)
Else
[Link]("Seleccionar elemento a eliminar",
"Eliminar",
[Link], [Link])
End If
End Sub
Private Sub btnCancelar_Click(sender As Object, e As EventArgs)
Handles [Link]
[Link] = ""
[Link] = ""
[Link] = ""
[Link]()
[Link]()
[Link]()
[Link]()
Dim x As Integer
x = [Link]("Desea Salir", "Salir",
[Link], [Link])
If x = 6 Then
End
End If
End Sub
Private Sub btnProcesar_Click(sender As Object, e As EventArgs)
Handles [Link]
Dim Procesar As Integer
Procesar = [Link]("¿Desea Pocesar la Venta?",
"Procesar",[Link], [Link])
If Procesar = 6 Then
[Link]("El monto total a pagar es: " + [Link],
"Salir", [Link], [Link])
End If
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link](pos)
[Link](pos)
[Link](pos)
[Link](pos)
End Sub
Private Sub btnAgregar_Click(sender As Object, e As EventArgs)
Handles [Link]
Dim can, pre, ST As Double
can = [Link]
pre = [Link]
ST = can * pre
[Link] = ST
Monto = Monto + ST
Do While nomb < 1
[Link]([Link])
nomb = nomb + 1
Exit Sub
Loop
[Link]("Solo se puede comprar un libro por codigo!",
"Atención", [Link], [Link])
[Link] = Monto
[Link]([Link])
[Link]([Link])
[Link]([Link])
End Sub
End Clas