Mengurutkan data dengan methode Bubble Short di Visual Basic

Cara pengurutan data yang umum dipakai adalah dengan metode Bubble Sort dan Shell Sort.

Sekarang kita akan mengurutkan data dengan metode Bubble Sort. Pengurutan data dengan metode Bubble Sort dilakukan dengan membandingkan data yang bersebelahan berulang kali.

Banyaknya proses pembandingan ini tergantung dari banyak datanya.
Misal kita akan mengurutkan sebanyak 7 data maka proses pembandingan data dapat dilakukan 6 kali.

Jadi jika kita punya n data yang akan dibandingkan maka proses pembandingannya sebanyak n-1 kali.

Untuk mengurutkan data dari yang kecil ke yang besar (Ascending) dua data bersebelahan dibandingkan. Jika data yang di sebelah kanan lebih besar dari yang sebelah kiri, maka data akan dipindahkan letaknya.

berikut ini adalah kodenya bila diterapkan dengan visual basic:


'-- asumsi maks 100 data
Dim mydata(100)
Open App.Path & "\data.txt" For Input As #1

Do While Not EOF(1)
  i = i + 1
  Input #1, s
  mydata(i) = s
Loop

For x = 1 To UBound(mydata())
  For j = 1 To UBound(mydata()) - 1
    If Val(Left(mydata(j), 3)) > Val(Left(mydata(j + 1), 3)) Then
      z = mydata(j): mydata(j) = mydata(j + 1): mydata(j + 1) = z
    End If
  Next j
Next x


Picture1.Cls
Picture1.Print "=========================================="
Picture1.Print "NIM Nama Alamat"
Picture1.Print "=========================================="

For y = 1 To UBound(mydata())
  s = mydata(y)
  if s <> "" then
    fd = Split(s, "|")
    Picture1.Print ; fd(0) & Space(10) & fd(1) & Space(20) & fd(2)  

 
  End If

Next y

Close #1


gambar di bawah ini adalah gambar demo project sebelum data diurutkan:




di bawah ini gambar demo setelah data diurutkan dengan metode Bubble Short:



Ok selesai sudah kita mengurutkan data file sequensial dengan metode bubble short.