Visual Basic. Mengurutkan Data Metode Buble Sort

MENGURUTKAN DATA MENGGUNAKAN METODE BUBLE SORT DENGAN VISUAL BASIC.

Di blog ini saya akan membahas tentang Pemrograman Visual Basic. Di sini saya membuat aplikasi pemrograman dengan menginputkan angka secara acak dan bisa mengurutkan dari kecil ke besar(Ascending). Banyak metode yang digunakan untuk mengurutkan akan tetapi, di blog ini saya akan menggunakan metode Buble Sort. 

Pengurutan metode buble sort dengan cara mencari bilangan terbesar dengan cara membandingkan dengan data yang lain, lalu diletakkan pada posisi terakhi. Berikutnya dicari bilangan terbesar kedua lalu diletakkan pada posisi kedua dari akhir dan seterusnya sampai angka tersebut benar-benar urut. 

Disini saya tidak akan menjelaskan tentang perintah-perintah Visual Basic secara jelas saya hanya akan membahas tentang pengurutannya saja. 

Coding Program :

Langkah-Langkah :
1. Memberi Identitas pada program dengan perintah Console.WriteLine(" "). Perintah ini digunakan untuk memberi tulisan sekaligus berfungsi untuk menampilkan .

Console.WriteLine(" W E L C O M E TO MY P R O G R A M ")
Console.WriteLine(" ")
Console.WriteLine(" |--------------------------------|")
Console.WriteLine(" | NAMA : SITI JAMILAH            |")
Console.WriteLine(" | NIM  : 119229076               |")
Console.WriteLine(" | S T M I K Yadika Bangil        |")
Console.WriteLine(" |--------------------------------|")

Output : 

2. Membuat variabel di dalam perulangan While ... End While untuk memasukkan angka secara acak sebanyak 5 kali perulangan akan berjalan sebelum memncapai batas jika sudah maka akan berhenti. 

Dim angka(4) As Integer
Dim batas_indeks As Integer

Console.WriteLine(" |-------------------------------------------|")
Console.WriteLine(" |  Masukkan Angka secara acak   ......      |")
Console.WriteLine(" |-------------------------------------------|")
Console.WriteLine(" ")

batas_indeks = 0

While batas_indeks < 5

Console.Write(" Masukkan Angka Ke {0} :  ", batas_indeks + 1)
angka(batas_indeks) = Console.ReadLine()
Console.WriteLine(" --------------------------- ")
batas_indeks = batas_indeks + 1

End While

Output : 

3. Membuat Variabel baru untuk menjalankan sistem pengurutan data metode buble sort menggunakan perulangan For .... Next.Disini akan terjadi perulangan didalam perulangan. Dan untuk membandingkan angka 1 dengan yang lain maka di butuhkan If ...... <kondisi> .... Else .... End If . Untuk memindahkan suatu data maka harus dibuat variabel sementara terlebih dahulu supaya data bisa dipindahkan .

Dim awal As Integer
Dim akhir As Integer

   For awal = 0 To batas_indeks Step 1
     For akhir = batas_indeks - 1 To awal + 1 Step -1

                If (angka(akhir) < angka(akhir - 1)) Then

                    Dim var_sementara As Integer = angka(akhir)
                    angka(akhir) = angka(akhir - 1)
                    angka(akhir - 1) = var_sementara

                End If
            Next

        Next
4. Membuat variabel lagi untuk sistem perulangan dengan menampilkan Data yang sudah di urutkan .

Dim indeks As Integer
Console.WriteLine(" ")
Console.WriteLine(" ........................................")
Console.WriteLine(" Hasil dari Pengurutan Angka tersebut .. ")
Console.WriteLine(" ........................................")

        indeks = 0
        While indeks < 5
            Console.Write(" ")
            Console.Write(angka(indeks))
            Console.Write("  ")
            indeks = indeks + 1
        End While



        Console.ReadLine()
End Sub 

output : 

Script Lengkap : 

Sub Main()
Console.WriteLine(" ")
Console.WriteLine(" W E L C O M E TO MY P R O G R A M ")
Console.WriteLine(" ")
Console.WriteLine(" |--------------------------------|")
Console.WriteLine(" | NAMA : SITI JAMILAH            |")
Console.WriteLine(" | NIM  : 119229076               |")
Console.WriteLine(" | S T M I K Yadika Bangil        |")
Console.WriteLine(" |--------------------------------|")
Console.WriteLine(" ")
Console.WriteLine(" ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^")
Console.WriteLine(" ")
Console.WriteLine(" >>  PROGRAM MENGURUTKAN DATA DENGAN BUBLE SORT    >>")
Console.WriteLine(" ")
Console.WriteLine()

Dim angka(4) As Integer
Dim batas_indeks As Integer

Console.WriteLine(" |-------------------------------------------|")
Console.WriteLine(" |  Masukkan Angka secara acak   ......      |")
Console.WriteLine(" |-------------------------------------------|")
Console.WriteLine(" ")

batas_indeks = 0

While batas_indeks < 5

Console.Write(" Masukkan Angka Ke {0} :  ", batas_indeks + 1)
angka(batas_indeks) = Console.ReadLine()
Console.WriteLine(" --------------------------- ")
batas_indeks = batas_indeks + 1
End While


Dim awal As Integer
Dim akhir As Integer

        For awal = 0 To batas_indeks Step 1

            For akhir = batas_indeks - 1 To awal + 1 Step -1

                If (angka(akhir) < angka(akhir - 1)) Then

                    Dim var_sementara As Integer = angka(akhir)
                    angka(akhir) = angka(akhir - 1)
                    angka(akhir - 1) = var_sementara

                End If
            Next
        Next

Dim indeks As Integer
Console.WriteLine(" ")
Console.WriteLine(" ........................................")
Console.WriteLine(" Hasil dari Pengurutan Angka tersebut .. ")
Console.WriteLine(" ........................................")


        indeks = 0
        While indeks < 5
            Console.Write(" ")
            Console.Write(angka(indeks))
            Console.Write("  ")
            indeks = indeks + 1
        End While


        Console.ReadLine()
End Sub
---------------------------------------------------------------------------------------------------------------

Output Hasil :

Terima Kasih teman-teman ...
Semoga Bermanfaat Ditunggu blog selanjutnya yaaa.....