Program Visual Basic Untuk Pengurutan Selection Sort

Analisis Algoritma Bubble Sort

Pengurutan Bubble Sort Menggunakan Visual Basic

Metode Pengurutan Data

Pada postingan ini saya memberikan Program Visual Basic Untuk Pengurutan Selection Sort. Namun anda harus paham dulu dong definisi dari pengurutan Algoritma Selection Sort.

Algoritma Selection Sort merupakan salah satu dari metode pengurutan data , bekerja dengan mencari elemen yang tepat untuk diletakkan di posisi yang telah diketahui dan meletakkannya di posisi tersebut setelah data tersebut ditemukan.

Selection sort ini membandingkan elemen yang saat ini dengan suatu elemen yang berikutnya hingga elemen yang terakhir. Apabila ditemukan elemen lain yang lebih kecil dari elemen yang saat ini maka dicatat posisinya dan kemudian ditukar. Cukup mudah bukan? berikut  Program Visual Basic Untuk Pengurutan Selection Sort ini


Private Sub Command1_Click()
    Dim i, j, mIndex, tmp As Integer
    Dim bila() As String

    bila = Split(Bil.Text, ",")
   
    For i = 0 To n - 2
        mIndex = i

        For j = i + 1 To n - 1
            If Val(bila(j)) < Val(bila(mIndex)) Then mIndex = j
        Next j

        If (mIndex <> i) Then
            tmp = bila(i)
            bila(i) = bila(mIndex)
            bila(mIndex) = tmp
        End If
    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


Hasil Program