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. 

Read More

Ken Ken Wiro Sableng Kini Jadi Petani

By Rizkiono Unggul Wibisono

Masih ingat dengan sinetron Wiro Sableng yang populer di era 1990-an silam? Kabar mengejutkan datang dari aktor  pendekar kapak 212 tersebut, Herning Sukendro baru-baru ini. 

Diberitakan banyak media online Tanah Air, Ken Ken --sapaan Herning Sukendro-- yang dulu beraksi melawan para penjahat di layar kaca, kini hidup sederhana dan bersahaja sebagai petani.


Hidupnya pun jauh dari hingar bingar dunia hiburan.
Pria berusia 45 tahun yang dulu tampil jenaka dan riang itu pun akhirnya bangkrut akibat hartanya yang terkuras karena narkoba. Mobil dan rumah, semuanya ia jual. Ia juga harus pinjam sana-sini demi memenuhi kebutuhan hidupnya sehari-hari.
Beruntung, semangat hidupnya tinggi. Ia bangkit dan meneruskan hidupnya dengan menjadi petani di sebuah dusun terpencil di wilayah Cimande, Caringin, Bogor.
Uang memang tak bisa membeli kebahagiaan. Meski 'hanya' hidup sebagai petani, Herning Sukendro si pemeran Wiro Sableng tersebut mengaku lebih bahagia dan tenang sekarang. 

Dikutip dari Liputan 6

Read More