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

BELAJAR PEMOGRAMAN DAN ALGORITMA

Pembelajaran Sistem Pemograman dan Algoritma


Di sini kita akan belajar bersama tentang sistem pembalajaran dan pemogarman.
dan di sini bagaimana cara membuat progam aplikasi dengan menggunakan visual basic

  di dalam membuat pemograman mempunya beberapa bahasa sendiri dan juga saat membuat progam sedikitnya kita harus hafal terlebih dahulu untuk mengahfalkan bahasa progam agar kita dapat membuat progam dengan mudah

Awal-awal kita harus memsukan kata dim di dalam visual basic yaitu dim
dim adalah awalan kata yang harus kita masukan terlebih dahulu

Module Program
    Sub Main()

        Console.ForegroundColor = ConsoleColor.Blue

        Console.WriteLine("|=|                 WELCOME TO MILAMILON OLSHOP                        |=|")
        Console.WriteLine("|=|          Silahkan masukkan item yang akan dijual                   |=|")
        Console.WriteLine("|=|  Dan jangan lupa cek kembali setelah memasukkan harga & barang     |=|")
        Console.WriteLine()

        Dim barang(4) As String
        Dim harga(4) As Integer
        Dim total As Integer
        Dim indeks As Integer
        Dim cari As String
        Dim ketemu As Boolean

 Dan juga kita bisa menghiasi progam kita dengan tampilan yang berbagai macam dengan di antara berikutnya dan juga dengan cover yang berbagai macam yaitu.

Module Program
    Sub Main()

        Console.ForegroundColor = ConsoleColor.Blue

        Console.WriteLine("|=|                 WELCOME TO MILAMILON OLSHOP                        |=|")
        Console.WriteLine("|=|          Silahkan masukkan item yang akan dijual                   |=|")
        Console.WriteLine("|=|  Dan jangan lupa cek kembali setelah memasukkan harga & barang     |=|")

  Di atas adalah salah satu contoh bagaiman caranya menghiasi progam kita agar terlihat menarik saat progam kita di gunakan


 indeks = 0

        While indeks < 5
            Console.Write("Masukkan Nama Barang {0}:", indeks + 1)
            barang(indeks) = Console.ReadLine()
            Console.Write("Harga Barang {0}        :", indeks + 1)
            harga(indeks) = Console.ReadLine()
            indeks = indeks + 1
        End While

        Console.WriteLine()
        Console.WriteLine("{++++++++++++++++++++ MILAMILON OLSHOP PAS ++++++++++++++++++++}")
        Console.WriteLine()

        indeks = 0

        While indeks < 5
            Console.Write("Nama barang  : ")
            Console.WriteLine(barang(indeks))
            Console.Write("Harga        : ")
            Console.WriteLine(harga(indeks))
            indeks = indeks + 1
        End While


  Di sini kita menggunakan looping bolean dan di sini kita menggunakan ARAY yang di mana aray mempunya indeks, serta index tersebut bisa kita isi dengan sesuai keinginan kita.
  Dalam penulisan di visual basic agar tulisan kita muncul saat progam kita di gunakan maka kita harus menuliskan console writeline yang berfungsi untuk penulisan saat progam kita yang jalankan bisa tertulis di progam dan juga console readline di gunakan untuk menampilkan progam yang kita tuliskan.

Console.WriteLine()
        Console.Write("Total keseluruhan barang bawaan anda sebesar ")
        total = harga(0) + harga(1) + harga(2) + harga(3) + harga(4)
        Console.WriteLine(total)

        Console.WriteLine()
        Console.WriteLine("*_* MILAMILON OLSHOP PAS *_*")
        Console.WriteLine()

        Console.WriteLine("Masukkan nama barang yang dicari :")
        cari = Console.ReadLine()

        Console.WriteLine()
        ketemu = False
        indeks = 0


        While indeks < 5 And ketemu = False
            If cari = barang(indeks) Then
                Console.Write("Harganya adalah : ")
                Console.Write(harga(indeks))
                ketemu = True
            End If
            indeks = indeks + 1
        End While

        Console.WriteLine()
        Console.WriteLine()
        Console.WriteLine("||<_> THANKS FOR ORDER <_>||")


        Console.ReadLine()
    End Sub
  
    Di situ adalah contoh fungsi dari console writeline dan juga contoh dari console readline


End Module


    End module di gunakan untuk mengakhiri dalam pembuatan progam di visual basic
dan juga untuk mengakhiri pembuatan progam di visual basic