Membuat Kamus Sederhana Menggunakan VB2010

Pada bagian ini kita akan membuat kamus sederhana. Kamus ini akan menampilkan kata-kata bahasa inggris dan memberikan definisi dari kata tersebut dengan bahasa inggris.
Tambahkan 2 buah label, 2 textbox, 1 button dan 1 listbox ke dalam form. Ubah text label1 menjadi word, label2 menjadi definiton dan text button menjadi Search. Ubah properties textbox2 menjadi multiline.

Selanjutnya kita kan menambahkan coding ke dalam program. Langkah pertama, klik 2 kali form1 dan masukkan coding berikut:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ListBox1.Items.Add("aardvark")
        ListBox1.Items.Add("aardwolf")
        ListBox1.Items.Add("aaron")
        ListBox1.Items.Add("aback")
        ListBox1.Items.Add("abacus")
        ListBox1.Items.Add("abaft")
        ListBox1.Items.Add("abalone")
        ListBox1.Items.Add("abandon")
        ListBox1.Items.Add("abandoned")
        ListBox1.Items.Add("abandonment")
        ListBox1.Items.Add("abandons")
        ListBox1.Items.Add("abase")
        ListBox1.Items.Add("abased")
        ListBox1.Items.Add("abasement")
        ListBox1.Items.Add("abash")
        ListBox1.Items.Add("abashed")
        ListBox1.Items.Add("abate")
        ListBox1.Items.Add("abated")
        ListBox1.Items.Add("abatement")
        ListBox1.Sorted = True
    End Sub

Klik 2 kali textbox1 dan masukkan coding berikut:

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        Dim Item As String = TextBox1.Text.ToString()
        Dim index As Integer = ListBox1.FindString(Item)
        If index = -1 Then
            ListBox1.SelectedIndex = ListBox1.SelectedIndex
        Else
            ListBox1.SetSelected(index, True)
        End If
    End Sub

Klik 2 kali button1 dan masukkan coding berikut:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "abacus" Then
            TextBox2.Text = "A manual computing device consisting of a frame holding parallel rods strung with movable counters."
        ElseIf TextBox1.Text = "abash" Then
            TextBox2.Text = "To make ashamed or uneasy; disconcert."
        Else
            'A message box will show up if the entered word is not found
            MsgBox("No mathcing results where found")
        End If
    End Sub

Selanjutnya kita akan menambah fungsi dari button1 (search), dimana fungsi dari button1 tersebut juga dapat dilakukan dengan menekan Enter. Klik form1, pada properties ubah AcceptButton menjadi Button1.

Selanjutnya kita akan menambahkan fitur pada listbox1, dimana user dapat meng-klik 2 kali pada listbox1 dan hasilnya akan muncul pada textbox2 (fungsi yang sama jika kita menggunakan button1). Langkah yang harus dilakukan yaitu, klik menu view code kemudian pada kotak General pilih listbox1 dan pada kotak Declarations pilih DoubleClick.

Kemudian masukkan coding berikut:

Private Sub ListBox1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.DoubleClick
        TextBox1.Text = ListBox1.SelectedItem
        Button1.PerformClick()
    End Sub

Tekan Start Debugging (F5) untuk menjalankan program. Untuk mendapatkan file pdf-nya klik download