METODE SORTING MODIFIED BUBBLE VB.NET

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim i, j, temp As Long
        Dim n As Integer = CInt(TextBox1.Text)
        Dim x(500000) As Long
        Dim flag As Boolean


        TextBox2.Text = ("Start Time " & Hour(Now) & " " & Minute(Now) & " " & Second(Now))
        Dim start As Integer = Minute(Now)
        Dim start2 As Integer = Second(Now)

        ListBox1.Items.Clear()
        For i = 0 To CInt(TextBox1.Text) - 1
            Randomize()
            x(i) = CInt(Math.Ceiling(Rnd() * 500000)) + 1
            ListBox1.Items.Add(x(i))
        Next

        ListBox2.Items.Clear()
        For i = 0 To n - 1
            flag = True
            For j = 0 To n - i - 1
                If x(j) > x(j + 1) Then
                    temp = x(j)
                    x(j) = x(j + 1)
                    x(j + 1) = temp
                    flag = False
                End If
            Next

            If flag = True Then Exit For
        Next

        For i = 0 To n - 1
            ListBox2.Items.Add(x(i))
        Next

        TextBox3.Text = ("End Time " & Hour(Now) & " " & Minute(Now) & " " & Second(Now))
        Dim end2 As Integer = Minute(Now)
        Dim end3 As Integer = Second(Now)
        Dim interval As Integer = end2 - start
        Dim interval2 As Integer = end3 - start2
        If interval > 0 Then
            interval2 = 60 - interval2
        End If

        TextBox4.Text = ("interval " & interval & " menit dan " & interval2 & " detik")
    End Sub


End Class

METODE SORTING STRAIGHT SELECTION VB.NET

Public Class Form1

    Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
        Dim i, j, min, temp As Long
        Dim n As Integer = CInt(TextBox1.Text)
        Dim x(500000) As Long
        Dim flag As Boolean


        TextBox2.Text = ("start Time " & Hour(Now) & " " & Minute(Now) & " " & Second(Now))
        Dim start As Integer = Minute(Now)
        Dim start2 As Integer = Second(Now)

        ListBox1.Items.Clear()
        For i = 0 To CInt(TextBox1.Text) - 1
            Randomize()
            x(i) = CInt(Math.Ceiling(Rnd() * 500000)) + 1
            ListBox1.Items.Add(x(i))
        Next

        ListBox2.Items.Clear()
        For i = 0 To n - 1
            For j = i + 1 To n - 1
                If x(i) > x(j) Then
                    temp = x(i)
                    x(i) = x(j)
                    x(j) = temp
                End If
            Next
        Next

        For i = 0 To n - 1
            ListBox2.Items.Add(x(i))
        Next

        TextBox3.Text = ("Stop Time " & Hour(Now) & " " & Minute(Now) & " " & Second(Now))
        Dim end2 As Integer = Minute(Now)
        Dim end3 As Integer = Second(Now)
        Dim interval As Integer = end2 - start
        Dim interval2 As Integer = end3 - start2
        If interval > 0 Then
            interval2 = 60 - interval2
        End If

        TextBox4.Text = ("interval " & " menit dan " & interval2 & " detik")
    End Sub
End Class

METODE SORTING STANDART BUBBLE VB.NET

Public Class Form1

    Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
        Dim i, j, min, temp As Long
        Dim n As Integer = CInt(TextBox1.Text)
        Dim x(500000) As Long
        Dim flag As Boolean


        TextBox2.Text = ("Start Time " & Hour(Now) & " " & Minute(Now) & " " & Second(Now))
        Dim start As Integer = Minute(Now)
        Dim start2 As Integer = Second(Now)

        ListBox1.Items.Clear()
        For i = 0 To CInt(TextBox1.Text) - 1
            Randomize()
            x(i) = CInt(Math.Ceiling(Rnd() * 500000)) + 1
            ListBox1.Items.Add(x(i))
        Next

        ListBox2.Items.Clear()
        For i = 0 To n - 1
            For j = 0 To n - i
                If x(j) > x(j + 1) Then
                    temp = x(j)
                    x(j) = x(j + 1)
                    x(j + 1) = temp
                End If
            Next
        Next

        For i = 0 To n - 1
            ListBox2.Items.Add(x(i))
        Next

        TextBox3.Text = ("End Time " & Hour(Now) & " " & Minute(Now) & " " & Second(Now))
        Dim end2 As Integer = Minute(Now)
        Dim end3 As Integer = Second(Now)
        Dim interval As Integer = end2 - start
        Dim interval2 As Integer = end3 - start2
        If interval > 0 Then
            interval2 = 60 - interval2
        End If

        TextBox4.Text = ("interval " & " menit dan " & interval2 & " detik")
    End Sub
End Class

METODE SELECTION SORT VB.NET

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim i, j, min, temp As Long
        Dim n As Integer = CInt(TextBox1.Text)
        Dim x(500000) As Long
        Dim flag As Boolean


        'textbox2.text = ("Start Time " & Hour(Now) & " " & Minute(Now) & " " & Second(Now))
        Dim start As Integer = Minute(Now)
        Dim start2 As Integer = Second(Now)


        ListBox1.Items.Clear()
        ListBox2.Items.Clear()
        For i = 0 To CInt(TextBox1.Text) - 1
            Randomize()
            x(i) = CInt(Math.Ceiling(Rnd() * 500000)) + 1
            ListBox1.Items.Add(x(i))
        Next

        ListBox2.Items.Clear()
        For i = 0 To n - 1
            min = i
            For j = i + 1 To n - 1
                If x(j) < x(min) Then
                    min = j
                End If
            Next
            If min <> i Then
                temp = x(i)
                x(i) = x(min)
                x(min) = temp
            End If
        Next

        For i = 0 To n - 1
            ListBox2.Items.Add(x(i))
        Next

        ' textbox3.text = ("End Time " & Hour(Now) & " " & Minute(Now) & " " & Second(Now))
        Dim end2 As Integer = Minute(Now)
        Dim end3 As Integer = Second(Now)
        Dim interval As Integer = end2 - start
        Dim interval2 As Integer = end3 - start2
        If interval > 0 Then
            interval2 = 60 - interval2
        End If

        TextBox4.Text = ("interval " & interval & " menit dan " & interval2 & " detik")


    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        '    function bs (v(),n,x)
        '    Dim bs, low, high As Integer
        '    bs = -1
        '    low = 1
        '    high = n

        '    Do While low <= high And bs = -1
        '        Mid = (low + high) \ 2
        '        If x = v(Mid) Then
        '            bs = Mid()
        '        ElseIf x < v(Mid) Then
        '            high = Mid() - 1
        '        Else
        '            low = Mid() + 1

        '        End If
        '    Loop
        'End Function
    End Sub


    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

        'Function nf(ByVal n)
        '    Dim a, b, c, batas As Integer
        '    a = 0
        '    b = 1

        '    Do While A + B <= batas
        '        C = a + B
        '        A = b
        '        b = C
        '    Loop

        '    nf = c
        'End Function

    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click


    End Sub
End Class

METODE SEARCHING LINEAR SEARCH VB.NET

Public Class Form1

    Function LS(ByVal V() As Long, ByVal N As Integer, ByVal X As Integer)

        Dim i As Long

        LS = -1

        i = 0

        Do While i <= N And LS = -1

            If X = V(i) Then

                LS = i + 1

                Return LS

            End If

            i = i + 1

        Loop

    End Function

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

        Dim i, j, position As Long

        Dim x(500000) As Long

        Dim flag As Boolean

        ListBox1.Items.Clear()

        ListBox2.Items.Clear()

      

        'TextBox3.text = ("Start Time " & Hour(Now) & " " & Minute(Now) & " " & Second(Now))

        Dim start As Integer = Minute(Now)

        Dim start2 As Integer = Second(Now)

        

        For i = 0 To CInt(TextBox1.Text) - 1

            Randomize()

            x(i) = CInt(Math.Ceiling(Rnd() * 5000)) + 1

            ListBox1.Items.Add(x(i) & "  - pada posisi ke - " & i + 1)

        Next

        position = LS(x, CInt(TextBox1.Text) - 1, CInt(TextBox2.Text))

        If position = -1 Then

            ListBox2.Items.Add("Data tidak ditemukan")

        Else

            ListBox2.Items.Add("Data ditemukan pada posisi " & position)

        End If

        'TextBox4.text = ("End time " & Hour(Now) & " " & Minute(Now) & " " & Second(Now))

        Dim end2 As Integer = Minute(Now)

        Dim end3 As Integer = Second(Now)

        Dim interval As Integer = end2 - start

        Dim interval2 As Integer = end3 - start2

        If interval > 0 Then

            interval2 = 60 - interval2

        End If

        TextBox5.text = (" interval " & interval & " menit dan " & interval2 & " detik")

    End Sub

End Class