Cara Membuat Translator Dengan VB.NET

Buka http://localhost/phpmyadmin kemudian buat database

Disini saya membuat database dengan nama translator, kemudian membuat tiga table yang akan menampung data dari kalimat, frasa, dan kata. masing - masing table memuat tiga kolom yaitu sebagai berikut.

Name	Property
id	int, primary, auto_increments
ind	varchar(255)
jawa	varchar(255) Setelah membuat tiga table dengan instruksi diatas, sekarang isi masing - masing table sesuai dengan jenisnya, kalimat isi dengan kalimat. contoh ind = "aku cinta kamu" : jawa = "aku tresno karo awakmu" begitupun dengan frasa dan kata, usahakan isi dengan sebanyak banyaknya. gunanya adalah, contoh ketika kita ingin mentranslate "aku cinta kamu dan aku anak nakal" maka aku cinta kamu akan diterjemahkan dengan menggunakan table kalimat karena kita sudah memasukkan kata kunci "aku cinta kamu" dengan terjemahan "aku tresno karo awakmu" sedangkan "aku anak nakal" tidak ada di table kalimat maka akan diterjemahkan perkata yang diambil dari table kata. bingung ? bagus berarti anda mulai berfikir ;) proses selanjutnya adalah mulai membuat aplikasinya dari visual studio. Buat project baru di visual studio dengan type Windows Form Application dengan nama "Translator Bahasa Jawa" Kemudian tambahkan 2 label, 2 textbox dengan properti "Multi Line:true" dan satu button. kemdian tambah reference dengan cara menu bar ->Project->Add Reference.. Pilih MySql.Data ketik code dibawah ini ke dalam module database Imports MySql.Data.MySqlClient Module database     Public cnn As MySqlConnection     Public dr As MySqlDataReader     Public cmd As MySqlCommand     Public Sub konek()         cnn = New MySqlConnection("server=localhost;user id=root;password=;database=translator;")         Try             cnn.Open()         Catch ex As Exception             MsgBox(ex.Message)         End Try     End Sub End Module kemudian pada form1 silahkan ketik code dibawah ini Imports MySql.Data.MySqlClient Public Class Form1     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load         konek()     End Sub     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click         TextBox2.Text = TextBox1.Text & " "         On Error Resume Next         cmd = New MySqlCommand("select * from kalimat", cnn)         dr = cmd.ExecuteReader         While dr.Read             If TextBox2.Text.Contains(dr.Item(1).ToString & " ") Then                 TextBox2.Text = TextBox2.Text.Replace(dr.Item(1).ToString & " ", dr.Item(2).ToString & " ")             End If         End While         dr.Close()         frasa()     End Sub     Sub frasa()         cmd = New MySqlCommand("select * from frasa", cnn)         dr = cmd.ExecuteReader         While dr.Read             If TextBox2.Text.Contains(dr.Item(1).ToString & " ") Then                 TextBox2.Text = TextBox2.Text.Replace(dr.Item(1).ToString & " ", dr.Item(2).ToString & " ")             End If         End While         dr.Close()         kata()     End Sub     Sub kata()         cmd = New MySqlCommand("select * from kata", cnn)         dr = cmd.ExecuteReader         While dr.Read             If TextBox2.Text.Contains(dr.Item(1).ToString & " ") Then                 TextBox2.Text = TextBox2.Text.Replace(dr.Item(1).ToString & " ", dr.Item(2).ToString & " ")             End If         End While         dr.Close()     End Sub End Class Kemudian jalankan aplikasi dengan cara tekan F5, sukses !!! Terima kasih & semoga bermanfaat sumber : http://coder-wa.blogspot.co.id/2014/08/membuat-translator-dengan-vbnet-tutorial.html