Membuat Transtool Sederhana

Pada kesempatan kali ini, saya akan memberikan sedikit tips untuk membuat aplikasi Transtool yang sederhana dan tanpa database. Tentu saja dibuat dengan menggunakan Visual Basic :p
Buatlah New Project, dan isilah dengan “perlengkapan” berikut ini:
- Satu buah ComboBox, beri nama Combo1.Text, silahkan isi dengan: “Pilih Bahasa“, “Bahasa Indonesia ke English“, dan “English ke Bahasa Indonesia“. Ini merupakan pilihan sebelum proses translate dilakukan.
- Dua buah TextBox, yaitu: Text1.Text dan Text3.Text (semuanya multi line).
Text1.Text adalah tempat menaruh teks yang akan diterjemahkan, sedangkan Text3.Text digunakan untuk menampilkan hasil terjemahnya. Bener-bener keterlaluan kalo sampai nanyain tentang text2.text, hahaha.
- Satu buah Command Button, dengan nama: Command1
Inilah tombol untuk menjalankan proses translate.
- Beberapa Label, mau anda isi kata-kata apa aja, terserah anda
Silahkan anda atur-atur sendiri posisi masing-masing di dalam project anda. Selanjutnya, klik 2 kali pada Command1, lalu masukkan script translate berikut ini (silahkan edit/tambah sendiri):
Option Explicit
Private Sub Command1_Click()
On Error Resume Next
If Combo1.Text = “Bahasa Indonesia ke English” Then
Text3.Text = Text1.Text
Text3.Text = Replace(Text3.Text, “rupiah”, “rupiah”)
Text3.Text = Replace(Text3.Text, “satu”, “one”)
Text3.Text = Replace(Text3.Text, “dua belas“, “twelve“)
Text3.Text = Replace(Text3.Text, “duabelas”, “twelve”)
Text3.Text = Replace(Text3.Text, “limabelas”, “fifteen”)
Text3.Text = Replace(Text3.Text, “tigabelas”, “thirteen”)
Text3.Text = Replace(Text3.Text, “dua puluh”, “twenty”)
Text3.Text = Replace(Text3.Text, “tiga puluh”, “thirty”)
Text3.Text = Replace(Text3.Text, “tiga belas”, “third teen”)
Text3.Text = Replace(Text3.Text, “lima belas”, “fifteen”)
Text3.Text = Replace(Text3.Text, “lima puluh”, “fifty”)
Text3.Text = Replace(Text3.Text, “dua“, “two“)
Text3.Text = Replace(Text3.Text, “tiga”, “three”)
Text3.Text = Replace(Text3.Text, “empat”, “four”)
Text3.Text = Replace(Text3.Text, “lima”, “five”)
Text3.Text = Replace(Text3.Text, “enam”, “six”)
Text3.Text = Replace(Text3.Text, “tujuh”, “seven”)
Text3.Text = Replace(Text3.Text, “delapan”, “eight”)
Text3.Text = Replace(Text3.Text, “sembilan”, “nine”)
Text3.Text = Replace(Text3.Text, “sepuluh”, “ten”)
Text3.Text = Replace(Text3.Text, “sebelas”, “eleven”)
Text3.Text = Replace(Text3.Text, “belas“, “teen“)
Text3.Text = Replace(Text3.Text, “puluh”, “ty”)
Text3.Text = Replace(Text3.Text, “ratus”, “hundred”)
Text3.Text = Replace(Text3.Text, “ribu”, “thousand”)
Text3.Text = Replace(Text3.Text, “juta”, “million”)
Text3.Text = Replace(Text3.Text, “milyar”, “billion”)
Text3.Text = Replace(Text3.Text, “trilyun”, “trillion”)
…….dst…(silahkan_tambah_sendiri)…………
Text3.Text = Replace(Text3.Text, “se”, “one “)
Text3.Text = Text3.Text
If Combo1.Text = “English ke Bahasa Indonesia” Then
Text3.Text = Text1.Text
……sama_seperti_di_atas..(tapi_sebaliknya)………
Else
MsgBox “Silahkan pilih: dari/ke bahasa apa text ingin anda terjemahkan!”
End If
End Sub
Intinya, kita hanya menggunakan “REPLACE“.
Agar bisa berfungsi dengan benar, kata yang lebih panjang harus anda dahulukan daripada kata yang pendek. Misalnya: kata “dua belas” harus didahulukan sebelum kata “dua” dan kata “belas“. Dengan begitu, kata “dua belas” akan direplace lebih dulu sehingga menjadi “twelve“, bukan menjadi “two” dan “teen“.
Kalau sudah selesai dibuat, silahkan disave dan di-compile menjadi exe.