11-06-15, 01:57 AM
(آخر تعديل لهذه المشاركة : 11-06-15, 01:59 AM {2} بواسطة Doctor GME.)
السلام عليكم ورحمة الله
باختصار أعمل على برنامج قاموس يترجم المصطلحات والجمل
فمثلاً عندما أكتب فى التيكست بوكس الخاص باللغة الإنجليزية هذه الجملة:
يطبق البرنامج الخانة الموجودة فى قاعدة البيانات وهى:
فيظهر النص فى التيكست بوكس الخاص باللغة العربية كالتالى:
ولكنه يظهر كالتالى:
وذلك بسبب إحدى خانات قاعدة البيانات التى تحتوى على كلمة okay وهى
ومن الواضح أن كلمة okay كانت فى النص المترجم ولم تكتب فى تيكست بوكس اللغة الإنجليزية
ورغم ذلك ترجمها البرنامج أيضاً عندما وجدها فى قاعدة البيانات
وهذا هو الكود الخاص بالـ function التى تتحكم بالأمر:
وعند الضغط على زر الترجمة تطبق الـ function كالتالى:
أرجو أن أكون قد أوضحت فكرتى وأنا موجود لأى استفسار
باختصار أعمل على برنامج قاموس يترجم المصطلحات والجمل
فمثلاً عندما أكتب فى التيكست بوكس الخاص باللغة الإنجليزية هذه الجملة:
يطبق البرنامج الخانة الموجودة فى قاعدة البيانات وهى:
فيظهر النص فى التيكست بوكس الخاص باللغة العربية كالتالى:
ولكنه يظهر كالتالى:
وذلك بسبب إحدى خانات قاعدة البيانات التى تحتوى على كلمة okay وهى
ومن الواضح أن كلمة okay كانت فى النص المترجم ولم تكتب فى تيكست بوكس اللغة الإنجليزية
ورغم ذلك ترجمها البرنامج أيضاً عندما وجدها فى قاعدة البيانات
وهذا هو الكود الخاص بالـ function التى تتحكم بالأمر:
كود :
Function getidom(ByVal content As String) As String
Try
Dim count As Integer = 0
Using adp As New OleDb.OleDbDataAdapter("SELECT * FROM [Idoms]", connectionString)
Using tbl As New DataTable
If adp.Fill(tbl) > 0 Then
For Each row As DataRow In tbl.Rows
Dim en As String = row.Item("English").Replace("?", "\?")
Dim ar As String = row.Item("Arabic")
count += Regex.Matches(content, en, RegexOptions.IgnoreCase).Count
content = Regex.Replace(content, en, ar, RegexOptions.IgnoreCase)
Next
End If
End Using
End Using
Return content
Catch ex As Exception
MsgBox(ex.Message)
End Try
getidom = ""
End Function
وعند الضغط على زر الترجمة تطبق الـ function كالتالى:
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox2.Text = getidom(TextBox1.Text)
أرجو أن أكون قد أوضحت فكرتى وأنا موجود لأى استفسار