Bubble Short VB.NET

Assalamualaikum.Wr.Wb.

Pada kesempatan kali ini saya mau membagikan tutorial tentang pemrograman Bahasa VB.Net (Visual Studio) Pengurutan Sorting dan Menggandakan Bubble Sort di Console Visual Studio 2019.

• Oke di langkah pertama, yang pasti open Visual Studio kalian dan pilih new object dan pilih Visual Basic Console App(.NET Core) lalu click Next.

• Lalu ketik nama project "BubbleShort" supaya lebih gampang untuk diingat,dan pilih Tempat Penyimpanan lalu click Create.

• Setelah muncul halaman seperti ini, kalian bisa memulai membuat sebuah script. 

Kalian bisa menulis atau mengcopy script yang sudah saya siapkan dibawah ini.


Module Program
    Sub Main()
'fungsi dari petik dua untuk menampilkan sebuah text
        Console.WriteLine("                             WELCOME")
        Console.WriteLine("---------------------------------------------------------------")
        Console.WriteLine("                       STMIK  YADIKA  Bangil")
        Console.WriteLine("                        Reza Alif Juniarto")
        Console.WriteLine("                          Nim : 119229035")
        Console.WriteLine()
'untuk menambahkan 4 buah variabel bilangan(arr)
        Dim arr(4) As Short
'diposisi ini untuk menginputkan bilangan dengan perulangan For diikuti dengan Next
        For n As Short = 0 To 4
            Console.WriteLine("Masukan Angka ke-{0} : ", n + 1) 'untuk menampilkan sebuah text perulangan indeks bertambah 1 disetiap perulangannya
            arr(n) = Console.ReadLine() 'disini kalian bebas menginputkan bilangan(indeks) pada saat terminal sudah dijalankan
        Next n
        Console.WriteLine()
'kalian harus menambahkan variabel j untuk perulangan dan temporary untuk menyimpan bilangan sementara disaat proses penukaran
        Dim j, temporary As Short
'kalian harus memberi variabel j dengan nilai 0
        j = 0
        Console.WriteLine("Input Angka :")
'adalah untuk menampilkan bilangan yang telah diinputkan, dengan perulangan While diikuti dengan End While
        While j < 5
            Console.WriteLine(arr(j))
            j = j + 1
'melakukan penambahan pada variabel j supaya bertambah 1 disetiap perulangannya
        End While
        j = 0
'kalian harus mereset j ke 0 supaya bisa digunakan kembali
        While j < 5
'melakukan perulangan dengan menggunakan For diikuti Next untuk menempatkan bilangan terbesar ke posisi paling belakang
            For r As Short = 1 To arr.Length - 1
'melakukan pengurutan indeks secara terbalik 
                If arr(r - 1) > arr(r) Then
'dengan menggunakan If diikuti End If untuk melakukan pengolahan data pada bilangan yang sudah memenuhi syarat, dan jika tidak memenuhi maka tidak akan dijalankan
                    temporary = arr(r)
                    arr(r) = arr(r - 1)
                    arr(r - 1) = temporary
'disini harus menggunakan bantuan variabel untuk menyimpan nilai sementara, sebelum proses penukaran
'bantuan variabel temporary
                End If
            Next r
            j = j + 1
'untuk melakukan penambahan pada variabel j supaya bertambah 1 disetiap perulangannya
        End While
        Console.WriteLine()

        Console.WriteLine("Bubble Sort :")
'untuk menampilkan nilai menggunakan For diikuti dengan Next dan indeks harus dimulai dari 0
        For i As Short = 0 To 4
            Console.WriteLine(arr(i))
        Next i
        Console.ReadLine()
    End Sub


Setelah selesai, kalian bisa menjalankan script tersebut dengan menekan tombol F5 atau click "Bubble Sort" di Bar Kolom VB tersebut.

Dan lihat hasilnya.

Itulah yang bisa saya bagikan pada kalian bagaimana tutorial tentang Bubble Sort VB.Net di Visual Studio 2019. Sekian dan Terima Kasih

Assalamualaikum.Wr.Wb