Kamus Inggris - Advance Form Center - Bagian ke-9

Kamus Inggris - Advance Form Center merupakan kelanjutan dari bagian ke-8.
Pada bagian ke-9 ini kita akan menambahkan modul form center dan module registry. Module form center berguna untuk menyimpan form di tengah layar, dalam hal ini kita akan menggunakan advance form center. Diberi kata advance, karena ia memiliki beberapa keistimewaan, yaitu:

• Menampilkan form di tengah layar hanya untuk pertama kali saja,
• Pada kali kedua ditampilkan dan seterusnya, posisi form akan diambil dari nilai yang terdapat pada registry
• Tidak terpengaruh oleh tingginya taskbar, sehingga ia akan berada benar-benar di tengah layar.

Module registry selain digunakan untuk module form center, ia akan digunakan juga dalam setting-setting, opsi, dan konfigurasi aplikasi ini.

Tujuan pada Bagian ke-9

• Menambahkan modul form center agar aplikasi ditampilkan tepat di tengah layar.
• Menambahkan modul registry untuk keperluan setting/konfigurasi, dan opsi.

Langkah-langkah

• Buatlah modul baru dan beri nama modForm, copy dan pastekan kode ini.
• Buatlah modul baru dan beri nama modRegistry, copy dan pastekan kode ini.

Kode-kode
Gantilah kode di bawah ini (terdapat pada frmMain):

Private Sub Form_Load()  
    BukaData App.Path & "\database\en-id.txt", List2  
End Sub  

Sehingga menjadi:

Private Sub Form_Load() 
    GetPositionsFromRegistry Me 'ini untuk posisi form yang diambil dari registry 
    BukaData App.Path & "\database\en-id.txt", List2 
End Sub 

Tambahkan kode di bawah ini pada frmMain:

Private Sub Form_Unload(Cancel As Integer) 
    SavePositionsInRegistry Me ' menyimpan posisi ke dalam registry 
End Sub 

Uji Coba

• Compile terlebih dahulul projectnya, Jalankan melalui Windows Explorer. Pada saat pertama kali dijalankan aplikasi akan berada tepat di tengah layar. Selanjutnya geser (drag) aplikasi kamus dan tutuplah, buka kembali, maka sekarang ia akan tampil seperti pada posisi terakhir kali ia ditutup.

Sampai disini mungkin tidak ada pertanyaan, baiklah terima kasih. Kita lanjutkan pada bagian yang ke-10.

READ MORE - Kamus Inggris - Advance Form Center - Bagian ke-9

Kamus Inggris - Tutorial Cara Membuatnya

Agaknya prosedur-prosedur fungsi yang saya kumpulkan sudah lumayan walaupun tidak bisa disebut banyak, daripada prosedur-prosedur tersebut kurang bermanfaat dan menganggur, lebih baik kita gunakan untuk merakit software-software kecil. Lalu darimana kita memulainya...

Beberapa hal...
Prosedur-prosesedur fungsi yang telah saya tuliskan sebagian kecil berasal dari copy paste (tanpa modifikasi), sebagian kecil ide/dibuat sendiri, dan sebagian besar merupakan hasil copy yang selanjutnya dimodikasi kemudian dijalankan, untuk memastikan apakah ia bisa berjalan dengan baik. Prosedur-prosedur yang telah dimodifiksi tersebut diusahakan agar tidak memiliki dependency (ketergantungan) secara langsung terhadap objek maupun variable-variable yang bersifat publik, tujuan utamanya adalah agar memiliki sifat mudah digunakan kembali, mudah dicopypastekan, mudah di-encapsulate dalam bentuk dll atau ocx. Disamping itu ia akan menjadi prosedur dari pemrograman modular yang baik (jika tidak dijadikan dll atau ocx). Dengan demikian, kita dapat memisahkan bagian demi bagian dengan mudah, dan terhindar dari kerumitan kode karena melihatnya secara keseluruhan.

Untuk siapa tutorial ini?
Pemula, untuk pemula saja, karena saya pun seorang pemula. Jadi, jika seorang pemula bingung melihat kode, kemungkinan saya pun sama, jadi kita sama-sama belajar.

Selanjutnya...
Untuk membuat software-software kecil, ada beberepa tools yang harus kita kumpulkan dan miliki. Beberapa tools tersebut diantaranya memang harus dimiliki seperti InnoSetup (tools installer) dan sebagainya, dan sebagian lagi optional, hanya sebagai pelengkap untuk memudahkan dan mempercepat pekerjaan seperti MZ-Tools dan sebagainya (banyak). kita bahas saja sambil berjalan.

Software kecil apa yang akan kita buat?
Kamus Inggris Indonesia sederhana, karena yang tidak sederhana sudah banyak bertebaran di internet, walaupun sederhana, tetapi saya akan membagikannya menjadi beberapa puluh bagian (part).

Darimana databasenya?
Kebetulan saya memiliki beberapa database kamus inggris berasal dari software-software open source salah satunya dari gkamus, Kambing (bukan hewan) singkatan dari Kamus Bahasa Indonesia Inggris, dan lain sebagainya, terdiri dari puluhan ribu kosakata. Jika Anda ingin memilikinya, silakan kunjungi situsnya.

READ MORE - Kamus Inggris - Tutorial Cara Membuatnya

Kamus Inggris - Membuat Project Baru - Bagian Ke-2

Kamus Inggris - Membuat Project Baru merupakan kelanjutan dari Bagian ke-1.
Selanjutnya untuk membuat software menggunakan VB6, yang harus kita lakukan adalah membuat project baru.

Tujuan:

• Membuat project baru menggunakan VB6
• Menambahkan kemampuan copy text yang berasal dari Clipboard

Langkah-langkah:

• Buat project baru
• Tambahkan 2 TextBox, 1 ListBox, 1 Timer
• Rubahlah property Interval pada Timer1 = 1
• Ganti nama Project1 menjadi prjKamus
• Ganti nama Form1 menjadi frmMain
• Modifikasi ukuran-ukurannya, sehingga terlihat seperti gambar di bawah.
• Simpanlah dalam folder, beri nama folder itu dengan Project Kamus Inggris

Kode-kode:

'simpan (copy dan pastekan) kode di bawah ini dalam frmMain 
Option Explicit 
 
Dim strFromClipboard As String 
 
Private Sub Timer1_Timer() 
    Dim s As String 
    s = Clipboard.GetText 
    If s <> strFromClipboard Then 
        strFromClipboard = s 
        Text1.Text = strFromClipboard 
    End If 
End Sub 

Uji Coba:

• Jalankan project yang baru kita buat dengan cara menekan tombol F5 atau mengklik tombol start yang terdapat pada toolbar VB6.
• Copy sembarang text, maka text yang telah dicopy tadi secara otomatis akan masuk ke dalam Text1

READ MORE - Kamus Inggris - Membuat Project Baru - Bagian Ke-2

Kamus Inggris - Handle Error 521 dan Parse Text - Bagian 3

Kamus Inggris - Handle Error 521 merupakan kelanjutan dari Bagian ke-2.
Ternyata kode yang sangat sedikit yang terdapat pada bagian ke-2 menyisakan bug, terkadang ia memunculkan error yaitu Error Number = 521 Error Description = "Unable to open clipboard"

Tujuan pada bagian ke-3:

• Meng-handle dan mengkoreksi Error 521
• Mem-parse text dan menambahkannya ke dalam objek ListBox
• Memfilter hanya karakter yang valid untuk diterjemahkan

Langkah-langkah:

• Singkat saja, ganti seluruh kode yang terdapat pada bagian ke-1 (Error 521) dengan kode yang terdapat pada bagian kode-kode.

Kode-kode:

Option Explicit 
 
Private Declare Function EmptyClipboard Lib "user32" ) As Long 'API Function 
Dim strFromClipboard As String 
 
'--------------------------------------------------------------------------------- 
' Copy text dari clipboard dan masukan ke dalam objek TextBox 
' dengan men-trigger secara kontinyu menggunakan bantuan timer 
'--------------------------------------------------------------------------------- 
Private Sub Timer1_Timer() 
     
On Error GoTo ErrHandler 'apabila error loncat ke Handle Error 
 
    Dim s As String 
     
    s = Clipboard.GetText 'baris ini terkadang error |Error Number = 521| 
     
    If s <> strFromClipboard Then 
        ParsingText s, List1 
        strFromClipboard = s 
        Text1.Text = strFromClipboard 
    End If 
     
    Exit Sub 
     
ErrHandler: 
    'Handle Error 
    If Err.Number = 521 Then 'Can't open the clipboard 
        Text1.Text = "" 
        EmptyClipboard 'paksa kosongkan clipboard dengan Fungsi API 
        Resume Next 'loncat lagi ke baris atas dan lanjutkan eksekusi membaca kode) 
    End If 
     
End Sub 
 
'-------------------------------------------------------------------------------- 
' dua event List1_Click() dan Text_DblClick() 
' dengan kode sementara, hanya untuk mengecek dan melihat hasilnya saja 
'-------------------------------------------------------------------------------- 
Private Sub List1_Click() 
    Text2.Text = "Menterjemahkan : " & List1.Text & " ==> ke dalam bahasa Inggris" 
End Sub 
 
Private Sub Text1_DblClick() 
    Text2.Text =   "Menterjemahkan : " & Text1.SelText & " ==> ke dalam bahasa Inggris" 
End Sub 
 
'--------------------------------------------------------------------------------- 
' Fungsi untuk Parse uraikan) kalimat ke dalam text dan masukan ke ListBox 
'--------------------------------------------------------------------------------- 
Private Sub ParsingText(s As String, lst As ListBox) 
     
    Dim strText As String 
    Dim y() As String 
    Dim i As Integer 
    Dim b As String 
 
    lst.Clear 
    strText = s 
    strText = Replace(strText, " ", vbCrLf) 
    y = Split(strText, vbCrLf) 
     
    For i = LBound(y) To UBound(y) 
        b = Trim(y(i)) 
        If IsValidWord(b) Then 
            lst.AddItem y(i) 
        End If 
    Next 
     
End Sub 
 
'------------------------------------------------------------------------------- 
' Fungsi untuk memfilter karakter yang tidak valid diterjemahkan 
'------------------------------------------------------------------------------- 
Private Function IsValidWord(s As String) As Boolean 
 
    Dim x As String 
    Dim z As String 
     
    z = "= - , . % *" 'tambahkan karakter tidak valid untuk diterjemahkan disini 
    x = s 
    If Len(x) = 0 Then Exit Function 
    If InStr(1, z, s) > 0 Then Exit Function 
    IsValidWord = True 
     
End Function 
 
'------------------------------------------------------------------------------- 
' == End All Of Code ==
'------------------------------------------------------------------------------- 

Uji Coba:
Jalankan, copy sembarang text dan klik sembarang item yang terdapat pada ListBox, apabila berhasil maka gambarnya seperti yang ada di samping [ScreenShot]

Mas, saya mau bertanya, apakah ini sedang membuat software Kamus Bahasa Inggris atau sedang membuat Rencana Pelaksaan Pembelajaran (RPP)?

READ MORE - Kamus Inggris - Handle Error 521 dan Parse Text - Bagian 3