Friday, March 27, 2020

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