Searching Listbox Visual Basic.Net

alfa6661
- December 03, 2011
0 (0 votes)
Rate :
bagaimana cara melakukan pencarian pada item 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.

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

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

– Eric S. Raymond

Have a better explanation?

If you have comments about this post. Please write your comments below

No comments associated with this article