[ VB.NET ] شرح عمل برنامج ترجمة

تم تحميل الصفحة في 0,1161745 ثانية
شرح عمل برنامج ترجمة
إنضم
5 مايو 2014
المشاركات
2,327
الإعجابات
3,012
النقاط
113
الإقامة
أ‡أ،أˆأ،أڈ أ‡أ،أ¦أچأ­أڈ أ‡أ،أگأ­ أ­أ£أ‘ أ£أ¤أ¥أµ أ
بسم الله الرحمن الرحيم

-----------------------------
السلام عليكم ورحمة الله وبركاتهُ وأفضل
الصلاة والسلام على سيد الخلق
اجميعن محمد وعلى الِ
بيتهِ الطيبين الطاهرين
سلاماً ابدياً
اما بعد
----

اليوم وبأكمال سلسلة دروس الفيجوال
بيسك دوت نت
شرحنا ان شاء الله سيكون عن كيفية عمل
برنامج ترجمة Trabslate طبعاً
بالستعانة بكوكل
اي بالاستعانة بقاعدة بيانات كوكل
نبدأ الشرح بالرحمن
وأنشاء الله الشرح سيكون سهل
------
1- نفتح برنامجنا لهذا الشرح وكل الشروحات
ونكتب المشروع بأي اسم



------
2- نضيف ادوات ع خريطة العمل
1=بوتون
2=تكست بوكس
3=ليبل
1=كومبو بوكس



------------------------
3- ندخل الان اللا خريطة الاكواد ونقوم بحذف
كل الاكواد ونضع
هذا الكود
كود Visual Basic
Public Class Form1
    Dim GoogleTranslator As New Google.API.Translate.TranslateClient("")
    Dim sourcestring As String
    Dim translatedstring As String
    Dim ISO_language As String
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal 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 Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If Me.TextBox1.Text = "" Then
            MsgBox("Required Field!!!")
            TextBox1.Focus()
            Exit Sub
        End If
        If Me.ComboBox1.Text = "" Then
            MsgBox("Required Field!!!")
            ComboBox1.Focus()
            Exit Sub
        End If


        Translate()
    End Sub

    Sub Translate()
        Try
            chooseLanguage()
            sourcestring = Me.TextBox1.Text

            translatedstring = GoogleTranslator.TranslateAndDetect(sourcestring, ISO_language, "")

        Catch ex As Exception

            MessageBox.Show("Error while Connecting to Google..." & ex.ToString, "Google API Sample")
        End Try

        Me.TextBox2.Text = translatedstring
    End Sub

     Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As  System.Object, ByVal e As System.EventArgs) Handles  ComboBox1.SelectedIndexChanged

    End Sub

End Class


--------------------------
4- الان ستجد خطأأ في البرنامج لذا
نحتاج الى اداة
GoogleTranslateAPI
قمت برفعها حملها من هنا
http://up.dev-point.com/downloadf-cf0253cf0fbb6-rar.html

--------------
نضيف اللغات الى كومبو بوكس
English
French
Chinese
Italian
German
Spanish
Russian
Japanese
Korean
Arabic
Latin
Greek
Tagalog
-------------------------------
الان نجرب البرنامج



تمام التمام
---------
الشرح اهداء الى الكل
بدون استنثاء خأأصة
الاصدقاء الجدد
----
دمتم بود :32:

 

IYARIS

عآشق ال vb.net
rankrank
إنضم
12 يونيو 2008
المشاركات
454
الإعجابات
281
النقاط
63
رد: شرح عمل برنامج ترجمة

يعطيك الف عافيه حبي ...



شرح روعه ...


وبرنامج اروع...


 
إنضم
3 نوفمبر 2009
المشاركات
5,782
الإعجابات
9,783
النقاط
113
الإقامة
Iraq
رد: شرح عمل برنامج ترجمة

السلام عليكم

اسف للمداخلة

اخي الكريم ترجمة كوكل ليس منطقية

كيف ستكون الربط بين البرنامج وكوكل به

مثال :

في الترجمة احيانا تستخدم كمية كبيرة من الملفات ك وورد مثلا

يعني بهذه الطريقة لاتستطيع الترجمة نهائيأ وسيكون الكلام سطحي في الترجمة


بينما اذا ارتقيت ببرنامجك وجعلت الترجمة تكون حاضر ومضارع ومستقبل سوف يكون رائع بمعنى الكلمة اي بمعنى اني وضعت الان نص كامل وجمله كاملة هل سوف يترجمها ؟

لا طبعا جرب ترجم بكوكل وشوف الضحك على الترجمة لانه يعتمد على كلمات وعينة وليست ضبط وقواعد انكليزية بحته اتمنى ان وصلت الفكرة .


تحياتي
 

C4D

VIP DeveloPer
rankrankrankrankrank
إنضم
22 سبتمبر 2013
المشاركات
2,717
الإعجابات
4,520
النقاط
0
الإقامة
C4D
رد: شرح عمل برنامج ترجمة

موضوع رائع مثلك ياجميل .. تسلم الأيادي .. :32:

ڪفو وٱڵڵهہ
ڵڪن
ڪيف ٱضيف ٱڵٱدٱة:26:
ويعطيڪ ٱڵعٱفية:13:
كليك يمين على المشروع .. Add/Reference
ثم Browse من النافذة التي ستفتح لك .. وقم
باختيار الأداة ..
 
إنضم
5 مايو 2014
المشاركات
2,327
الإعجابات
3,012
النقاط
113
الإقامة
أ‡أ،أˆأ،أڈ أ‡أ،أ¦أچأ­أڈ أ‡أ،أگأ­ أ­أ£أ‘ أ£أ¤أ¥أµ أ
رد: شرح عمل برنامج ترجمة

موضوع رائع مثلك ياجميل .. تسلم الأيادي .. :32:


كليك يمين على المشروع .. Add/Reference
ثم Browse من النافذة التي ستفتح لك .. وقم
باختيار الأداة ..

افادك الاخ تشكر حبيبي
 

xdvb

Active DeveloPer
rankrankrankrank
إنضم
8 يناير 2010
المشاركات
1,307
الإعجابات
985
النقاط
113
رد: شرح عمل برنامج ترجمة

بارك الله فيك اخي على شرح الرائع

مشكلتي في تشغيل الاداة

مع انني اضفت GoogleTranslateAPI



:32:
.
 

الأعضاء النشطين حاليآ الذين يشاهدون هذا الموضوع (1 عضو و 0 ضيف)

خيارات الاستايل

نوع الخط
مودك
اخفاء السايدر بار OFF
توسيط المنتدى OFF
فصل الأقسام OFF
الأقسام الفرعية OFF
عرض المشاركات
حجم الخط
معلومات العضو OFF
إخفاء التوقيع OFF

إرجاع خيارات الإستايل