Mengurutkan data

Bermain-main array menggunakan bahasa pemrograman visual basic (VB6) khususnya yang diaplikasikan dalam bentuk fungsi atau prosedur sangat menarik. Ni,.. salah satu buktinya, kita buat untuk mengurutkan data dalam bentuk array atau larik satu dimensi. Memang sih sebenarnya terdapat banyak metode atau cara mengurutkan data, disini akan dibuat fungsi untuk pengurutan sederhana (kalau tidak salah biasanya disebut buble sort). Kode fungsinya adalah sebagai berikut:

---------------------------------------------------------------------------------
Function SortAsc(Data())
     Dim Tmp, i, j, N As Integer
     N = UBound(Data)
            For i = 1 To N + 1
                 For j = (i + 1) To N
                        If Data(j) <= Data(i) Then
                             Tmp = Data(i)
                             Data(i) = Data(j)
                             Data(j) = Tmp
                        End If
                Next j
            Next i
End Function
---------------------------------------------------------------------------------
Fungsi tersebut digunakan untuk mengurutkan data dari bilangan terkecil ke yang terbesar
Contoh penggunaaan:

Dim Data()
Data=Array(8,3,5,5,6,7,9,3,8,9)

Call SortAsc(Data)

Hasilnya isi array Data() sudah terurutkan. Cara menampilkan, cukup sederhana, contohnya:

Dim i as Integer
For i=1 to ubound(Data)
           Debug.Print Data(i)
Next i

Bagaimana kalau kita ingin mengurutkan secara Descending (terurut dari nilai yang terbesar)?
Anda bisa merubah nama fungsinya menjadi SortDesc(Data())
Kemudian ubahlah tanda operator "<=" menjadi ">=" hanya itu saja, dan siap dipakai.

Mudahkan,.... Selamat mencoba :)