Searching Listbox Visual Basic.Net

Dalam ilmu komputer, sebuah algoritma pencarian dijelaskan secara luas adalah sebuah algoritma yang menerima masukan berupa sebuah masalah dan menghasilkan sebuah solusi untuk masalah tersebut, yang biasanya didapat dari evaluasi beberapa kemungkinan solusi. Sebagian besar algoritma yang dipelajari oleh ilmuwan komputer adalah algoritma pencarian.

Algoritma pencarian string adalah algoritma untuk melakukan pencarian semua kemunculan string pendek pattern[0..n ? 1] yang disebut pattern di string yang lebih panjang teks[0..m ? 1] yang disebut teks.

Pencocokkan string merupakan permasalahan paling sederhana dari semua permasalahan string lainnya, dan dianggap sebagai bagian dari pemrosesan data, pengkompresian data, analisis leksikal, dan temu balik informasi. Teknik untuk menyelesaikan permasalahan pencocokkan string biasanya akan menghasilkan implikasi langsung ke aplikasi string lainnya.

Pada artikel ini kita akan mencoba untuk membahas bagaimana Searching Listbox menggunakan Visual Basic.Net. Dan di bawah ini adalah kode dari program pencarian data di list box dengan textbox sebagai pembandingnya. setiap karakter dari listbox pertama yang di tulis di textbox akan dimunculkan di listbox kedua.

Syntax

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    ListBox2.Items.Clear()
    Dim listLength As Integer = (ListBox1.Items.Count - 1)

    Dim i, j As Integer
    Dim listString, newString As String
    Dim spaceCharCounter As Integer = 0

    For i = 0 To listLength
        listString = ListBox1.Items.Item(i)
        For j = 0 To listString.Length - 1
            If spaceCharCounter >= 2 Then
                newString += listString.Substring(j, 1)
            ElseIf listString.Substring(j, 1) = Chr(32) Then
                spaceCharCounter += 1
            End If
        Next
        If InStr(newString.ToLower, TextBox1.Text.ToLower) Then
            ListBox2.Items.Add(ListBox1.Items.Item(i))
        End If
        listString = Nothing
        spaceCharCounter = 0
        newString = Nothing
    Next

End Sub

Alfa Adhitya Member since December 18, 2019

Computer science education cannot make anybody an expert programmer any more than studying brushes and pigment can make somebody an expert painter – Eric S