Ayuda ordenar un list de manera ascendente o descendente

[themindmaster]

hola a todos, necesito una manito con este programa XD este es el diseño:



mi codigo hasta ahora es este :

Código (vb) [Seleccionar] Expandir

Private Sub cmdañadir_Click()
lstnumero.AddItem (txtnumero)

End Sub

Private Sub cmdordenar_Click()
If optascendente Then


End If

End Sub


la función que quiero que haga este programa es que cuando le des click al botom añadir, añada el numero que pongas en el primer text y cuando le des a ascendente o descendente los ordene de forma ascendente o descendente XD espero me entiende y gracias de antemano.

saludos cordiales!

[Danyfirex]

Ya te ideaste un algoritmo?

[themindmaster]

no T-T

[Danyfirex]

ahí tienes.


http://es.wikipedia.org/wiki/Ordenamiento_de_burbuja


saludos

[themindmaster]

esta un poco largo pero lo vere XD gracias

[Danyfirex]

la documentación es larga pero el algoritmo te quedara en menos de 15 lineas.

culaquier duda pregunta.

saludos

[Mad Antrax]

Es más sencillo si aplicas el ordenamiento por Inserción

http://es.wikipedia.org/wiki/Ordenamiento_por_inserci%C3%B3n

Código (vb) [Seleccionar] Expandir

Private Sub insertionSort(ByVal numbers() As Integer) ' Es una función,
'debemos pasarle el array de números desde el Sub Main()

       Dim i, j, index As Integer
       i = 1

       Do
           index = numbers(i)
           j = i - 1

           While ((j >= 0) And (numbers(j) > index))
               numbers(j + 1) = numbers(j)
               j = j - 1
           End While
           numbers(j + 1) = index
           i = i + 1
       Loop Until i > (UBound(v))
   End Sub


Tambien tienes el ordenamiento por Selección

Código (vb) [Seleccionar] Expandir

For i = 1 To n - 1
   minimo = i
   For j = i + 1 To n
      If x(minimo) > x(j) Then
         minimo = j
      End If
   Next j
   temp = x(i)
   x(i) = x(minimo)
   x(minimo) = temp
Next i

[themindmaster]

Que se supone que es numbers si se podria saber?

[themindmaster]

No me funciona

[Danyfirex]

Que no te funciona?