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 ความคิดเห็น:
ผมอยากได้ตัวแปล ภาษาญี่ปุ่นด้วยอะครับ ใส่เพิ่มยังไงครับ
กำ เจอละครับ ผมดูไม่ดีเองครับ -*-
ฮาๆ กูแปล เจ๋งจริงครับ ไม่ sensor คำศัพย์ไม่พึงประสงค์
บางศัพย์มันหยาบคายแต่ผมก็อยากรู้ความหมาย กูเกิ้ลไม่ยอมแปล แต่กูแปลแปลได้
http://www.syncfusion.com/FAQ/aspnet/default.aspx
http://www.syncfusion.com/faq/windowsforms/
พี่คะ รบกวนหน่อยค่ะ ของหนูพอรันแล้วมันขึ้น error อะคะ
https://www.facebook.com/photo.php?fbid=792402030785961&set=a.197681200258050.58878.100000485151646&type=1&theater
ปล. หนูทำตามทุกขั้นตอนแล้วอะคะ
แสดงความคิดเห็น