Cara membuat Selection short divisual basic

Salam sejahtera, selamat datang diartikel saya diprogram komputer. Kali ini saya akan menerangkan selection short. langsung saja saya praktekkan

1. Masukkan nama kalian

2. Langkah selanjutnya yaitu menulis Dim ( Panggil Variabel).

3. Langkah yang ketiga masukkan counter

4. Langkah yang ke 4 perbandingan

5. Dibawah ini adalah contoh salinnan script
Sub Main()

        Console.WriteLine("                 STMIK YADIKA BANGIL                                ")
        Console.WriteLine("119229041")
        Console.WriteLine("ABD. Rozak Fahmi")
        Console.WriteLine("Semester 2-B")
        Console.WriteLine("Metode Selection short")
        Console.WriteLine("Ascending dan Descening")

        Dim Total As Integer
        Console.WriteLine("Tuliskan berapa banyak total bilangan untuk disorting")
        Total = Console.ReadLine()

        Dim Bilangan(Total), posisi_pertama, posisi_banding, variabel_sementara As Integer

        Console.WriteLine("Masukkan {0} bilangan untuk disorting :", Total)
        posisi_pertama = 0
        While posisi_pertama < Total
            Console.WriteLine("Bilangan Ke-{0}", posisi_pertama + 1)
            Bilangan(posisi_pertama) = Console.ReadLine()
            posisi_pertama = posisi_pertama + 1
        End While

        Console.WriteLine("Rincian hasil metode selection sort secara ascending")

        posisi_pertama = 0
        While posisi_pertama < Total
            posisi_banding = posisi_pertama + 1
            While posisi_banding < Total
                If Bilangan(posisi_pertama) < Bilangan(posisi_banding) Then
                    variabel_sementara = Bilangan(posisi_pertama)
                    Bilangan(posisi_pertama) = Bilangan(posisi_banding)
                    Bilangan(posisi_banding) = variabel_sementara
                Else
                End If
                posisi_banding = posisi_banding + 1
            End While
            Console.WriteLine(Bilangan(posisi_pertama))
            posisi_pertama = posisi_pertama + 1
        End While

        Console.WriteLine("Rincian hasil metode selection sort secara desending ")
        posisi_pertama = 0
        While posisi_pertama < Total
            posisi_banding = posisi_pertama + 1
            While posisi_banding < Total
                If Bilangan(posisi_pertama) > Bilangan(posisi_banding) Then
                    variabel_sementara = Bilangan(posisi_pertama)
                    Bilangan(posisi_pertama) = Bilangan(posisi_banding)
                    Bilangan(posisi_banding) = variabel_sementara
                Else
                End If
                posisi_banding = posisi_banding + 1
            End While
            Console.WriteLine(Bilangan(posisi_pertama))
            posisi_pertama = posisi_pertama + 1
        End While
    End Sub

Terimakasih telah berkunjung diartikel saya, semoga artikel ini bisa dimengerti dan mudah difahami sekian.