Algoritma Bubble Sort.

Bubble sort merupakan algoritma untuk mengurutkan data tertentu secara ascending atau descending. Metode ini sangat sederhana dan sering juga dipakai dalam pemrograman tool versi lama. Disini akan saya contohkan metode Bubble sort ascending, ini merupakan pengurutan data dari yang paling kecil sampai yang paling besar, caranya dimana dalam kumpulan data tersebut dibandingkan data yang satu dengan data urutan sebelumnya.
Jika data sebelumnya lebih besar maka data sesudahnya dipindah, dan bila data sebelumnya lebih kecil tidak perlu dipindah. algoritma berjalan begitu seterusnya sampai data benar-benar berurut dari kecil sampai yang paling besar.

Sebagai contoh saya mempunyai kumpulan data seperti ini : 4, 5, 2, 8, 1, 3, 4
nah urutkan data tersebut dengan menggunakan metode bubble sort ascending.

begini nih contoh code nya dalam Visual Basic.Net

1. Buka project baru dalam vb.net
2. Tambahkan 1 buah label (Untuk tampilan awal data).
3. Tambahkan 1 buah listbox (Untuk menampilkan hasil akhir).
4. Tambahkan 1 buah Button untuk mengeksekusi.
5. Kemudian ketik code seperti ini :

Public Class Form1
    Dim dataku() As Integer = {4, 5, 2, 8, 1, 3, 4}
    Dim arr() As Integer
    Dim adaPertukaran, calo As Integer

    Private Sub TUKARDATA()
        For i As Integer = 0 To 6 - 1
            If dataku(i + 1) < dataku(i) Then
                calo = dataku(i)
                dataku(i) = dataku(i + 1)
                dataku(i + 1) = calo
                adaPertukaran = 1
            End If
        Next
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ListBox1.Items.Clear()
MULAI:
        For C As Integer = 0 To 6 - 1
            If dataku(C + 1) < dataku(C) Then
                TUKARDATA()
                Exit For
            Else
                If C = 5 Then
                    GoTo LANJUT
                End If
            End If
        Next
        GoTo MULAI
LANJUT:
        For a As Integer = 0 To 6
            ListBox1.Items.Add(dataku(a))
        Next

    End Sub
 

 

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        ListBox1.Items.Clear()
        Array.Sort(dataku)
        For a As Integer = 0 To 6
            ListBox1.Items.Add(dataku(a))
        Next
    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        For a As Integer = 0 To 6
            Label1.Text = Label1.Text & dataku(a)
        Next
    End Sub
End Class