docendo
دوشنبه 20 آذر 1391, 22:00 عصر
با درود به دوستان برنامه نویس
من مبتدی برنامه نویسی هستم و در حال یاد گیری سوالم اینه که چگونه از کامبو باکس در bing translate استفاده کنیم من این برنامه در برای گوگول ترانسلاتور نوشتم خوب کارمیکند اما در bing translate کار نمیکند مشکل کجاست لطفا راهنمایی کنید
Dim ISO_language As String
Private Sub btnTranslate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTranslate.Click
Dim strTranslatedText As String
Try
client = New TranslatorService.LanguageServiceClient()
strTranslatedText = client.Translate("docendo", txtTraslateFrom.Text, ISO_language)
txtTranslatedText1.Text = strTranslatedText
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Me.ComboBox1.Items.Add("English")
Me.ComboBox1.Items.Add("French")
Me.ComboBox1.Items.Add("Chinese")
Me.ComboBox1.Items.Add("Italian")
Me.ComboBox1.Items.Add("German")
Me.ComboBox1.Items.Add("Spanish")
Me.ComboBox1.Items.Add("Russian")
Me.ComboBox1.Items.Add("Japanese")
Me.ComboBox1.Items.Add("Korean")
Me.ComboBox1.Items.Add("Arabic")
Me.ComboBox1.Items.Add("Latin")
Me.ComboBox1.Items.Add("Greek")
Me.ComboBox1.Items.Add("Tagalog")
End Sub
Sub chooseLanguage()
If ComboBox1.SelectedIndex = 0 Then
ISO_language = "en"
End If
If ComboBox1.SelectedIndex = 1 Then
ISO_language = "fr"
End If
If ComboBox1.SelectedIndex = 2 Then
ISO_language = "zn"
End If
If ComboBox1.SelectedIndex = 3 Then
ISO_language = "it"
End If
If ComboBox1.SelectedIndex = 4 Then
ISO_language = "de"
End If
If ComboBox1.SelectedIndex = 5 Then
ISO_language = "es"
End If
If ComboBox1.SelectedIndex = 6 Then
ISO_language = "ru"
End If
If ComboBox1.SelectedIndex = 7 Then
ISO_language = "ja"
End If
If ComboBox1.SelectedIndex = 8 Then
ISO_language = "ko"
End If
If ComboBox1.SelectedIndex = 9 Then
ISO_language = "ar"
End If
If ComboBox1.SelectedIndex = 10 Then
ISO_language = "la"
End If
If ComboBox1.SelectedIndex = 11 Then
ISO_language = "el"
End If
If ComboBox1.SelectedIndex = 12 Then
ISO_language = "tl"
End If
End Sub
Private Sub ComboBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
End Sub
End Class
البته وفتی کد بالا را بصورت زیر بنویسیم برنامه کارمیکند اما نمیشود از کامبو باکس استفاده کرد
Try
client = New TranslatorService.LanguageServiceClient()
strTranslatedText = client.Translate("docendo", txtTraslateFrom.Text, "","fa")
txtTranslatedText1.Text = strTranslatedText
که در این حالت مترجم از یک زبانی به فارسی ترجمه مبکند
هدف من استفاده از کامبو باکس مباشد که بتوانم زبان مورد نظر را انتخاب کنم
از هرنوع راهنمایی دوستان سپاسگرازم
من مبتدی برنامه نویسی هستم و در حال یاد گیری سوالم اینه که چگونه از کامبو باکس در bing translate استفاده کنیم من این برنامه در برای گوگول ترانسلاتور نوشتم خوب کارمیکند اما در bing translate کار نمیکند مشکل کجاست لطفا راهنمایی کنید
Dim ISO_language As String
Private Sub btnTranslate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTranslate.Click
Dim strTranslatedText As String
Try
client = New TranslatorService.LanguageServiceClient()
strTranslatedText = client.Translate("docendo", txtTraslateFrom.Text, ISO_language)
txtTranslatedText1.Text = strTranslatedText
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Me.ComboBox1.Items.Add("English")
Me.ComboBox1.Items.Add("French")
Me.ComboBox1.Items.Add("Chinese")
Me.ComboBox1.Items.Add("Italian")
Me.ComboBox1.Items.Add("German")
Me.ComboBox1.Items.Add("Spanish")
Me.ComboBox1.Items.Add("Russian")
Me.ComboBox1.Items.Add("Japanese")
Me.ComboBox1.Items.Add("Korean")
Me.ComboBox1.Items.Add("Arabic")
Me.ComboBox1.Items.Add("Latin")
Me.ComboBox1.Items.Add("Greek")
Me.ComboBox1.Items.Add("Tagalog")
End Sub
Sub chooseLanguage()
If ComboBox1.SelectedIndex = 0 Then
ISO_language = "en"
End If
If ComboBox1.SelectedIndex = 1 Then
ISO_language = "fr"
End If
If ComboBox1.SelectedIndex = 2 Then
ISO_language = "zn"
End If
If ComboBox1.SelectedIndex = 3 Then
ISO_language = "it"
End If
If ComboBox1.SelectedIndex = 4 Then
ISO_language = "de"
End If
If ComboBox1.SelectedIndex = 5 Then
ISO_language = "es"
End If
If ComboBox1.SelectedIndex = 6 Then
ISO_language = "ru"
End If
If ComboBox1.SelectedIndex = 7 Then
ISO_language = "ja"
End If
If ComboBox1.SelectedIndex = 8 Then
ISO_language = "ko"
End If
If ComboBox1.SelectedIndex = 9 Then
ISO_language = "ar"
End If
If ComboBox1.SelectedIndex = 10 Then
ISO_language = "la"
End If
If ComboBox1.SelectedIndex = 11 Then
ISO_language = "el"
End If
If ComboBox1.SelectedIndex = 12 Then
ISO_language = "tl"
End If
End Sub
Private Sub ComboBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
End Sub
End Class
البته وفتی کد بالا را بصورت زیر بنویسیم برنامه کارمیکند اما نمیشود از کامبو باکس استفاده کرد
Try
client = New TranslatorService.LanguageServiceClient()
strTranslatedText = client.Translate("docendo", txtTraslateFrom.Text, "","fa")
txtTranslatedText1.Text = strTranslatedText
که در این حالت مترجم از یک زبانی به فارسی ترجمه مبکند
هدف من استفاده از کامبو باکس مباشد که بتوانم زبان مورد نظر را انتخاب کنم
از هرنوع راهنمایی دوستان سپاسگرازم