اذهب الي المحتوي
أوفيسنا

ترجمة من اللغة E إلى اللغة A


الردود الموصى بها

السلام عليكم ورحمة الله وبركاته

أما بعد ابي اطلب منكم خدمة وتساعدوني فيها

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

ثانياً عندما أكتب التاريخ بالميلادي يظهره لي بالهجري .

الحقـــــــــــــــــول

1- التاريخ الهجري التاريخ الميلادي

2- اسم المركب بالعربي اسم المركب باللغة الأنجليزية

3- اسم البحار بالعربي اسم البحار بالإنجليزي

طبعا أريد أكثر من حقل لأسمـــــــاء البحارة تقريبــــاً عشـــرة وكلها نفس الطريقة لرقم 3

4- التاريخ بالعربي فقــــــــــــــــــــــــط .

وأكون شاكر لكم .

وأي استفسار أنا حاضر . بإنتظاركـــــــــــــــــــــــــــــم .

اخوكم الحـــــــر

رابط هذا التعليق
شارك

أخي enjoy برنامج جميل لاكن ليست الطريقة التي أقصدها

طريقة برنامجك هو إنك تحفظ المعلومات بالعربي والإنجليزي وتطلبها متى شئت .

والطريقة اللي ابيها هو غني اذا كتبت الاسم باللغة الإنجليزية يقرأهـ باللغة العربية تلقائياً.

يعني بمجرد أكتب start يترجمها ستارت وهكذا .

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

أتمنى أن الصورة وضحت ولك الشكر أخوي مره أخرى

رابط هذا التعليق
شارك

ارجوا التوضيح اكثر

لانك اذا كنت تقصد الترجمة من الانجليزي الى العربي فقط

فنفس البرنامج - فقط اقلب البيانات

اذا طنت تقصد موضوع ثاني ياليت توضح عشان انا او اي احد من الاخوان نقدر نساعدك

رابط هذا التعليق
شارك

اخوي enjoy

واللي اقصده اذا كتبت باللغة الإنجليزية يتحول تلقائيا للعربي

ما أدري شلون اوصلها انت برنامجك تحفظ فيه الكلمه وترجمتها

يعني إنت ببرنامجك تدخل اسم احمد وتدخل اسمه بالإنجليزي يعني تسوي له حفظ انا ما أبي الطريقه هذي

اللي أبيها هو على ما أعتقد إنك تدخل كود بنفس البرنامج يعني لو كتبت حرف B يترجمه على طول ب

يعني بدون ماتحفظ الأسماء داخل البرنامج وتستدعيها بعدين .

مثال

لو كتبت enjoy يترجمه لي بمربع اللي يقابه اينجوي وهكذا على جميع الحقول

اتمنى إنها وصلت الفكرة .

ولك الشكر

رابط هذا التعليق
شارك

معليش ارجوا منك انك تتحملني شوي

انت شككتني في برنامجي

البرنامج يقوم بالترجمة تلقائيا - يعني ما اكتب احمد وبعدين ارجع اكتبها بالانجليزي

اتوقع بان المشكلة الوحيدة عندك هي

ان الترجمة تتم عن طريق جدول يتم تعبئته بجميع الاسماء وترجمتها بواسطة المستخدم

وهذة العملية تتم لمرة واحدة فقط

يعني لو كتبت اسم غير موجود في القاموس الخاص بالبرنامج

بمجرد اضافته في جدول الاسماء سيتم ترجمة جميع الاسماء حتى لو كان تم ادخال البيانات من السابق ولا يتم العودة على بياناتك مرة اخرى

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

وانا اتوقع اذا كانت هذة هي المشكلة - فحسب اعتقادي لايوجد قاموس جاهز يتم ربطة بالبرنامج

هذا حد معرفتي وانا اسف على مداخلتي

واتمنى من باقي اعضاء المشاركة هنا ليتم مساعدتك بالطريقة المناسبة

على فكرة في حال الترجمة الحرفيه (مثل a = أ) الخ.

فقط يتم جمع الاحرف بعد كتابتها بحيث لاتكون مفرقة ومتباعدة مثل ترجمة الاسماء بحيث يكون فراغ بين الاسم والاسم الاخر

تم تعديل بواسطه Enjoy
رابط هذا التعليق
شارك

كلامك اوكيه وخليك معاي شوي

انت الحين لو فتحت برنامجك

اوكيه ابيك تكتب لي saad بالإنجليزي بس هل هلو يترجم تلقائيا للعربي أو لازم تضيفه

.

انا حاولت ومالقيت ببرنامجك إلا إنك تضيف بالعربي وبالإنجليزي هذي طريقتك علشان لو إحتجت لللإسم مره ثانيه بوقت ثانيه يكون محفوظ . صح يا enjoy

انا ما أبي أخزن بالجهاز الأسماء واستدعيها بوقت آخر

أنا يوميا يجيني أكثر من 30 إسم وكلها مختلفة عن اليوم الثاني وصعبه أكتبها بالعربي وبالإنجليزي ... اللي أبيه إني أعرف الحروف الإنجليزية بالعربي وتكون بقاعدة البيانات . وكلما اكتب حرف يترجم حتى انتهي إلا آخر حرف بالإسم

يعني لو جيت أبي اكتب table انا راح أكتب اول حرف t بالمقابل راح يعطيني ت إلى ماأنتهي من الكلمة table = تيبل

واعتقد إن الطريقة صعبة هذي . واشكرك على متابعتك . وغريب وين الأخوان الباقين يعني للدرجه هذي صعبة ما أعتقد بالشخص الملم بالأكسيس وفاهم كتابة الأكواد تصعب عليه . ولكم الشكر .

رابط هذا التعليق
شارك

على حسب مافهمت الظاهر هي عملية تفقيـــــــــــــــــط

لأن شفت موضوع تفقيط الأرقام إلى أحرف

...............

إلا الآن الأمل موجود فيـــــــــــــــــــــكم وياليت أحد يخدمنا

للدرجه هذي صعبة

أو محد فكر فيها أبد

اعتبروها تحدي بينكم وحلوها والكل يستفيد منها .

رابط هذا التعليق
شارك

جزاك الله خير اخي rrr

انت وصلت المعلومة ووضحتها لي .

لاكن استفسار ثاني وياليت تخدمني فيه الا وهو .

الحين الكود اللي كتبته انت

=IFF(([aa])"احمد";"AHMAD";IFF(([aa])"ناصر";"NASEER"))

اعتقد الكود او تقريبا كذا

لاكن اللي ابيه

=IFF(([aa])"A";"ا";IFF(([aa])"B";"ب"))

وهو العكس بالمربع الأعلي ابي اكتب بالإنجليزي وتحت يترجمها لي بالعربي

ولاكن ابي طريقه وهي ثابته

وهي عمل ترجمة كل حرف

إنت طريقتك إلزامية اذا كتبت احمد يترجم كلمه أحمد طيب انا لوبغيت اكتب حرف BCVB مثلا

ويترجمها لي على طول على حسب ماوضعته أنا بالكود

واذا بغيت اكتب اسم جديد لازم اكتبه بالكود علشان يترجمه لي

لاكن ابي ترجمه الحروف كل حرف مقابله ترجمته بالعربي

حتى لو كنت ابي اكتب كلمه جديدة

البرنامج يقارنها ويشوف طريقة تفقيط الحروف ويكتب لي الكلمة

ابي الحروف داخل قاعدة البيانات ثابته

A=ا

B=ب

C=ك

D=د

E=ي

F=ف

G=ج

>>>>>>>> وهكذا إلى اخر حرف أنت عطني كم حرف وانا اكمل الباقي واكون شاكر لك

رابط هذا التعليق
شارك

لك الشكر اخوي حصلت الطريقة هذي وهذا اللي كنت ابيه بالضبط

Option Compare Database

Function TransA2E(W As String) As String

On Error GoTo err:

Dim AL(), EL(), L As Byte

AL = Array(" Çá", "Á", "óÇ", "Ç", "Ã", "Â", "ì", "Å", "Ä", "Æ", "È", "Ê", "Ë", "Ì", "Í", "Î", "Ï", "Ð", "Ñ", "Ò", "Ó", "Ô", "Õ", "Ö", "Ø", "Ù", "Ú", "Û", "Ý", "Þ", "ß", "á", "ã", "ä", "å", "É", "õæú", "æ", "öí", "í", "ó", "ð", "õ", "ñ", "ö", "ò")

EL = Array(" al-", "'a", "a", "a", "a", "aa", "a", "i", "u", "i", "b", "t", "th", "j", "h", "kh", "d", "th", "r", "z", "s", "sh", "s", "sh", "t", "th", "", "gh", "f", "q", "k", "l", "m", "n", "h", "h", "u", "w", "i", "y", "a", "tn", "u", "un", "i", "in")

Do

p = InStr(p + 1, W, "ø")

If p > 0 Then W = Left(W, p - 1) & Mid(W, p - 1, 1) & Mid(W, p + 1)

Loop While p > 0

For R = LBound(AL) To UBound(AL)

W = Replace(W, AL®, EL®)

Next

TransA2E = W

err:

End Function

ولك الشكر مره أخرى

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information