Pengurutan data Menggunakan Bubble Sort dengan Bahasa Visual Basic di Visual Studio

SORTING BUBBLE SORT

Assalamu’alaikum.Wr.Wb

Di sini saya akan mendeklarasikan serta memberi tutorial pemrograman Bahasa VB.Net tentang pengurutan data menggundakan Bubble Sort di Console Visual Studio 2019  langsung saja ke step-step nya.

       1.    Pertama-tama Bukalah Visual Studio 2019 kalian

      2.    Create a New Project

       3.    Pilih bahasa Visual Basic

­­­­­­­

      4.    Pilih Console App (.NET Framework) lalu Klik Next­­­­­

       5.    Ketiakn nama  Project dan tempat penyimpanan lalu Klik OK

       6.    Setelah muncul di halaman seperti Gambar di bawah ini (Module 1)

Lalu ketikkan Script di bawah ini (Saya tulis beserta penjelasan nya)

Module Module1

    Sub Main()

        'Untuk menampilkan text + tanda petik dua

        Console.WriteLine("Sorting  Metode  Bubble  Sort")

        Console.WriteLine("    STMIK - YADIKA  Bangil   ")
        Console.WriteLine("    Moch Fatchurrohman Ali   ")
        Console.WriteLine("        Nim : 119229057     ")

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

        Console.WriteLine()

        'Digunakan untuk menambahkan 4 variabel Bill (arr)

        Dim arr(4) As Short

        'Memasukan Bill dengan perulangan For...Next

        For n As Short = 0 To 4

            Console.Out.Write("Masukan Bill {0} : ", n + 1) 'Menampilkan text dengan perulangan index yang bertambah 1 dalam setiap perulangan

            arr(n) = Console.In.ReadLine() 'Bill(index) yang ingin dimasukan

        Next n

        Console.WriteLine()

        'Menambahkan variabel (c) untukm perulangan dan (sementara) untuk penyimpanan Bill sementara dalam proses pertukaran

        Dim c, sementara As Short

        'Memberi nilai variabrel (c) denga nilai 0

        c = 0

        Console.WriteLine("Input Bill :")

        'Menampilkan Bill yang telah di inputkan dengan perulagan While...End while

        While c < 5

            Console.WriteLine(arr(c))

            'Melakukan penambahan agar perulangan bertambah 1 setiap perulangan

            c = c + 1

        End While

        'Meriset indek (c) agar dapat di gunakan kembali

        c = 0

        'Proses Pengurutan Bubble sort

        'Melakukan perulangan kembali menggunakan while...end while setelah Bill terbesar sudah berada pada posisi paling belakang

        While c < 5

            'Melakukan perulangan menggunakan For...Next untuk menempatka Bill paling besar di posisi paling belakang

            'Index dimulai dari 1

            For r As Short = 1 To arr.Length - 1 'Melakukan pengurutan index secara terbalik

                'Menggunakan If...End If untuk melakukan pengolahan data pada Bill yang memenuhi syarat

                'Jika tidak memenuhi syarat makan dilewati / tidak dijalankan

                If arr(r - 1) > arr(r) Then

                    'Proses penukaran Bill menggunakan bantuan Variabel (sementara) untuk melakukan penyimpanan sementara sebelum penukaran

                    sementara = arr(r)

                    arr(r) = arr(r - 1)

                    arr(r - 1) = sementara

                End If

            Next r

            c = c + 1

        End While

        Console.WriteLine()

        Console.WriteLine("Bubble Sort :")

        'Proses penampilan menggunakan For...Next

        'Index dimulai dari 0

        For i As Short = 0 To 4

            Console.WriteLine(arr(i)) 'Bill(Index)  yang ingin di tampilkan

        Next i

        'Digunakan untuk mencegah terminal menutup seketika setelah proses selesai

        Console.ReadLine()

    End Sub

End Module

       7.    Jika sudah memasukan Script di atas Klik F5 untuk menjalankan Console. (SELESAI)  

Sekian penjelasan dari saya apabila ada penjelasan yang tidak bisa di mengerti dan kesalahan maupun kekurangan kata saya mohon maaf See You Next Time J

Wassalamu’alaikum.Wr.Wb