السلام عليكم ورحمة الله
اخواني واخواتي الكريمات الرجاء مساعدتي في ايجاد كود ترجمه يترجم من انجليزي لعربي وذلك باستخدام داتا بيز مصممة مسبقا
حاولت احلها بس ماعرفت عندي كود بالفيجوال بيسك 6 وبرضو في اشياء ماعرفت افكها بليييييييييييييز واللله ضروري جدا الله يجزاكم الجنه
وهذا الكود بالفي بي 6 الله يخليكم ضروري
Private Sub Command3_Click() Dim rs1 As Recordset Dim len1 As Integer Dim len2 As Integer Dim test1 As Integer Dim beg As Integer Dim len_word As Integer If Text1.Text = "" Then MsgBox "اكتب النص في خانة الانجليزي", vbCritical + vbMsgBoxRtlReading + vbMsgBoxRight, "ÎØÃ" Exit Sub End If Set db = New Connection db.CursorLocation = adUseClient db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;" len1 = Len(Text2) beg = 1 len_word = 0 Text1.Text = "" Do For beg = beg + len_word To len1 If letter(Asc(Mid(Text2.Text, beg, 1)), "en") Then Exit For Else Text1.Text = Text1.Text & Mid(Text2.Text, beg, 1) End If Next For len_word = beg To len1 If Not letter(Asc(Mid(Text2.Text, len_word, 1)), "en") Then Exit For End If Next len_word = len_word - beg word_en = Mid(Text2.Text, beg, len_word) Set rs1 = New Recordset rs1.Open "select * from trans where word_en='" & word_en & "'", db, adOpenStatic, adLockOptimistic If rs1.RecordCount > 0 Then Text1.Text = Text1.Text & rs1!word_ar Else Text1.Text = Text1.Text & word_en End If len2 = (len_word + beg) - 1 Loop While len2 <> len1 End Sub ________________________________________ Private Function letter(a1 As Integer, typ As String) As Boolean Dim rs1 As Recordset Set rs1 = New Recordset rs1.Open "select * from ascii_" & typ & " where asc1=" & a1, db, adOpenStatic, adLockOptimistic If rs1.RecordCount > 0 Then letter = True Else letter = False End If End Function Private Sub Command2_Click() Unload Me End Sub
الCommand3 هو البوتون اللي يسوي الترجمه
بلييييييييييييييييييييز ساعدوني الله يجزاكم خير
تقبلو تحياتي
