Visitors

Label

Klik Gambar Buka Di Bawah
Tukar Link
Tukar Link
Klik Gambar Buka Di Atas

Tukar Link

Please Buka Gambar Di Bawah,, Please,, Please,, Please,, Please,,

Selasa, 02 Juli 2013

Cara membuat Kamus Dengan VB 6



 NB : Maaf kali ini saya tidak pakai gambar :'(

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:

NB : Membuka View Code
klik view pada sidebar di atas klik View Kode Tinggal Copas Code Di Bawah
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

Tidak ada komentar:

Poskan Komentar

Tayangan Laman

Klik Gambar Buka Di Bawah
Flag Counter
Klik Gambar Buka Di Atas

Total Pageviews

Categories