Previous Next

Membuat kamus dengan Visual Basic

Posted by zonefreeze On - - 0 komentar

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

Categories:

Tinggalkan Komentar