الحـــــــر قام بنشر مارس 4, 2007 قام بنشر مارس 4, 2007 السلام عليكم ورحمة الله وبركاته أما بعد ابي اطلب منكم خدمة وتساعدوني فيها وهي زبدة البرنامج الترجمة من اللغة الإنجليزية إلى العربية لأكثر من حقل ثانياً عندما أكتب التاريخ بالميلادي يظهره لي بالهجري . الحقـــــــــــــــــول 1- التاريخ الهجري التاريخ الميلادي 2- اسم المركب بالعربي اسم المركب باللغة الأنجليزية 3- اسم البحار بالعربي اسم البحار بالإنجليزي طبعا أريد أكثر من حقل لأسمـــــــاء البحارة تقريبــــاً عشـــرة وكلها نفس الطريقة لرقم 3 4- التاريخ بالعربي فقــــــــــــــــــــــــط . وأكون شاكر لكم . وأي استفسار أنا حاضر . بإنتظاركـــــــــــــــــــــــــــــم . اخوكم الحـــــــر
الحـــــــر قام بنشر مارس 4, 2007 الكاتب قام بنشر مارس 4, 2007 أخي enjoy برنامج جميل لاكن ليست الطريقة التي أقصدها طريقة برنامجك هو إنك تحفظ المعلومات بالعربي والإنجليزي وتطلبها متى شئت . والطريقة اللي ابيها هو غني اذا كتبت الاسم باللغة الإنجليزية يقرأهـ باللغة العربية تلقائياً. يعني بمجرد أكتب start يترجمها ستارت وهكذا . انا حصلت بالمنتدى المسماه النقرية على ما أعتقد وهي بالعكس من اللغة العربية إلى الإنجليزية أتمنى أن الصورة وضحت ولك الشكر أخوي مره أخرى
Enjoy قام بنشر مارس 4, 2007 قام بنشر مارس 4, 2007 ارجوا التوضيح اكثر لانك اذا كنت تقصد الترجمة من الانجليزي الى العربي فقط فنفس البرنامج - فقط اقلب البيانات اذا طنت تقصد موضوع ثاني ياليت توضح عشان انا او اي احد من الاخوان نقدر نساعدك
الحـــــــر قام بنشر مارس 5, 2007 الكاتب قام بنشر مارس 5, 2007 اخوي enjoy واللي اقصده اذا كتبت باللغة الإنجليزية يتحول تلقائيا للعربي ما أدري شلون اوصلها انت برنامجك تحفظ فيه الكلمه وترجمتها يعني إنت ببرنامجك تدخل اسم احمد وتدخل اسمه بالإنجليزي يعني تسوي له حفظ انا ما أبي الطريقه هذي اللي أبيها هو على ما أعتقد إنك تدخل كود بنفس البرنامج يعني لو كتبت حرف B يترجمه على طول ب يعني بدون ماتحفظ الأسماء داخل البرنامج وتستدعيها بعدين . مثال لو كتبت enjoy يترجمه لي بمربع اللي يقابه اينجوي وهكذا على جميع الحقول اتمنى إنها وصلت الفكرة . ولك الشكر
Enjoy قام بنشر مارس 5, 2007 قام بنشر مارس 5, 2007 (معدل) معليش ارجوا منك انك تتحملني شوي انت شككتني في برنامجي البرنامج يقوم بالترجمة تلقائيا - يعني ما اكتب احمد وبعدين ارجع اكتبها بالانجليزي اتوقع بان المشكلة الوحيدة عندك هي ان الترجمة تتم عن طريق جدول يتم تعبئته بجميع الاسماء وترجمتها بواسطة المستخدم وهذة العملية تتم لمرة واحدة فقط يعني لو كتبت اسم غير موجود في القاموس الخاص بالبرنامج بمجرد اضافته في جدول الاسماء سيتم ترجمة جميع الاسماء حتى لو كان تم ادخال البيانات من السابق ولا يتم العودة على بياناتك مرة اخرى واذا كنت تبغى ترجمة حرفيه فبالامكان ايضا بان تضع كل حرف والمقابل له وانا اتوقع اذا كانت هذة هي المشكلة - فحسب اعتقادي لايوجد قاموس جاهز يتم ربطة بالبرنامج هذا حد معرفتي وانا اسف على مداخلتي واتمنى من باقي اعضاء المشاركة هنا ليتم مساعدتك بالطريقة المناسبة على فكرة في حال الترجمة الحرفيه (مثل a = أ) الخ. فقط يتم جمع الاحرف بعد كتابتها بحيث لاتكون مفرقة ومتباعدة مثل ترجمة الاسماء بحيث يكون فراغ بين الاسم والاسم الاخر تم تعديل مارس 5, 2007 بواسطه Enjoy
الحـــــــر قام بنشر مارس 6, 2007 الكاتب قام بنشر مارس 6, 2007 كلامك اوكيه وخليك معاي شوي انت الحين لو فتحت برنامجك اوكيه ابيك تكتب لي saad بالإنجليزي بس هل هلو يترجم تلقائيا للعربي أو لازم تضيفه . انا حاولت ومالقيت ببرنامجك إلا إنك تضيف بالعربي وبالإنجليزي هذي طريقتك علشان لو إحتجت لللإسم مره ثانيه بوقت ثانيه يكون محفوظ . صح يا enjoy انا ما أبي أخزن بالجهاز الأسماء واستدعيها بوقت آخر أنا يوميا يجيني أكثر من 30 إسم وكلها مختلفة عن اليوم الثاني وصعبه أكتبها بالعربي وبالإنجليزي ... اللي أبيه إني أعرف الحروف الإنجليزية بالعربي وتكون بقاعدة البيانات . وكلما اكتب حرف يترجم حتى انتهي إلا آخر حرف بالإسم يعني لو جيت أبي اكتب table انا راح أكتب اول حرف t بالمقابل راح يعطيني ت إلى ماأنتهي من الكلمة table = تيبل واعتقد إن الطريقة صعبة هذي . واشكرك على متابعتك . وغريب وين الأخوان الباقين يعني للدرجه هذي صعبة ما أعتقد بالشخص الملم بالأكسيس وفاهم كتابة الأكواد تصعب عليه . ولكم الشكر .
الحـــــــر قام بنشر مارس 7, 2007 الكاتب قام بنشر مارس 7, 2007 شاكر على مرورك يا rrrr ولاكن على ما قالو انا عليمي وياليت اذا كنت تجيدها وعارف المطلوب ياليت تخدمني وهذي الشغله محتاجها . وكل الشكر لكم وعلى إهتمامكم
الحـــــــر قام بنشر مارس 9, 2007 الكاتب قام بنشر مارس 9, 2007 على حسب مافهمت الظاهر هي عملية تفقيـــــــــــــــــط لأن شفت موضوع تفقيط الأرقام إلى أحرف ............... إلا الآن الأمل موجود فيـــــــــــــــــــــكم وياليت أحد يخدمنا للدرجه هذي صعبة أو محد فكر فيها أبد اعتبروها تحدي بينكم وحلوها والكل يستفيد منها .
الحـــــــر قام بنشر مارس 10, 2007 الكاتب قام بنشر مارس 10, 2007 يرفـــــــــــــــــــــــع ومازال التحدي موجود ؟؟ فقط للحماس .
الحـــــــر قام بنشر مارس 12, 2007 الكاتب قام بنشر مارس 12, 2007 كل الشكر لك اخ rrrr جاري التجربه . وراح اعطيك رايي ولك الشكر مره اخرى
الحـــــــر قام بنشر مارس 12, 2007 الكاتب قام بنشر مارس 12, 2007 جزاك الله خير اخي rrr انت وصلت المعلومة ووضحتها لي . لاكن استفسار ثاني وياليت تخدمني فيه الا وهو . الحين الكود اللي كتبته انت =IFF(([aa])"احمد";"AHMAD";IFF(([aa])"ناصر";"NASEER")) اعتقد الكود او تقريبا كذا لاكن اللي ابيه =IFF(([aa])"A";"ا";IFF(([aa])"B";"ب")) وهو العكس بالمربع الأعلي ابي اكتب بالإنجليزي وتحت يترجمها لي بالعربي ولاكن ابي طريقه وهي ثابته وهي عمل ترجمة كل حرف إنت طريقتك إلزامية اذا كتبت احمد يترجم كلمه أحمد طيب انا لوبغيت اكتب حرف BCVB مثلا ويترجمها لي على طول على حسب ماوضعته أنا بالكود واذا بغيت اكتب اسم جديد لازم اكتبه بالكود علشان يترجمه لي لاكن ابي ترجمه الحروف كل حرف مقابله ترجمته بالعربي حتى لو كنت ابي اكتب كلمه جديدة البرنامج يقارنها ويشوف طريقة تفقيط الحروف ويكتب لي الكلمة ابي الحروف داخل قاعدة البيانات ثابته A=ا B=ب C=ك D=د E=ي F=ف G=ج >>>>>>>> وهكذا إلى اخر حرف أنت عطني كم حرف وانا اكمل الباقي واكون شاكر لك
الحـــــــر قام بنشر مارس 13, 2007 الكاتب قام بنشر مارس 13, 2007 لك الشكر اخوي حصلت الطريقة هذي وهذا اللي كنت ابيه بالضبط 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 ولك الشكر مره أخرى
الحـــــــر قام بنشر مارس 16, 2007 الكاتب قام بنشر مارس 16, 2007 ابشر يالغالي وانا ياطويل العمر عليمي لاكن حست بالأكواد وضبط معاي وشف انت الملف ويمكن تعدل فيه وتضهره بصوره احسن ولك الشكر A2E.rar
maherbadawey قام بنشر مارس 17, 2007 قام بنشر مارس 17, 2007 اخى الحر بارك الله فيك على البرنامج الممتاز وعلى مصممه الاستاذ / محمد مهند
الحـــــــر قام بنشر مارس 17, 2007 الكاتب قام بنشر مارس 17, 2007 بإذن الله راح يكون مترجم صغير مع التغيير والإضافة داخل الكود ولكم الشكر اتمنى من الجميع أن يستفيد منه انا وجدته عندكم ولاكن بعد البحث
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.