Sort by Shell Menggunakan Visual Studio 2008

1. Edit textbox2

    Multiline : True

    ScrollBars : Vertical

2. Edit label1

    Text : Jumlah Data

3. Edit button1

    Text : Sort By Shell

Kemudian klik 2 kali pada textbox1. Jika sudah, masukkan koding d bawah ini :

Public Class Form1

    Dim T As String

    Dim AR() As Integer, N As Integer

    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress

        Dim R As Integer

        If e.KeyChar = Chr(13) Then

            N = Val(TextBox1.Text)

            ReDim AR(N + 1)

            T = ""

            For I As Byte = 1 To N

                R = Int(Rnd() * 899) + 100

                AR(I) = R

                T += Trim(Str(R)) & "  "

            Next

            TextBox2.Text = T

        End If

    End Sub

    Sub ShellSort()

        Dim G, F As Integer

        Dim C As Double

        G = N \ 2

        While G > 0

            Do

                F = 0

                For X = 1 To N - G

                    If AR(X) > AR(X + G) Then

                        C = AR(X)

                        AR(X) = AR(X + G)

                        AR(X + G) = C

                        F = 1

                    End If

                Next X

            Loop Until F = 0

            G = G \ 2

        End While

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Call ShellSort()

        T = ""

        For X = 1 To N

            T += Trim(Str(AR(X))) & "  "

        Next X

        TextBox2.Text = T

    End Sub

End Class