الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

تحويل الاحرف الانجليزيه الي احرف عربيه

بدأه CRAZY_IN_LOVE في 4 يناير 2014 · 28 رد · 2,818 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

الاخوه الاعزاء الكرام

السلام عليكم

احتاج الي نموذج يكون فيه حقلين الحقل الاول بالانجليزي والحقل الثاني بالعربي وعندما كتابه اي شي بالحقل الاول يتم تحويله بالعربي الي الحقل الثاني مثال عند كتابه sheryl في الاول يتم تحويله شريل

 

شبه فكره مثال اختي زهره 

تحويل الأرقام الى حروف باللغة الإنجليزية

 المرفق 

 

ولكم جزيل الشكر وكل الاحترام

Convert_Numbers_into_English_Words.rar

تم تعديل هذه المشاركة بواسطة CRAZY_IN_LOVE في 4 يناير 2014 في 08:13

#2

ممكن الاستقاده من هذا الكود ,, منقول

 

Public Sub Ali_Trn()
On Error Resume Next
Dim Ar
Dim S_A$
[C2] = "يرجـــا الإنتظـــار"
S_A = [A2].Text
If S_A = "" Then MsgBox "خلية النص المراد ترجمته فارغه", vbExclamation, "تنبية !!!": Exit Sub
Ar = Ali_HT(S_A)
For Each Num In Array("[", ]")
     Ar = Replace(Ar, Num, "")
Next
[B2].Value = Ar
[C2] = "تم الترجمــة"
Application.Wait (Now + TimeValue("0:00:5"))
[C2] = ""
End Sub
Public Function Ali_HT(Te_A As String) As String
Dim A_T As Object
Set A_T = CreateObject("InternetExplorer.application")
     A_T.Visible = True
     Wait_A A_T
     A_T.document.all("wl_text").Value = Te_A
     A_T.document.all("wl_srclang").selectedIndex = 8
     A_T.document.all("wl_trglang").selectedIndex = 0
     A_T.document.all("Submit").Click
     Application.Wait (Now + TimeValue("0:00:20"))
     Wait_A A_T
Ali_HT = A_T.document.all("wl_text_result").outerText
A_T.Quit
End Function
Function Wait_A(A_T)
Do Until A_T.ReadyState = 4
     DoEvents
Loop
End Function
#3

السلام عليكم

الاخوه اعضاء ومشرفين المنتدي الكرام هل من مساعد

الله يجزاكم الجنه

#4

الموضوع جميل جدا ونتمى من خبراء الأكسس الإفادة ولهم الشكر .

#5

نرجوا من الأخوة العملاقة في البرمجة أن يتفضلوا علينا بخبرتهم في هذا السؤال لأجل الفائدة والتعلم .

#6

اليك التفقيط بالعربي مع الحفاظ على الإنجليزي


Convert_Numbers_into_English_Words.rar


الْلَّهُم صَلِّ وَبَارِك وَسَلِم عَلَى سَيِّدِنَا مُحَمَّد وَعَلَى الِه وَصَحْبِه وَسَلِّم

#7

اشكرك الأخ كريمو2 على اجابة السريعة .

بس المطلوب هو تحويل الأحروف الأنجليزية إلى أحروف عربية وليس الأرقام .

#8

Up

#9

نتظر المشاركة والجود بالمعرفة .

#10

سؤال للاخوة المهتمين بهذا الموضوع: :)

 

بالورقة والقلم (بعيدا عن البرمجة) ، لوسمحتوا ترجموا لي هذا الكلمات ، ومنها نفهم ونستطيع ان نعرف الحرف العربي يقابله اي من الحروف الانجليزية ، ونعمل برنامج على اساسه:

 

شيريل

مجنون

في

الحب

فتى

 

 

جعفر

#11

لا تنزعج الأخ جعفر من هذا السؤال .

أنا وجدت فعلا برنامج مصمم بالأكسس ويترجم الأسماء من الأنجليزي إلى عربي .

#12

هلا بفتى بلادي :)

 

ياريت ترفق لنا هذا البرنامج ، لأني متشوق لأتعلم من برمجته ، وارى ونتائجه :)

 

جعفر

#13

UP


#14

تريد ترجمة أم تحويل ؟

بمعنى كلمة Data  تريدها :

داتا

أم تريدها

بيانات ؟

#15

بانتظار جوابك ...

 

لكن :

الموضوع به رائحة أكواد

ولذلك فالحل أكيد إن شاء الرحمن

 

وقبل أن تجيب على استفساري  إليك ثلاثة احتمالات طبقا لكلامك السابق في هذا الموضوع :

 

الحالة الأولى :

تحويل أحرف انجلزية إلى ما يقابلها بالعربية دون ترجمة.

 

الحالة الثانية :

ترجمة كلمات انجليزية إلى العربية بمساعدة متصفح وخدمة الانترنت.

 

الحالة الثالثة :

ترجمة كلمات انجليزية إلى العربية  بدون مساعدة متصفح أو خدمة  الانترنت

 

ومبدئيا الثلاث حالات سهلة التفيذ لكن هناك بعض المتطلبات  التي قد تعطي صعوبة فمثلاً :

 

الحالة الأولى :

تتطلب أن تكتب لي كل حرف انجليزية وما تريده بالعربي

عندك تقريبا 26 حرف وكام حرف مركب مثل (sh ) و (gh)  وخلافه.

ولاحظ أن بعض الأحرف بالانجليزية قد تكتب بأكثر من حرف بالعربي مثل حرف C قد يكون ك أو س

 

الحالة الثانية :

لا تتطلب شيئا ولا توجد بها أي صعوبة أو متطلبات .

 

الحالة الثالثة :

تتطلب وجود قاموس بجدول بقاعدة البيانات ( حقل به المصطلح  و حقل المعنى)

 

ربما تكون أمتع الأكواد بالنسبة لي هي الحالة الأولى لذلك ربما تتطلب وقتاً.

تم تعديل هذه المشاركة بواسطة أمير2008 في 29 أبريل 2014 في 16:08

#16

تفضل اخي الكريم

 

 

 

برنامج ترجمة زهره الناطق من الإنجليزية الى العربية مفتوح المصدر

 

post-15367-0-84365100-1399523176_thumb.g

 

post-15367-0-66530300-1399523260_thumb.g

 

 

za-Translate v 1.1.rar

 

 

 

راجع هذا الرابط لمتابعة التحديثات التي سوف تطرأ على البرنامج

 

هدية : برنامج الترجمة الناطق من الإنجليزية الى العربية
 
 
 
بالتوفيق

تم تعديل هذه المشاركة بواسطة zahrah في 8 مايو 2014 في 07:29

post-15367-087183200%201340344597.gif

بعض من المواضيــع الممـيزه

post-15367-027053900%201340345097.gif

#17
أمير2008 كتب:

تريد ترجمة أم تحويل ؟

بمعنى كلمة Data  تريدها :

داتا

أم تريدها

بيانات ؟

السلام عليكم

اشكرك اخي أمير علي المشاركه والمطلوب تحويل بمعنى كلمة Data  اريدها

داتا وجزاكم الله الف خير

#18
zahrah كتب:

 

تفضل اخي الكريم

 

attachicon.gifTR1.gif

 

برنامج ترجمة زهره الناطق من الإنجليزية الى العربية مفتوح المصدر

 

 

 

 

 

 

attachicon.gifza-Translate.rar

 

 

راجع هذا الرابط للمتابعة والتحديثات التي سوف تطرأ على البرنامج

 

هدية : برنامج الترجمة الناطق من الإنجليزية الى العربية
 
 
 
بالتوفيق

 

مشكوره اختنا الغالية الدكتورة ام عهود الله لايحرمنا من شخصك الطيب يارب

برنامج ولااروع جزاك الله خير الجزاء سائلا الله العلي القدير ان يرحم والديك ويجزاك الجنه

المطلوب هو تحويل sheryl الي شريل

ولك جزيل الشكر

#19
CRAZY_IN_LOVE كتب:

 

zahrah كتب:

 

تفضل اخي الكريم

 

attachicon.gifTR1.gif

 

برنامج ترجمة زهره الناطق من الإنجليزية الى العربية مفتوح المصدر

 

 

 

 

 

 

attachicon.gifza-Translate.rar

 

 

راجع هذا الرابط للمتابعة والتحديثات التي سوف تطرأ على البرنامج

 

هدية : برنامج الترجمة الناطق من الإنجليزية الى العربية
 
 
 
بالتوفيق

 

مشكوره اختنا الغالية الدكتورة ام عهود الله لايحرمنا من شخصك الطيب يارب

برنامج ولااروع جزاك الله خير الجزاء سائلا الله العلي القدير ان يرحم والديك ويجزاك الجنه

المطلوب هو تحويل sheryl الي شريل

ولك جزيل الشكر

 

 

 

اخي الفاضل

 

بارك الله بك

 

هل قمت بتجربة البرنامج  !!!!

 

 

البرنامج يقوم بعمل ذلك

 

post-15367-0-18295600-1399522130_thumb.g

 

 

بالتوفيق

post-15367-087183200%201340344597.gif

بعض من المواضيــع الممـيزه

post-15367-027053900%201340345097.gif

#20

يا جماعة انا عاوز اضيف سؤال على اعضاء المنتدى ، بس مش عارف من وين 

#21
اقتباس

CRAZY_IN_LOVE
السلام عليكم

اشكرك اخي أمير علي المشاركه والمطلوب تحويل بمعنى كلمة Data  اريدها

داتا وجزاكم الله الف خير

 

طيب أنا عملت نموذج مبدئي لتحويل الأحرف

لكن يحتاج لاضافة الحروف التي تنطق كحرف واحد مثل :

غ = gh

خ = kh

ث = th

ذ = th

وهكذا

وأيضا يحتاج لكيفية استثناء الحروف الساكنة مثل حرف P في كلمة :

Empty

وأيضا تحديد الحرف العربي لبعض الحروف الانجليزية متعددة النطق مثل :

C = س

C  = ك

 

TgdwbT.jpg

#22
zahrah كتب:

اخي الفاضل

 

بارك الله بك

 

هل قمت بتجربة البرنامج  !!!!

 

 

البرنامج يقوم بعمل ذلك

 

attachicon.gifSH1.gif

 

 

بالتوفيق

السلام عليكم

اختي زهره تم تجربه البرنامج ولكن تظهر لي رساله خطا

Public Function TranslateEn(ByVal strText As String, _
                          Optional ByVal eFrom As eLanguage = English, _
                          Optional ByVal eTo As eLanguage = Arabic) As String
    Dim strUrl As String
    Dim strResult As String
 
    strText = Replace$(strText, Chr$(32), "%20")
    strText = Replace$(strText, Chr$(160), "%20")
 
    strUrl = "http://translate.google.com/translate_a/t?client=t&text={S}&hl=en&sl={F}&tl={T}&multires=1&pc=0&rom=1&sc=1"
    strUrl = Replace$(strUrl, "{S}", strText)
    strUrl = Replace$(strUrl, "{F}", Split(strSHORTCODES, ",")(eFrom))
    strUrl = Replace$(strUrl, "{T}", Split(strSHORTCODES, ",")(eTo))
 
    With CreateObject("MSXML2.XMLHTTP")
        Call .Open("get", strUrl, False)
        Call .Send
        strResult = .responseText
    End With
 
    strResult = Replace$(Mid$(CStr(Split(strResult, ",")(0)), 4), Chr$(34), "")
    TranslateEn = strResult
End Function
#23
zahrah كتب:

اخي الفاضل

 

بارك الله بك

 

هل قمت بتجربة البرنامج  !!!!

 

 

البرنامج يقوم بعمل ذلك

 

attachicon.gifSH1.gif

 

 

بالتوفيق

السلام عليكم

اشكرك علي البرنامج الجميل ويجزاك الله الف خير 

البرنامج تم تحميله ولكن تظهر لي رساله خطا

post-83548-0-51911000-1400093491_thumb.j

#24

اخي الفاضل

 

البرنامج يعمل بشكل سليم 100% ولا يوجد به اي خطأ اطلاقا

 

ويعمل على جميع اصدارات الأكسيس ابتداء من اكسيس 2000 وحتى اكسيس 2013

 

المشكلة لديك انت في اصدارة الأكسيس الخاصة بك لأنها غير كاملة 

 

فمن خلال الخطأ المشار اليه في الصوره يتضح انك تستخدم نسخة اكسيس ليست كامله بل بها نقص لبعض الأوامر ومن ضمنها  الدالة   Chr

 

وهي خاصة بالحروف  حيث تقوم هذه الدالة بجلب الحرف مباشرة بمجرد ان تعطي الدالة رقم الحرف .

 

لذا حاول تشغيل البرنامج على نسخة اكسيس كاملة واقصد بكامله اي انه عند تثبيت برنامج الأوفيس او الأكسيس يجب ان تختار تثبيت كامل  وليس تثبيت جزئي او نموذجي

 

 

بالتوفيق

تم تعديل هذه المشاركة بواسطة zahrah في 27 مايو 2014 في 16:54

post-15367-087183200%201340344597.gif

بعض من المواضيــع الممـيزه

post-15367-027053900%201340345097.gif

#25

جزاك الله الف خير سيتم حذف النسخه وانزالها من جديد وابلاغك

مواضيع مشابهة