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

تحويل الحروف كتابة (20 إلى عشرين)

مغلق
بدأه ابوحمود في 9 فبراير 2002 · 16 رد · 1,907 مشاهدة · في مراجعة المواضيع
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

الأخوة

يكثر السؤال بين وقت وآخر عن مسألة تحويل الأرقام إلى حروف وتأتيني أسئلة بالبريد عنه ، وقد عملت قاعدة لهذه الطريقة والكود من الأخ مفرج وفقه الله .

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

http://www.libya.ly/user/abo/NToTxt.zip

ومن يريد الموضوع كاملا يجده في الرابط :

http://arabteam.nicmatic.com/vb/showthread...%DA%D4%D1%E6%E4

وللجميع تحياتي

#2

عزيزي أبو حمود وفقك الله

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

#3

السلام عليكم

كما يوجد تفقيط لا يقل أهمية عما ذكروا وقد يكون أفضل ولكنه لا أراه يذكر حتى بالإشارة حيث اندثر كما اندثر صاحبه وضاع في الزحمة !!

عموما من ميزات التفقيط :

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

2 - ثنائي اللغة عربي وإنجليزي

3 - يمكن إضافة جميع العملات دفعة واحدة كما يمكن إضافة كل ما يود عده مثل المخزون كرتون ، حبة ، علبة .. الخ ثم يشار إليه برقم كود العملة فقط .

4 - التفقيط مدقق نحويا وبشكل قوي بإشراف مدرس لغة عربية .

الأخ برج الأسد :

يوجد الكود عندي بالأكسل 97 إذا أحببت وضعته لك بالمنتدى مع عدم احتوائه على بعض الميزات في الموجودة في الأكسس (أعتقد أنه عربي فقط) ولا يحتوي على جدول العملات .

تحياتي للجميع :)

#4

الأخ ابوهادي

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

أي تفقيط فيهم فأنا بحثت عن الأفضل في رأيي وقد أكون مخطأً ؟

وإذا ذكرته فلا تنسى ذكر المشاكل لنحاول حل سوياً ونضع عليه مثال .

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

بارك الله فيك وسددك .

ولك تحياتي

#5

الأخ أبو هادي.

السلام عليكم وبعد:

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

يبقى سؤالي مطروحا للأخوة المشرفين والأخوة القراء : هل يعرف أحد منكم موقعا يعنى بالأكسل وبالعربي فضلا ؟. مع خالص تحياتي.

#6

السلام عليكم

الأخ أبو حمود .. بعد التحية

كلامي لا يخصك لوحدك بل لكل من تصدى للموضوع وخصوصا فترة غيابي عن المنتدى فقد كثر السؤال كما أوضحت وكثرت الأجوبة معها ولكن لم يضم أحدها برنامجي .

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

عموما كان الموضوع على الوصلة التالية :

http://www.arabteam2000.com/vb/showthread....%CA%DD%DE%ED%D8

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

تحياتي

#7

الأخ برج الأسد .. بعد التحية

إذا ما كنت مستعجل عليه فسوف أؤجل الرد إلى يوم الجمعة حيث أحتاج للبحث عنه أولا وإذا كنت مستعجلا عليه فسوف أقوم بوضع ملف أكسل بالمنتدى يوم غد إن شاء الله تعالى .

تحياتي

#8

الأخ أبو هادي. الجمعة الجمعة .

#9

هذا مثال على طريق ابو هادي :

http://www.libya.ly/user/abo/aboHady.zip

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

نأمل منك يابوهادي إكمال المثال للحروف الإنجليزية وكذلك استخدام ما اسميته الدالة الوسطية لنستفيد من الكود بكامله .

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

وفقك الله لكل خير وسلمك من كل شر وزادك علماً ونفع بك .

ولك تحياتي

#10

السلام عليكم

الأخ ابوحمود

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

عموما الكود كان مكتوب بالباسكال وتحويله إلى البيسك شي متعب جدا وخصوصا تفكييك الدوال والإجراءات .. هنا أرى الكود وكأنه متاهة وقد زاد الطين بلة عملية النسخ واللصق للكود حيث ألغى جميع المسافات في بداية الأسطر وأصبح كأنه رسالة بالطريقة الأمريكية :)

على كل حال رأيت أن أحد المصفوفات حجمها أقل من المطلوب وهي :

Dim ESingle(1 To 12) As Variant

وتصحيحها كالآتي :

Dim ESingle(1 To 13) As Variant

وأنا الآن أقوم بتعديل الكود أو (تنقيحه) وسوف أضعه مرة أخرى بالمنتدى مع إضافة الفورم الذي صممته أنت فهو مثال جميل للشرح والتوضيح .

تحياتي

#11

السلام عليكم

الأخ برج الأسد

ملف التفقيط على الأكسل 97 عربي/انجليزي مع مثال

الأخ ابوحمود

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

http://mypage.ayna.com/abbashmd/Only.zip

تحياتي للجميع

#12

السلام عليكم

اخوامي الكرام اعرف ان الرد متاخر جدا ... ولكن الموضوع الجميل يجب ان يستمر طويلا !!!

حملت الملف الخاص بابو حمود وهو برنامج التحويل وهو رائع جدا ... لكن هل بالامكان عمل التالي :

عندي مجموع من المواد تقريبا 16 مادة .

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

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

اعرف ان برنامج ابو حمود كان لخانة واحدة ,,, انا اريد 16 خانة .

كيف ؟؟؟

وتقبلوا تحياتي

#13

الواصلة لا تعمل يا أبو هادى

#14

أفا.. ما هقيتها منك يا بو هادي.. الوصلة ما تعمل!!!!. :D (gift) (f)

#15

السلام عليكم

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

الأخ المالكي333 .. أفا على غيرك :)

تحياتي .

only28082002.zip

#16

ابو هادي .

هل عندك اجابة شافية ؟؟

#17

السلام عليكم

الأخ احلى عالم .. أعتقد المثال الذي أرفقته يفي بغرضك فهناك الدالة الثانية M_Only تستطيع استخدامها بعد تعبئة الجدول Currencies ببيانات الأصناف .

تحياتي .

هذا الموضوع مغلق.

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

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…