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
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 variabelDim kata As String'Buka data di file data.txtOpen App.Path & "\data.txt" For Input As #1'lakukan perulangan untuk mencari kata yang dimaksudkata = Me.txtInggris.TextDo 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 IfLoopClose #1End Sub |
0 komentar:
Posting Komentar