PENGURUTAN DATA MENGGUNAKAN METODE BUBBLE SORT

TUTORIAL  VISUAL BASIC : PENGURUTAN DATA DENGAN METODE BUBLE SORT 


Kali ini akan membahas tentang pemograman sederhana mengunakan Visual Basic. Program ini merupakan Tugas Perkuliahan jurusan Teknik Informatika semester awal . Berikut ini adalah langkah-langkah untuk membuat Program Pengurutan Data dengan Metode Buble Sort .

Sebenarnya metode apapun yang digunakan untuk mengurutkan data semuanya sama hanya saja yang membedakan adalah jalannya pengurutan dari masing-masing metode. 
Dan hasilnya juga akan tetap sama.

- Buka  aplikasi Visual Basic 2017(disini visual basic yang digunakan bebas ya).
- Buat project Console Application
- Buat kode program-program tersebut

1. Membuat program di area Sub Main() dan akhir sebelum End Sub. Di awal pembuatan program biasa digunakan untuk membuat identitas sebagai nama pembuatnya. dengan Coding seperti ini. 

Sub Main()
Console.WriteLine(" **********************************")
Console.WriteLine(" ** NAMA : ROUDLOTUL NUR KHUSNIA **")
Console.WriteLine(" ** NIM  : 119229073             **")
Console.WriteLine(" ** S T M I K Yadika Bangil      **")
Console.WriteLine(" **********************************")
Console.WriteLine(" ")
Console.WriteLine(" >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>")
Console.WriteLine(" >>  Pengurutan Data Menggunakan Metode Buble Sort  >>")
Console.WriteLine(" >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>")
Console.WriteLine()

*Console.WriteLine(" ") merupakan kode program untuk menampilkan teks maupun nilai dari suatu variabel. 

Tampilan Kode program :

2. Untuk memulai pembuatan fungsi-fungsinya maka harus membuat variabel terlebih dahulu. Apa Variabel itu ? Variabel merupakan lokasi penyimpanan yang memiliki suatu nilai yang diketahui maupun tidak diketahui. 
Pendeklarasian Variabel adalah Dim <NamaVariabel> As <TipeData>.
untuk syarat ketentuan Nama Variabel dan Tipe Data bisa di cari sendiri ya ...

 Dim angka(4) As Integer
 Dim batas As Integer

Disini kita menggunakan Variabel Array untuk bisa memasukkan data angka sebanyak mungkin tapi diprogram ini saya membatasi jumlah array hanya bisa menginputkan angka 5 kali. 
Untuk Tipe Data yang saya gunakan adalah Integer karena mengunakan data berupa angka.

Perintah ( ' ) atau petik satu merupakan komentar didalam Visual Basic yang digunakan untuk menjelaskan suatu kode didalam aplikasi. Dan tidak berpengaruh untuk merubah.

Console.WriteLine(" Memasukkan Angka sebanyak 5 kali ..")

Console.Write(" ")

'disini batas akan di mulai dari nol yang kemudian akan dilanjutkan ke fungsi berikutnya

 batas = 0

'Ketika batas semula nol maka akan di eksekusi disini, jika batas < 5 akan dilanjutkan jika tidak makan eksekusi akan selesai. 

 While batas < 5
 Console.Write(" Angka {0} : ", batas + 1)
' berfungsi untuk menampilkan teks inputan angka dan menunjukkan angka berapa yang akan diisi

 Console.Write(" ")
 angka(batas) = Console.ReadLine() 

'Mengisi inputan angka yang akan disimpan divariabel identitas dari angka

 batas = batas + 1 
'batas yang semula nol akan ditambah 1 sampai dengan batas yang ditentukan.

 End While

Tampilan Hasil :

3. Di fungsi inilah yang membedakan dari masing-masing metode.
Di metode Buble Sort pengurutannya dengan cara mencari data yang terbesar dengan cara membandingan dengan data yang lain, lalu di letakkan pada posisi terakhir. berikutnya dicari bilangan terbesar dan kemudian diletakkan pada posisi kedua dari akhir dan seterusnya.
Di fungsi ini memerlukan perulangan didalam perulangan .
Saya menggunkan fungsi perulangan

For counter = awal to akhir step pertambahan

          …ekspresi…

 next counter

* Counter: variabel integer yang digunakan untuk melakukan proses pengulanga

*Awal: nilai awal suatu variabel untuk menentukan awal pengulangan

* Akhir: nilai suatu variabel untuk menentukan akhir dari pengulangan

*Pertambahan: besarnya perubahan nilai dari nilai awal sampai nilai akhir.

*Ekspresi: blok perintah yang akan dikerjakan jika kondisi dari pengulangan memenuhi syarat.

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

'untuk membuat variabel sementara,karena untuk memindahkan 2 variabel akan membutuhkan satu wadah untuk sementara

Dim temp As Integer = angka(kanan)

angka(kanan) = angka(kanan - 1)

angka(kanan - 1) = temp

End If

Next

Next

4. Ini adalah langkah terakhir , berikut adalah kode untuk menampilkan hasil pengurutan data.
Dari eksekusi diatas coding ini berfungsi untuk menampilkan urutan program yang di masukkan tadi.

'untuk membuat variabel lagi pada saat perulangan 
Dim indeks As Integer 
Console.WriteLine(" ")

Console.WriteLine(" ======================================= ")

Console.WriteLine(" Hasil dari Pengurutan Angka tersebut ...")

Console.WriteLine(" ======================================= ")

Console.WriteLine(" !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ")

Console.Write(" **  ")
 'saat terjadi perlangan sebanyak 5 kali

indeks = 0

While indeks < 5 

Console.Write(" ")

Console.Write(angka(indeks))'menampilkan angka 

Console.Write(" - ")

indeks = indeks + 1 'untuk menambah jika belum sampai batas

End While

Console.WriteLine("        **  ")

Console.WriteLine(" *************************************** ")

Console.ReadLine()

End Sub

Tampilan Hasil

Coding Seluruhnya

Sub Main()

Console.WriteLine(" **********************************")

Console.WriteLine(" ** NAMA : ROUDLOTUL NUR KHUSNIA **")

Console.WriteLine(" ** NIM  : 119229073             **")

Console.WriteLine(" ** S T M I K Yadika Bangil      **")

Console.WriteLine(" **********************************")

Console.WriteLine(" ")

Console.WriteLine(" >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>")

Console.WriteLine(" >>  Pengurutan Data Menggunakan Metode Buble Sort  >>")

Console.WriteLine(" >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>")

Console.WriteLine()

Dim angka(4) As Integer

Dim batas As Integer

Console.WriteLine(" ----------------------------------------")

Console.WriteLine(" --  Memasukkan Angka sebanyak 5 kali  --")

Console.WriteLine(" ----------------------------------------")

Console.WriteLine(" ")

batas = 0

While batas < 5

Console.Write(" Angka {0} :  ", batas + 1)

angka(batas) = Console.ReadLine()

Console.WriteLine(" --------------------------- ")

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(" ")

Console.WriteLine(" ======================================= ")

Console.WriteLine(" Hasil dari Pengurutan Angka tersebut ...")

Console.WriteLine(" ======================================= ")

Console.WriteLine(" !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ")

Console.Write(" **  ")

indeks = 0

While indeks < 5

Console.Write(" ")

Console.Write(angka(indeks))

Console.Write(" - ")

indeks = indeks + 1 

End While

Console.WriteLine("        **  ")

Console.WriteLine(" *************************************** ")

Console.ReadLine()

End Sub

Hasil seluruhnya :

Terima Kasih Silahkan beli Saran atau Kritik di kolom komentar apapun kritik dan sarannya saya akan menerima.
Dan tunggu update selanjutnya yaa teman-teman......