03 กุมภาพันธ์ 2554

VB.Net Google Translator

Google ได้ทำการวิจัยและผลิตผลงานออกมาให้เราใช้งานอย่างมากมาย แถมยังได้สร้าง API สำหรับผลงานที่ผลิตขึ้นมาซึ่งมีมากมาย สำหรับบทความนี้ก็จะยกตัวอย่าง API ของตัวแปลภาษา (Google Translate) ซึ่งใช้แปลภาษาต่าง ๆ  เพื่อให้เราทั้งหลายนำไปเขียนโปรแกรมต่อยอด ซึ่งก็ไม่มีอะไซับซ้อน

Download API ของ Google Translate 
เราต้องเข้าไปทำการดาวน์โหลด API มาเก็บไว้ที่เครื่องเราก่อน ที่เว็บไซต์ http://code.google.com/p/google-api-for-dotnet/downloads/list จะมี API ให้เลือกหลายรุ่น แนะนำให้ download ไฟล์ชื่อ 
GoogleTranslateAPI_0.4_alpha.zip
จากนั้นทำการแตกไฟล์ ออกมาไว้ที่ floder ที่ต้องการ (แล้วจำไว้ด้วยว่าเก็บไว้ที่ไหน)


เขียนโปรแกรมด้วย VB.Net
1. เปิด Visual Studio 20xx จากนั้นคลิกเลือก New Project....
เลือก Visual Basic -> Windows -> Windows Forms Application
ที่ช่อง Name ป้อน  GooPlae  (อ่านว่า กูแปล)
จากนั้นคลิกปุ่ม OK

2. ทำการ Add Reference โดยไปที่เมนู Project -> Add Reference....
ที่หน้าต่าง Add Reference ให้คลิกที่แทป  Browse
แล้วเลือก GoogleTranslateAPI.dll ที่เรา Download  และทำการ Unzipไว้ตอนแรก
(จะเก็บอยู่ภายใต้ Floder ที่เรา Unzip จะอยู่ที่ bin -> DotNet)




















3. ที่ Form1 ให้เพิ่มคอนโทรล ลงในฟอร์ม ดังภาพ

 4. ทำการเขียนคำสั่ง โดย double click ที่ฟอร์ม แล้วป้อนคำสั่งดังนี้


Imports Google.API.Translate
Imports System.Data

Public Class Form1
    Private gooplae1 As New TranslateClient("")
    Private dt As New Data.DataTable("FromCountry")
    Private dt1 As New Data.DataTable("ToCountry")


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        dt.Columns.Add("CountryCode", GetType(System.String))
        dt.Columns.Add("CountryName", GetType(System.String))

        dt.Rows.Add(New Object() {"af", "AFRIKAANS"})
        dt.Rows.Add(New Object() {"sq", "ALBANIAN"})
        dt.Rows.Add(New Object() {"am", "AMHARIC"})
        dt.Rows.Add(New Object() {"ar", "ARABIC"})
        dt.Rows.Add(New Object() {"hy", "ARMENIAN"})
        dt.Rows.Add(New Object() {"az", "AZERBAIJANI"})
        dt.Rows.Add(New Object() {"eu", "BASQUE"})
        dt.Rows.Add(New Object() {"be", "BELARUSIAN"})
        dt.Rows.Add(New Object() {"bn", "BENGALI"})
        dt.Rows.Add(New Object() {"bh", "BIHARI"})
        dt.Rows.Add(New Object() {"br", "BRETON"})
        dt.Rows.Add(New Object() {"bg", "BULGARIAN"})
        dt.Rows.Add(New Object() {"my", "BURMESE"})
        dt.Rows.Add(New Object() {"ca", "CATALAN"})
        dt.Rows.Add(New Object() {"chr", "CHEROKEE"})
        dt.Rows.Add(New Object() {"zh", "CHINESE"})
        dt.Rows.Add(New Object() {"zh-CN", "CHINESE_SIMPLIFIED"})
        dt.Rows.Add(New Object() {"zh-TW", "CHINESE_TRADITIONAL"})
        dt.Rows.Add(New Object() {"co", "CORSICAN"})
        dt.Rows.Add(New Object() {"hr", "CROATIAN"})
        dt.Rows.Add(New Object() {"cs","CZECH"})
        dt.Rows.Add(New Object() {"dv", "DHIVEHI"})
        dt.Rows.Add(New Object() {"nl", "DUTCH"})
        dt.Rows.Add(New Object() {"en", "ENGLISH"})
        dt.Rows.Add(New Object() {"eo", "ESPERANTO"})
        dt.Rows.Add(New Object() {"et", "ESTONIAN"})
        dt.Rows.Add(New Object() {"fo", "FAROESE"})
        dt.Rows.Add(New Object() {"tl", "FILIPINO"})
        dt.Rows.Add(New Object() {"fi", "FINNISH"})
        dt.Rows.Add(New Object() {"fr", "FRENCH"})
        dt.Rows.Add(New Object() {"fy", "FRISIAN"})
        dt.Rows.Add(New Object() {"gl", "GALICIAN"})
        dt.Rows.Add(New Object() {"ka", "GEORGIAN"})
        dt.Rows.Add(New Object() {"de", "GERMAN"})
        dt.Rows.Add(New Object() {"el", "GREEK"})
        dt.Rows.Add(New Object() {"gu", "GUJARATI"})
        dt.Rows.Add(New Object() {"ht", "HAITIAN_CREOLE"})
        dt.Rows.Add(New Object() {"iw", "HEBREW"})
        dt.Rows.Add(New Object() {"hi", "HINDI"})
        dt.Rows.Add(New Object() {"hu", "HUNGARIAN"})
        dt.Rows.Add(New Object() {"is", "ICELANDIC"})
        dt.Rows.Add(New Object() {"id", "INDONESIAN"})
        dt.Rows.Add(New Object() {"iu", "INUKTITUT"})
        dt.Rows.Add(New Object() {"ga", "IRISH"})
        dt.Rows.Add(New Object() {"it", "ITALIAN"})
        dt.Rows.Add(New Object() {"ja", "JAPANESE"})
        dt.Rows.Add(New Object() {"jw", "JAVANESE"})
        dt.Rows.Add(New Object() {"kn", "KANNADA"})
        dt.Rows.Add(New Object() {"kk", "KAZAKH"})
        dt.Rows.Add(New Object() {"km", "KHMER"})
        dt.Rows.Add(New Object() {"ko", "KOREAN"})
        dt.Rows.Add(New Object() {"ku", "KURDISH"})
        dt.Rows.Add(New Object() {"ky", "KYRGYZ"})
        dt.Rows.Add(New Object() {"lo", "LAO"})
        dt.Rows.Add(New Object() {"la", "LATIN"})
        dt.Rows.Add(New Object() {"lv", "LATVIAN"})
        dt.Rows.Add(New Object() {"lt", "LITHUANIAN"})
        dt.Rows.Add(New Object() {"lb", "LUXEMBOURGISH"})
        dt.Rows.Add(New Object() {"mk", "MACEDONIAN"})
        dt.Rows.Add(New Object() {"ms", "MALAY"})
        dt.Rows.Add(New Object() {"ml", "MALAYALAM"})
        dt.Rows.Add(New Object() {"mt", "MALTESE"})
        dt.Rows.Add(New Object() {"mi", "MAORI"})
        dt.Rows.Add(New Object() {"mr", "MARATHI"})
        dt.Rows.Add(New Object() {"mn", "MONGOLIAN"})
        dt.Rows.Add(New Object() {"ne", "NEPALI"})
        dt.Rows.Add(New Object() {"no", "NORWEGIAN"})
        dt.Rows.Add(New Object() {"oc", "OCCITAN"})
        dt.Rows.Add(New Object() {"or", "ORIYA"})
        dt.Rows.Add(New Object() {"ps", "PASHTO"})
        dt.Rows.Add(New Object() {"fa", "PERSIAN"})
        dt.Rows.Add(New Object() {"pl", "POLISH"})
        dt.Rows.Add(New Object() {"pt", "PORTUGUESE"})
        dt.Rows.Add(New Object() {"pt-PT", "PORTUGUESE_PORTUGAL"})
        dt.Rows.Add(New Object() {"pa", "PUNJABI"})
        dt.Rows.Add(New Object() {"qu", "QUECHUA"})
        dt.Rows.Add(New Object() {"ro", "ROMANIAN"})
        dt.Rows.Add(New Object() {"ru", "RUSSIAN"})
        dt.Rows.Add(New Object() {"sa", "SANSKRIT"})
        dt.Rows.Add(New Object() {"gd", "SCOTS_GAELIC"})
        dt.Rows.Add(New Object() {"sr", "SERBIAN"})
        dt.Rows.Add(New Object() {"sd", "SINDHI"})
        dt.Rows.Add(New Object() {"si", "SINHALESE"})
        dt.Rows.Add(New Object() {"sk", "SLOVAK"})
        dt.Rows.Add(New Object() {"sl", "SLOVENIAN"})
        dt.Rows.Add(New Object() {"es", "SPANISH"})
        dt.Rows.Add(New Object() {"su", "SUNDANESE"})
        dt.Rows.Add(New Object() {"sw", "SWAHILI"})
        dt.Rows.Add(New Object() {"sv", "SWEDISH"})
        dt.Rows.Add(New Object() {"syr", "SYRIAC"})
        dt.Rows.Add(New Object() {"tg", "TAJIK"})
        dt.Rows.Add(New Object() {"ta", "TAMIL"})
        dt.Rows.Add(New Object() {"tt", "TATAR"})
        dt.Rows.Add(New Object() {"te", "TELUGU"})
        dt.Rows.Add(New Object() {"th", "THAI"})
        dt.Rows.Add(New Object() {"bo", "TIBETAN"})
        dt.Rows.Add(New Object() {"to", "TONGA"})
        dt.Rows.Add(New Object() {"tr", "TURKISH"})
        dt.Rows.Add(New Object() {"uk", "UKRAINIAN"})
        dt.Rows.Add(New Object() {"ur", "URDU"})
        dt.Rows.Add(New Object() {"uz", "UZBEK"})
        dt.Rows.Add(New Object() {"ug", "UIGHUR"})
        dt.Rows.Add(New Object() {"vi", "VIETNAMESE"})
        dt.Rows.Add(New Object() {"cy", "WELSH"})
        dt.Rows.Add(New Object() {"yi", "YIDDISH"})
        dt.Rows.Add(New Object() {"yo", "YORUBA"})


        With ComboBox1
            .DataSource = dt
            .DisplayMember = "CountryName"
            .ValueMember = "CountryCode"
            .SelectedValue = "en"
        End With

        dt1 = dt.Copy()   ' Copy DataTable

        With ComboBox2
            .DataSource = dt1
            .DisplayMember = "CountryName"
            .ValueMember = "CountryCode"
            .SelectedValue = "th"
        End With

    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Then
            MessageBox.Show("Please Enter text", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
            TextBox1.Focus()
            Return
        End If
        Try
            TextBox2.Text = gooplae1.Translate(TextBox1.Text, ComboBox1.SelectedValue, ComboBox2.SelectedValue)
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try

    End Sub
End Class 
 
5. จากนั้นทำการ run โปรแกรมโดยกดปุ่ม F5 แล้วทดสอบการแปล

























หมายเหตุ ในการแปลของ Google Translate จำเป็นต้องเข้าสู่ระบบอินเตอร์เน็ตก่อนทุกครั้ง

ตรุษจีน รวย รวย วันตรุษจีน มีทุกปี รวย ทุกปี

ชอบบทความ อย่าลืมคลิกโฆษณา


7 ความคิดเห็น:

bs5221243002 กล่าวว่า...

ผมอยากได้ตัวแปล ภาษาญี่ปุ่นด้วยอะครับ ใส่เพิ่มยังไงครับ

bs5221243002 กล่าวว่า...

กำ เจอละครับ ผมดูไม่ดีเองครับ -*-

bs5221243002 กล่าวว่า...

ฮาๆ กูแปล เจ๋งจริงครับ ไม่ sensor คำศัพย์ไม่พึงประสงค์
บางศัพย์มันหยาบคายแต่ผมก็อยากรู้ความหมาย กูเกิ้ลไม่ยอมแปล แต่กูแปลแปลได้

ไม่ระบุชื่อ กล่าวว่า...

http://www.syncfusion.com/FAQ/aspnet/default.aspx

ไม่ระบุชื่อ กล่าวว่า...

http://www.syncfusion.com/faq/windowsforms/

Unknown กล่าวว่า...
ความคิดเห็นนี้ถูกผู้เขียนลบ
ไม่ระบุชื่อ กล่าวว่า...

พี่คะ รบกวนหน่อยค่ะ ของหนูพอรันแล้วมันขึ้น error อะคะ
https://www.facebook.com/photo.php?fbid=792402030785961&set=a.197681200258050.58878.100000485151646&type=1&theater

ปล. หนูทำตามทุกขั้นตอนแล้วอะคะ

"I Believe in You"

Copyright(c) 2007 - 2022 by Kasem Kamolchaipisit.