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... :)

Visual Basic. Mengurutkan Data Metode Buble Sort

MENGURUTKAN DATA MENGGUNAKAN METODE BUBLE SORT DENGAN VISUAL BASIC.

Di blog ini saya akan membahas tentang Pemrograman Visual Basic. Di sini saya membuat aplikasi pemrograman dengan menginputkan angka secara acak dan bisa mengurutkan dari kecil ke besar(Ascending). Banyak metode yang digunakan untuk mengurutkan akan tetapi, di blog ini saya akan menggunakan metode Buble Sort. 

Pengurutan metode buble sort dengan cara mencari bilangan terbesar dengan cara membandingkan dengan data yang lain, lalu diletakkan pada posisi terakhi. Berikutnya dicari bilangan terbesar kedua lalu diletakkan pada posisi kedua dari akhir dan seterusnya sampai angka tersebut benar-benar urut. 

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

Coding Program :

Langkah-Langkah :
1. Memberi Identitas pada program dengan perintah Console.WriteLine(" "). Perintah ini digunakan untuk memberi tulisan sekaligus berfungsi untuk menampilkan .

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(" |--------------------------------|")

Output : 

2. Membuat variabel di dalam perulangan While ... End While untuk memasukkan angka secara acak sebanyak 5 kali perulangan akan berjalan sebelum memncapai batas jika sudah maka akan berhenti. 

Dim angka(4) As Integer
Dim batas_indeks As Integer

Console.WriteLine(" |-------------------------------------------|")
Console.WriteLine(" |  Masukkan Angka 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. Membuat Variabel baru untuk menjalankan sistem pengurutan data metode buble sort menggunakan perulangan For .... Next.Disini akan terjadi perulangan didalam perulangan. Dan untuk membandingkan angka 1 dengan yang lain maka di butuhkan If ...... <kondisi> .... Else .... End If . Untuk memindahkan suatu data maka harus dibuat variabel sementara terlebih dahulu supaya data bisa dipindahkan .

Dim awal As Integer
Dim akhir As Integer

   For awal = 0 To batas_indeks Step 1
     For akhir = batas_indeks - 1 To awal + 1 Step -1

                If (angka(akhir) < angka(akhir - 1)) Then

                    Dim var_sementara As Integer = angka(akhir)
                    angka(akhir) = angka(akhir - 1)
                    angka(akhir - 1) = var_sementara

                End If
            Next

        Next
4. Membuat variabel lagi untuk sistem perulangan dengan menampilkan Data yang sudah di urutkan .

Dim indeks As Integer
Console.WriteLine(" ")
Console.WriteLine(" ........................................")
Console.WriteLine(" Hasil dari Pengurutan Angka tersebut .. ")
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 : 

Script Lengkap : 

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 BUBLE SORT    >>")
Console.WriteLine(" ")
Console.WriteLine()

Dim angka(4) As Integer
Dim batas_indeks As Integer

Console.WriteLine(" |-------------------------------------------|")
Console.WriteLine(" |  Masukkan Angka 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 awal As Integer
Dim akhir As Integer

        For awal = 0 To batas_indeks Step 1

            For akhir = batas_indeks - 1 To awal + 1 Step -1

                If (angka(akhir) < angka(akhir - 1)) Then

                    Dim var_sementara As Integer = angka(akhir)
                    angka(akhir) = angka(akhir - 1)
                    angka(akhir - 1) = var_sementara

                End If
            Next
        Next

Dim indeks As Integer
Console.WriteLine(" ")
Console.WriteLine(" ........................................")
Console.WriteLine(" Hasil dari Pengurutan Angka tersebut .. ")
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 Hasil :

Terima Kasih teman-teman ...
Semoga Bermanfaat Ditunggu blog selanjutnya yaaa.....