Membuat kamus dengan Visual Basic

saya pernah baca source kode dari buku dulu tahun 2007, source ini untuk membuat kamus Bahasa Indonesia ke Inggris dan sebaliknya.

Berikut adalah langkah-langkah nya:
1. Letakkan sebuah ListBox, ganti Propertinya menjadi Daftar
2. Copykan ListBox di atas, pastekan, jika ditanyakan apakah akan membuat kontrol Array klik Yes
3. Masukkan 3 buah Label, 2 buah CheckBox, 2 buah TextBox, dan 1 ListBox baru
4. Copykan ListBox, pastekan dan kembali buat kontrol Array dan otomatis akan berubah menjadi List1(0)dan List1(1).
5. Timpakan List1(1) di atas List1(0)
6. Atur properti masing-masing kontrol sebagai berikut:
a. Check1, Valuenya : 1-Checked
b. Text1, textnya dikosongkan
c. Text2, Lockednya menjadi True, dan textnya dikosongkan
d. Dari Daftar(0), Daftar(1), List1(0), List1(1), Visiblenya diubah jadi False
7. Masukkan kode berikut:

Code:

Dim a As Integer, b As Integer

Private Sub Check1_Click()
If Check1.Value = 0 Then
Check2.Value = 1
Else
Check2.Value = 0
End If
a = Check1.Value
b = Check2.Value
End Sub
Loop
Close#1
End Sub

Private Sub List1_DblClick(Index As Integer)
Text1= List1(b).Text
List1(a).ListIndex = 0
Text2 = List1(a).text
List1(b).Visible = False
End Sub

Private Sub List1_KeyPress(Index As Integer, KeyAscii As Integer)
If KeyAscii = 13 Then
Text1 = List1(b).Text
List1(a).ListIndex = 0
Text2 = List1(a).Text
List1(b).Visible = False
End If
End Sub

Private Sub Text1_Change()
List1(b).Clear
If Trim(Text1.Text) <> “” Then
For h = 0 To 1
List1(h).Clear
Next h
For n = 0 To Daftar(0).ListCount – 1
For k = 0 To 1
Daftar(k).ListIndex = n
Next k
Search b
Next n

If List1(b).ListCount = 0 Then
List1(b).Visible = False
Else
List1(b).Visible = True
End If
End If
End Sub

Private Function Cari(item As String) As String
Dim kata() As String
kata() = Split(item, “”)
Cari = Join(kata(), “”)
End Function

Private Function search(s As Integer)
k = Len(Text1.Text)
a1 = Trim(LCase(Cari(Left(Text1.text,k))))
a2 = Trim(LCase(Cari(Left(Daftar(s).Text,k))))

If a1 = a2 Then
For h = 0 To 1
List1(h).AddItem Daftar(h).Text
Next h
End If
End Function

Private Sub Text1_KeyDown(KeyCode As String, Shift As Integer)
If KeyCode =vbKeyDown Then
If List1(b).ListCount <> 0 Then
List1(b).SetFocus
List1(b).ListIndex = 0
End If
End If
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If List1(a).ListCount <> 0 Then
List1(a).ListIndex = 0
End If

If List1(b).ListCount <> 0 Then
List1(b).ListIndex = 0
End If

If Text1 = List1(b).Text Then
Text1 = List1(b).Text
Text2 = List1(a).Text
List1(b).Visible = False
Else
MsgBox “Terjemahan Tidak Ditemukan!”, vbOKOnly, “Pesan”
End If
End If
End Sub

About these ads

9 Komentar

  1. tolong contoh programnya donk…

  2. boss boleh tolong kasi contoh gambar? soalnya pake 3 buat listbox & 2 label tu keknya agak pusing… thanx

  3. toloong contooh progrmnyadonk solnya butuh bangt

  4. tq, q cba dlu

  5. dah q cba tpi ad yang error
    n ga bsa jln, gmna?

  6. mas , ada source code untuk j2me gak mas ????? klo ada bagi dong , kirim ke email saya , atau ke blog saya ,
    thx ya mnas

  7. ada contohnya ga? yang sudah jadi…

  8. Bisa minta contohnya cntoh programnya g mas…kalo ada kirimke email Qu ….Pliz butuh banget…

  9. sukses ;….


Comments RSS TrackBack Identifier URI

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Logout / Ubah )

Twitter picture

You are commenting using your Twitter account. Logout / Ubah )

Facebook photo

You are commenting using your Facebook account. Logout / Ubah )

Google+ photo

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

Ikuti

Get every new post delivered to your Inbox.