Pengurutan Bubble Sort Menggunakan Visual Basic

ARTIKEL 20 - Pengurutan Bubble Sort Menggunakan Visual Basic

Minggu, 10 Juni 2012 | 14:01 WIB | Pengirim : Mesran | Dibaca : 873 kali | Kategori : Algoritma

Berita Terkait

Analisis Algoritma Bubble Sort

Program Visual Basic Untuk Pengurutan Selection Sort

Metode Pengurutan Data

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 untuk program 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




http://www.mesran.net/me/berita-490-pengurutan-bubble-sort-menggunakan-visual-basic.html