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