Simak baik-baik iya . !!!
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.
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
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
Contoh Program
Tidak ada komentar:
Posting Komentar