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

272 - Método " Inserción " para ordenar un vector de números

Ejemplo del algorítmo llamado inserción para ordenar un array de números

Este método ordena el vector desplazando los elementos mayores hacia la parte derecha y los inferiores hacia la izquierda

La sub que ordena el array, se le debe enviar como parámetro la matriz a ordenar y en el segundo parámetro el modo de ordenación , es decir en forma Ascendente o Descendente.

Nota: para optimizar la velocidad de ordenación, sobre todo si son muchos elementos, cambiar la declaración del vector ( que está como Variant ), al tipo de dato a usar. Y también el valor de la variable t as Variant ( El elemento temporal ) que se encuentra dentro del procedimiento de ordenación

Otra cuestión es que este método es mucho mas eficiente cuando el vector ha sido inicializado con los datos ordenados en forma Ascendente, no asi cuando se ha inicializado en forma aleatoria o en forma Descendente.

Colocar:

un control ListBox
y dos CommandButton, el Command1 llena el vector de números aleatorios, el Command2 los ordena

Código fuente en el formulario

Option Explicit Enum E_ORDEN Ascendente = 1 Descendente = 0 End Enum Dim un_Vector(1 To 1000) As Variant Sub Insercion(El_Vector() As Variant, ORDEN As E_ORDEN) Dim i As Long Dim t As Variant Dim Actual As Long Dim Min As Long Dim Max As Long Min = LBound(El_Vector) Max = UBound(El_Vector) Actual = Min + 1 While Actual <= Max i = Actual Do If i > Min Then If ORDEN = Ascendente Then If El_Vector(i) < El_Vector(i - 1) Then t = El_Vector(i) El_Vector(i) = El_Vector(i - 1) El_Vector(i - 1) = t i = i - 1 Else Exit Do End If Else If El_Vector(i) >= El_Vector(i - 1) Then t = El_Vector(i) El_Vector(i) = El_Vector(i - 1) El_Vector(i - 1) = t i = i - 1 Else Exit Do End If End If Else Exit Do End If Loop Actual = Actual + 1 Wend End Sub Private Sub Command1_Click() Dim i As Long Randomize 'Algunos valores aleatorios para el vector For i = LBound(un_Vector) To UBound(un_Vector) un_Vector(i) = Round(Rnd * 10000) Next Call Cargar_ListBox(un_Vector) Command1.Enabled = Not Command1.Enabled Command2.Enabled = Not Command2.Enabled End Sub Private Sub Command2_Click() 'Le pasa el vector para ordenarlo Call Insercion(un_Vector, Ascendente) ' carga los valores ordenados en el listbox Call Cargar_ListBox(un_Vector) Command1.Enabled = Not Command1.Enabled Command2.Enabled = Not Command2.Enabled End Sub Private Sub Cargar_ListBox(un_Vector) Dim i As Long List1.Clear For i = LBound(un_Vector) To UBound(un_Vector) List1.AddItem un_Vector(i) Next End Sub Private Sub Form_Load() Command1.Caption = " Cargar aleatorios " Command2.Caption = " Ordenar vector " Command2.Enabled = False End Sub Private Sub Form_Resize() Command1.Width = 2500 Command2.Width = 2500 List1.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight - Command1.Height Command2.Move Me.ScaleWidth - (Command2.Width + 50), List1.Top + List1.Height + 50 Command1.Move Command2.Left - (Command2.Width + 50), List1.Top + List1.Height + 50 End Sub

Recursos Visual basic 6.0 - Relacionados

Recursos Visual basic.NET - Relacionados

Ordenar vector o matriz con la clase Array de vb.NET

Buscar en Recursos vb