Pengurutan data Menggunakan Linier Sort dan Menetapkan Jumlah Bilangan Secara Otomatis Dengan Bahasa Visual Basic di Visual Studio

SORTING  LINIER  SORT

Assalamu’alaikum.Wr.Wb

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

        'Variabel untuk mentukan jumlah data secara otomatis

        Dim j As Integer

        Console.WriteLine("Masukkan jumlah bilangan yang diinginkan")

        j = Console.ReadLine()

        'Variabel Untuk mendeklarasikan bilangan

        Dim bil(j) As Integer

        'Variabel Untuk posisi yang dibandingkan 

        Dim posisi As Integer

        'Variabel posisi yang ditetapkan sebagai posisi pembanding

        Dim posisi_baning As Integer

        'Proses pemasukan data menggunakan while

        posisi = 0

        While posisi < j

            bil(posisi) = Console.ReadLine()

            posisi = posisi + 1

        End While

        'Proses pertukaran data menggunaka metode linier

        posisi = 0

        posisi_baning = 1

        While posisi < j

            posisi_baning = posisi + 1

            While posisi_baning < j

                If bil(posisi) > bil(posisi_baning) Then

                Else

                    Dim sementara As Integer

                    sementara = bil(posisi)

                    bil(posisi) = bil(posisi_baning)

                    bil(posisi_baning) = sementara

                End If

                posisi_baning = posisi_baning + 1

            End While

            'Penampilan data menggunakan while yang di sambung dengan proses pengolahan                 data menggunakan metode linier

            Console.WriteLine("Bil ke {0}", posisi + 1)

            Console.WriteLine(bil(posisi))

            posisi = posisi + 1

        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