Sección de códigos , trucos y ejemplos para visual basic

120 - Ordenar un vector usando el método Burbuja ( Bubble Sort )

Contenido

Ejemplo 1
Ejemplo 2
Enlaces Relacionados

Ejemplo 1

Este ejemplo ordena un array o vector usando el método de ordenación llamado Burbuja o Bubble Sort.

Nota importante. Este algotítmo no es el mas indicado para realizar ordenación de datos, ya que en comparación a otros métodos es lento. Lo que si es un método fácil de entender. ( Al final de la página hay enlaces para utilizar otros métodos). También puedes mirar esta página donde hay una tabla que demuestra algunos conceptos a la hora de poder elegir entre los métodos de ordenación mas convenientes según la tarea que debamos realizar: Ver página web

En el código, se utiliza un control Listbox para cargar algunos valores no numéricos y a la vez se asignan estos a un vector. Luego al llamar a la rutina Ordenar, se ordenará en forma alfabética y ascendente. Por último se cargan los datos ordenados en un List2.

Ejemplo

Colocar un List1
Un List2
Dos botones (Command1 y Command2 )

Código en un Fom

Option Explicit ' -- Vector para los datos Dim Vector() As Variant ' -------------------------------------------------------------------------------- ' \\ -- Inicio ' -------------------------------------------------------------------------------- Private Sub Form_Load() Command1.Caption = " Ordenar Vector " Command2.Caption = " Cargar Vector " Command1.Enabled = False End Sub ' -------------------------------------------------------------------------------- ' \\ -- Botón para Ordenar el array y cargar los valores en el List2 ' -------------------------------------------------------------------------------- Private Sub Command1_Click() Dim i As Integer Call Ordenar List2.Clear For i = 0 To UBound(Vector) List2.AddItem Vector(i) Next i Command1.Enabled = False End Sub ' -------------------------------------------------------------------------------- ' \\ -- Cargar valores en el List1 ' -------------------------------------------------------------------------------- Private Sub Command2_Click() Command2.Enabled = False Command1.Enabled = True Call Cargar_Array End Sub ' -------------------------------------------------------------------------------- ' \\ -- BubbleSort - Sub para ordenar el vector ' -------------------------------------------------------------------------------- Private Sub Ordenar() Dim iMin As Long Dim iMax As Long Dim Vectemp As String ' -- variable temporal Dim Pos As Long Dim i As Long iMin = LBound(Vector) iMax = UBound(Vector) While iMax > iMin Pos = iMin For i = iMin To iMax - 1 If Vector(i) > Vector(i + 1) Then Vectemp = Vector(i + 1) Vector(i + 1) = Vector(i) Vector(i) = Vectemp Pos = i End If Next i iMax = Pos Wend End Sub ' --------------------------------------------------------------------------------- ' \\ -- Sub cargar valores de ejemplo en el array y en el control de lista ' --------------------------------------------------------------------------------- Private Sub Cargar_Array() Dim i As Integer ' -- Listbox With List1 .AddItem "A" .AddItem "H" .AddItem "B" .AddItem "G" .AddItem "C" .AddItem "F" .AddItem "D" End With ' -- Array ReDim Vector(List1.ListCount - 1) For i = 0 To List1.ListCount - 1 Vector(i) = List1.List(i) Next i End Sub

Ejemplo 2

Proyecto enviado por Juan Paz, similar al visto anteriormente, donde primeramente se cargan en forma aleatoria unos números en un array y al mismo tiempo en un listbox ( el de la izquierda ).

Luego para ordenar se llama a la rutina Bubble sort , enviando como argumento el vector anterior para ordenarlo.

Descargar proyecto vb

vista previa del formulario con el ejemplo en vb para usar el metodo de bubble sort

Recursos vb6 - Enlaces relacionados

Recursos vb.net - Relacionados

Como ordenar un array unidimensional

Buscar en Recursos vb