Mengurutkan Array

Jika Anda memembutuhkan proses untuk mengurutkan variabel array, contoh kode di bawah ini akan membantu.

[ VB 6.0 ]

Dim ar(3) As Integer 'contoh variabel array
ar(0) = 1
ar(1) = 4
ar(2) = 3
ar(3) = 2

'memulai proses pengurutan / sort
Dim m As Boolean, i As Integer, t
Do Until m = True
m = False
For i = 0 To UBound(ar) - 1

If ar(i) > ar(i + 1) Then

m = True
t = ar(i)
ar(i) = ar(i + 1)
ar(i + 1) = t
End If
Next i
Loop
'akhir proses

Kode diatas akan mengurutkan array secara ascending (A-Z), namun jika anda ingin mengrutkan secara descending (Z-A). Gantikan saja operator ">" di baris kode warna merah, dengan operator "<".


[ VB .NET ]
Tinggal tambahkan kode berikut ini untuk proses pengurutan array :

Array.Sort (Nama Variabel Array)

Jika Anda menginginkan pengurutan secara descending, tinggal tambahkan kode berikut setelah kode diatas.

Array.Reverse (Nama Variabel Array)