30-07-15, 03:07 PM
السلام عليكم ورحمة الله وبركاته
المشكلة ببساطة أننى أعمل على برنامج قاموس للكلمات
يترجم من الانجليزية للعربية والعكس
المشكلة فى الترجمة من العربية للإنجليزية هى استحضار البرنامج
للكلمات العربية التى كتبت فى قاعدة البيانات بالتشكيل من أجل القراءة الصحيحة
فمثلاً هذه إحدى خانات قاعدة البيانات الخاصة بالبرنامج:
تمت برمجة القاموس على مطابقة ولو كلمة واحدة من المعنى العربى ليستحضر الانجليزى
ولكن المشكلة كما بالصورة فى كلمة (تَرك) فلابد أن يتم البحث عنها (ترك) بلا تشكيل
وإلا لا يطابقها البرنامج
كل ما أريده أن يهمل البرنامج التشكيل أثناء مطابقة الكلمات العربية
كود ال function الخاص بالترجمة:
كود الزر المتحكم فى الترجمة:
المشكلة ببساطة أننى أعمل على برنامج قاموس للكلمات
يترجم من الانجليزية للعربية والعكس
المشكلة فى الترجمة من العربية للإنجليزية هى استحضار البرنامج
للكلمات العربية التى كتبت فى قاعدة البيانات بالتشكيل من أجل القراءة الصحيحة
فمثلاً هذه إحدى خانات قاعدة البيانات الخاصة بالبرنامج:
تمت برمجة القاموس على مطابقة ولو كلمة واحدة من المعنى العربى ليستحضر الانجليزى
ولكن المشكلة كما بالصورة فى كلمة (تَرك) فلابد أن يتم البحث عنها (ترك) بلا تشكيل
وإلا لا يطابقها البرنامج
كل ما أريده أن يهمل البرنامج التشكيل أثناء مطابقة الكلمات العربية
كود ال function الخاص بالترجمة:
كود :
Function argetword(ByVal content As String) As String()
Dim targets As List(Of String) = New List(Of String)
Dim connection As New OleDbConnection
Try
connection = New OleDbConnection(connectionString)
Using cmd As OleDbCommand = New OleDbCommand("SELECT [English] FROM [Words] WHERE [Arabic] Like '%' + @arabic + '%'", connection)
cmd.Parameters.AddWithValue("@arabic", content)
connection.Open()
Using reader As System.Data.OleDb.OleDbDataReader = cmd.ExecuteReader()
Do Until Not reader.Read()
targets.Add(reader("English").ToString())
Loop
End Using
connection.Close()
End Using
Catch ex As Exception
Console.WriteLine(ex.Message)
Finally
If connection IsNot Nothing Then
If connection.State = ConnectionState.Open Then
connection.Close()
End If
connection.Dispose()
End If
End Try
Return targets.ToArray()
End Function
كود الزر المتحكم فى الترجمة:
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Lines = argetword(TextBox2.Text)
End Sub