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

261 - Método veloz para ordenar un vector de números

Ejemplo que llena un vector con valores numéricos aleatorios, y luego los ordena visualizandolos en un ListBox con el método QuickSort

Este método, por las pruebas que he hecho comparándolo con el método burbuja (bubble sort ) y otros, para ordenar un vector o array que contiene los datos desordenados, es el mas rápido.

El ejemplo tiene una función llamada Ordenar_Matriz con los siguientes parámetros:

Sub Ordenar_Matriz(El_Vector() As Variant, _
                   Limite_Inferior As Long, _
                   Limite_Superior As Long)

El primer parámetro de la rutina se debe enviar el vector a ordenar.

El segundo es el límite inferior: Lbound(El_Vector)

El tercero es el límite Superior: Ubound(El_Vector)

Colocar dos Commandbutton. El Command1 crea valores aleatorios y los carga en el array y en un Listbox.

El Command2 ordena la matriz y luego carga los datos ordenados en el control.

vista del formulario de ejemplo para ordenar números

Nota: el vector está declarado como Variant para que se pueda enviar cualquier dato numérico. Por eso para utilizarlo con algún dato especifico y optimizar, por ejemplo datos de tipo Long, single etc.., declararlo como " tal " en el argumento de la función.

Código fuente en el formulario:

Option Explicit 'Vector que se va a desordenar y ordenar Dim Vector() As Variant Sub Ordenar_Matriz(El_Vector() As Variant, _ Limite_Inferior As Long, _ Limite_Superior As Long) Dim i As Long, j As Long, x As Variant, y As Variant i = Limite_Inferior j = Limite_Superior x = El_Vector((Limite_Inferior + Limite_Superior) / 2) While i <= j While (El_Vector(i) < x) And (i < Limite_Superior) i = i + 1 Wend While (x < El_Vector(j)) And (j > Limite_Inferior) j = j - 1 Wend If i <= j Then y = El_Vector(i) El_Vector(i) = El_Vector(j) El_Vector(j) = y i = i + 1 j = j - 1 End If Wend If Limite_Inferior < j Then Ordenar_Matriz El_Vector(), Limite_Inferior, j If i < Limite_Superior Then Ordenar_Matriz El_Vector(), i, Limite_Superior End Sub 'carga valores aleatorios en el vector Private Sub Command1_Click() Dim i As Integer Randomize List1.Clear ReDim Vector(100) For i = 0 To 100 List1.AddItem Round(Rnd * 5000) ' Llena el array con los números Vector(i) = Round(Rnd * 5000) Next Command1.Enabled = False Command2.Enabled = True End Sub 'Ordena la matriz y luego de ordenada los carga en el ListBox Private Sub Command2_Click() Dim i As Integer List1.Clear 'Pasar el vector, y los límites inferior y superior del mismo Call Ordenar_Matriz(Vector, LBound(Vector), UBound(Vector)) 'Agrega el vector ordenado al ListBox For i = LBound(Vector) To UBound(Vector) List1.AddItem Vector(i) Next Command1.Enabled = True Command2.Enabled = False End Sub Private Sub Form_Load() Command1.Caption = " Cargar Listbox con aleatorios " Command2.Caption = " Ordenar Vector y cargarlo en ListBox " Command2.Enabled = False End Sub

Recursos vb 6.0 - Enlaces relacionados

Otros ejemplos para ordenar datos

Recursos vb.Net - enlaces relacionados

Ejemplos de vector , array y colecciones en visual basic.Net

Buscar en Recursos vb