Portafolio programacion PDF

Preview

Summary

Download Portafolio programacion PDF

Description

UNIVERSID UNIVERSIDAD AD TECNOLÓGICA DE P PANAM ANAM ANAMÁ Á FACULTAD DE INGENIERÍA INDUSTRIAL

ASIGNATURA: PROGRAMACIÓN PORTAFOLIO I/SEME/19 PROFESOR: BIEL BERNAL ESTUDIANTE: JUAN NIETO 8-963-893 GRUPO 702 FECHA 19/07/19

Índice Parciales………………………………………………………………….…………………………………… 3 Proyectos…………………………………………………………………………………….………………. 7 Investigación…………………..……………………………………………….……………………………. 11 Prácticas…………………………………………….…………………….………………………………… 12

Parciales Parcial N°1

Parcial N°2

La nota del parcial 3 se usa también como nota en el parcial 2.

Parcial N°3

Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click End End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim n, f, c, mat(20, 20), r, x, s, sf As Integer Dim print, printr, res As String n = InputBox("inserte la dimension de la matriz") For f = 0 To n - 1 For c = 0 To n - 1 mat(f, c) = InputBox("Ingrese los elementos") print &= " " & mat(f, c) & " " s += mat(f, c) Next print &= vbNewLine Next r = InputBox("Ingrese el elemento que desea reemplazar") For f = 0 To n - 1 For c = 0 To n - 1 If mat(f, c) = r Then printr &= " " & "*" & " " x += 1 Else

printr &= " " & " End If

" & " "

Next printr &= vbNewLine Next If x 0 Then res = "Matriz resultante " & vbNewLine & printr Else res = "No hay elementos a reemplazar" & vbNewLine End If sf = s - (x * r) MsgBox("Dimension de la matriz (" & n & " * " & n & ")" & vbNewLine & "Elementos de la matriz" & vbNewLine & print & "Elemento a reemplazar: " & r & vbNewLine & res & "Suma de elementos restantes: " & sf) End Sub End Class

Proyectos Proyecto N°1 Modelo F

Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim cuadricula(50, 50) As Integer Dim f, c, n, v As Integer Dim print As String n = InputBox("inserte numero") v = n - 1 For f = 0 To n - 1 For c = 0 To n - 1 cuadricula(f, c) = c + 1 Next Next For f = 0 To n - 1 For c = 0 To v cuadricula(f, c) = v + 1 Next v = v - 1 Next For f = 0 To n - 1 For c = 0 To n - 1 print = print & " " & cuadricula(f, c).ToString("00") Next print = print & vbNewLine Next MsgBox(print) End Sub End Class

Proyecto N°2 Modelo F Public Class Form1 Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click End End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim mat(6, 6) As Integer Dim f, c, n1, n2, dif As Integer Dim print As String n1 = InputBox("Inserte el valor inicial") n2 = InputBox("Inserte el valor final") dif = n2 - n1 Select Case dif Case 1 To 8 'matriz 3x3 mat(0, mat(0, mat(0, mat(1, mat(1, mat(1, mat(2, mat(2, mat(2,

0) 1) 2) 0) 1) 2) 0) 1) 2)

= = = = = = = = =

n1 n1 n1 n1 n1 n1 n1 n1 n1

+ + + +

4 5 6 3

+ + + +

7 2 1 8

For f = 0 To 2 For c = 0 To 2 If mat(f, c) < n2 + 1 Then print &= " " & mat(f, c).ToString("00") & " " Else print &= " " & " " & " " End If Next print &= vbNewLine Next Case 9 To 15 'matriz 4x4 mat(0, mat(0, mat(0, mat(0, mat(1, mat(1, mat(1, mat(1, mat(2, mat(2, mat(2, mat(2, mat(3, mat(3,

0) 1) 2) 3) 0) 1) 2) 3) 0) 1) 2) 3) 0) 1)

= = = = = = = = = = = = = =

n1 n1 n1 n1 n1 n1 n1 n1 n1 n1 n1 n1 n1 n1

+ + + + + + + + + + + + + +

15 4 5 6 14 3 0 7 13 2 1 8 12 11

mat(3, 2) = n1 + 10 mat(3, 3) = n1 + 9 For f = 0 To 3 For c = 0 To 3 If mat(f, c) < n2 + 1 Then print &= " " & mat(f, c).ToString("00") & " " Else print &= " " & " " & " " End If Next print &= vbNewLine Next Case 16 To 24 'matriz 5x5 mat(0, mat(0, mat(0, mat(0, mat(0, mat(1, mat(1, mat(1, mat(1, mat(1, mat(2, mat(2, mat(2, mat(2, mat(2, mat(3, mat(3, mat(3, mat(3, mat(3, mat(4, mat(4, mat(4, mat(4, mat(4,

0) 1) 2) 3) 4) 0) 1) 2) 3) 4) 0) 1) 2) 3) 4) 0) 1) 2) 3) 4) 0) 1) 2) 3) 4)

= = = = = = = = = = = = = = = = = = = = = = = = =

n1 n1 n1 n1 n1 n1 n1 n1 n1 n1 n1 n1 n1 n1 n1 n1 n1 n1 n1 n1 n1 n1 n1 n1 n1

+ + + + + + + + + + + + + + + + + + + + + + + + +

16 17 18 19 20 15 4 5 6 21 14 3 0 7 22 13 2 1 8 23 12 11 10 9 24

For f = 0 To 4 For c = 0 To 4 If mat(f, c) < n2 + 1 Then print &= " " & mat(f, c).ToString("00") & " " Else print &= " " & " " & " " End If Next print &= vbNewLine Next Case 24 To 35 'matriz 6x6 mat(0, 0) = n1 + 35 mat(0, 1) = n1 + 16 mat(0, 2) = n1 + 17

mat(0, mat(0, mat(0, mat(1, mat(1, mat(1, mat(1, mat(1, mat(1, mat(2, mat(2, mat(2, mat(2, mat(2, mat(2, mat(3, mat(3, mat(3, mat(3, mat(3, mat(3, mat(4, mat(4, mat(4, mat(4, mat(4, mat(4, mat(5, mat(5, mat(5, mat(5, mat(5, mat(5,

3) 4) 5) 0) 1) 2) 3) 4) 5) 0) 1) 2) 3) 4) 5) 0) 1) 2) 3) 4) 5) 0) 1) 2) 3) 4) 5) 0) 1) 2) 3) 4) 5)

= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =

n1 n1 n1 n1 n1 n1 n1 n1 n1 n1 n1 n1 n1 n1 n1 n1 n1 n1 n1 n1 n1 n1 n1 n1 n1 n1 n1 n1 n1 n1 n1 n1 n1

+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +

18 19 20 34 15 4 5 6 21 33 14 3 0 7 22 32 13 2 1 8 23 31 12 11 10 9 24 30 29 28 27 26 25

For f = 0 To 5 For c = 0 To 5 If mat(f, c) < n2 + 1 Then print &= " " & mat(f, c).ToString("00") & " " Else print &= " " & " " & " " End If Next print &= vbNewLine Next End Select MsgBox(print) End Sub End Class

Investigación Imports System.Drawing.Drawing2D Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click paintmylabel1() Timer1.Enabled = True End Sub Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick Static c As Integer c = c + 1 If c = 1 Then paintmylabel() ElseIf c = 2 Then paintmylabel2() ElseIf c = 3 Then paintmylabel3() ElseIf c = 4 Then c = 0 End If End Sub Private Sub paintmylabel() Dim col As New HatchBrush(HatchStyle.DarkUpwardDiagonal, Color.DarkRed) Dim g As Graphics = Label1.CreateGraphics Dim font As New Font("Consolas", 44, FontStyle.Italic) g.DrawString("Juan David Nieto", font, col, 20, 10) End Sub Private Sub paintmylabel1() Dim col As New HatchBrush(HatchStyle.DarkVertical, Color.Cyan) Dim g As Graphics = Label1.CreateGraphics Dim font As New Font("Consolas", 44, FontStyle.Italic) g.DrawString("Juan David Nieto", font, col, 20, 10) End Sub Private Sub paintmylabel2() Dim col As New HatchBrush(HatchStyle.DashedVertical, Color.Yellow) Dim g As Graphics = Label1.CreateGraphics Dim font As New Font("Consolas", 44, FontStyle.Italic) g.DrawString("Juan David Nieto", font, col, 20, 10) End Sub Private Sub paintmylabel3() Dim col As New HatchBrush(HatchStyle.Divot, Color.PaleGreen) Dim g As Graphics = Label1.CreateGraphics Dim font As New Font("Consolas", 44, FontStyle.Italic) g.DrawString("Juan David Nieto", font, col, 20, 10) End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click End End Sub End Class

Practicas Practica 1 Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click End End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click respuesta.Text = "" numero.Text = "" End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click Dim n1 As Integer n1 = numero.Text If (n1 Mod 2 = 0) Then respuesta.Text = "El numero " + numero.Text + " es par." Else respuesta.Text = "El numero " + numero.Text + " es impar." End If End Sub Private Sub Label2_Click(sender As Object, e As EventArgs) Handles respuesta.Click End Sub End Class

Practica 2 Public Class Form1 Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click End End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click TextBox1.Text = "" TextBox2.Text = "" Label3.Text = "" End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim n1, n2 As Integer

n1 = TextBox1.Text n2 = TextBox2.Text If (n1 > n2) Then Label3.Text = "El numero " & n1 & " es mayor que " & n2 ElseIf (n1 < n2) Then Label3.Text = "El numero " & n1 & " es menor que " & n2 Else Label3.Text = "El numero " & n1 & " es igual que " & n2 End If End Sub End Class

Practica 3 Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim sexo As String sexo = TextBox1.Text Select Case sexo Case "h", "H" respuesta.Text = "Usted es Hombre" Case "m", "M" respuesta.Text = "Usted es Mujer" Case Else respuesta.Text = "No existe el genero" End Select End Sub Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click TextBox1.Text = "" respuesta.Text = "" End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click End End Sub End Class

Practica 4 Public Class Form1 Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click End End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click TextBox1.Text = ""

Label2.Text = "" End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim c1 As String c1 = TextBox1.Text Select Case c1 Case "a", "e", "i", "o", "u", "A", "E", "I", "O", "U" Label2.Text = "Es una vocal" Case Else Label2.Text = "Es una Consonante" End Select End Sub End Class

Practica 5 Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim cn, datos As Integer cn = TextBox1.Text Dim i As Integer = 1 While (i mayor Then mayor = vecnum(i) ElseIf vecnum(i) < menor Then menor = vecnum(i) End If Next MsgBox("Dimension del vector" & cn & vbNewLine & "Elemento menor: " & menor & vbNewLine &

"Elemento mayor: " & mayor & vbNewLine) End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click End End Sub End Class

Practica 13 Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim vec(99) As Integer Dim n, sum1, sum2, c As Integer Dim print As String Do n = InputBox("Inserte un valor") If n Mod 2 = 0 Then MsgBox("El numero debe ser impar") End If Loop Until n Mod 2 0 c = n / 2 For i = 0 To n - 1 vec(i) = InputBox("Inserte la posicion [" & i & "]") Next sum1 = vec(0) + vec(n - 1) + vec(c) For i = 0 To n - 1 sum2 += vec(i) Next For i = 0 To n - 1 print = print & vbNewLine & "Posi[" & i & "] = " & vec(i) Next sum2 = sum2 - sum1 MsgBox("Dimension del vector " & n & vbNewLine & "Elementos del Vector " & print & vbNewLine & "Suma del centro, medio y final " & sum1 & vbNewLine & "Suma del resto " & sum2 & vbNewLine&) End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click End End Sub End Class

Practica 14 Public Class Form1 Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click End End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim vec(99) As Integer Dim n, r As Integer Dim print,print2 As String n = InputBox("Inserte la dimension del vector") For i = 0 To n - 1 vec(i) = InputBox("Inserte la posicion [" & i & "]") Next For i = 0 To n - 1 print = print & vbNewLine & "Posi[" & i & "] = " & vec(i) Next Do r = InputBox("Inserte la posicion que desea reemplazar") If r > n - 1 Then MsgBox("ERROR " & vbNewLine & "La posición " & r & " no existe.") End If Loop Until r 0 Then print3 = "Se encontraron " & c & " elementos" ElseIf c = 0 Then print3 = "No se encontraron elementos" End If MsgBox("Dimension del Vector " & n & vbNewLine & "Elementos del Vector " & print & vbNewLine & "Elemento a buscar " & v & vbNewLine & print3 & print2) End Sub End Class

Practica 16 Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim mat(10, 10) As Integer Dim mayor As Integer Dim menor As Integer Dim f, c, num As Integer Dim print As String = Nothing Dim posmay, posmen As String num = InputBox("Ingrese la dimension de la matriz") For f = 0 To num - 1 For c = 0 To num - 1 mat(f, c) = InputBox("Inserte el valor de la posición [" & f & "][" & c & "]") print &= " " & mat(f, c) & " " Next print &= vbNewLine Next mayor = mat(0, 0) menor = mat(0, 0) For f = 0 To num - 1 For c = 0 To num - 1 If mat(f, c) < menor Then menor = mat(f, c) posmen = "pos[" & f & "][" & c & "]: " ElseIf mat(f, c) > mayor Then mayor = mat(f, c) posmay = "pos[" & f & "][" & c & "]: " End If Next Next MsgBox("dimension del vector (" & num & "*" & num & ")" & vbNewLine & "Elementos de la matriz" & vbNewLine & print & vbNewLine & "elemento mayor " & posmay & mayor & vbNewLine & "elemento menor " & posmen & menor) End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click End End Sub End Class

Practica Base de Datos “Clientes” Public Class Form1 Private Sub ClientesBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles ClientesBindingNavigatorSaveItem.Click Me.Validate() Me.ClientesBindingSource.EndEdit() Me.TableAdapterManager.UpdateAll(Me.ClientesDataSet) End Sub Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 'TODO: esta línea de código carga datos en la tabla 'ClientesDataSet.clientes' Puede moverla o quitarla según sea necesario. Me.ClientesTableAdapter.Fill(Me.ClientesDataSet.clientes) End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Me.ClientesTableAdapter.insertar(IdTextBox.Text, NombreTextBox.Text, ApellidoTextBox.Text, TelefonoTextBox.Text, CorreoTextBox.Text) 'insertar pero da problemas Me.ClientesTableAdapter.Fill(Me.ClientesDataSet.clientes) End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Me.ClientesTableAdapter.modificar(NombreTextBox.Text, ApellidoTextBox.Text, TelefonoTextBox.Text, CorreoTextBox.Text, IdTextBox.Text) 'modificar Me.ClientesTableAdapter.Fill(Me.ClientesDataSet.clientes) End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click Me.ClientesTableAdapter.Eliminar(IdTextBox.Text) 'eliminar Me.ClientesTableAdapter.Fill(Me.ClientesDataSet.clientes) End Sub Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click Me.ClientesTableAdapter.FillBy(ClientesDataSet.clientes, IdTextBox.Text) 'ponme solo una cosa en el data grid view End Sub Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click Me.Validate() 'nuevo Me.ClientesBindingSource.AddNew() IdTextBox.Clear() NombreTextBox.Clear()

ApellidoTextBox.Clear() TelefonoTextBox.Clear() CorreoTextBox.Clear() End Sub Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click End 'salir End Sub Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click Me.ClientesTableAdapter.Fill(Me.ClientesDataSet.clientes) 'actualizar End Sub Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click ClientesBindingSource.MoveFirst() 'mover al primer registro End Sub Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click 'de abajo hacia arriba registro por registro ClientesBindingSource.MovePrevious() End Sub Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click 'de arriba a abajo ClientesBindingSource.MoveNext() End Sub Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click 'hacia el final ClientesBindingSource.MoveLast() End Sub Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick Dim CON As Integer CON = ClientesBindingSource.Count Label1.Text = "Hay " & CON & " Clientes" End Sub End Class

Base de Datos “BDEmpleado” Public Class Form1 Private Sub BDEmpleadosBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles BDEmpleadosBindingNavigatorSaveItem.Click Me.Validate() Me.BDEmpleadosBindingSource.EndEdit() Me.TableAdapterManager.UpdateAll(Me.EmpleadoDataSet) End Sub Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

'TODO: esta línea de código carga datos en la tabla 'EmpleadoDataSet.BDEmpleados' Puede moverla o quitarla según sea necesario. Me.BDEmpleadosTableAdapter.Fill(Me.EmpleadoDataSet.BDEmpleados) Button1.Enabled = True Button2.Enabled = False Button3.Enabled = False Button4.Enabled = False Button5.Enabled = False Button6.Enabled = True Button7.Enabled = False Button8.Enabled = False Button8.Enabled = False End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Me.BDEmpleadosTableAdapter.INSERTAR(CodigoTextBox.Text, NombreTextBox.Text, ApellidoTextBox.Text, ProfesionTextBox.Text, DireccionTextBox.Text, SalarioTextBox.Text) Me.BDEmpleadosTableAdapter.Fill(Me.EmpleadoDataSet.BDEmpleados) End Sub End Class

Base de Datos “Alumnos” Public Class Form1 Private Sub DatosBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles DatosBindingNavigatorSaveItem.Click Me.Validate() Me.DatosBindingSource.EndEdit() Me.TableAdapterManager.UpdateAll(Me.AlumnosDataSet) End Sub Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 'TODO: esta línea de código carga datos en la tabla 'AlumnosDataSet.Datos' Puede moverla o quitarla según sea necesario. Me.DatosTableAdapter.Fill(Me.AlumnosDataSet.Datos) End Sub Private Sub BindingNavigatorMoveNextItem_Click(sender As Object, e As EventArgs) Handles BindingNavigatorMoveNextItem.Click End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Me.Validate() Me.DatosBindingSource.AddNew() End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Me.Validate() Me.DatosBindingSource.EndEdit() Me.TableAdapterManager.UpdateAll(Me.AlumnosDataSet)

Me.DatosTableAdapter.Fill(Me.AlumnosDataSet.Datos) End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click Me.DatosTableAdapter.Borrar(NombreTextBox.Text) Me.DatosTableAdapter.Fill(Me.AlumnosDataSet.Datos) End Sub Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click Me.DatosTableAdapter.FillBy(Me.AlumnosDataSet.Datos, NombreTextBox.Text) End Sub Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click Me.DatosTableAdapter.Fill(Me.AlumnosDataSet.Datos) End Sub Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click Try OpenFileDialog1.Title = "abrir imagen" OpenFileDialog1.FileName = "JPG" OpenFileDialog1.Filter = "all files |*.*" OpenFileDialog1.ShowDialog() FotoPictureBox.Image = System.Drawing.Image.FromFile(OpenFileDialog1.FileName) Catch ex As Exception End Try End Sub End Class

Base de Datos “Imagen” Public Class Form1 Private Sub Tabla1BindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles Tabla1BindingNavigatorSaveItem.Click Me.Validate() Me.Tabla1BindingSource.EndEdit() Me.TableAdapterManager.UpdateAll(Me.ImagenDataSet) End Sub Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 'TODO: esta línea de código carga datos en la tabla 'ImagenDataSet.Tabla1' Puede moverla o quitarla según sea necesario. Me.Tabla1TableAdapter.Fill(Me.ImagenDataSet.Tabla1) End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click 'boton nuevo Me.Validate() Me.Tabla1BindingSource.AddNew() End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click 'guardar modificar y buscar Me.Validate() Me.Tabla1BindingSource.EndEdit() 'la envia al data grid view Me.TableAdapterManager.UpdateAll(Me.ImagenDataSet) 'lo manda a la base de datos desde el data grid view Me.Tabla1TableAdapter.Fill(Me.ImagenDataSet.Tabla1) 'actualiza la base de datos End Sub Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click 'borrar ...