Teknik Buble Sort Menggunakan VB NET

Bubble sort memiliki banyak dari sifat yang sama sebagai penyisipan, tetapi memiliki overhead yang sedikit lebih tinggi. Didalam pengurutan ada dua jenis pengurutan yaitu Ascending dan Descending, Ascending merupakan jenis pengurutan yang dimulai dari terkecil ke terbesar ( 1,2,3,4,5 ) sedangkan Descending sebaliknya dari terbesar keterkecil ( 5,4,3,2,1 ).

Kali ini admin akan membagikan tutorial cara membuat program buble short dengan visual basic 2010 (berbasis .net)

Langkah-langkahnya :

1. Desain form seperti dibawah ini

Atur Propertiesnya

Toolbox	Properties	Value
Button	Text	Buble Short
RadioButton1 RadioButton2	Text Text	Ascending Descending
TextBoxt1 TextBoxt2 TextBoxt3	Text Enabled Enabled	- False False

2. Klik kanan form pilih view code(F7) dan isikan script dibawah ini tepat dibawah “Public Class Form1”

    Dim nilai(0 To 300) As Integer

3. Klik 2x button “Buble Short” dan isikan script dibawah ini

Try

            Dim simpanan, henti As Integer

            Dim jumlah As Integer = TextBox1.Text

            Dim angka As Integer

            Dim loncatan As Integer = 4

            TextBox2.Text = ""

            'memasukan nilai dari inputbox ke variabel nilai()

            For i As Integer = 1 To TextBox1.Text

                If TextBox2.Text = "" Then

                    angka = InputBox("Masukkan Nilai Ke = " & i, "Input Nilai", 0)

                    TextBox2.Text = angka

                    nilai(i) = angka

                Else

                    angka = InputBox("Masukkan Nilai Ke = " & i, "Input Nilai", 0)

                    TextBox2.Text = TextBox2.Text & ", " & angka

                    nilai(i) = angka

                End If

            Next

            'menentukan pengurutan berdasarkan ascending atau descending

            If RadioButton1.Checked = True Then

                For a As Integer = 1 To TextBox1.Text

                    henti = TextBox1.Text

                    Do While henti > a

                        If nilai(henti) < nilai(henti - 1) Then

                            simpanan = nilai(henti)

                            nilai(henti) = nilai(henti - 1)

                            nilai(henti - 1) = simpanan

                        End If

                        henti = henti - 1

                    Loop

                Next

            Else

                For a As Integer = 1 To TextBox1.Text

                    henti = TextBox1.Text

                    Do While henti > a

                        If nilai(henti) > nilai(henti - 1) Then

                            simpanan = nilai(henti)

                            nilai(henti) = nilai(henti - 1)

                            nilai(henti - 1) = simpanan

                        End If

                        henti = henti - 1

                    Loop

                Next

            End If

            'menulis hasil pengurutan ke textbox hasil

            For x As Integer = 1 To TextBox1.Text

                If x = 1 Then

                    TextBox3.Text = nilai(x)

                Else

                    TextBox3.Text = TextBox3.Text & ", " & nilai(x)

                End If

            Next

        Catch ex As Exception

        End Try 

4. Klik 2x Radiobutton1 “Ascending” dan isikan script dibawah ini

Try

            Dim simpanan, henti As Integer

            Dim jumlah As Integer = TextBox1.Text

            For a As Integer = 1 To TextBox1.Text

                henti = TextBox1.Text

                Do While henti > a

                    If nilai(henti) < nilai(henti - 1) Then

                        simpanan = nilai(henti)

                        nilai(henti) = nilai(henti - 1)

                        nilai(henti - 1) = simpanan

                    End If

                    henti = henti - 1

                Loop

            Next

            For x As Integer = 1 To TextBox1.Text

                If x = 1 Then

                    TextBox3.Text = nilai(x)

                Else

                    TextBox3.Text = TextBox3.Text & ", " & nilai(x)

                End If

            Next

        Catch ex As Exception

        End Try

5. Klik 2x Radiobutton2 “Descending” dan isikan script dibawah ini

Try

            Dim simpanan, henti As Integer

            Dim jumlah As Integer = TextBox1.Text

            For a As Integer = 1 To TextBox1.Text

                henti = TextBox1.Text

                Do While henti > a

                    If nilai(henti) > nilai(henti - 1) Then

                        simpanan = nilai(henti)

                        nilai(henti) = nilai(henti - 1)

                        nilai(henti - 1) = simpanan

                    End If

                    henti = henti - 1

                Loop

            Next

            For x As Integer = 1 To TextBox1.Text

                If x = 1 Then

                    TextBox3.Text = nilai(x)

                Else

                    TextBox3.Text = TextBox3.Text & ", " & nilai(x)

                End If

            Next

        Catch ex As Exception

        End Try

6. Kemudian jalankan dengan menekan (F5)

untuk lebih jelasnya kunjungi video tutorial disini : https://youtu.be/Fm6aCDhsKkI

Semoga dapat membantu. Terima kasih. 

If You Enjoyed This, Take 5 Seconds To Share It

• Facebook
• Twitter
• Google+
• StumbleUpon
• Digg
• Delicious
• LinkedIn
• Reddit
• Technorati