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

SORTING SELECTION SORT

Assalamu’alaikum.Wr.Wb

Di sini saya akan mendeklarasikan serta memberi tutorial pemrograman Bahasa VB.Net tentang pengurutan data menggundakan Selection 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 Program01

    Sub Selection()

        'Mendeklakrasikan Variabel yang ingin di gunakan

        Dim bill(4), pembanding, pertama, penukar As Short

        'Bill sebagai pendeklarasian variabel bialagan yang ingin di masukan

        'Pembaning adalah sebagai variabel yang ingin di bandingkan

        'Pertama adalah variabel pertama yang ingin di bandingkan dengan variabel pembanding

        'Penukar adalah variabel sementara yang digunakan untuk menukar bilangan sementara

        'Menginputkan bilangan

        For u = 0 To 4

            Console.Writeline("Input Bill {0}:", u + 1)

            bill(u) = Console.ReadLine()

        Next

        'Melakukan Proses penampilan perulangan menggunakan For...Next

        Console.Writeline("Input Bil :")

        For u = 0 To 4

            Console.Writeline(bill(u))

        Next

        'Proses penukaran indeks untuk mengantik posisi penukaran pada variabel yang paling kecil

        Console.Writeline("Selection Sort :")

        While pembanding <= 4

            For i = pembanding To 4

                If bill(i) < bill(pertama) Then

                    pertama = i

                End If

            Next

            penukar = bill(pertama)

            bill(pertama) = bill(pembanding)

            bill(pembanding) = penukar

            pembanding = pembanding + 1

            pertama = pembanding

            'Untuk menampilkan bilangan yang sudah melalui proses penukaran

            Console.Writeline(penukar)

        End While

        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