Pengurutan Bubble Sort Menggunakan Visual Basic

Algoritma bubble sort dalam metode pengurutan data secara sederhana bisa diibaratkan seperti halnya gelembung udara (bubble). Algoritma ini akan menggeser  nilai yang terkecil atau terbesar (sesuai dengan jenis pengurutan, ascending atau descending) ke posisi ujung dari daftar. Demikian seterusnya hingga semua daftar dalam keadaan terurut.

Berikut saya memberikan contoh program dengan menggunakan Visual Basic untukprogram penggurutan Bubble Sort ini, yaitu :

Komponen :

Textbox1 --> bil
Textbox2 --> n
Textbox3 --> hasil
Command1 --> nama nya tetap Command1


Private Sub Command1_Click()
    Dim bila() As String
    Dim i As Integer
    Dim temp As String
    bila = Split(Bil.Text, ",")
    For i = 1 To n
        j = n - 1
        Do While j >= i
            If Val(bila(j)) < Val(bila(j - 1)) Then
                temp = bila(j)
                bila(j) = bila(j - 1)
                bila(j - 1) = temp
            End If
            j = j - 1
        Loop
    Next i

    Hasil.Text = ""
    For i = 0 To n - 1
        If i = 0 Then
            Hasil.Text = Hasil.Text & bila(i)
        Else
            Hasil.Text = Hasil.Text & "," & bila(i)
        End If
    Next i
End Sub
Private Sub Form_Load()
    Bil = ""
    Hasil = ""
    n = ""
End Sub

Demikianlah postingan Pengurutan Bubble Sort Menggunakan Visual Basic ini. Selamat memprogram.

SUMBER