Tutorial mengurutkan data dengan metode bubble sort di visual basic
Disini saya akan menjelaskan bagaimana cara mengurutkan data dengan metode bubble sort, apa itu bubble sort? Bubble sort yaitu pengurutan dengan cara pertukaran data dengan data disebelahnya secara terus menerus sampai dalam satu urutan tertentu,tidak ada lagi perubahan.
Langkah-langkah:
1. Membuat program sub main dan diakhir sebelum end sub. Di awal coding biasa digunakan untuk membuat identitas nama pembuatnya.
Dibawah ini tampilannya:
~ Console.writeline yaitu kode untuk menampilkan nilai atau teks dari suatu variabel.
2. Membuat variabel untuk memulai pembuatan fungsi-fungsinya, untuk ketentuan nama variabel dan tipe data bisa di cari sendiri.
Pendeklarasian variabel :
< NAMA VARIABEL > AS < TIPE DATA >
2. Membuat variabel untuk memulai pembuatan fungsi-fungsinya, untuk ketentuan nama variabel dan tipe data bisa di cari sendiri.
Pendeklarasian variabel :
< NAMA VARIABEL > AS < TIPE DATA >
Disini saya menggunakan variabel array untuk memasukkam data angka sebanyak mungkin, tapi disini saya membatasi hanya menginput data sebanyak 5 kali.
Dan saya menggunakan tipe data integer karena saya menggunakan data berupa angka.
3.Di fungsi bubble sort ini pengurutannya dengan cara mencari data yang terbesar dengan membandingkan data yang lain, lalu diletakkan pada posisi terbesar dan kemudian diletakkan pada posisi kedua dari akhir dan seterusnya.
Disini saya menggunakan fungsi perulangan,
4. Langkah terakhir, berikut ini adalah kode untuk menampilkan hasil pengurutan data.
Dari data diatas,coding ini berfungsi menampilkan urutan program yang dimasukkan tadi.
Coding seluruhnya:
Module Module1
Sub Main()
Console.writeline ("××××××××××××××××××××××××××××××××××")
Console.writeline ( " ×× NAMA : SILVI ANDRIANI ×× " )
Console.writenile ( " ×× NIM : 119229075×× " )
Console.writeline ("××××××××××××××××××××××××××××××××××")
Console.writeline (" ")
Console.writeline ( " ===================================================== " )
Console.writeline ( " == MENGURUTKAN DATA DENGAN METODE BUBBLE SORT == " )
Console.writeline ( " ===================================================== " )
Console.WriteLine()
Dim angka(4) As Integer
Dim batas As Integer
Console.WriteLine(" Memasukkan Angka sebanyak 5 kali ..")
Console.Write(" ")
batas = 0
While batas < 5
Console.Write(" Angka {0} : ", batas + 1)
Console.Write(" ")
angka(batas) = Console.ReadLine()
batas = batas + 1
End While
Dim kiri, kanan As Integer
For kiri = 0 To batas Step 1
For kanan = batas - 1 To kiri + 1 Step -1
If (angka(kanan) < angka(kanan - 1)) Then
Dim temp As Integer = angka(kanan)
angka(kanan) = angka(kanan - 1)
angka(kanan - 1) = temp
End If
Next
Next
Dim indeks As Integer
Console.WriteLine(" Hasil dari Pengurutan Angka tersebut ...")
Console.Write(" ")
indeks = 0
While indeks < 5
Console.Write(" ")
Console.Write(angka(indeks))
indeks = indeks + 1
End While
Console.ReadLine()
End Sub
End Module
Oke terima kasih kawan jangan lupa komen dan juga sarannya yaa. Tunggu di update an selanjutnyaaa....
