Visual Basic. Mengurutkan Data Metode Selection Sort .

MENGURUTKAN DATA MENGGUNAKAN METODE SELECTION SORT DENGAN VISUAL BASIC. 

Di blog ini saya mau membuat tutorial program mengurutkan data menggunakan metode selection sort dengan Visual Basic.Net. Membuat pemrograman dengan menginputkan angka secara acak sebanyak 5 kali berturut-turut dan bisa mengurutkan data mulai dari kecil kebesar(Ascending). 
Sebenernya hasilnya sama saja hanya yang membedakan adalah metode pengurutannya Metode Selection dimulai dari mencari data yang terkecil dengan cara membandingkan, kemudian diletakkan pada posisi pertama. Berikutnya, dicari data terkecilkedua dan diletakkan diposisi berikutnya sampai data benar-benar terurut. 

Saya tidak akan menjelaskan tentang perintah-perintah Visual Basic secara jelas saya hanya akan membahas tentang pengurutannya saja. 

Langkah-Langkah :

1. Memberi identitas pada program yang telah dibuat dengan perintah Console.WriteLine("") yang berfungsi untuk memberi tulisan dan menampilkan .

Console.WriteLine(" ")
Console.WriteLine(" W E L C O M E TO MY P R O G R A M ")
Console.WriteLine(" ")
Console.WriteLine(" |--------------------------------|")
Console.WriteLine(" | NAMA : SITI JAMILAH            |")
Console.WriteLine(" | NIM  : 119229076               |")
Console.WriteLine(" | S T M I K Yadika Bangil        |")
Console.WriteLine(" |--------------------------------|")
Console.WriteLine(" ")

output :

2. Membuat variabel didalam perulangan While... End While untuk memasukkan angka sebanyak 5 kali bertutut-turut perulangan akan tetap berjalan sebelum mencapai batasnya. 

Dim angka(4) As Integer
Dim batas_indeks As Integer

Console.WriteLine(" |-------------------------------------------|")
Console.WriteLine(" |  Masukkan Angka sebanyak secara acak      |")
Console.WriteLine(" |-------------------------------------------|")
Console.WriteLine(" ")

   batas_indeks = 0

   While batas_indeks < 5
   Console.Write(" Masukkan Angka Ke {0} :  ", batas_indeks + 1)
         angka(batas_indeks) = Console.ReadLine()
         Console.WriteLine(" --------------------------- ")
         batas_indeks = batas_indeks + 1

   End While

output :

3. Untuk melakukan pengurutan data harus membuat sitem perulangan didalam perulangan. Pertama harus membuat variabel untuk menentukan nilainya. dan data akan di proses melalui pengecakan dan posisi awal akan di bandingkan dengan posisi lainnya dengan data yang terkecil . Proses akan terus berjalan hingga posisi dan posisi banding mencapai batasnya. 

Dim posisi As Integer
Dim posisi_pembanding As Integer

        While posisi < 5
            posisi_pembanding = posisi + 1
            While posisi_pembanding < 5
                'pengecekan 
                If angka(posisi) > angka(posisi_pembanding) Then
                    'ditukar
                    Dim temp As Integer
                    temp = angka(posisi)
                    angka(posisi) = angka(posisi_pembanding)
                    angka(posisi_pembanding) = temp

                Else
                    'kosong

                End If
                posisi_pembanding = posisi_pembanding + 1
            End While
            posisi = posisi + 1

        End While

4. Membuat Variabel untuk menampilkan data yang telah diurutkan . 
  Dim indeks As Integer
  Console.WriteLine(" ")
  Console.WriteLine(" |.......................................|")
  Console.WriteLine(" |Hasil dari Pengurutan Angka tersebut ..|")
  Console.WriteLine(" |.......................................|")
  Console.WriteLine(" *************************************** ")

        indeks = 0
        While indeks < 5
            Console.Write(" ")
            Console.Write(angka(indeks))
            Console.Write("  ")
            indeks = indeks + 1
        End While

        Console.ReadLine()


    End Sub

output : 

Coding Lengkapnya : 

Sub Main()

Console.WriteLine(" ")

Console.WriteLine(" W E L C O M E TO MY P R O G R A M ")

Console.WriteLine(" ")

Console.WriteLine(" |--------------------------------|")

Console.WriteLine(" | NAMA : SITI JAMILAH            |")

Console.WriteLine(" | NIM  : 119229076               |")

Console.WriteLine(" | S T M I K Yadika Bangil        |")

Console.WriteLine(" |--------------------------------|")

Console.WriteLine(" ")

Console.WriteLine(" ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^")

Console.WriteLine(" ")

Console.WriteLine(" >>  PROGRAM MENGURUTKAN DATA DENGAN SELECTION SORT >>")

Console.WriteLine(" ")

Console.WriteLine()

Dim angka(4) As Integer

Dim batas_indeks As Integer

Console.WriteLine(" |-------------------------------------------|")

Console.WriteLine(" |  Masukkan Angka sebanyak secara acak      |")

Console.WriteLine(" |-------------------------------------------|")

Console.WriteLine(" ")

batas_indeks = 0

While batas_indeks < 5

       Console.Write(" Masukkan Angka Ke {0} :  ", batas_indeks + 1)

        angka(batas_indeks) = Console.ReadLine()

        Console.WriteLine(" --------------------------- ")

        batas_indeks = batas_indeks + 1

 End While

        Dim posisi As Integer

        Dim posisi_pembanding As Integer

        While posisi < 5

            posisi_pembanding = posisi + 1

            While posisi_pembanding < 5

                'pengecekan 

                If angka(posisi) > angka(posisi_pembanding) Then

                    'ditukar

                    Dim temp As Integer

                    temp = angka(posisi)

                    angka(posisi) = angka(posisi_pembanding)

                    angka(posisi_pembanding) = temp

                Else

                    'kosong

                End If

                posisi_pembanding = posisi_pembanding + 1

            End While

            posisi = posisi + 1

        End While

        Dim indeks As Integer

        Console.WriteLine(" ")

        Console.WriteLine(" |.......................................|")

        Console.WriteLine(" |Hasil dari Pengurutan Angka tersebut ..|")

        Console.WriteLine(" |.......................................|")

        Console.WriteLine(" *************************************** ")

        indeks = 0

        While indeks < 5

            Console.Write(" ")

            Console.Write(angka(indeks))

            Console.Write("  ")

            indeks = indeks + 1

        End While

        Console.ReadLine()

    End Sub

--------------------------------------------------------------------------------------------------------------------------

Output :

Semoga bermanfaat ya teman-teman ...

Ditunggu blo selanjutnya... :)