PENGURUTAN DATA MENGGUNAKAN SELECTION SORT

Tutorial Visual Basic : Pengurutan Data dengan Metode Selection Sort 

Kali ini akan membahas tentang pemograman sederhana mengunakan Visual Basic. Program ini merupakan Tugas Perkuliahan jurusan Teknik Informatika semester awal . Berikut ini adalah langkah-langkah untuk membuat Program Pengurutan Data dengan Metode Selection Sort. 

Sebenarnya metode apapun yang digunakan untuk mengurutkan data semuanya sama hanya saja yang membedakan adalah jalannya pengurutan dari masing-masing metode. 
Dan hasilnya juga akan tetap sama.

- Buka  aplikasi Visual Basic 2017(disini visual basic yang digunakan bebas ya).
- Buat project Console Application
- Buat kode program-program tersebut

1. Memasukkan coding di area Sub Main() ... End Sub. Sebagai awal biasanya kita bisa memasukkan identitas terhadap program yang kita buat. 

Console.WriteLine(" **********************************")
Console.WriteLine(" ** NAMA : ROUDLOTUL NUR KHUSNIA **")
Console.WriteLine(" ** NIM  : 119229073             **")
Console.WriteLine(" ** S T M I K Yadika Bangil      **")
Console.WriteLine(" **********************************")

Hasil Output : 

2. Membuat Variabel untuk angka dan batas dalam memasukkan angka . Variabel menggunakan tipe data Ineteger karena nilai variabelnya berupa angka. 

Dim angka(4) As Integer

Dim batas As Integer

Pendeklarasian Variabel :

Dim <NamaVar> As <TipeData>

3. Membuat inputan angka sebanyak 5 kali . Dalam proses ini perulangan terjadi jika angka masih < 5 . Jika sudah mencapai batas nya maka perulangan bisa selesai dengan sendirinya. 


Console.WriteLine(" ----------------------------------------")
Console.WriteLine(" --  Memasukkan Angka sebanyak 5 kali  --")
Console.WriteLine(" ----------------------------------------")
Console.WriteLine(" ")

batas = 0

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

End While

Batas akan dimulai dari nol dan nilai dari batas akan di eksekusi jika masih kurang dari 5, maka akan muncul inputan setelah itu batas yang semula mempunyai nilai nol akan di tambah 1 sehingga menjadi satu dan seterusnya sampai batas yang diberikan yaitu 5. 

Hasil output :

4. Untuk mengurutkan data dengan metode selection sort ini pasti membutuhkan sebuah fungsi yang khusus supaya data bisa terurut dengan benar bukan ? . Berikut adalah coding nya .

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

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

Dari coding diatas pengurutan data dengan metode selection sort ini yaitu Dari data yang ada akan dicari data yang terkecil dengan cara membandingkan, kemudian diletakkan pada posisi pertama. Berikutnya , dicari data terkecil kedua dan diletakkan pada posisi kedua sampai data tersebut berurutan dengan benar . 

5. Setelah pengurutan data , pastinya data yang sudah diurutkan akan di tampilkan. Berikut adalah kode untuk menampilkan data yang sudah diurutkan .

Dim indeks As Integer
Console.WriteLine(" ")
Console.WriteLine(" Hasil dari Pengurutan Angka tersebut ...")

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

Console.ReadLine()
End Sub

Untuk menampilkan angka yang sudah diurutkan harus membuat variabel baru. kemudian akan terjadi perulangan sampai dengan batas angka yang ditampilkan . Console.WriteLine(angka(indeks)) .Itu adalah fungsi untuk menampilkan angka yang diinputkan dan yang sudah diurutkan . Perulangan akan terus bertambah jika belum mencapai batasnya. 

Hasil Output :

Coding seluruhnya :
Sub Main()
Console.WriteLine(" **********************************")
Console.WriteLine(" ** NAMA : ROUDLOTUL NUR KHUSNIA **")
Console.WriteLine(" ** NIM  : 119229073             **")
Console.WriteLine(" ** S T M I K Yadika Bangil      **")
Console.WriteLine(" **********************************")
Console.WriteLine(" ")
Console.WriteLine(" >>  Pengurutan Data Menggunakan Metode Selection Sort  >>")
Console.WriteLine()

Dim angka(4) As Integer
Dim batas As Integer

Console.WriteLine(" ----------------------------------------")
Console.WriteLine(" --  Memasukkan Angka sebanyak 5 kali  --")
Console.WriteLine(" ----------------------------------------"
Console.WriteLine(" ")

batas = 0

While batas < 5

Console.Write(" Angka {0} :  ", batas + 1)
angka(batas) = Console.ReadLine()
Console.WriteLine(" --------------------------- ")
batas = batas + 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

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(" !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ")
Console.Write(" **  ")

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

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

End Sub

Hasil Output :