Kesulitan mengingat/menghafal kata-kata dalam bahasa inggis?, vocabulary  yang kurang?, nilai bahasa inggris kurang?. Solusi:hafalkan semua kata  yang ada di kamus bahasa inggris dijamin mumet.com, hehehehe :) . Nah  kali kita kita akan coba membuat program kamus sederhana menggunakan  visual basic (vb) dengan memanfaatkan file teks sebagai data.
Pertama, silahkan buat file teks menggunakan notepad kemudian, kemudian  ketik datanya seperti terlihat pada gambar. Kalo bisa semua kata dalam  kamus diketik semua biar tambah lengkap :)

Simpan dengan nama data.txt.

Desain Tampilan form di visual basic sebagai berikut
Klik 2x pada tombol terjemahkan, kemudian masukkan kode berikut ini:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
   
Private Sub cmdTerjemahkan_Click()
'Deklarasi variabel
Dim kata As String
'Buka data di file data.txt
Open App.Path & "\data.txt" For Input As #1
'lakukan perulangan untuk mencari kata yang dimaksud
kata = Me.txtInggris.Text
Do While Not EOF(1)
  Input #1, Data
  hasil = Split(Data, "-")
  If Trim(hasil(0)) = kata Then
  'tampilkan hasil pencariannya
   Me.txtIndonesia.Text = hasil(1)
    Exit Do
  End If
Loop
Close #1
End Sub