Pengurutan data dengan bubble sort

Untuk Console.WriteLine sendiri digunukan untuk menampilkan sesuatu pada layar hasil project kita nanti atau lebih tepatnya pada tampilan console nya . Dim digunakan untuk mendeklarasikan suatu variabel tertentu , untuk diaatas kita menggunakan Integer yang di gunakan untuk variabel angka atau value , jika non angka biasanya menggunakan String . untuk (4) sendiri berarti indeks dari variabel element akan sampai empat saja dan total nya ada 5 indeks yaitu indeks 0 sampai indeks 4 .
ketika current kurang dari 5 maka pada setiap indeks di variabel element ( dimulai dari element indeks 0 ya seperti yang saya jelaskan diatas ) maka current akan ditambahkan 1 dan terus sampai indeks terakhir pada element yaitu indeks 4 . karena hanya ada 4 indeks saja pada element . Lalu kita menambahkan lagi sebuah variabel menjadi integer yaitu variabel kiri dan kanan

Untuk step pertama atau posisi pertama yaitu dari kiri indeks pertama indeks 0 . Pada bagian Kanan current akan dikurangi 1 setiap ke pengurutan ke kiri nya . lalu dikurangi 1 lagi sampai paling kiri
Jika (element(kanan) kurang dari (element(kiri) maka element kanan = element kanan -1 . hasil dari element kanan -1 adalah temp atau nilai terkecil sementara sampai nilai terkecil berada di kiri . Setiap for harus di akhiri dengan next . lalu untuk menampilkan nya menggunakan loop while , element(indeks) akan terus ditampilkan sampai pada indeks < 5 atau indeks 4

Script nya :

Imports System

Module Module1

    Sub Main()
        Console.WriteLine("|||||||||||||||||||||||||||||||||||||")
        Console.WriteLine("|   BUBBLE SORT BY PRABOWO SETYAWAN |")
        Console.WriteLine("|       NIM  : 119229068            |")
        Console.WriteLine("|      STMIK YADIKA BANGIL          |")
        Console.WriteLine("|||||||||||||||||||||||||||||||||||||")



        Dim element(4) As Integer
        Dim current As Integer

        Console.WriteLine("Insert five number of element")
        current = 0

        While current < 5
            Console.Write(" element {0} : ", current + 1)
            element(current) = Console.ReadLine()

            current = current + 1
        End While


        Dim left, right As Integer

        For left = 0 To current Step 1

            For right = current - 1 To left + 1 Step -1

                If (element(right) < element(right - 1)) Then

                    Dim temp As Integer = element(right)
                    element(right) = element(right - 1)
                    element(right - 1) = temp

                End If
            Next
        Next

        Dim indeks As Integer
        Console.WriteLine("Result of sorting elements")
        Console.Write(" ")

        indeks = 0
        While indeks < 5
            Console.Write(" ")
            Console.Write(element(indeks))

            indeks = indeks + 1
        End While

        Console.ReadLine()

    End Sub

End Module