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.
Tidak ada komentar:
Posting Komentar