موضوع منقول من المنتدي القديم
الكاتب : أبو هادي
تفقيط جديد
لقد تم إضافة بلد العملة وإظهار الكسر بأربعة أشكال مختلفة منها تفقيط الكسر .
لم يختبر بعد .. آمل من الجميع المشاركة في تجربته وإبداء الرأي فيه حتى نستطيع تنقيحه من كل الشوائب إن وجدت .
لقد تم حذف المثنى للمعدود على أن يقوم البرنامج بمهمة إيجاد المثنى بناء على المفرد المدخل .. آمل أن لا يكون هناك أخطاء .
المثال :
http://mypage.ayna.com/abbashmd/Only28082002.zip
تحياتي
----------------------------------------------------------------------------
الكاتب: أبو هادي بتاريخ: 8/27/2002 6:09:52 PM
--------------------------------------------------------------------------------
إجابة
ما شاء الله تبارك الله
إبداع
تصميم ممتاز جداً .
ملاحظة سريعة :
اختر ريالات سعودية والدالة الثالثة وشكل الكسر خمسون هللة والكسر مؤنث والمعدود مذكر وطول الكسر واحد ستجد قد ظهرت :
فقط ستمائة وريالان سعوديان اثنان و خمس هللات
والخطأ حشر كلمة اثنان لأنها هنا لاداعي لها أو تكون العبارة :
فقط ستمائة واثنان ريال سعودي و خمس هللات
بقى أن تكملها بحيث يظهر التفقيط في التقرير .
والأفضل أن تفصل كل دالة لوحدة في وحدة نمطية وتسميها بنفس اسمها في النموذج الدالة الأولى الدالة الثانية الدالة الثالثة حتى يأخذ منها المبرمج ماشاء .
والأمر الآخير لو توضح كيف يستفيد المبرمج من كل دالة منها وأين يضعها وكيف .
زادك الله علماً ووفقك ويسر أمرك
ولك تحياتي
الكاتب: ابوحمود. بتاريخ: 8/27/2002 11:26:04 PM
--------------------------------------------------------------------------------
ملاحظات
السلام عليكم
الذين أنزلوا المثال قبل رد الأخ سعودي31 عليهم إنزال المثال مرة أخرى حيث كان المثال يحتوي على كثير من المشاكل البرمجية تم تفاديها لاحقا .
الأخ أبو حمود .. شكرا على جهودكم وأحب أن أنوه بالتالي :
بالنسبة للتفقيط العربي معتمد على قواعد النحو والصرف فمثلا :
نقول ريال واحد وليس واحد ريال
وكذلك المثنى نقول ريالان اثنان وليس اثنان ريال
مع ملاحظة أنه يمك الإستغناء عن إسم العدد كما أشرتم ويكتفى بذكر المعدود مفردا أو مثنى مثل :
ريال أو ريالان بدون ذكر واحد أو اثنان .
أما بالنسبة للدوال مع أنواعها فهي كلها مترابطة مع بعض ولا داعي لفصلها في دوال وسيطة فقط تقوم بالتحضير إلى الدوال الأساسية وهي كما تظهر بالمثال في أسفل الفورم :
1 - الدالة الأولى : هي دالة لا تطلب فقط غير الرقم سوى اللغة وشكل الكسر .
2 - الدالة الثانية : هي لا تصلح استخدامها في الأكسل بل في الأكسس فقط بحيث تتطلب جدول للعملات بجميع التفاصيل المطلوبة كما في الدالة الثالثة على أن يممر لها رقم السجل للعملة المطلوبة في الجدول .
3 - الدالة الثالثة : وهي الدالة المطلوب استعمالها للكثير من المستخدمين ولكنها تتطلب من المعطيات 12 عنصر وهي كالتالي :
الرقم المطلوب تفقيطه
اللغة
جنس المعدود
طول الكسر
مفرد المعدود عربي (ويكن أضافة له بلد العملة .. اختياري)
جمع المعدود عربي
مفرد المعدود بالإنجليزي
جنس الكسر
مفرد الكسر عربي
جمع الكسر عربي
مفرد الكسر انجليزي
شكل أو صورة الكسر
أما استخدامها فيمكن استخدام كل منها في أي موضع يرغب فيه فهي دالة كما الدوال الأخرى لا يطلب تحضير متغيرات لها أو أي شروط أخرى فقط الـ Module يجب تحميله لأي قاعدة بيانات مطلوب استخدام الدوال فيها .
تحياتي
--------------------------------------------------------------------------------
الكاتب: أبو هادي بتاريخ: 8/28/2002 2:20:32 PM
--------------------------------------------------------------------------------
رد لابوهادى
تفقيط هائل شامل كامل انت شديد يابو هادى
لكن لى ملاحظة بسيطة حتى يمكن استخدامه فى الاكسس والاكسيل والوورد يجب عمل الباراميتر جميعها داخل الكود دون الاستعانة بجداول حتى تقبل التطبيق كدالة فى الاكسس والاكسيل والوورد
مع الاخذ فى الاعتبار جميع الباراميتر التى وضعتها كلها وصدقنى انت هايل
اخوك طارق الحماحمى
--------------------------------------------------------------------------------
طارق الحماحمى
الكاتب: tarekh_2 بتاريخ: 8/29/2002 9:58:51 AM
--------------------------------------------------------------------------------
توضيح آخر
لقد اخطأت في شرح الدالة الثالثة والصحيح كالتالي :
3 - الدالة الثالثة : وهي الدالة المطلوب استعمالها للكثير من المستخدمين ولكنها تتطلب من المعطيات 10 عناصر وهي كالتالي :
1 - الرقم المطلوب تفقيطه
2 - اللغة
3 - جنس المعدود
4 - طول الكسر
5 - مفرد المعدود عربي (ويكن أضافة له بلد العملة .. اختياري) .. أو مفرد المعدود للإنجليزي
6 - جمع المعدود عربي .. أو "" للإنجليزي
7 - جنس الكسر
8 - مفرد الكسر عربي .. أو مفرد الكسر للإنجليزي
9 - جمع الكسر عربي .. أو "" للإنجليزي
10 - شكل أو صورة الكسر
الأخ طارق :
سأقوم بوضع مديولين بالمثال وسيكون أحدهما للأكسل .
تحياتي .
--------------------------------------------------------------------------------
الكاتب: أبو هادي بتاريخ: 8/29/2002 11:06:03 AM
--------------------------------------------------------------------------------
ملف أكسس وأكسل
مرفق ملف أكسس وملف أكسل
http://mypage.ayna.com/abbashmd/Only_29082002.zip
تحياتي
--------------------------------------------------------------------------------
الكاتب: أبو هادي بتاريخ: 8/29/2002 2:35:14 PM
--------------------------------------------------------------------------------
رد لابو هادى
يبقى تمام لو عملت موديول يصلح للاكسس والاكسل معا
--------------------------------------------------------------------------------
طارق الحماحمى
الكاتب: tarekh_2 بتاريخ: 8/29/2002 2:35:52 PM
--------------------------------------------------------------------------------
رد للأخ طارق
ماهو المديول الموجود بالأكسل يصلح للإثنين والثلاثاء والأربعاء كمان .
--------------------------------------------------------------------------------
الكاتب: أبو هادي بتاريخ: 8/29/2002 3:44:03 PM
--------------------------------------------------------------------------------
هل يحتاج مرجع
الأخ أبو هادي لم أتمكن حتى الآن من تشغيل البرنامج لوجود مشكلة وهي
كلما فتحت البرنامج فوراً يتجه بي إلى الوحدة النمطية ويضلل هذا باللون الأصفر:
Function B_Only(InNum As Variant, Lang, Sex, Dec As Byte, Single_, Ploral_ As String, _
FSex As Byte, SFrac, PFrac As String, FracType As Byte) As Variant
ويضلل هذا باللون الأزرق
Num_ = Str(InNum)
كما هو بهذا الشكل تماما
فما هيالمشكلة يا ترى
ولك تحياتي
--------------------------------------------------------------------------------
لا إله إلا الله .. محمد رسول الله - صلى الله عليه وسلم .
الكاتب: سعودي31 بتاريخ: 8/30/2002 12:35:51 AM
--------------------------------------------------------------------------------
رائع
رائع جدا
ما شاء الله عليك
مشاركاتاك خلال أغسطس كلها صواريخ
طبعا هذا لا يقلل من شاركاتك قبل أغسطس
الاخ سعودي ، افتح قائمة المراجع و أزل الاشارة الي المرجع المفقود Missing و هو ل common Control
--------------------------------------------------------------------------------
الكاتب: محمد طاهر
