sábado, 3 de marzo de 2018

Metodo Burbuja en Visual Basic.

                        Metodo Burbuja en Visual Basic.

¡Hola amigos! en esta ocasión veremos como realizar un arreglo en visual basic  y ordenarlo de mayor a menor, y viceversa.

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 
Previous Post
Next Post

0 comentarios: