Metodo Burbuja en Visual Basic.
Primero crearemos un formulario como este en Visual Studio usando como lenguaje de programación visual basic .net
Cabe mencionar que adelante de las palabras Arreglo, Burbuja y Not Burbuja hay labels pero no están visibles, ahí aparecerán los resultados de los arreglos. Y se llaman lbl_arr, lbl_bur y lbl_not.
lbl_arr esta frente a Arreglo.
lbl_bur esta frente a Burbuja.
lbl_not esta frente a Not Burbuja.
Coloca esta variable fuera de los botones y seguido de la clase.
Dim aux As Integer = 0
Dentro del boton Calcular colocaremos el siguiente código.
Dim xnum As Integer = InputBox("Ingresa tamaño
del arreglo")
Dim a(xnum) As Integer
For i As Integer = 1 To xnum
a(i) = InputBox("Ingresa valor
"
& i)
Next
For i As Integer = 1 To xnum
lbl_arr.Text &= " [ " & a(i) & " ] "
Next
For i As Integer = 1 To xnum - 1
For j As Integer = 1 To xnum - 1
If (a(j) < a(j + 1)) Then
aux = a(j)
a(j) = a(j + 1)
a(j + 1) = aux
End If
Next
Next
For i As Integer = 1 To xnum
lbl_bur.Text &= " [ " & a(i) & " ] "
Next
For i As Integer = 1 To xnum - 1
For j As Integer = 1 To xnum - 1
If (a(j) > a(j + 1)) Then
aux = a(j)
a(j) = a(j + 1)
a(j + 1) = aux
End If
Next
Next
For i As Integer = 1 To xnum
lbl_not.Text &= " [ " & a(i) & " ] "
Next
lbl_exi.Text = "EXITOSO :)"
Dentro del boton Clean colocamos el siguiente código. para poder realizar posteriormente otro calculo.
lbl_arr.Text = ""
lbl_bur.Text = ""
lbl_exi.Text = ""
lbl_not.Text = ""
Te mostrare como fusiona el programa después de realizar los pasos anteriores.
Al dar clic en el botón calcular nos pedirá tamaño del arreglo. se lo escribimos y damos clic en aceptar, en la imagen se le coloco 5 como ejemplo.
después nos pedirá cada uno de los valores que tendrá el arreglo.
Cuando terminemos de insertar nuestros valores en los arreglos nos mostrara automáticamente los resultados.
Esto seria todo para un método de burbuja en visual basic.
DESCARGA EL CODIGO : AQUI
0 comentarios: