MENGURUTKAN DATA MENGGUNAKAN SELECTION SORT DI VISUAL STUDIO 2019

halo.....


Saya akan memberi sedikit contoh membuat program di visual studio, btw saya memakai yg 2019, dan saya memakai algoritma Selection Sort

                                Pertama buka visual studio 2019, lalu pilih create a new project

Pilih yang framework

Beri nama project anda

Dan tampilan awalnya seperti ini

Lalu isi dengan script dibawah ini :

Module module1

    Sub main()

        Console.WriteLine("                                  Mengurutkan Menggunakan Metode Selection")

        Console.WriteLine("                                           STMIK - YADIKA  Bangil   ")

        Console.WriteLine("                                             M FARCHAN FIRDHAUS ")

        Console.WriteLine("                                               Nim : 119229053     ")

        Console.WriteLine("Halo..........

tekan enter untuk melanjutkan")

        Console.ReadLine()

        Dim bil(4), pembanding, varpertama, varsementara As Short

        For u = 0 To 4

            Console.WriteLine("Masukkan Bilangan {0}:", u + 1)

            bil(u) = Console.ReadLine()

        Next

        Console.WriteLine("Bilangan yang dimasukkan :")

        For u = 0 To 4

            Console.WriteLine(bil(u))

        Next

        Console.WriteLine("Hasil Pengurutan :")

        While pembanding <= 4

            For i = pembanding To 4

                If bil(i) < bil(varpertama) Then

                    varpertama = i

                End If

            Next

            varsementara = bil(varpertama)

            bil(varpertama) = bil(pembanding)

            bil(pembanding) = varsementara

            pembanding = pembanding + 1

            varpertama = pembanding

            Console.WriteLine(varsementara)

        End While

        Console.ReadLine()

    End Sub

End Module

                     Jika sudah, maka saat dijalankan akan muncul tampilan seperti dibawah ini

TERIMAKASIH SEMOGA BERMANFAAT :v