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

تفقيط الارقام

مغلق
بدأه wkalo في 19 ديسمبر 2004 · 16 رد · 8,079 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

اود تحويل ارقام الى كلمات بالعربية،

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

مثلا : تحويل 1125

تحول : الف و مائة و خمسة و عشرون

#2

لا أعتقد بأنه يوجد طريقة مباشرة لذلك، ولكني أعطيك فكرة سيكون كودها طويل ولكنه سهل .قم بعمل مصفوفة بعدد خانات الرقم (مثلاً الرقم 1989 له أربع خانات)، وكل عنصر من عناصر المصفوفة إجعله لخانة من الخانات، وبإستخدام Select Case قم بقراءة العدد الذي يوجد في الخانة... وبعد ذلك قم بربط عناصر المصفوفة ببعضها البعض كما تربط النصوص (أي بالأوبراتر &)... أرجو أن تكون الفكرة قد وصلت لك.

Learn Japanese :>>> http://www.nouben.com/

#3

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

جرب المثال دة

New WinRAR ZIP archive.zip

{وَاتَّقُواْ يَوْمًا تُرْجَعُونَ فِيهِ إِلَى اللّهِ ثُمَّ تُوَفَّى كُلُّ نَفْسٍ مَّا كَسَبَتْ وَهُمْ لاَ يُظْلَمُونَ} (281) سورة البقرة

br17.gif

برنامج الإتصلات الإدارية والارشيف الالكتروني

برنامج الخبير لنقاط البيع المباشرة

#4

__024

جرب هذا الكود انا مجحربة 100% على الاكسس 2003

وهو نفسه بظبط على VISUAL BASIC ومجرب

Function NoToTxt.doc

#5

أخي بسّام، نشكرك على مساهمتك الطيبة، وقد قمت بفتح الملف المرفق ولكن الكلمات متداخلة وغير واضحة، لذا فأنا أقترح عليك بأن تقوم بوضع الكود مباشرة في مشاركتك (هل تعلم كيفية القيام بذلك؟؟؟ ).

علماً بأن البرنامج الذي قدمه الأخ waleedhm يفي بالغرض تماماً ولكن كما تعلم فإن المنتدى هو للتعلم لذلك أرجوك ثانية بأن تضع الكود بصورة مقروءة فقد يكون فيه فائدة جديدة وطريقة لم تخطر على بالنا....

Learn Japanese :>>> http://www.nouben.com/

#6

شكرا للأخ bassam73

هذا المثال يصلح لفيجوال 6

و قد قمت بتعديله و عمله بالدوت نت في مشروع مع تصحيح الكلمات

no2text.rar

#7

جزاكم الله خيراً جميعاً ..

كود احتاجه فعلاً..

اقتباس
الـ VB هى الأساس ... بتبرمج بيها بالاحساس

ولا سيمي كولن ولا أقواس ... وتعلمها سهل لكل الناس

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

الـ VB هى التراث ... للذكور والايناث :D

الـ VB لغة عريقه ... حتى اسأل Anwarica

من ديوان الشاعر السي شاربي "معتز شمس"
#8

hello waleedhm

I tried your code and it worked perfectly

sorry for my reply is late, also in english as I don't eally know what is going wrong with my computer, it writes arabic on all applications except on this wesite

(83JE)DE3FJ*(CDEF*3JE(F*D3EJF()

the above example is what I get when I svahnge to write arabic on this site.

any way this is not the issue

your code worked perfectly And I thank you very much hope one day I could return the favor

best regards

wahid kalo

#9

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

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

وان شاء الله الكمبيوتر يتشغل عربى وتتحل المشكلة

{وَاتَّقُواْ يَوْمًا تُرْجَعُونَ فِيهِ إِلَى اللّهِ ثُمَّ تُوَفَّى كُلُّ نَفْسٍ مَّا كَسَبَتْ وَهُمْ لاَ يُظْلَمُونَ} (281) سورة البقرة

br17.gif

برنامج الإتصلات الإدارية والارشيف الالكتروني

برنامج الخبير لنقاط البيع المباشرة

#10

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

الملف المرفق به

مثال للتفقيط فى اصدار 6

ومثال للتفقيط فى الدوت نت

وهوعبارة عن دالة كنموذج يتم استدعاءه

المثال يعمل جيدا دون مشاكل تذكر

وتستطيع تغيير العملة وجزءها حسب المنطقة

badrmedia.zip

#11

السلام عليكم

انا لقد أتممت عمل التفقيط لكن للأسف على لغة فيجوال بيسك 6 للأسف

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

هذه مرفق نظام التفقيط بشكل رائع جدا

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

من الثوابت المدخله فى الكود

:D

ما رأيكم ::: على العموم انا فقط أتمنى أن تقبلوا منى هذه الهدية

و لكن كمان اتمنى ان ألقى أحد يعلمنى فيجوال دوت نت بشكل مستمر على الماسنجر

و لم خالص الشكر و التقدير

#12

السلام عليكم

انا لقد أتممت عمل التفقيط لكن للأسف على لغة فيجوال بيسك 6 للأسف

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

هذه مرفق نظام التفقيط بشكل رائع جدا

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

من الثوابت المدخله فى الكود

:D

ما رأيكم ::: على العموم انا فقط أتمنى أن تقبلوا منى هذه الهدية

و لكن كمان اتمنى ان ألقى أحد يعلمنى فيجوال دوت نت بشكل مستمر على الماسنجر

و لم خالص الشكر و التقدير

Samp_Number.rar

#13

بارك الله فيكم ايها الاخوة الكرام على هذا المجهود الطيب

ولقد أحسن القائل :

وفى الجهل قبــل الموت موت لأهله ............... وأجســـامهم ، قبل القبور ، قبور

وأرواحهم فى وحشة من جسومهم ................ وليــس لهم حتى النشور نشور

(كتاب إغاثة اللهفان لابن قيم الجوزية)

#14

السلام عليكم لدي كود لتفقيط الارقام الرجاء ان يستفبد منه الجميع

fromNoToText.rar

يــــا أقصى .... لا تنادي ..... فلن يجيبك احد

#15

الله أكبر

فعلا منتدى أكثر من رائع نساعد بعضنا فيه

فلسطين الزاهية بألوان الحب والسلام

ذلك الطعم الزيتوني الذي يتدفق عسلاً من أفواه بساتينها وحدائقها

تشتاق إليها نفوس المتقين وترنوا للسجود فيها جباه المسلمين

#16

السلام عليكم

قمت والحمد لله بعمل رابط بعنوان التفقيط

يمكنك أن تقوم بالبحث عنه وتنزيله

وأرجو أن يفيدكم جميعا

#17

-9

شكرا لكم جميعا

شكرا لك أخى waleedhm على هذا الproject الرائع

ودائما تكون لنا المعلم بإذن الله

-waf

يا حى يا قيوم برحمتك أستغيث اصلح لى شأنى كله ولا تكلنى إلى نفسى طرفة عين

اللهم أعنا على ذكرك وشكرك وحسن عبادتك

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

اللهم إنى أسألك رضاك والجنة وأعوذ بك من سخطك والنار

اللهم إرحمنا فوق الأرض وإرحمنا تحت الأرض وإرحمنا وإعتق رقابنا يوم العرض

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

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

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

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