Membuat Translator Dengan VB.NET (Tutorial)

Sebelumnya terima kasih untuk semua Anggota keluarga PROGRAMMER FORUM di whatsApp yang telah mensetujui usul saya untuk menampung hasil diskusi di grup sekaligus berbagi ide di blog sederhana ini.

Karena saya yang memberikan usul maka saya akan bertanggung jawab untuk menulis tulisan pertama di blog ini.

Tutorial ini membahas tentang bagaimana membuat translator seperti google translator namun dengan versi desktop apps yang dibuat dengan visual basic.net. Untuk mengikuti tutorial ini, tool yang dibutuhkan adalah

1. Visual Studio 2010 atau yang lebih tinggi Download Disini
2. MySql server saya sarankan install xampp Download Disini
3. MySql Connector Download Disini

Setelah semua tool diatas telah di download dan terinstall dengan sukses, maka proses selanjutnya adalah coding :D

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.

kemudian tambahkan modul dengan cara pada menu bar project->add module dengan nama "database"

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 telah meluangkan waktunya untuk membaca dan mengikuti tutorial ini, oh iya saya sadar bahwa ini mungkin akan sulit diikutin bagi pemula tapi insyaAllah lain waktu saya akan membuat tutorial berbentuk video dengan topik yang sama. selamat berjuang ;)

Lorem Ipsum

Lorem ipsum dolor sit amet, consectetuer adipiscing elit, sed diam nonummy nibh euismod tincidunt ut laoreet dolore magna aliquam erat volutpat. Ut wisi enim ad minim veniam, quis nostrud exerci tation ullamcorper suscipit lobortis nisl ut aliquip ex ea commodo consequat. Duis autem vel eum iriure dolor in hendrerit in vulputate velit esse molestie consequat, vel illum dolore eu feugiat nulla facilisis at vero eros et accumsan et iusto odio dignissim qui blandit praesent luptatum zzril delenit augue duis dolore te feugait nulla facilisi. Nam liber tempor cum soluta nobis eleifend option congue nihil imperdiet doming id quod mazim placerat facer possim assum. Typi non habent claritatem insitam; est usus legentis in iis qui facit eorum claritatem. Investigationes demonstraverunt lectores legere me lius quod ii legunt saepius. Claritas est etiam processus dynamicus, qui sequitur mutationem consuetudium lectorum. Mirum est notare quam littera gothica, quam nunc putamus parum claram, anteposuerit litterarum formas humanitatis per seacula quarta decima et quinta decima. Eodem modo typi, qui nunc nobis videntur parum clari, fiant sollemnes in futurum.